首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 应用说明 设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中,包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。 应用说明 设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中,包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中
admin
2007-03-15
103
问题
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
应用说明
设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中,包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中的记录进行增加、删除及修改处理,其运行界面如下:
(1)数据控件(datal)与“通讯录”数据库表相连接,用户可通过“
”和“
”按钮指定表中的当前记录。
(2)文本框Txt name、Txt phone和Txt email分别与数据库表中的“姓名”、“电话”和“email”字段绑定,用于显示当前记录的内容。
(3)应用程序启动时,“确定”按钮(Cmd ok)和“取消”按钮(Cmd cancel)不可操作,文本框中显示表中的第一条记录,这时文本框处于不可操作状态。
(4)单击“增加”按钮(Cmd_add)或“修改”按钮(Cmd_modify)后,方可以编辑记录内容,同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态。“增加”和“修改”操作需通过“确定”和“取消”按钮确认。
(5)单击“删除”按钮(Cmd del)后,弹出对话框,再单击“确定”按钮,当前记录被删除。
程序代码
Private Sub enableop(isEnabled As Boolean)
Txt_name.Enabled=isEnabled: Txt_phone.Enabled=isEnabled
Txt_email.Enabled=isEnabled
Cmd_ok.Enabled=isEnabled: Cmd_eancel.Enabled=isEnabled
Cmd_add.Enabled=Not isEnabled: Cmd_del.Enabled=Not isEnabled
Cmd_end.Enabled=Not isEnabled: Cmd_modify.Enabled=Not isEnabled
EndSub
Private Sub Form_Load()
Call enableop(False)
Data1.Refresh
If Data1 .Recordset. RecordCount = 0 Then
Cmd_del. Enabled= False: Cmd_modify. Enabled=(1)
End If End Sub Private Sub Cmd_add_Cliek() ’单击“增加”按钮的代码
Call enableop( (2) )
Datal .Recordset. AddNew ’在数据库表中添加一个新记录
Txt name. (3) End Sub Private Sub Crud_del_Click() ’单击“删除”按钮的代码
On Error GoTo error3
arts = MsgBox("确定删除吗?", vbYesNo + vblnformafion, "操作提示!")
If (ans = vbYes) Then
Datal.Recordset. (4)
Datal .Recordset. MoveNext
If Datal .Recordset. EOF Then Data l.Refiesh
End If
Exit Sub error3:
MsgBox Err. Description, vbOKOnly, "错误提示!" End Sub Private Sub Cmd_ok_Click() ’单击“确定”按钮的代码
On Error GoTo errorl
Datal.Recordset. (5)
Call enableop(False)
Exit Sub error 1:
MsgBox Err. Description, vbOKOnly, "错误提示!"
Datal.UpdateControls
Call enableop(False) End Sub ’“修改”和“取消”按钮的程序代码(略)
选项
答案
(1)False (2)True (3)SetFocus (4)Delete (5)Update
解析
本题考查的是Visual Basic的文本框、命令按钮等基本控件和基本数据控件的使用。
程序代码中自定义过程enableop()的作用是集中设置窗体中文本框和命令按钮的 Enabled属性。
窗体装载事件的代码如下:
Private Sub Form_Load()
Call enableop(False)
Datal.Refresh
If Datal.Recordset.RecordCount=0 Then
Cmd_del.Enabled=False: Cmd_modify.Enabled= (1)
End If
End Sub
其中,调用enableop(False)使得各文本框的数据不可修改,同时“确定”和“取消”按钮不可操作,因为这两个按钮是为了确认增加、删除、修改操作而设置的。当数据控件Datal绑定后,Datal.Recordset.RecordCount表示数据表中的记录数目,当数据表为空时,自然也不能进行删除和修改操作,所以空(1)处应填入“False”。
单击“增加”按钮事件的代码如下:
Private Sub Cmd add Click() ’单击“增加”按钮的代码
Call enableop( (2) )
Daml.Recordset.AddNew ’在数据库表中添加一个新记录
Txt_name. (3)
End Sub
当单击“增加”按钮时,表示要在数据表中增加一条记录。题目要求在按下“增加”或“修改”后方可以编辑记录内容,同时“增加”、“删除”、“修改”和“退出”按钮变为不可操作状态,所以通过查看enableop()中对各控件Enabled属性的设置,很容易得知空(2)处应填入“True”。当通过“Datal.Recordset.AddNew”在数据表添加一条新记录后,下面的任务就是在相应的绑定控件中输入数据,因此接下来应将焦点设置到文本框 Txt name以等待用户输入,所以空(3)应填入“SetFocus”。
显然,“删除”按钮实现的是删除一条记录的操作,因此,从空(4)所在语句的上下文中可知此处应填入“Delete”。
下面查看“确定”按钮的单击事件代码。
Private Sub Cmd ok Click() ’单击“确定”按钮的代码
On Error Go To errorl
Datal.Recordset. (5)
Call enableop(False)
Exit Sub
errorl:
MsgBox Err.Description,vbOKOnly,"错误提示!"
Datal.UpdateControls
Callenableop(False)
EndSub
从题干的描述部分可知,只有增加、修改记录操作后才会用到“确定”按钮,因此“确定”按钮的作用是对这两个操作提交的数据进行更新,所以空(5)处应填入“Update”。
转载请注明原文地址:https://kaotiyun.com/show/vzjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在Excel2007中,设单元格A1、B1、C1、A2、B2、C2中的值分别为1、3、5、7、9、11,若在单元格D1中输入函数“=MIN(A1:C2)”,按回车键后,则D1单元格中的值为__________。
某关系表定义了“姓名”、“身份证号”、“性别”、“年龄”4个字段,其中(60)字段可以作为此关系表的主键。
在Access中,如果想要查询所有姓名为2个汉字的学生记录,在准则中应输入______。
在Windows7中,剪贴板是用来在程序和文件间传递信息的临时存储区,此存储区是______。
医疗诊断属于计算机在______方面的应用。
企业中的信息处理过程包括多个阶段,对每个阶段都应有目标要求,有规范的制度,有需要特别注意的事项。以下叙述中正确的是(25)。
结构化程序中的基本结构不包括(28)。
在Excel2007中,设单元格A1中的值为-1,B1中的值为1,A2中的值为0,B2中的值为1,若在C1单元格中输入函数“=IF(AND(A1>0,B1>0),A2,B2)”,按回车键后,C1单元格中的值为______。
Word定时自动保存功能可以()。
随机试题
电子商务B2B模式的细分种类不包括()
吗啡的构效关系叙述正确的是
误操作时,保证机器和人身均是安全的,使人体对劳动环境不断改善属于机械安全的()。
明龙骨吊顶饰面板安装中,玻璃吊顶龙骨上留置的玻璃搭接宽度应符合设计要求,并应采用( )。
在()的情况下,银行业金融机构有权拒绝检查。
买5件甲商品和3件乙商品,需要348元,如果买3件甲商品和2件乙商品需216元,买一件甲商品需要多少元?()
在生物界中,最为高级的人眼也有不足之处,比如能观看的角度太小。而鱼眼在视角上_______,在所有的动物中,鱼的眼睛视角最大,有的大到160—170度,甚至还有更大的。填入画横线部分最恰当的一项是()。
出现去大脑僵直现象是由于
2000年,甲投资100万元,乙投资50万元,设立丙有限责任公司,由甲担任董事长。公司章程规定,为了强化公司与投资人之间的关系,甲乙应对公司债务承担无限连带责任。一年后,公司生意兴隆,丁公司希望与丙公司合并。甲欣然同意,但乙表示反对。甲称:“我是咱们公司的
WhyarepeoplealwaystiredonAprilFool’sDay?
最新回复
(
0
)