实验八ADO控件的使用.docx

实验八ADO控件的使用.docx

《实验八ADO控件的使用.docx》由会员分享，可在线阅读，更多相关《实验八ADO控件的使用.docx（11页珍藏版）》请在冰豆网上搜索。

实验八ADO控件的使用

（4）“图书登记（frmdengji）”窗体

5个

（文本），5个

（输入框），7个

（按钮）

在窗体控件栏“右键”---“部件”

弹出下对话框，勾选三个部件，点击确定。

控件栏出现

（DataGrid）图标，将其拖到窗体上，如下图

将控件栏的

（adodc），拖到窗体中，出现下图所示

将adodc的

点击，出现下图

点击“生成”按钮，出现下图所示，选择“MJet4.0…”后点击“下一步”

点击“测试连接”

选择adodc的属性页中的

出现下图所示：

点击“确定”

对adodc控件，设置

再选择DataGrid控件，设置

在将：

所有的Text控件，设置

Text1设置

，同理，Text2

Text3

代码设计

PrivateSubCommand1_Click（）

OnErrorGoToadderr

Text1.SetFocus

Adodc1.Recordset.AddNew

ExitSub

adderr:

MsgBoxErr.Description

EndSub

PrivateSubCommand2_Click（）

OnErrorGoTodeleteerr

IfAdodc1.Recordset.BOF=TrueThen

MsgBox"没有记录，无法删除！

"

ExitSub

EndIf

WithAdodc1.Recordset

IfNot.EOFAndNot.BOFThen

IfMsgBox（"删除当前记录吗？

",vbYesNo+vbQuestion）=vbYesThen

.Delete

.MoveNext

If.EOFThen.MoveLast

EndIf

EndIf

EndWith

ExitSub

deleteerr:

MsgBoxErr.Description

EndSub

PrivateSubCommand3_Click（）

IfAdodc1.Recordset.BOF=TrueThen

MsgBox"没有记录，无法显示！

"

ExitSub

EndIf

Adodc1.Recordset.MoveNext

IfAdodc1.Recordset.EOFThen

MsgBox"这是最后一条记录",vbOKCancel+vbQuestion

Adodc1.Recordset.MoveLast

EndIf

EndSub

PrivateSubCommand4_Click（）

IfAdodc1.Recordset.BOF=TrueThen

MsgBox"没有记录，无法显示！

"

ExitSub

EndIf

Adodc1.Recordset.MovePrevious

IfAdodc1.Recordset.BOFThen

MsgBox"这是第一条记录",vbOKCancel+vbQuestion

Adodc1.Recordset.MoveFirst

EndIf

EndSub

PrivateSubCommand5_Click（）

IfAdodc1.Recordset.BOF=TrueThen

MsgBox"没有记录，无法显示！

"

ExitSub

EndIf

IfAdodc1.Recordset.EOFThen

MsgBox"纪录空",vbOKCancel+vbQuestion

End

Else

Adodc1.Recordset.MoveFirst

EndIf

ExitSub

EndSub

PrivateSubCommand6_Click（）

IfAdodc1.Recordset.BOF=TrueThen

MsgBox"没有记录，无法显示！

"

ExitSub

EndIf

IfAdodc1.Recordset.RecordCount=0Then

MsgBox"空纪录",vbOKCancel+vbQuestion

End

Else

Adodc1.Recordset.MoveLast

EndIf

EndSub

PrivateSubCommand7_Click（）

MDIForm1.Show

frmdengji.Hide

EndSub

同理，练习，自己设计如下几个窗体

（5）“图书借阅（frmjieyue）”窗体（方法与“图书登记”窗体设计步骤基本相同）

界面设计

（6）“图书赔偿”（frmpeichang）窗体（方法与“图书登记”“图书借阅“窗体设计步骤基本相同）

界面设计