数据库应用技术模拟试题(2012秋)(5)

3．程序应用题

某电影资料数据库应用系统中包括电影信息录入功能，程序运行界面如图1所示，其中Text1为电影号、Text2为电影名。进入界面后，用户输入所有数据，点击“确认”按钮，将结果插入到电影表Movie中。请补充完成下列程序代码。

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

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

Dim ADOrs As New Recordset

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

ADOrs.ActiveConnection=ADOcn

第一步：在电影表Movie中查询是否存在关键字相同的记录

strSQL=“Select Mno From Movie Where Mno =‘” + Text1 + “’” strSQL 第二步：如果记录已经存在，则退出程序 If Not Then MsgBox “记录已存在，不能继续增加” Exit Sub End If

第三步：将结果插入到电影表Movie中

strSQL End Sub

搜索“diyifanwen.net”或“第一范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，第一范文网，提供最新工程科技数据库应用技术模拟试题(2012秋)(5)全文阅读和word下载服务。