图书管理系统200387-

制作图书管理系统“用户”数据库(userdb)企业管理器----新建数据库新建表，设置主键打开表，填写具体用户名和密码登录直接在窗体上添加label，text，commandbtn，通过更改caption，显示相应文字双击添加的控件，生成代码，在相应的位置添加相应的代码登录窗体设置为启动窗体，在工程上右击------设置为启动工程1登录窗体form1caption:登录密码文本框PasswordChar属性引入ADO工程菜单|引用……（Microsoft

ActiveX

Data

Objects

2.8

Library）添加Adodc控件（ActiveX控件）工程菜单|部件……（Microsoft

ADO

Data

Control

6.0（OLEDB））添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——userdb设置Adodc1属性

Visible:falseVb连接到数据库userdb

添加好相应代码，先按照上述步骤引入ado，通过ado属性实现连接在左侧控件中选择ado，放到窗体中，右击ado选择属性-----选择使用连接字符串----生成----选择microsoft

OLEDB

Provider

FOR

SQL

Server----下一步------连接或输入服务器名称（输入.）----输入登录服务器信息（选择windows

NT集成安全设置）-----选择相应数据库----测试连接----成功Private

Sub

Command1_Click()Adodc1.RecordSource="select

*

from表1

where用户名=""&

Text1.Text

&"""

Adodc1.RefreshIf

Adodc1.Recordset.BOF=True

Or

Adodc1.Recordset.EOF=True

ThenMsgBox"无该用户名"Text1.SetFocusExit

SubEnd

IfIf

Text2.Text<>Adodc1.Recordset.Fields("密码").Value

ThenMsgBox"密码错误"Text2.SetFocusExit

SubEnd

IfText1.Text=""

Text2.Text=""

MsgBox"欢迎光临“（Form1.HideMDIForm1.Show）（因为界面是欢迎光临后进入到主窗体）End

SubPrivate

Sub

Command2_Click()End“图书管理”数据库(bookdb)数据库保存

数据库文件进行保存，然后可以通过附加数据库日志文件MDF进行导入主窗体工程—添加MDI窗体-----菜单编辑器

Caption是图书管理并且注意代码添加在哪个窗体，不要加错窗体添加MDI窗体Caption——图书管理WondowState

MaxForm1添加代码（command1_click）在欢迎光临后添加Form1.HideMDIForm1.Show运行时先进入到登陆窗体，然后进入到主窗体MDI窗体Private

Sub

MDIForm_QueryUnload(Cancel

As

Integer,

UnloadMode

As

Integer)Unload

Form1End

Sub制作菜单图书信息图书信息输入图书信息修改图书信息删除图书信息查询图书管理购书借书还书查询藏书报表打印图书信息报表藏书情况报表用户设置修改密码修改用户名系统帮助版权退出

子菜单就是菜单编辑器向右方向箭头，点击1次是2级，图书信息输入form2工程-----添加窗体Form2----图书信息输入form2设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：图书信息设置Adodc1属性

Visible:false文本框：直接点击相应的TEXT框，依次在属性中分别进行设置

DataSource属性——Adodc1DataField属性——书号、书名、作者、出版社、价格主窗体双击图书信息输入子菜单Private

Sub图书信息输入_Click()Form2.ShowEnd

Sub图书信息输入form2Private

Sub

Command1_Click()Adodc1.Recordset.UpdateEnd

SubPrivate

Sub

Command2_Click()Adodc1.Recordset.CancelUpdateAdodc1.RefreshUnload

MeEnd

SubPrivate

Sub

Command3_Click()Adodc1.Recordset.AddNewEnd

SubPrivate

Sub

Form_Load()Adodc1.Recordset.AddNewEnd

Sub运行成功输入相应的一条记录，进行添加，然后到数据库中查询，用SELECT，或者返回所有行，就可以查到图书信息修改form3图书信息修改form3设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：图书信息设置Adodc1属性

Adodc1.Caption="图书信息"文本框：直接点击相应的TEXT框，依次在属性中分别进行设置DataSource属性——Adodc1DataField属性——书号、书名、作者、出版社、价格主窗体Private

Sub图书信息修改_Click()Form3.ShowEnd

Sub图书信息修改form3Private

Sub

Command1_Click()Adodc1.Recordset.UpdateEnd

SubPrivate

Sub

Command2_Click()Adodc1.Recordset.CancelUpdateAdodc1.RefreshUnload

MeEnd

Sub图书信息删除form4图书信息删除form4设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：图书信息设置Adodc1属性

Adodc1.Caption="图书信息"文本框：DataSource属性——Adodc1DataField属性——书号、书名、作者、出版社、价格主窗体Private

Sub图书信息删除_Click()Form4.ShowEnd

Sub图书信息删除form4Private

Sub

Command1_Click()If

MsgBox("真的要删除吗？",vbCritical+vbYesNo,"危险操作")=vbNo

ThenExit

SubEnd

IfAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf

Adodc1.Recordset.EOF

Then

Adodc1.Recordset.MoveFirstEnd

SubPrivate

Sub

Command2_Click()Unload

MeEnd

Sub图书信息查询form5显示信息表部件添加添加部件---datagrid,即显示信息的表格图书信息查询form5设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb此处记录源不需要更改，如果更改为2-。。。。，图书信息，那么每个控件代码前面加入一行Adodc1.CommandType

=

adCmdText设置Adodc1属性

Visible:false添加DataGrid控件工程|部件——Microsoft

DataGrid

Control

6.0

(OLEDB)***del***DataGrid1.DataSource=Adodc1DefColWidth=1300Form5.ShowEnd

Sub图书信息查询form5Private

Sub

Command1_Click()Adodc1.CommandType=adCmdText（说明数据库记录源的语句）Adodc1.RecordSource="select

*

from图书信息WHERE书号=""&

Text1.Text

&"""Adodc1.RefreshEnd

SubPrivate

Sub

Command2_Click()Adodc1.CommandType

=

adCmdTextAdodc1.RecordSource="select

*

from图书信息WHERE书名=""&

Text1.Text

&"""Adodc1.RefreshEnd

SubPrivate

Sub

Command3_Click()Adodc1.CommandType

=

adCmdTextAdodc1.RecordSource="select

*

from图书信息WHERE作者=""&

Text1.Text

&"""Adodc1.RefreshEnd

SubPrivate

Sub

Command4_Click()Adodc1.CommandType

=

adCmdTextAdodc1.RecordSource="select

*

from图书信息WHERE出版社=""&

Text1.Text

&"""Adodc1.RefreshEnd

SubPrivate

Sub

Form_Load()Adodc1.CommandType

=

adCmdTextAdodc1.RecordSource="select

*

from图书信息"Set

DataGrid1.DataSource=Adodc1购书记录form6购书记录form6设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：购书记录设置Adodc1属性

Adodc1.Caption="购书记录"文本框：Locked——TrueDataSource属性——Adodc1DataField——编号、日期、书号、购书数量主窗体Private

Sub购书_Click()Form6.ShowEnd

Sub购书记录form6Private

Sub

Command1_Click()If

Command1.Caption="添加"ThenCommand1.Caption="确定"

Command2.Caption="取消"

Adodc1.Recordset.AddNewTCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.UpdateTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command2_Click()If

Command2.Caption="编辑"ThenCommand1.Caption="确定"

Command2.Caption="取消"

TCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.CancelUpdateAdodc1.RefreshTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command3_Click()If

MsgBox("真的要删除吗？",vbCritical+vbYesNo,"危险操作")=vbNo

ThenExit

SubEnd

IfAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf

Adodc1.Recordset.EOF

Then

Adodc1.Recordset.MoveFirstEnd

SubPrivate

Sub

Command4_Click()Unload

MeEnd

SubPrivate

Sub

TCset(Bln

As

Boolean)Text1.Locked

=

BlnText2.Locked

=

BlnText3.Locked

=

BlnText4.Locked

=

BlnCommand3.Visible

=

BlnCommand4.Visible

=

BlnEnd

Sub（直接复制）购书情况一览form7购书情况一览form7BorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：购书记录设置Adodc1属性

Visible:false添加DataGrid控件工程|部件——Microsoft

DataGrid

Control

6.0

(OLEDB)DataGrid1.DataSource=Adodc1DataGrid1.DefColWidth=1500购书记录form6Private

Sub

command5_Click()Form7.ShowEnd

Sub

此窗体就是在6窗体上操作的，为6窗体添加按钮产生的子窗体。ListVisible=false添加Adodc控件设置Adodc2连接右击|ADODC属性使用ODBC数据源名称——bookdb设置Adodc2属性

Visible:falsePrivate

Sub

Form_Load()Adodc2.RecordSource="select书号from图书信息"Adodc2.Refresh"Adodc2.Recordset.MoveFirstDo

While

Not

Adodc2.Recordset.EOFList1.AddItem

Adodc2.Recordset.Fields("书号").ValueAdodc2.Recordset.MoveNextLoopEnd

SubPrivate

Sub

Text3_Click()（原代码change改为click)If

Command1.Caption<>"确定"Then

Exit

SubList1.Visible=TrueEnd

Sub菜单LIST控件自己添加Private

Sub

List1_DblClick()（Dbl自己添加,注意是字母l，不是数字1）Text3.Text=List1.TextList1.Visible

=

FalseEnd

Sub日历部件monthView（工程|部件...，Microsoft

Windows

Common

Controls-2

6.0）Visible=FalsePrivate

Sub

Text2_Click()（change改为click)If

Command1.Caption<>"确定"Then

Exit

SubMonthView1.Visible=TrueEnd

SubPrivate

Sub

MonthView1_DateClick(ByVal

DateClicked

As

Date)Text2.Text

=

MonthView1.ValueMonthView1.Visible

=

FalseEnd

Sub借出记录form8借出记录form8设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：借出记录设置Adodc1属性

Adodc1.Caption="借出记录"文本框：Locked——TrueDataSource属性——Adodc1DataField——编号、日期、书号、借出数量主窗体Private

Sub借书_Click()Form8.ShowEnd

Sub借出记录form8Private

Sub

Command1_Click()If

Command1.Caption="添加"ThenCommand1.Caption="确定"

Command2.Caption="取消"

Adodc1.Recordset.AddNewTCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.UpdateTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command2_Click()If

Command2.Caption="编辑"ThenCommand1.Caption="确定"

Command2.Caption="取消"

TCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.CancelUpdateAdodc1.RefreshTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command3_Click()If

MsgBox("真的要删除吗？",vbCritical+vbYesNo,"危险操作")=vbNo

ThenExit

SubEnd

IfAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf

Adodc1.Recordset.EOF

Then

Adodc1.Recordset.MoveFirstEnd

SubPrivate

Sub

Command4_Click()Unload

MeEnd

SubPrivate

Sub

TCset(Bln

As

Boolean)Text1.Locked

=

BlnText2.Locked

=

BlnText3.Locked

=

BlnText4.Locked

=

BlnCommand3.Visible

=

BlnCommand4.Visible

=

BlnEnd

Sub借出情况一览form9借出情况一览form9BorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：借出记录设置Adodc1属性

Visible:false添加DataGrid控件工程|部件——Microsoft

DataGrid

Control

6.0

(OLEDB)DataGrid1.DataSource=Adodc1DataGrid1.DefColWidth=1500借出记录form8Private

Sub

command5_Click()Form9.ShowEnd

SubListVisible=false添加Adodc控件设置Adodc2连接右击|ADODC属性使用ODBC数据源名称——bookdb设置Adodc2属性

Visible:falsePrivate

Sub

Form_Load()Adodc2.RecordSource="select书号from图书信息"Adodc2.Refresh"Adodc2.Recordset.MoveFirstDo

While

Not

Adodc2.Recordset.EOFList1.AddItem

Adodc2.Recordset.Fields("书号").ValueAdodc2.Recordset.MoveNextLoopEnd

SubPrivate

Sub

Text3_Click()If

Command1.Caption<>"确定"Then

Exit

SubList1.Visible=TrueEnd

SubPrivate

Sub

List1_DblClick()Text3.Text

=

List1.TextList1.Visible

=

FalseEnd

SubmonthView（工程|部件...，Microsoft

Windows

Common

Controls-2

6.0）Visible=FalsePrivate

Sub

Text2_Click()If

Command1.Caption<>"确定"Then

Exit

SubMonthView1.Visible

=

TrueEnd

SubPrivate

Sub

MonthView1_DateClick(ByVal

DateClicked

As

Date)Text2.Text

=

MonthView1.ValueMonthView1.Visible

=

FalseEnd

Sub还入记录form8a还入记录form8a设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：还入记录设置Adodc1属性

Adodc1.Caption="还入记录"文本框：Locked——TrueDataSource属性——Adodc1DataField——编号、日期、书号、还入数量主窗体Private

Sub还书_Click()Form8a.ShowEnd

Sub还入记录form8aPrivate

Sub

Command1_Click()If

Command1.Caption="添加"ThenCommand1.Caption="确定"

Command2.Caption="取消"

Adodc1.Recordset.AddNewTCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.UpdateTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command2_Click()If

Command2.Caption="编辑"ThenCommand1.Caption="确定"

Command2.Caption="取消"

TCset

FalseElseCommand1.Caption="添加"

Command2.Caption="编辑"

Adodc1.Recordset.CancelUpdateAdodc1.RefreshTCset

TrueEnd

IfEnd

SubPrivate

Sub

Command3_Click()If

MsgBox("真的要删除吗？",vbCritical+vbYesNo,"危险操作")=vbNo

ThenExit

SubEnd

IfAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf

Adodc1.Recordset.EOF

Then

Adodc1.Recordset.MoveFirstEnd

SubPrivate

Sub

Command4_Click()Unload

MeEnd

SubPrivate

Sub

TCset(Bln

As

Boolean)Text1.Locked

=

BlnText2.Locked

=

BlnText3.Locked

=

BlnText4.Locked

=

BlnCommand3.Visible

=

BlnCommand4.Visible

=

BlnEnd

Sub还入情况一览form9a还入情况一览form9aBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb记录源——命令类型：2–adCmdTable表或存储过程名称：还入记录设置Adodc1属性

Visible:false添加DataGrid控件工程|部件——Microsoft

DataGrid

Control

6.0

(OLEDB)DataGrid1.DataSource=Adodc1DataGrid1.DefColWidth=1500借出记录form8aPrivate

Sub

command5_Click()Form9a.ShowEnd

SubListVisible=false添加Adodc控件设置Adodc2连接右击|ADODC属性使用ODBC数据源名称——bookdb设置Adodc2属性

Visible:falsePrivate

Sub

Form_Load()Adodc2.RecordSource="select书号from图书信息"Adodc2.Refresh"Adodc2.Recordset.MoveFirstDo

While

Not

Adodc2.Recordset.EOFList1.AddItem

Adodc2.Recordset.Fields("书号").ValueAdodc2.Recordset.MoveNextLoopEnd

SubPrivate

Sub

Text3_Click()If

Command1.Caption<>"确定"Then

Exit

SubList1.Visible=TrueEnd

SubPrivate

Sub

List1_DblClick()Text3.Text

=

List1.TextList1.Visible

=

FalseEnd

SubmonthView（工程|部件...，Microsoft

Windows

Common

Controls-2

6.0）Visible=FalsePrivate

Sub

Text2_Click()If

Command1.Caption<>"确定"Then

Exit

SubMonthView1.Visible

=

TrueEnd

SubPrivate

Sub

MonthView1_DateClick(ByVal

DateClicked

As

Date)Text2.Text

=

MonthView1.ValueMonthView1.Visible

=

FalseEnd

Sub修改密码form10修改密码form10设置MDIChild——TrueBorderStyle

FixedSingletext2.passwordChar*添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——userdb设置Adodc1属性

Visible:false主窗体Private

Sub修改密码_Click()Form10.ShowEnd

Sub修改密码form10Private

Sub

Command1_Click()Adodc1.RecordSource="select密码from表1

where用户名=""&

Text1.Text

&"""

Adodc1.RefreshIf

Adodc1.Recordset.RecordCount=0

ThenMsgBox"用户名不存在。"Exit

SubEnd

IfAdodc1.Recordset.MoveFirstAdodc1.Recordset.Fields("密码").Value=Text2.TextAdodc1.Recordset.UpdateMsgBox

Text1.Text

&"的密码已修改。"Text1.Text=""Text2.Text

=

""End

SubPrivate

Sub

Command2_Click()Unload

MeEnd

Sub工程|添加模块Public

un

As

StringPublic

pw

As

String在form1的Command1_Click过程最后添加un=Adodc1.Recordset.Fields("用户名").Valuepw=Adodc1.Recordset.Fields("密码").Value在MDIform1的修改密码_Click过程开头添加if

un<>"管理员"thenmsgBox"对不起，您不是管理员。"exit

subend

if修改用户名form11、用户一览form12修改用户名form11设置MDIChild——TrueBorderStyle

FixedSingletext3.passwordChar

*添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——userdb设置Adodc1属性

Visible:false主窗体Private

Sub修改用户名_Click()if

un<>"管理员"thenmsgBox"对不起，您不是管理员。"

exit

subend

if（此处点击修改，始终弹出你不是管理员，然后就退出系统Form11.Show修改用户名form11Private

Sub

Command1_Click()Adodc1.RecordSource="select

*

from表1

where用户名=""&

Text1.Text

&"""

Adodc1.RefreshIf

Adodc1.Recordset.RecordCount=0

ThenMsgBox"用户名不存在。"

text1.text=""text2.text=""text3.text=""text1.setFocusExit

SubEnd

IfAdodc1.RecordSource="select用户名from表1"Adodc1.Refresh"Adodc1.Recordset.MoveFirstdo

while

Not

Adodc1.Recordset.EOFif

text2.text=Adodc1.Recordset.Fields("用户名").Value

thenmsgBox"新用户名已经存在。"text2.text=""text3.text=""text2.setFocusexit

subend

ifAdodc1.Recordset.MoveNextloopAdodc1.RecordSource="select

*

from表1

where用户名=""&

Text1.Text

&"""Adodc1.Refresh"Adodc1.Recordset.MoveFirstAdodc1.Recordset.Fields("用户名").Value=Text2.TextAdodc1.Recordset.Fields("密码").Value=Text3.TextAdodc1.Recordset.UpdateMsgBox

Text1.Text

&"的用户名和密码已修改。"

Text1.Text=""Text2.Text

=

""Text3.Text

=

""End

SubPrivate

Sub

Command2_Click()Unload

MeEnd

SubPrivate

Sub

Command3_Click()Adodc1.RecordSource="select用户名from表1"Adodc1.Refresh"Adodc1.Recordset.MoveFirstDo

While

Not

Adodc1.Recordset.EOFIf

Text2.Text=Adodc1.Recordset.Fields("用户名").Value

ThenMsgBox"新用户名已经存在。"Text2.Text

=

""Text3.Text

=

""Text2.SetFocusExit

SubEnd

IfAdodc1.Recordset.MoveNextLoopAdodc1.RecordSource="select

*

from表1"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用户名").Value=Text2.TextAdodc1.Recordset.Fields("密码").Value=Text3.TextAdodc1.Recordset.UpdateMsgBox"新建的用户名和密码已设置。"Text2.Text

=

""Text3.Text

=

""End

Sub用户一览form12BorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——userdb记录源——命令类型：2–adCmdTable表或存储过程名称：表1设置Adodc1属性

Visible:false添加DataGrid控件工程|部件——Microsoft

DataGrid

Control

6.0

(OLEDB)DataGrid1.DataSource=Adodc1DataGrid1.DefColWidth=1200修改用户名form11Private

Sub

command4_Click()Form12.ShowEnd

SubPrivate

Sub

Command5_Click()Adodc1.RecordSource="select

*

from表1

where用户名=""&

Text1.Text

&"""

Adodc1.RefreshIf

Adodc1.Recordset.RecordCount=0

ThenMsgBox"用户名不存在。"Text1.Text

=

""Text1.SetFocusExit

SubEnd

IfAdodc1.RecordSource="select

*

from表1

where用户名=""&

Text1.Text

&"""

Adodc1.RefreshIf

MsgBox("真的要删除吗？",vbCritical+vbYesNo,"危险操作")=vbNo

ThenExit

SubEnd

IfAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf

Adodc1.Recordset.EOF

Then

Adodc1.Recordset.MoveFirstAdodc1.Recordset.UpdateAdodc1.RecordSource="select

*

from表1"Adodc1.RefreshText1.Text

=

""End

Sub查询藏书form13查询藏书form13设置MDIChild——TrueBorderStyle

FixedSingle添加Adodc控件设置Adodc1连接右击|ADODC属性使用ODBC数据源名称——bookdb（记录源选择1，在文本框输入下面SQL语言）select

a.书号,书名,作者,出版社,馆藏数量,在库数量from藏书情况as

a,图书信息as

bwhere

a.书号=b.书号order

by

a.书号设置Adodc1属性

Adodc1.Caption="藏书情况"文本框：Locked——TrueDataSource属性——Adodc1DataField——书号,书名,作者,出版社,馆藏数量,在库数量主窗体Private

Sub查询藏书_Click()Form13.ShowEnd

Sub库存查询form13Private

Sub

Command4_Click()Unload

MeEnd

Sub添加Adodc控件设置Adodc2连接右击|ADODC属性使用ODBC数据源名称——bookdb设置Adodc2属性

Visible:falsePrivate

Sub

Command2_Click()Dim

x

As

Integerx

=

0Adodc2.RecordSource="select

*

from购书记录where书号=""&

Text1.Text

&"""

Adodc2.RefreshDo

While

Not

Adodc2.Recordset.EOFx=x+Adodc2.Recordset.Fields("购书数量").ValueAdodc2.Recordset.MoveNextLoopDim

y

As

Integery

=

0Adodc2.RecordSource="select

*

from借出记录where书号=""&

Text1.Text

&"""

Adodc2.RefreshDo

While

Not

Adodc2.Recordset.EOFy=y+Adodc2.Recordset.Fields("借出数量").ValueAdodc2.Recordset.MoveNextLoopDim

z

As

Integerz

=

0Adodc2.RecordSource="select

*

from还入记录where书号=""&

Text1.Text

&"""

Adodc2.RefreshDo

While

Not

Adodc2.Recordset.EOFz=z+Adodc2.Recordset.Fields("还入数量").ValueAdodc2.Recordset.MoveNextLoopAdodc1.Recordset.Fields("馆藏数量").Value=xAdodc1.Recordset.Fields("在库数量").Value=x-y+zAdodc1.Recordset.UpdateMsgBox"当前记录的馆藏数量和在库数量已更新。"End

SubPrivate

Sub

Command3_Click()Dim

s

As

Strings

=

""Dim

x

As

IntegerDim

y

As

IntegerDim

z

As

IntegerAdodc1.Recordset.MoveFirstDo

While

Not

Adodc1.Recordset.EOFs=Adodc1.Recordset.Fields("书号").Valuex

=

0Adodc2.RecordSource="select

*

from购书记录where书号=""&

s

&"""Adodc2.Refresh"If

Adodc2.Recordset.RecordCount

>

0

Then

Adodc2.Recordset.MoveFirstDo

While

Not

Adodc2.Recordset.EOFx=x+Adodc2.Recordset.Fields("购书数量").ValueAdodc2.Recordset.MoveNextLoopy

=

0Adodc2.RecordSource="select

*

from借出记录where书号=""&

s

&"""Adodc2.Refresh"If

Adodc2.Recordset.RecordCount

>

0

Then

Adodc2.Recordset.MoveFirstDo

While

Not

Adodc2.Recordset.EOFy=y+Adodc2.Recordset.Fields("借出数量").ValueAdodc2.Recordset.MoveNextLoopz

=

0Adodc2.RecordSource="select

*

from还入记录where书号=""&

s

&"""Adodc2.Refresh"If

Adodc2.Recordset.RecordCount

>