if② then animatel.FileName:=3 end; 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. 28.(10分，每空2分) 本程序的功能是实现对dep表（系）一student表（学生）的主从查询。用户可以依次查询 系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统 自动显示该系的学生记录。设计界面和运行界面如下： Fonn1 Forml OBEdit1 Editl d01 do1 BEdit2 计算机系 DBEdit3 2934 B的 010002.吴成女1982-11-17：d01 030002李林女1984-3-5d01 040001晚成文男1985-1-21c01 1024if end; animatel. FileName: =③ then procedure TForml. Button2C1ick(Sender:TObject);//退出 begin if close; =mrYes then end; procedure TForml. Button3Click(Sender:TObject);//播放 begin animatel. Play(1 ,animatel. FrameCount ,O) ; end; procedure TForml. Button4Click(Sender:TObject) ; / /停止 begin animatel. end; end. 28. (1 本程序的功能是实现对 p表(系) - student 主从 系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统 自动显示该系的学生记录。设计界面和运行界面如下: 1024