模拟试题13.docx
《模拟试题13.docx》由会员分享，可在线阅读，更多相关《模拟试题13.docx（32页珍藏版）》请在冰豆网上搜索。
模拟试题13
数据库设计与实践模拟试题
（1）
一、填空题（20分，每空2分）
1、结构化程序设计要求程序中仅采用三种控制结构，其中每种结构只能有一个入口和一个出口。
2、在面向对象的程序设计中，对象的属性用变量来表示，对象的方法用来实现。
3、Delphi的一个项目由若干文件组成，其中文件名后缀含有“~”的文件为。
4、RadioGroup对象中的单选按钮个数及名称是通过属性来进行设置的。
5、调用主窗体的方法，可以结束程序。
6、如果要在窗体上设计一个主菜单，首先要建立对象。
7、当Query对象中存储一条Update语句时，执行该语句需要调用Query的方法。
8、利用DBGrid的属性，可以设置DBGrid每一列的标题和对齐方式等。
9、在设计阶段，利用Image对象的属性，可以加载一幅图片。
10、与数学表达式
对应的ObjectPascal表达式是
二、单项选择题（20分，每题2分）
1、下面哪句话比较准确地定义了Delphi（）。
A．面向对象的编程语言B．面向对象的可视化的开发环境
C．数据库的客户端开发工具D．数据库报表生成工具
2、下面哪个功能键可以调出Delphi的联机帮助信息（）
A．F1键B．F2键
C．F3键D．F4键
3、“x是小于1000的非负数”的ObjectPascal表达式是（）
A．0≤x<1000B．（x>=0）OR（x<1000）
C．x>=0,x<1000D．（x>=0）AND（x<1000）
4、工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是（）
A．将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为True。
B．将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为False。
C．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为True。
D．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为False。
5、利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image的显示区域（）
A．StretchB．AutoSize
C．AlignD．Center
6、现建立一个简单报表，仅包含报表标题栏、数据栏和汇总栏，则在Bands属性的子属性中，不需要选择的是（）
A．TitleB．Detail
C．HasColumnHeaderD．Summary
7、最适合于在工具栏上放置的工具按钮是（）
A．ButtonB．RadioButton
C．SpeedButtonD．BitBtm
8、只能输出、而不能输入的数据感知控件是（）
A．DBEditB．DBText
C．DBRadioGroupD．DBCheckBox
9、如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查（）
A．OnClickB．OnEnter
C．OnMouseUpD．OnKeyPress
10、下面哪个组件不是容器组件（）
A．FormB．Panel
C．GroupBoxD．MaskEdit
三、判断题（10分，每题1分）
请给下列论述中正确的打上“√”，错误的打上“”
1、（）在Delphi环境中，在窗体上建立的按钮是“类”的概念。
2、（）编辑框组件能够响应的某些事件在按钮组件上是不会发生的。
3、（）在对文件的操作中，reset是打开一个老文件。
4、（）编辑框edit的ReadOnly属性如果设置为true，在代码中还是可以对text属性赋值。
5、（）SaveDialog组件的功能是指定一个文件名，并将编辑区中的内容保存到文件中。
6、（）在一个项目中，第一个建立的窗体就是主窗体。
7、（）在DataControls组件页上，只有DBNavigator组件可以不用指定DataField属性值。
8、（）一个Query对象同一时刻只能存储一条SQL语句。
9、（）要想在数据集中增加查找字段，必须先将数据集的字段全部置为动态字段。
10、（）在设计阶段，如果在Query对象的SQL语句中设置了参数，则必须在Query的Params属性中为参数赋初始值。
四、程序填空题（40分，每题10分）
1、（10分，每空2分）
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：
主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。
子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。
单击“加载AVI文件”按钮，会弹出打开文件对话框。
用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。
单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。
单击“退出”按钮，会弹出确认对话框（Form2）。
如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。
下面是Unit1的代码部分，请在下划线处完成程序填空。
---------------------------------------------------------------------------------------------------------------------
implementation
{$R*.dfm}
uses
①;
procedureTForm1.Button1Click（Sender:
TObject）;//加载AVI文件
begin
if②then
animate1.FileName:
=③;
end;
procedureTForm1.Button2Click（Sender:
TObject）;//退出
begin
if④=mrYesthen
close;
end;
procedureTForm1.Button3Click（Sender:
TObject）;//播放
begin
animate1.Play（1,animate1.FrameCount,0）;
end;
procedureTForm1.Button4Click（Sender:
TObject）;//停止
begin
animate1.⑤;
end;
end.
---------------------------------------------------------------------------------------------------------------------
2、（10分，每空2分）
数据库mydb中有关系表student，其结构如下：
student（sno学号，sname姓名，sex性别，birthday生日）
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示。
在下划线处填写相应数据库组件的属性值：
Database1.DatabaseName:
mydb
Table1.DatabaseName:
mydb
Table1.TableName:
student
Table1.Active:
①
Datasource1.DataSet:
②
DBNavigator1.DataSource:
③
DBEdit2.DataSource:
④
DBEdit2.DataField:
⑤
3、（10分，每空2分）
本程序的功能是实现对dep表（系）－student表（学生）的主从查询。
用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指定的记录。
每当显示一个系的记录后，系统自动显示该系的学生记录。
设计界面和运行界面如下：
在Form1上建立的主要对象及连接如下：
Database1－Table1（与dep表相连）－DataSource1－DBEdit1～DBEdit3
Database1－Query1－DataSource2－DBGrid1（显示学生信息）
Edit1、Button1（查找）、Button2（下一记录）、Button3（上一记录）等。
Query1的SQL语句是：
select*
fromstudent
wheredno=:
dno
下面是Unit1单元的代码实现部分，请完成程序填空。
---------------------------------------------------------------------------------------------------------------------
implementation
{$R*.dfm}
procedureTForm1.Button2Click（Sender:
TObject）;//下一记录
begin
table1.①;
end;
procedureTForm1.Button3Click（Sender:
TObject）;//上一记录
begin
table1.②;
end;
procedureTForm1.Button1Click（Sender:
TObject）;//查找
begin
table1.③（'dno',edit1.Text,[]）;
end;
procedureTForm1.Table1AfterScroll（DataSet:
TDataSet）;
begin
query1.Close;
query1.ParamByName（'dno'）.Value:
=④;
query1.⑤;
end;
end.
---------------------------------------------------------------------------------------------------------------------
4、（10分，每空2分）
本程序实现一个简单的借书界面。
程序的设计界面和运行界面如下图所示：
该程序涉及到数据库中的两张表：
books（图书信息）和borrow（借书记录）。
表的结构为：
books（bno，书号，bname书名，num现有册数）
borrow（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语句如下：
selectbno
fromborrow
whererno=:
rnoandbno=:
bno
Query2的SQL语句如下：
insertintoborrow
values（:
rno,:
bno,:
rdate）
下面是Unit1的代码实现部分，请完成程序填空：
---------------------------------------------------------------------------------------------------------------------
implementation
{$R*.dfm}
procedureTForm1.Button1Click（Sender:
TObject）;//“借书”按钮
begin
query1.Close;
query1.ParamByName（'rno'）.Value:
=①;
query1.ParamByName（'bno'）.Value:
=②;
query1.Open;
ifquery1['bno']<>nullthen
begin
showmessage（'该读者正在借阅此书'）;
exit;
end;
if③=0then
begin
showmessage（'该书已全部借出'）;
exit;
end;
query2.Close;
query2.ParamByName（'rno'）.Value:
=edit1.Text;
query2.ParamByName（'bno'）.Value:
=table1bno.Value;
query2.ParamByName（'rdate'）.Value:
=date+15;
query2.④;
table1.Edit;
table1num.Value:
=table1num.Value-1;//现有册数减1
table1.⑤;
end;
end.
---------------------------------------------------------------------------------------------------------------------
五、编程题（10分）
下图是本程序的设计界面（左）和运行界面（右）：
在form1上建立的对象有：
Label1~Label5、Edit1~Edit4、Button1（运算）和CheckBox1等。
该程序实现除法运算。
用户输入两个操作数，按除键后，整除结果显示在结果框中。
输入的操作数必须是1～100之间的整数。
如果输入有误，程序要给出错误提示信息。
如果“显示余数”复选框选中，则除法余数显示在余数框中，否则不显示余数。
请编写单击“除键”按钮的事件处理程序。
数据库设计与实践模拟试题
（2）
一、填空题（20分，每空2分）
1、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有一个入口和。
2、现实世界中对象具有自己的状态和行为。
与此相对应，面向对象技术中的对象可以具有自己的和方法。
3、Delphi的一个项目由若干文件组成，其中与窗体文件对应的文件是。
4、在设计阶段，ListBox对象列表框中的内容是通过属性来进行设置的。
5、调用主窗体的方法，可以结束程序。
6、如果要在窗体上设计一个主菜单，首先要建立对象。
7、当Query对象中存储一条Delete语句时，执行该语句需要调用Query的方法。
8、与数学表达式
对应的ObjectPascal表达式是
9、通过Animate对象的属性设置，可以指定系统标准的AVI动画演示。
10、利用对象的LineTo等方法，可以绘制基本图形。
二、单项选择题（20分，每题2分）
1、下面哪句话比较准确地定义了Delphi（）。
A．面向对象的可视化的开发环境B．多媒体制作工具
C．数据库的客户端开发工具D．高级编程语言
2、下面哪个功能键可以调出Delphi的联机帮助信息（）
A．F1键B．F2键
C．F3键D．F4键
3、“x是小于10的非负数”的ObjectPascal表达式是（）
A．0≤x<10B．（x>=0）AND（x<10）
C．x>=0,x<10D．（x>=0）OR（x<10）
4、工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的GroupIndex属性正确的设置是（）
A．GroupIndex属性值都为0B．GroupIndex属性值非0，且互不相同
C．GroupIndex属性值非0，且相同D．GroupIndex属性值互不相同
5、利用Image对象的哪个属性设置，可以使Image对象的显示区域随着调入图像的大小自动调整以显示全图（）
A．StretchB．AutoSize
C．AlignD．Center
6、现建立一个简单报表，仅包含报表标题栏、数据列标题栏和数据栏，则在Bands属性的子属性中，不需要选择的是（）
A．HasColumnHeaderB．Detail
C．TitleD．Summary
7、在窗体上建立多页面，需要首先建立的对象是（）
A．TabControlB．PageControl
C．HeaderControlD．PageScroller
8、既可以通过选择输入、又可以直接输入的数据感知控件是（）
A．DBRadioGroupB．DBListBox
C．DBComboBoxD．DBCheckBox
9、如果要求每当光标进入edit编辑框中时，编辑框都清空，可以在哪个事件处理程序中编写代码实现（）
A．OnClickB．OnMouseMove
C．OnKeyPressD．OnEnter
10、下面哪个组件不是容器组件（）
A．FormB．Panel
C．GroupBoxD．Memo
三、判断题（10分，每题1分）
请给下列论述中正确的打上“√”，错误的打上“”
1、（）在Delphi环境中，组件页上的组件是“类”而不是“对象”。
2、（）按钮组件和编辑框组件能够响应的事件有些是相同的。
3、（）在对文件的操作中，reset是建立并打开一个新文件。
4、（）编辑框edit中的内容能够设置为只读（即不能输入）。
5、（）OpenDialog组件的功能是指定一个文件名，并将文件内容加载到指定的编辑区中。
6、（）在一个项目中，可以有多个窗体，但只能有一个主窗体。
7、（）在DataControls组件页上，有的数据控件没有datafield属性。
8、（）在程序运行期间，一个Table对象只能固定和一个关系表相连。
9、（）要想在数据集中增加计算字段，必须先将数据集的字段全部置为动态字段。
10、（）在设计阶段，如果在Query对象的SQL语句中设置了参数，则必须在Query的Params属性中为参数设置数据类型。
四、程序填空题（40分，每题10分）
1、（10分，每空2分）
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：
主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。
子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。
单击“加载图片”按钮，会弹出打开文件对话框。
用户指定一个图像文件后，图像加载到Image1显示区中。
单击“退出”按钮，会弹出确认对话框（Form2）。
如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。
下面是Unit1的代码部分，请在下划线处完成程序填空。
---------------------------------------------------------------------------------------------------------------------
implementation
{$R*.dfm}
uses
①;
procedureTForm1.Button1Click（Sender:
TObject）;
begin
if②then
Image1.Picture.LoadFromFile（③）;
end;
procedureTForm1.Button2Click（Sender:
TObject）;
begin
if④=mrYesthen
⑤;
end;
end.
---------------------------------------------------------------------------------------------------------------------
2、（10分，每空2分）
数据库mydb中有关系表student，其结构如下：
student（sno学号，sname姓名，sex性别，birthday生日）
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示。
在下划线处填写相应数据库组件的属性值：
Database1.DatabaseName:
mydb
Table1.DatabaseName:
mydb
Table1.TableName:
student
Table1.Active:
①
Datasource1.DataSet:
②
DBNavigator1.DataSource:
③
DBEdit2.DataSource:
④
DBEdit2.DataField:
⑤
3、（10分，每空2分）
本程序的功能是对books表（图书信息）进行浏览，设计界面和运行界面如下图所示。
其中，“在借册数”是根据当前显示的书号和borrow表（借书记录）的数据动态计算得到的。
用户还可以输入指定书号，查找并定位到指定的记录。
在form1上建立的主要对象有：
Database1、Table1、Query1、DataSource1、DBEdit1~DBEdit3
Edit1~Edit2、Button1~Button3等
其中Database1与mydb数据库相连，Table1对象与books表相连，DBEdit1、DBEdit2、DBEdit3分别和bno（书号）、bname（书名）、author（作者）各列相连。
Query1的SQL语句是：
selectcount（*）num
fromborrow
wherebno=:
bno
下面是Unit1单元的代码实现部分，请完成程序填空。
---------------------------------------------------------------------------------------------------------------------
implementation
{$R*.dfm}
procedureTForm1.Button1Click（Sender:
TObject）;//查找
begin
table1.①（'bno',edit2.Text,[]）;
end;
procedureTForm1.Button2C
升级会员 