Delphi语言开发工具》2008B试卷.doc

Delphi语言开发工具B试题 一、填充计算题(每个空格2分，共计302=60分)1. Delphi中，异常是指程序运行时遇到的不正常或不可预料的情况，它干扰程序的正常运行。 。Delphi异常处理机制建立在保护概念上。Delphi提供两种程序结构处理异常。他们分别是他们分别是try finally end2和他们分别是try Except end3。他们在程序执行时的区别是他们在程序执行时的区别是tryfinally.end用来释放资源并不处理异常， try.except.end是根据异常类型，处理异常。 。2. Delphi中提供is和as运算符，is运算符的作用判断算符，典型格式A Is Tedit，as运算符的作用是类型转换算符，典型格式是A as TEdit。3. 设I，J为正整数，I=4，J=8则I and J= 1 I or J= 12 , I xor J=12 , I SHL 2=16 4. Delphi中提供了记录数据结构。它一般性格式为: Type 类型名=Record 域名1：类型；域名2：类型；域名3：类型; END 。5. 在form窗体上放置了如下控件：标签控件Label，编辑控件Edit，数据库Table控件，数据源Datasource控件和表格Dbgrid控件，其中Table控件可直接访问C:disk.dbf文件，该表字段结构为djh和Jfh，都是字符型。Datasource控件和Dbgrid相连接，Dbgrid控件显示数据库表c:disk.dbf，则Table控件的默认Name为table1，Table控件要能直接访问c:disk.dbf文件，则Table控件的TableName属性置为c:disk.dbf且active置为True。若要使Dbgrid能显示c:disk.dbf文件数据，则Datasource控件的Dataset属性置为table1,Dbgrid控件的Datasource属性置为DataSource1。在Edit中输入某一djh值时，在Table中定位查找的语句是Locate(djh,Edit1.Text,);如果查找成功则在Lable标签提示上显示成功的语句是Label1.Caption:= 成功。6. Timer控件主要功能是时钟中断 ，在Form上放置Timer、Button和Lable控件。当Timer处于“关”状态，点击Button后，Timer处于“开”状态，命令为timer1.Enable:=True ，若要Button控件提示为“关”,则命令为timer1.Enable:=False 。7. Dialog控件集中，文件打开控件名OpenDialog，文件存盘控件名SaveDialog，打印机设置控件名 PrinterSetupDialog。8. 数据集Dataset中，方法FIRST是数据集第一条记录25，属性Eof是指指记录指针是否指向第一条记录，Lookup与locate方法区别是Lookup返回字段值或查找失败信息，Locate返回Boolean值 ，方法emptytable Deletetable不同之处是是否删除数据库表结构。9. SQL查询语言是指29。SQL语句一般性语句结构30。二、编程题（第1，2题15分，第3题10分，共计40分)1有一批图书信息须入库。入库信息如下：书名，作者名，出版社，分类号等。设计一程序，将输入的书以文本文件的形式保存在c:disk.dat文件中。procedure Tform1.CreateForm(sender:Tobject)Begin Edit1.text:= Edit2.Text=Edit3.text:=Edit4.text:=End;Procedure Tform1.SaveInfo Var F1 ：textFileFileName:string;Begin FileName= c:bookInfo.Dat If( FileExists(FileName) ) Then BeginAssignFile(f1,FileName);Reset(f1);End else beginAssignFile(f1,FileName);ReWrite(f1);End;Writeln(F1,Edit1.text);Writeln(F1,Edit2.text);Writeln(F1,Edit3.text);Writeln(F1,Edit4.text);CloseFile(f1);End2.计算下列表达式的值S=1!+2!+3!+4!+5!+N!Var I,j,k,N,S1,S2BeginN:=10;S1:=0For i:= 1 to N Do Begin S2:= 1; For k:= 1 to I Do beginS2:=S2*k;EndS1:=S1+S2;End;ShowMessage(intTostr(s1)end3. 在form上有Editl,Table、Buton、dbgrid1、query1、Datasource1等6个控件，控件间未作任何数据值的设置。在form表单创建时，Table连接数据表c:disk.dbf，c:disk.dbf中含有一字段名为Fld的字符型字段。Editl控件Text值置空。在Editl控件中输入数据时，点击Button利用SQL查询语句，将查询字段Fld值为Edit1.TexT的全部记录，并将结果显示在dbgrid中。写出form中Formcreat和Button中onclick的代码。formCreate代码beginTable1.TableName:=c:disk:dbf;Table1.Active:=True;DataSource1.dataSet:=Query1;END;Procedure DoQuery(FileDbf,Sel:string)Var vs:string;Begin Query1.Close;Queyr1.Sql.ClearQuery1.Sql.add(vs);Queyr1.Open;EndProcedure Form1 Buton