procedure TForm1.Button2Click(Sender:TObject);// begin if④ =mrYes then close; end; procedure TForml.Button3Click(Sender:TObject);// begin animatel.Play(1,animatel.FrameCount,0); end; procedure TForm1.Button4Click(Sender:TObject);// begin animatel.⑤ end; end. 2.(15分，每空3分) 本程序的功能是实现对dep表（系）~student表（学生）的主从查询。用户可以依次查询 系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统 自动显示该系的学生记录。设计界面和运行界面如下： DBEdit1 Editl d01 d01 DBEdit2 计算机睡系 BEdit3 2934 摇839BhwD0 010002只成女1982-11-17d01 030002幸林女1984-35d01 040001换成文男1985-1-21d01 在Forml上建立的主要对象及连接如下： Databasel一Tablel(与dep表相连)一DataSourcel-DBEdit1~DBEdit3 Databasel-一Queryl一Data Source2-DBGrid1(显示学生信息) 1409procedure begin if④ TForml. Button2Click(Sender:TObject);//退出 =mrYes then close end procedure TForml. Button3Click(Sender : TObject) ; J/播放 begin animatel. Play(1，animatel. FrameCount,0); end; procedure TForml. Button4Click(Sender: TObject);//停止 begin animatel.⑤ ; end; end. 2. (15分 ，每空 3分) 本程序的功能是实现对dep表(系)- student表(学生)的主从查询。用户可以依次查询 系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统 自动显示该系的学生记录。设计界面和运行界面如下: 森燕一蠢一 在 Forml上建立的主要对象及连接如下: Databasel一Tablel(与 dep表相连)一DataSourcel一DBEditl一DBEdit3 Databasel一Queryl一DataSource2-D13Grid1(显示学生信息) 1409