1、湖北汽车工业学院数据库技术 （delphi）试卷（A）答案一、单选题（每题 1.5 分，共 30 分）1、Delphi 程序设计的基本特点是：（ D） 。A 可视化程序设计 B 代码程序设计 C 事件驱动编程 D A 和 C2、进度显示组件 ProgressBar 的当前进度可以通过（ C ）属性设置。A Step B Scroll C Position D Max3、下列变量命名正确的是：（ B ） 。A 7ABC B My7 C page2 D cmd14、 “x 是小于 200 的非负数”的 Object Pascal 表达式是（ C ） 。A 0 x = 0, x=0) AND (x
2、= 0 ) OR (x = 属性值 B ：=属性值 C =属性值 D ：=属性值 12、下列类型中合法的是（ D）A TYPE a=1010; B TYPE b=105;C TYPE c=0SQRT(10); D TYPE d=120;13、 已知 Var a:arrayae,15,boolean of real;则数组 a 中包含的元素的个数为 （ A）A 50 B 20 C 40 D 11 14、已知 a、b 、c、d 是同类型的简单变量，而且已有互不相同的值，执行下列语句：b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（A）A a,c B a,d C c,b D b
3、,a 15、下面的引用将返回字符串“奔腾计算机 100 台！”的是：(A)A format(%s 计算机%d 台！ ，奔腾,100)B format(%s 计算机%d 台！，100 ,奔腾)C format(计算机%s %d 台！， 奔腾,100)D format(%d 计算机%s 台！ ，奔腾,100) 16、有以下程序段：i：=100 ；while i=300 dobegini:=i+60;end;假设所有的变量已经说明，该循环体的执行次数是：（C）A 3 B 4 C 5 D 6 17、 数据表格的属性中，其中是关于有效性检验的属性的是 （ B）A table lookup B valid
4、ity checks C secondary indexes D referential integrity18、在 ttable 组件中用来说明当前数据集的来源的属性是（C）A active B tablename C databasename D name 19、TTable 的方法很多，其中都是用来浏览数据的方法的是( B)A next prior open B moveby last first C last prior close D setRangeStart last open20、 都是 ADO 组件页中的组件的是 （ B）A Ttable、Tdatasource 、 Tado
5、CommandB TAdoStoredPro 、TADOTable 、TADOConnectionC TADODataSet 、TADOQuery、TDataSetD TSession、 TDatabase、TDAODataset二、判断题（每题 1 分，共 10 分）1、object pascal 的数据类型只有系统定义的标准类型。 ( )2、对象观察器是用来描述组件对象计窗体对象的属性特征和行为事件的工具。()3、tryexcept 语句只能进行抛出异常，不能处理异常。( )4、析构函数和构造函数的功能一样。( )5. 粘贴时，如果作为容器的组件已被选择，剪贴板中的组件会当作容器组件的子组
6、件来粘贴。（ ）6、Database Desktop 是 delphi 提供的数据库管理工具，但是不能设置工作路径。( )7、数据字典有数据库和属性集两部分组成。( )8、delphi 中的数据控制组件提供了应用程序和数据库之间的联系。( )9、数据访问组件包括 TTable、TQuery 、datasource 等组件。( )10、TTable 是利用 SQL 语句来访问数据库中数据表格的数据访问组件。 ( )三、填空题（每空 1 分，共 25 分）1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和 方法 。2、结构化程序设计要求程序中仅采用顺序、分支和
7、循环三种控制结构，其中每种结构只能有 一个入口 和一个出口。3、Delphi 应用程序中单元文件的扩展名是 .pas 。4、与数学表达式 对应的 Object Pascal 表达式是53)(cos2xbaSqr(cos(a+b)/(3*x)+5 。5、对于下面的条件表达式：（3 = x） OR （x 0） ） AND （x in 110） 当 x = 3 时， 该表达式的值为 true 。6、将 label1 的标题设置为系统时间的语句是： label1.caption:=time 。7、可以通过设计 Image 对象的 picture 属性进行设置装入一个图形文件。 8、时钟组件（Timer
8、）能有规律的以一定时间间隔触发 OnTimer 事件。9、能够实现格式化输入的编辑框组件是 format（） 10、分组组件可以放置其他组件，请写出一个分组组件 。 （GroupBox、RadioGroup、panel、scrollbar 、tabcontrol 、pagecongtrol、headercontrol）以下题目从下列的属性和方法中选取填空Active autoselect bof close Constructor color decontructor databasename tablename datatime datset delete destroy datasourc
9、e datafield eof field function insert open setfocus tqrquick tqrsubdetail tqrexpr tqrband try11、定义构造函数时，不能使用 function，而是使用保留字 Constructor 。12、TTable 组件中， 指定要访问的数据库名称,通常是数据库别的属性是 databasename 。13、TDatasource 组件的属性 dataset 指明该数据源组件联系的数据集组件名 。 14、 TDBGrid 的设置中， datasource 指明了 TDBGrid 组件中显示数据源的来源。15、TDB
10、Edit 中， datafield 属性是用来确定 TDBEdit 组件显示与编辑的是当前记录中哪些特定字段的值。16、 bof 确定当前指针位置是否在数据表的第一个记录。17、 TQRSubDetail 组件是用来显示主/明细表报表中明细表的数据的。18、要让 Edit1 获得焦点时被自动选中，设置属性 AutoSelect。19、要想 Form1 中字体为 clRed，设置 Font 的 Color 属性。20、要想使一个 Edit1 获得焦点，使用方法 SetFocus。四、操作题（每小题 2 分，共计 10 分）操作下表 student.db，在横线上填入适当的内容。1、查询姓“赵 ”
11、的同学的“语文”成绩，则 SQL 查询语句：Select 成绩 from student where 姓名：=赵% and 课程：=语文2、 删除高水华 的记录Delete from student where 姓名=高水华3、插入一条记录(030117,李香香, 英语,90)Insert student Values（030117,李香香,英语,90 ）如果 table1.name：=student.db。 （4-5 题）4、 Table1.post 的含义是：将对 Table1 的修改数据暂时保存在记录缓冲区中。 5、打开数据库 table1 的方法是Table1.open； 五、程序题（
12、20 分，每题 10 分）1、 （10 分，每空 2 分）本程序设计界面和运行界面如下图所示： 程序的功能是：用户在 edit1 中输入一个正整数 n，然后按 “计算”按钮，程序计算 1n 中能被 3 整除的数之和，并在 edit2 中显示计算结果。请完成程序填空：procedure TForm1.Button1Click(Sender: TObject); /“计算”按钮vari , n, sum : integer ;beginsum := 0 ;i := 1 ;n := StrToInt(edit1. text （1） ); /读入正整数 nwhile i = n do （2） /循环语
13、句beginif i mod 3 =0 （3） then sum := sum+i （4） ;i := i +1 ;end;edit2.Text :=IntToStr( sum （5） ); /将结果在编辑框中显示end;2、 （10 分，每空 2 分）数据库 mydb 中有关系表 student，其结构如下：student（sno 学号，sname 姓名，sex 性别，birthday 生日）现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：在下划线处填写相应数据库组件的属性值：Database1. DatabaseName : mydb Table1. DatabaseName : mydb Table1. TableName : studentTable1. Active : （1） true Datasource1.DataSet : （2） table1 DBNavigator1. DataSource : （3）datasource1 DBEdit2. DataSource : （4） datasource1 DBEdit2. DataField : （5） sname
