2. 计算机
  3. 阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 应用说明 设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 应用说明 设一个简单的“通讯录”存储在一个ACCESS类型的数据库表中，包括姓名、电话和email三个字段。下面的应用程序实现对“通讯录”数据库表中

admin2007-03-15  83
问题 阅读以下应用说明及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://www.kaotiyun.com/show/vzjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)