实验八ADO控件的使用.docx

1、实验八ADO控件的使用（4）“图书登记(frmdengji)”窗体5个（文本），5个（输入框），7个（按钮）在窗体控件栏“右键”-“部件”弹出下对话框，勾选三个部件，点击确定。控件栏出现(DataGrid)图标，将其拖到窗体上，如下图将控件栏的（adodc），拖到窗体中，出现下图所示将adodc的点击，出现下图点击“生成”按钮，出现下图所示，选择“M Jet4.0”后点击“下一步”点击“测试连接”选择adodc的属性页中的出现下图所示：点击“确定”对adodc控件，设置再选择DataGrid控件，设置 在将：所有的Text控件，设置Text1设置，同理，Text2Text3 代码设计Priva

2、te Sub Command1_Click()On Error GoTo adderr Text1.SetFocus Adodc1.Recordset.AddNew Exit Subadderr: MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click() On Error GoTo deleteerr If Adodc1.Recordset.BOF = True Then MsgBox 没有记录，无法删除！ Exit Sub End If With Adodc1.Recordset If Not .EOF And Not .BOF Th

3、en If MsgBox(删除当前记录吗？, vbYesNo + vbQuestion) = vbYes Then .Delete .MoveNext If .EOF Then .MoveLast End If End If End With Exit Subdeleteerr: MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click()If Adodc1.Recordset.BOF = True Then MsgBox 没有记录，无法显示！ Exit SubEnd IfAdodc1.Recordset.MoveNext If Adodc

4、1.Recordset.EOF Then MsgBox 这是最后一条记录, vbOKCancel + vbQuestion Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command4_Click()If Adodc1.Recordset.BOF = True Then MsgBox 没有记录，无法显示！ Exit SubEnd IfAdodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then MsgBox 这是第一条记录, vbOKCancel + vbQuestion Adod

5、c1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click()If Adodc1.Recordset.BOF = True Then MsgBox 没有记录，无法显示！ Exit SubEnd IfIf Adodc1.Recordset.EOF Then MsgBox 纪录空, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveFirst End If Exit SubEnd SubPrivate Sub Command6_Click()If Adodc1.Records

6、et.BOF = True Then MsgBox 没有记录，无法显示！ Exit SubEnd IfIf Adodc1.Recordset.RecordCount = 0 Then MsgBox 空纪录, vbOKCancel + vbQuestion End Else Adodc1.Recordset.MoveLast End IfEnd SubPrivate Sub Command7_Click()MDIForm1.Showfrmdengji.HideEnd Sub同理，练习，自己设计如下几个窗体（5）“图书借阅(frmjieyue)”窗体（方法与“图书登记”窗体设计步骤基本相同） 界面设计（6）“图书赔偿”（frmpeichang）窗体（方法与“图书登记”“图书借阅“窗体设计步骤基本相同） 界面设计