2015年电大（本科）数据库应用技术复习题(2)

注意：说明主键码和外键码约束 参考答案

CREATE TABLE TC{ TNo INT, CNo INT,

PRIMARY KEY (Tno,Cno),

FOREIGN KEY (TNo) REFERENCES T(TNo), FOREIGN KEY (CNo) REFERENCES C(CNo) };

6．利用SQL语句进行查询

在上题的基础上，如果要查询“张红老师承担的所有课程”，请写出对应的SQL查询语句。 参考答案

SELECT C.CNo，C.CN FROM T，C，TC WHERE T.TNo=TC.TNo AND C.CN=TC.CNo AND T.TN=‘张红’

7．程序应用题

设学生成绩表的结构为（学号、课程号、成绩），程序运行界面如图1所示。进入界面后，用户首先选择学号（Combo1）、课程号(Combo2)，姓名(Text1)和课程名(Text2)从数据库中自动读入；然后，用户输入对应的成绩（Text3），点击“确认”按钮后，将结果插入到学生成绩表中。请补充完成下列程序代码。

Private Sub Command1_Click() ‘声明一个记录集对象 Dim ADOrs As New Recordset

‘将记录集对象与已建立的数据库联接对象ADOcn绑定

ADOrs.ActiveConnection=ADOcn ‘第一步：在学生成绩表中查询是否存在关键字相同的记录 （1）拼写查询字符串

Command1 strSQL=“Select * From 学生成绩表 Where 学号=‘”+combo1.Text+“ ’ And 课程号=‘”+Combo2.Text+“ ’ ” （2）执行查询语句

ADOrs.Open StrSQL

‘第二步：如果关键字重复，则退出程序 If Not ADOrs.EOF Then

MsgBox “记录已存在，不能继续增加”

Exit Sub

End If

‘第三步：将结果插入到学生成绩表中 StrSQL=“Insert Into 学生成绩表(学号,课程号,成绩) Values(‘”+Combo1.Text+“ ’,‘”+Combo2.Text+“ ’, ”+Str(Val(Text3.Text))+“)”

ADOcn.Execute StrSQL （本小点2分） End Sub

8. 用 SQL语句创建简单数据表

设有职工数据表T，包括职工编号TNo，姓名TN，出生年月日TD等字段。TNo和TN均为字符型(长度 10),TD为日期型。TNo是主键，请用 SQL语句创建该数据表T 参考答案

CREATE TABLE T(

Tno CHAR(10) PRIMARY KEY， TN CHAR (10)， TD DATETIME ) ;

9. 用 SQ L语句创建带约束条件的数据表

在上题基础上，假设还存在工资数据表C，包括职工编号CNo , 基本工资Cn等字段。Cn为数值型(带小数)。Cno是该表主键，字符型(长度10)。该数据表与职工数据表T之间存在外键约束，即职工数据表T中不存在的记录不能够出现在该表中。请根据上述说明，用 SQL 创建工资数据表C 参考答案

CREATE TABLE C(

Cno CHAR(10) PRIMAR KEY， Cn money,

FOREIGN KEY (Cno) REFERENCES T(TNo));

10. 程序应用题

设物资台账数据表的结构为(物资编码、物资名称、计量单位、单价、期初库存)，程序运行界面如图1所示，其中Text1为控件数组，Text1(0), Text1(1), Text1(2), Text1(3), Text1(4)分别表示物流编码、物资名称、单价、期初库存、期初金额。进入界面后 ，用户输人所有数据后，点击“保存”按钮后 ，将结果插人到物资台账数据表中。请补充完成下列程序代码。

Private Sub Command1_Click( ) ‘声明一个记录集对象

Dim ADOrs As New Recordset

‘将记录集对象与已建立的数据库联接对象ADOcn绑定

ADOrs. ActivcConnection= ADOcn

‘第一步:在数据表中查询是否存在关键字相同的记录

(1) 拼写查询字符串

strSQL=“Select 物资编码 From 物资台账 Where 物资编码=‘ ’+Textl(0)+‘ ’” (2) 执行查询语句: ADOrs. Open strSQL

‘ 第 二 步 :如果关键字重复，则退出程序 if Not ADOrs.EOF Then

MsgBox “记录已存在，不能继续增加” Exit Sub End if

‘ 第三步: 将结果插人到物资台账数据表中

strSQL=\物资台账(物资编码，物资名称，计量单位，单价，期初库存)” strSQL= strSQL+“Values( “+Text1(0)+”, “+ Text1( 1)+” ,“+Combol.Text+“,” strSQL=strSQL+ Text1(2)+ “，” + Text1( 3)+“)”

ADOcn.Exeute strSQL End Sub

11. 设职工工资表的结构为（职工编号、工资项编号、工资数），程序运行界面如图2所示。进入界面后，用户首先选择职工编号（Combo1）、工资项编号(Combo2)，职工姓名(Text1)和工资项名称(Text2)从数据库中自动读入；然后，用户修改对应的工资数（Text3），点击“确认”按钮后，将结果更新到学生成绩表中。请补充完成下列程序代码。

图2“修改记录”窗体运行界面

Private Sub Command1_Click() ‘声明一个字符串变量

Dim strSQL AS String ‘第一步：拼写Update语句

strSQL =“Update 职工工资表 Set 工资数=Text3 Where 职工编号=Combo1.Text And 工资项编号=Combo2.Text+” ‘第二步：执行Update语句 ADOrs.Execute strSQL End Sub

图1 “增加记录” 窗体运行界面

6 / 6

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2015年电大（本科）数据库应用技术复习题(2)在线全文阅读。