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

接第五大题第2小题，现要求开发物资管理信息系统，物资台帐录入功能的界面如图1所示，其中Text1为物资编号、Text2为物资名称、Text3为物资单价。程序运行后，用户输入所有数据后，点击“确认”按钮后，程序将把结果插入到物资台帐表T中。请补充完成下列程序代码。

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

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

Dim ADOrs As New Recordset

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

ADOrs.ActiveConnection=ADOcn

‘第一步：在物资台帐表T中查询是否存在关键字相同的记录 （1）拼写查询字符串

strSQL=“Select TNo From T Where TNo=‘” + Text1 +“’” （2）执行查询语句 strSQL

‘第二步：如果记录已经存在，则退出程序 If Not Then

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

‘第三步：将结果插入到物资台帐表T中 （1）拼写Insert插入语句

strSQL = （2）执行Insert插入 strSQL End Sub

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