delphi复习-程序填空(有答案)

复习要点● 结构化程序设计的基本原则，程序中采用的三种控制结构，顺序、分支和循环 ● 关于对象的叙述。

对象的属性，对象的方法。

● 与数学表达式对应的Object Pascal 表达式：如1009)(cos 2++xb a ● Delphi 应用程序中项目文件、备份文件等各类的扩展名● 各个组件的属性要掌握，重点如：按钮，Edit ，ListBox ，Timer ，DBGrid ，MaksEdit ，Canvas● 报表部分主要是了解概念● 多看看考试指导，熟悉题型常用组件使用和循环操作1、本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。

设计界面和运行界面如图所示。

其中，运算符是一个含有4个单选按纽的RadioGroup1对象。

下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。

---------------------------------------------------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);//运算varx1,x2,y :Integer;beginx1 := StrToInt( Edit1. ① );x2 := StrToInt( Edit2. ② );Case ③ .ItemIndex of0: y := x1 + x2 ;1: y := x1 - x2;2: y := x1 * x2;3: y := x1 Div x2;End;Edit3. ④ := IntToStr( ⑤ );end;①text ②text③RadioGroup1 ④text⑤y2、本程序设计界面和运行界面如下图所示：程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。

请完成程序填空：procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮vari , n, sum : integer ;beginsum := 0 ;i := 1 ;n := StrToInt(edit1. ①); //读入正整数nwhile i <= n ②//循环语句beginif odd( i ) then sum := ③;i := i +1 ;end;edit2.Text :=IntToStr( ④); //将结果在编辑框中显示end;在程序中，odd为系统函数，其功能为：⑤。

①Text ②do③sum + i ④sum⑤判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。

多窗体；打开、保存文件对话框用法3、本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：主窗体上建立的对象有Panel1、Animate1、Button1（加载A VI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。

子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。

单击“加载A VI文件”按钮，会弹出打开文件对话框。

用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。

单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。

单击“退出”按钮，会弹出确认对话框（Form2）。

如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。

下面是Unit1的代码部分，请在下划线处完成程序填空。

--------------------------------------------------------------------------------------------------------------------- implementation{$R *.dfm}uses①;procedure TForm1.Button1Click(Sender: TObject); //加载A VI文件beginif ②thenanimate1.FileName := ③;end;procedure TForm1.Button2Click(Sender: TObject); //退出beginif ④= mrYes thenclose ;end;procedure TForm1.Button3Click(Sender: TObject); //播放beginanimate1.Play(1,animate1.FrameCount,0) ;end;procedure TForm1.Button4Click(Sender: TObject); //停止beginanimate1. ⑤;end;end.--------------------------------------------------------------------------------------------------------------------- 1、①unit2 ②opendialog1.Execute③opendialog1.FileName ④form2.ShowModal⑤stop4、本程序由主窗体form1和子窗体form2组成，界面如下图所示：主窗体上建立的对象有Memo1、Button1~3、OpenDialog1、SaveDialog1。

子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。

单击“打开文件”按钮（Button1），会弹出打开文件对话框。

用户指定一个文本文件后，文件内容加载到编辑区中（Memo1）。

单击“保存文件”按钮（Button1），会弹出保存文件对话框。

用户输入文件名后，缓冲区内容保存到指定文件中。

单击“退出”按钮，会弹出确认对话框（Form2）。

如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。

下面是Unit1的代码部分，请在下划线处完成程序填空。

--------------------------------------------------------------------------------------------------------------------- implementation{$R *.dfm}uses①;procedure TForm1.Button1Click(Sender: TObject); //打开文件beginif ②thenmemo1.Lines.LoadFromFile( ③);end;procedure TForm1.Button2Click(Sender: TObject); //保存文件beginif savedialog1.Execute then④(savedialog1.FileName);end;procedure TForm1.Button3Click(Sender: TObject); //退出beginif ⑤= mrYes thenclose ;end;end.①unit2 ②opendialog1.Execute③opendialog1.FileName ④memo1.Lines.SaveToFile⑤form2.ShowModal数据库操作（重点！各个组件用法要熟练掌握，表操作要牢记）5、数据库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语句是：select *from studentwhere dno = :dno下面是Unit1单元的代码实现部分，请完成程序填空。

--------------------------------------------------------------------------------------------------------------------- implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject); //下一记录begintable1. ①;end;procedure TForm1.Button3Click(Sender: TObject); //上一记录begintable1. ②;end;procedure TForm1.Button1Click(Sender: TObject); //查找begintable1. ③('dno',edit1.Text,[]) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet);beginquery1.Close ;query1.ParamByName('dno').Value := ④;query1. ⑤;end;end.---------------------------------------------------------------------------------------------------------------------①Next ②Prior③Locate ④table1['dno']⑤Open7、本程序实现一个简单的借书界面。