Delphi复习资料及习题

1Delphi参考复习要点及题目1.结构化程序设计的基本原则，程序中采用的三种控制结构，顺序、分支和循环2.关于对象的叙述。对象的属性，对象的方法。3.与数学表达式对应的ObjectPascal表达式：如1009)(cos2xba4.Delphi应用程序中项目文件、备份文件等各类的扩展名5.各个组件的属性要掌握，重点如：按钮，Edit，ListBox，Timer，DBGrid，MaksEdit，Canvas6.常用组件使用和循环操作第一题填空1.本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。procedureTForm1.Button1Click(Sender:TObject);//运算varx1,x2,y:Integer;beginx1:=StrToInt(Edit1.①);x2:=StrToInt(Edit2.②);Case③.ItemIndexof0:y:=x1+x2;1:y:=x1-x2;2:y:=x1*x2;3:y:=x1Divx2;End;Edit3.④:=IntToStr(⑤);end;答案①text②text③RadioGroup1④text2⑤y2.本程序设计界面和运行界面如下图所示：程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。请完成程序填空：procedureTForm1.Button1Click(Sender:TObject);//“计算”按钮vari,n,sum:integer;beginsum:=0;i:=1;n:=StrToInt(edit1.①);//读入正整数nwhilei=n②//循环语句beginifodd(i)thensum:=③;i:=i+1;end;edit2.Text:=IntToStr(④);//将结果在编辑框中显示end;在程序中，odd为系统函数，其功能为：⑤。参考答案①Text②do③sum+i④sum⑤判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。多窗体；打开、保存文件对话框用法3.本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button23（退出）、Button3（播放）、Button4（停止）和OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。implementation{$R*.dfm}uses①;procedureTForm1.Button1Click(Sender:TObject);//加载AVI文件beginif②thenanimate1.FileName:=③;end;procedureTForm1.Button2Click(Sender:TObject);//退出beginif④=mrYesthenclose;end;procedureTForm1.Button3Click(Sender:TObject);//播放beginanimate1.Play(1,animate1.FrameCount,0);end;procedureTForm1.Button4Click(Sender:TObject);//停止beginanimate1.⑤;end;end.参考答案1、①unit2②opendialog1.Execute③opendialog1.FileName④form2.ShowModal⑤stop44.本程序由主窗体form1和子窗体form2组成，界面如下图所示：主窗体上建立的对象有Memo1、Button1~3、OpenDialog1、SaveDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个文本文件后，文件内容加载到编辑区中（Memo1）。单击“保存文件”按钮（Button1），会弹出保存文件对话框。用户输入文件名后，缓冲区内容保存到指定文件中。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。implementation{$R*.dfm}uses①;procedureTForm1.Button1Click(Sender:TObject);//打开文件beginif②thenmemo1.Lines.LoadFromFile(③);end;procedureTForm1.Button2Click(Sender:TObject);//保存文件beginifsavedialog1.Executethen④(savedialog1.FileName);end;procedureTForm1.Button3Click(Sender:TObject);//退出beginif⑤=mrYesthenclose;end;end.参考答案①unit2②opendialog1.Execute③opendialog1.FileName④memo1.Lines.SaveToFile⑤form2.ShowModal数据库操作（重点！各个组件用法要熟练掌握，表操作要牢记）55.数据库mydb中有关系表student，其结构如下：student（sno学号，sname姓名，sex性别，birthday生日）现编写一个学生信息浏览程序，设计界面和运行界面如下图所示。在下划线处填写相应数据库组件的属性值：Database1.DatabaseName:mydbTable1.DatabaseName:mydbTable1.TableName:studentTable1.Active:①Datasource1.DataSet:②DBNavigator1.DataSource:③DBEdit2.DataSource:④DBEdit2.DataField:⑤参考答案①True②Table1③DataSource1④DataSource1⑤sname6.本程序的功能是实现对dep表（系）－student表（学生）的主从查询。用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下：在Form1上建立的主要对象及连接如下：Database1－Table1（与dep表相连）－DataSource1－DBEdit1～DBEdit3Database1－Query1－DataSource2－DBGrid1（显示学生信息）Edit1、Button1（查找）、Button2（下一记录）、Button3（上一记录）等。Query1的SQL语句是：6select*fromstudentwheredno=:dno下面是Unit1单元的代码实现部分，请完成程序填空。implementation{$R*.dfm}procedureTForm1.Button2Click(Sender:TObject);//下一记录begintable1.①;end;procedureTForm1.Button3Click(Sender:TObject);//上一记录begintable1.②;end;procedureTForm1.Button1Click(Sender:TObject);//查找begintable1.③('dno',edit1.Text,[]);end;procedureTForm1.Table1AfterScroll(DataSet:TDataSet);beginquery1.Close;query1.ParamByName('dno').Value:=④;query1.⑤;end;end.参考答案①Next②Prior③Locate④table1['dno']⑤Open7.本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为：books（bno，书号，bname书名，num现有册数）7borrow（rno读者号，bno书号，rdate还书日期）其中，rno和bno都是字符型（3位）。在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。该界面要实现以下合法性检查：当该读者已经借了此书，不能再借。当所借的书现有册数为0，不能再借。在Form1上建立的数据库组件对象及连接关系如下：Database1－Table1（与books表相连）－DataSource1－DBGrid1（显示图书信息）Database1－Query1、Query2其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num（现有册数）。Query1的SQL语句如下：selectbnofromborrowwhererno=:rnoandbno=:bnoQuery2的SQL语句如下：insertintoborrowvalues(:rno,:bno,:rdate)下面是Unit1的代码实现部分，请完成程序填空：implementation{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);//“借书”按钮beginquery1.Close;query1.ParamByName('rno').Value:=①;query1.ParamByName('bno').Value:=②;query1.Open;ifquery1['bno']nullthenbeginshowmessage('该读者正在借阅此书');exit;end;if③=0thenbeginshowmessage('该书已全部借出');exit;end;query2.Close;query2.ParamByName('rno').Value:=edit1.Text;query2.ParamByName('bno').Value:=table1bno.Value;query2.ParamByName('rdate').Value:=date+15;query2.④;8table1.Edit;table1num.Value:=table1num.Value-1;//现有册数减1table1.⑤;end;end.参考答案①edit1.Text②table1bno.Value③table1num.Value④ExecSQL⑤Post8.本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为：books（bno，书号，bname书名，num现有册数）borrow（rno读者号，bno书号，rdate还书日期）其中，rno和bno都是字符型（3位）。在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书