阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内[说明] 设有一张学生成绩表scores存放在Access数据库Student中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADO Data和Data

admin2009-02-15  38

问题 阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内[说明]
   设有一张学生成绩表scores存放在Access数据库Student中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADO Data和DataGrid控件实现了对成绩数据的基本管理,其操作包括:
   (1)添加新记录:单击“添加”按钮,光标将指向最后一条数据记录,在其后编辑好新的数据记录后,再单击“更新”按钮,该数据即被加入成绩表;
   (2)删除记录:单击“删除”按钮将删除当前所指记录,其后的数据记录依次上移;
   (3)更新记录:直接编辑某条已有记录,再单击“更新”按钮将更新成绩表;
   (4)记录排序:选中单列字段后,单击“排序”按钮,记录集将按该字段升序排列。
   程序的运行界面为:
        
   在开发过程中,数据库连接对象使用了名为Adodc1的ADO Data控件,数据显示区域使用了名 DataGnd1的DataGrid控件,界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate、 CmdRefresh、CmdSort和CmdExit。
[Visual Basic代码]
Dim conn, database, table As String
Private Sub Form_Load()
   database ="E:\Student.mdb"        ’设置要访问的数据库
   conn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Souse=" & database
   Adodc1.ConnectionString=conn       ’设置连接字符串
   table = "scores"
   Adode1.    (1)= table            ’设置所要访问的数据表
   Set DataGrid1.  (2)= Adodc1
End Sub
Private Sub CmdAdd_Click()             ’“添加”按钮的单击事件响应过程
   Adodc1.Recordset.  (3)  
End Sub
Private Sub CmdDel_Click()            ’“删除”按钮的单击事件响应过程
   Adodc1.Recordset.Delete
   Adodc1.Reeordset.MoveNext
End Sub
Private Sub CmdUpdate_Click()         ’“更新”按钮的单击事件响应过程
   Adode1.Reeordset.UpdateBatch adAffectAll
End Sub
Private Sub CmdRefresh_Cliek()        ’“刷新”按钮的单击事件响应过程
   Adodc1.Refresh
End Sub
Private Sub CmdSort_Cliek()                ’“排序”按钮的单击事件响应过程
    If DataGrid1.SelStartCol < 0 Or DataGridl. SelStartCol  (4)   DataGrid1. SelEndCol Then
         MsgBox “请选择某一字段(列)!”
         Exit Sub
    End If
    Adodc1. RecordSource = "SELECT * FROM" & table & "order by" & _
        DataGrid1. Columns((5)).DataField
    Adodc1.Refresh
End Sub
Private Sub CmdExit_Click()              ’“退出”按钮的单击事件响应过程
    End
End Sub

选项

答案(1) RecordSource (2) DataSource (3) MoveLast (4) <> (5) DataGrid1.SelEndCol或DataGrid1.SelStartCol

解析 (1)界面上呈现的数据集是整个成绩表,即 Adodc1的RecordSource;
(2)DataGrid控件通过DataSource属性实现与ADO Data控件的绑定;
(3)根据程序说明,单击“添加”按钮,光标指向最后一条数据记录;
(4)DataGrid1.SelStartCol<0表示用户没有选择列, DataGrid1.SelStartCol<>DataGrid1.SelEndCol表示用户选定了多列,都与程序说明中不符;
(5)DataGrid1的Columns属性返回一个列的集合变量,因此此处应填入所选列的序号,由前文可知,填入DataGrid1.SelEndCol或DataGfid1.SelStartCol均可。
转载请注明原文地址:https://jikaoti.com/ti/gTW7FFFM
0

最新回复(0)