vb图书管理系统源代码

Borbook :公共sqltxt as字符串保存Public rno As String读者的借阅证书编号保存Public bno As String读者图书编号公共XM as字符串保存读者名称公共dw as字符串存储读者的单位公共RS as adodb.recordset私有子com m1_ click ()rno=trim (文本1 (0).text )If rno= ThenMsgBox 借出证书编号不能为空。 请输入vbOKOnly，信息提示com m2 .启用=假Elsesqltxt=select * from reader where借出证书编号= rno Set rs=exesql(sqltxt )If rs.RecordCount=0 ThenMsgBox 这个读者没有注册，不能借书，vbOKOnly，信息提示com m2 .启用=假ElseText2(0).Text=rs.Fields (名称)Text2(1).Text=str(rs.Fields (借书总数 )Text2(2).Text=str(rs.Fields (借书总数 )-rs.fields (借书总数 )ifval (trim (text2(2).text ) )0thenxm=rs.Fields (名称)dw=rs.Fields (单位)com m2 .启用=trueElseMsgBox 这个读者满是书，不能再借了！ vbOKOnly资讯提示com m2 .启用=假End IfEnd IfEnd If日本职业足球联赛私有子com m2_ click ()ifval (trim (text2(2).text ) )=0thenMsgBox 这个读者满是书，不能再借了！ vbOKOnly资讯提示com m2 .启用=假Exit SubEnd Ifbno=trim (文本1 (1).text )If bno= ThenMsgBox 图书编号不能为空。 请输入vbOKOnly，信息提示com m2 .启用=假Elsesqltxt=select * from book where书签编号= bno Set bs=exesql(sqltxt )If bs.RecordCount=0 ThenMsgBox 图书编号不正确。 请再输入一遍。 vbOKOnly，信息提示ElseIf bs.Fields (不借 )=借 Then对应这个图书编号的图书已经借出去了，不能再借了！ vbOKOnly资讯提示Elsesqltxt=select * from borrow Set brs=exesql(sqltxt )brs.AddNewbrs.Fields (图书编号 )=bnobrs.Fields (书名 )=bs.fields (书名 )brs.Fields (作者)=bs.Fields (作者 )brs.Fields (出版社 )=bs.fields (出版社 )brs.Fields (借出证明书编号 )=rnobrs.Fields (名称 )=xmbrs.Fields (单位 )=dwbrs.Fields (借书日期 )=datebrs.Updatebs.Fields (不租 )=租bs.Updaters.Fields (借书数 ) rs.Fields (借书数 ) 1rs.UpdateText2(2).Text=str(rs.Fields (借书总数 )-rs.fields (借书总数 )End IfEnd IfEnd If日本职业足球联赛私有子ret com _ click ()Unload Me日本职业足球联赛私有子表单加载()com m2 .启用=假日本职业足球联赛Edbook :私有子数据库1 _ click ()日本职业足球联赛私有子表单加载()解释：为什么使用recs而不是adodc1.recordset.recordcount。调用edbook1表单并添加记录(ok )之后如果不希望在Form_Activate ()事件期间调用adodc1.refresh进行刷新，请返回此表单并返回adodc1.recordset.recordcount的值如果在调用encomm过程时发生错误Form_Activate ()事件期间调用并刷新adodc1.refresh，因为尚未增加1当adodc1.recordset.recordcount的值增加1并调用encomm过程时也是正确的，但返回此表单时，当前行始终是第一行，显然不行这是因为用户想要在追加或变更后在datagrid1中显示当前操作的记录.RECs=adodc1. recordset.record count日本职业足球联赛私有子表单_活动()DataGrid1.SetFocusCall encomm日本职业足球联赛私有子com m1_ click ()flag=1ed book1.show VB模型日本职业足球联赛私有子com m2_ click ()flag=2ed book1.show VB模型日本职业足球联赛私有子com m3_ click ()您确定要删除if msgbox ( trim (adodc1. recordset.fields (名称吗？vbYesNo、信息提示=vbYes ThenAdodc1.Recordset.Deleterecs=recs - 1Call encommEnd If日本职业足球联赛私有子com m4_ click ()Unload Me日本职业足球联赛Private Sub selcmd1_Click ()决定dim str as字符串str=条件式If Trim(Text1(0).Text) ThenIf str= Thenstr=图书编号= Trim(Text1(0).Text ) Elsestr=str and图书编号= Trim(Text1(0).Text ) End IfEnd IfIf Trim(Text1(1).Text) ThenIf str= Thenstr=书名= Trim(Text1(1).Text ) Elsestr=str and书名= Trim(Text1(1).Text ) End IfEnd IfIf Trim(Text1(2).Text) ThenIf str= Thenstr=作者= Trim(Text1(2).Text ) Elsestr=str and作者= Trim(Text1(2).Text ) End IfEnd IfIf Trim(Text1(3).Text) ThenIf str= Thenstr=出版社= Trim(Text1(3).Text ) Elsestr=str and出版社= Trim(Text1(3).Text ) End IfEnd IfIf Trim(Text1(4).Text) ThenIf str= Thenstr=借方= Trim(Text1(4).Text ) Elsestr=str and借方= Trim(Text1(4).Text ) End IfEnd IfIf str Thenadodc1. record source= select * frombookwhere strAdodc1.RefreshElseadodc1. record source= select * from book Adodc1.RefreshEnd IfRECs=adodc1. recordset.record countIf recs=0 Then没有符合MsgBox 条件的记录，vbOKOnly，讯息提示End IfCall encomm日本职业足球联赛Private Sub selcmd2_Click ()复位Text1(0).Text=Text1(1).Text=Text1(2).Text=Text1(3).Text=Text1(4).Text=日本职业足球联赛私有子encomm ()自定义子处理：确定Adodc1中是否存在记录If recs=0 Thencom m2 .启用=假com m3 .启用=假Elsecom m2 .启用=truecom m3 .启用=trueEnd If日本职业足球联赛私有子文本1 _密钥(indexasp integer，KeyAscii As Integer )Call endata(KeyAscii )日本职业足球联赛Edbook1:Dim rs As ADODB.Recordset私有子表单加载()If flag=2 Then变更动作text1(0).text=edbbook.adodc1. recordset.fields (图书编号 )text1(1).text=edbbook.adodc1. recordset.fields (分类号 ) text1(2).text=edbbook.adodc1. recordset.fields (书名 )text1(3).text=edbbook.adodc1. recordset.fields (作者 ) datain com