vb图书管理系统源代码.doc

.Borbook：Public sqltxt As StringPublic rno As String 保存读者借书证号Public bno As String 保存读者图书编号Public xm As String 保存读者姓名Public dw As String 保存读者单位Public rs As ADODB.RecordsetPrivate Sub Comm1_Click() rno = Trim(Text1(0).Text) If rno = Then MsgBox 借书证号不能为空,请输入, vbOKOnly, 信息提示 Comm2.Enabled = False Else sqltxt = select * from reader where 借书证号= + rno + Set rs = exesql(sqltxt) If rs.RecordCount = 0 Then MsgBox 该读者未登记,不能借书, vbOKOnly, 信息提示 Comm2.Enabled = False Else Text2(0).Text = rs.Fields(姓名) Text2(1).Text = str(rs.Fields(借书总数) Text2(2).Text = str(rs.Fields(借书总数) - rs.Fields(已借书数) If Val(Trim(Text2(2).Text) 0 Then xm = rs.Fields(姓名) dw = rs.Fields(单位) Comm2.Enabled = True Else MsgBox 该读者已借满图书,不能再借!, vbOKOnly, 信息提示 Comm2.Enabled = False End If End If End IfEnd SubPrivate Sub Comm2_Click() If Val(Trim(Text2(2).Text) = 0 Then MsgBox 该读者已借满图书,不能再借!, vbOKOnly, 信息提示 Comm2.Enabled = False Exit Sub End If bno = Trim(Text1(1).Text) If bno = Then MsgBox 图书编号不能为空,请输入, vbOKOnly, 信息提示 Comm2.Enabled = False Else sqltxt = select * from book where 图书编号= + bno + Set bs = exesql(sqltxt) If bs.RecordCount = 0 Then MsgBox 图书编号不正确,请重新输入, vbOKOnly, 信息提示 Else If bs.Fields(借否) = 借 Then MsgBox 该图书编号对应的图书已借出,不能再借!, vbOKOnly, 信息提示 Else sqltxt = select * from borrow Set brs = exesql(sqltxt) brs.AddNew brs.Fields(图书编号) = bno brs.Fields(书名) = bs.Fields(书名) brs.Fields(作者) = bs.Fields(作者) brs.Fields(出版社) = bs.Fields(出版社) brs.Fields(借书证号) = rno brs.Fields(姓名) = xm brs.Fields(单位) = dw brs.Fields(借书日期) = Date brs.Update bs.Fields(借否) = 借 bs.Update rs.Fields(已借书数) = rs.Fields(已借书数) + 1 rs.Update Text2(2).Text = str(rs.Fields(借书总数) - rs.Fields(已借书数) End If End If End IfEnd SubPrivate Sub retCom_Click() Unload MeEnd SubPrivate Sub Form_Load() Comm2.Enabled = FalseEnd SubEdbook：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load() 说明:为什么使用recs,而不直接使用adodc1.recordset.recordcount?在调用edbook1窗体添加一个记录(确定)后,再 返回到本表单,若不在Form_Activate()事件过程中调用adodc1.refresh进行刷新,adodc1.recordset.recordcount值 仍未增1,这样调用encomm过程时出错;若在Form_Activate()事件过程中调用adodc1.refresh进行刷新, adodc1.recordset.recordcount值增1了,调用encomm过程时也正确,但返回本窗体时,当前行总是第一行,显然也不行, 因为用户在添加或修改后希望在datagrid1中显示当前操作的那条记录. recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate() DataGrid1.SetFocus Call encommEnd SubPrivate Sub Comm1_Click() flag = 1 edbook1.Show vbModalEnd SubPrivate Sub Comm2_Click() flag = 2 edbook1.Show vbModalEnd SubPrivate Sub Comm3_Click() If MsgBox(真的要删除 + Trim(Adodc1.Recordset.Fields(书名) + 吗?, vbYesNo, 信息提示) = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Comm4_Click() Unload MeEnd SubPrivate Sub selcmd1_Click() 确定 Dim str As String str = 条件表达式 If Trim(Text1(0).Text) Then If str = Then str = 图书编号= + Trim(Text1(0).Text) + Else str = str + and 图书编号= + Trim(Text1(0).Text) + End If End If If Trim(Text1(1).Text) Then If str = Then str = 书名= + Trim(Text1(1).Text) + Else str = str + and 书名= + Trim(Text1(1).Text) + End If End If If Trim(Text1(2).Text) Then If str = Then str = 作者= + Trim(Text1(2).Text) + Else str = str + and 作者= + Trim(Text1(2).Text) + End If End If If Trim(Text1(3).Text) Then If str = Then str = 出版社= + Trim(Text1(3).Text) + Else str = str + and 出版社= + Trim(Text1(3).Text) + End If End If If Trim(Text1(4).Text) Then If str = Then str = 借否= + Trim(Text1(4).Text) + Else str = str + and 借否= + Trim(Text1(4).Text) + End If End If If str Then Adodc1.RecordSource = select * from book where + str Adodc1.Refresh Else Adodc1.RecordSource = select * from book Adodc1.Refresh End If recs = Adodc1.Recordset.RecordCount If recs = 0 Then MsgBox 没有任何满足条件的记录, vbOKOnly, 信息提示 End If Call encommEnd SubPrivate Sub selcmd2_Click() 重置 Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = End SubPrivate Sub encomm() 自定义子过程:判断Adodc1中是否存在记录 If recs = 0 Then Comm2.Enabled = False Comm3.Enabled = False Else Comm2.Enabled = True Comm3.Enabled = True End IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End SubEdbook1：Dim rs As ADODB.RecordsetPrivate Sub Form_Load() If flag = 2 Then 修改操作 Text1(0).Text = edbook.Adodc1.Recordset.Fields(图书编号) & Text1(1).Text = edbook.Adodc1.Recordset.Fields(分类号) & Text1(2).Text = edbook.Adodc1.Recordset.Fields(书名) & Text1(3).Text = edbook.Adodc1.Recordset.Fields(作者) & DataCombo1.Text = edbook.Adodc1.Recordset.Fields(出版社) & Text1(4).Text = edbook.Adodc1.Recordset.Fields(定价) & Text1(5).Text = edbook.Adodc1.Recordset.Fields(入库日期) & Text1(0).Enabled = False Else 添加操作 Text1(5).Text = Date End IfEnd SubPrivate Sub Form_Activate() Adodc1.Refresh 数据源刷新End SubPrivate Sub Comm1_Click() If Trim(Text1(0).Text) = Or Trim(Text1(2).Text) = Or Trim(Text1(3).Text) = Or Trim(Text1(5).Text) = Then MsgBox 加*数据项不能为空,请重新设置, vbOKOnly, 信息提示 Exit Sub End If If flag = 1 Then 添加操作 sqltxt = select * from book where 图书编号= + Trim(Text1(0).Text) + 对book中记录进行判断 Set rs = exesql(sqltxt) If rs.RecordCount 0 Then MsgBox 存在相同的图书编号, vbOKOnly, 信息提示 Text1(0).SetFocus rs.Close Exit Sub Else rs.Close End If edbook.Adodc1.Recordset.AddNew edbook.Adodc1.Recordset.Fields(图书编号) = Trim(Text1(0).Text) edbook.Adodc1.Recordset.Fields(分类号) = Trim(Text1(1).Text) edbook.Adodc1.Recordset.Fields(书名) = Trim(Text1(2).Text) edbook.Adodc1.Recordset.Fields(作者) = Trim(Text1(3).Text) edbook.Adodc1.Recordset.Fields(出版社) = Trim(DataCombo1.Text) edbook.Adodc1.Recordset.Fields(定价) = Val(Trim(Text1(4).Text) edbook.Adodc1.Recordset.Fields(入库日期) = Format(Trim(Text1(5).Text), yyyy-mm-dd) edbook.Adodc1.Recordset.Fields(借否) = 否 edbook.Adodc1.Recordset.Update recs = recs + 1 Else 修改操作 edbook.Adodc1.Recordset.Fields(图书编号) = Trim(Text1(0).Text) edbook.Adodc1.Recordset.Fields(分类号) = Trim(Text1(1).Text) edbook.Adodc1.Recordset.Fields(书名) = Trim(Text1(2).Text) edbook.Adodc1.Recordset.Fields(作者) = Trim(Text1(3).Text) edbook.Adodc1.Recordset.Fields(出版社) = Trim(DataCombo1.Text) edbook.Adodc1.Recordset.Fields(定价) = Val(Trim(Text1(4).Text) edbook.Adodc1.Recordset.Fields(入库日期) = Format(Trim(Text1(5).Text), yyyy-mm-dd) edbook.Adodc1.Recordset.Update End If Unload MeEnd SubPrivate Sub Comm2_Click() Unload MeEnd SubPrivate Sub selcom_Click() tna = press cap = 出版社 edrec.Show vbModalEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) If Index = 1 Then If KeyAscii = 13 Then sqltxt = select * from book where 分类号= + Trim(Text1(1).Text) + 对book中记录进行判断 Set rs = exesql(sqltxt) If rs.RecordCount 0 Then Text1(2).Text = rs.Fields(书名) Text1(3).Text = rs.Fields(作者) Text1(4).Text = rs.Fields(定价) DataCombo1.Text = rs.Fields(出版社) rs.Close Text1(5).SetFocus Else Call endata(KeyAscii) End If End If Else Call endata(KeyAscii) End IfEnd SubPrivate Sub DataCombo1_KeyPress(KeyAscii As Integer) Call endata(KeyAscii)End SubEdlev：Dim msg As StringPrivate Sub Form_Load() recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate() Call encommEnd SubPrivate Sub Comm1_Click() flag = 1 edlev1.Show vbModalEnd SubPrivate Sub Comm2_Click() flag = 2 edlev1.Show vbModalEnd SubPrivate Sub Comm3_Click() If MsgBox(真的要删除 + Trim(Adodc1.Recordset.Fields(级别) + 吗?, vbYesNo, 信息提示) = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Comm4_Click() Unload MeEnd SubPrivate Sub encomm() If recs = 0 Then Comm2.Enabled = False Comm3.Enabled = False Else Comm2.Enabled = True Comm3.Enabled = True End IfEnd SubEdlev1：Dim cond As StringPrivate Sub Form_Load() If flag = 2 Then Text1(0).Text = edlev.Adodc1.Recordset.Fields(级别) Text1(1).Text = edlev.Adodc1.Recordset.Fields(过期罚款) Text1(2).Text = edlev.Adodc1.Recordset.Fields(借书总数) Text1(3).Text = edlev.Adodc1.Recordset.Fields(借书天数) End IfEnd SubPrivate Sub Comm1_Click() If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Or Trim(Text1(2).Text) = Or _ Trim(Text1(3).Text) = Then MsgBox 数据项不全,请重新设置, vbOKOnly, 信息提示 Text1(0).SetFocus Exit Sub End If If flag = 1 Then 添加操作 If edlev.Adodc1.Recordset.RecordCount 0 Then 原记录个数大于0 cond = 级别= + Trim(Text1(0).Text) + edlev.Adodc1.Recordset.MoveFirst 每次从头开始查找 edlev.Adodc1.Recordset.Find (cond) If Not edlev.Adodc1.Recordset.EOF() Then MsgBox 存在完全相同的记录, vbOKOnly, 信息提示 Text1(0).SetFocus Exit Sub End If End If edlev.Adodc1.Recordset.AddNew edlev.Adodc1.Recordset.Fields(级别) = Trim(Text1(0).Text) edlev.Adodc1.Recordset.Fields(过期罚款) = Val(Trim(Text1(1).Text) edlev.Adodc1.Recordset.Fields(借书总数) = Val(Trim(Text1(2).Text) edlev.Adodc1.Recordset.Fields(借书天数) = Val(Trim(Text1(3).Text) edlev.Adodc1.Recordset.Update recs = recs + 1 Else 修改操作 n = edlev.Adodc1.Recordset.AbsolutePosition cond = 级别= + Trim(Text1(0).Text) + edlev.Adodc1.Recordset.MoveFirst 每次从头开始查找 edlev.Adodc1.Recordset.Find (cond) If Not edlev.Adodc1.Recordset.EOF() And edlev.Adodc1.Recordset.AbsolutePosition n Then MsgBox 存在完全相同的记录, vbOKOnly, 信息提示 edlev.Adodc1.Recordset.MoveFirst 这两个语句恢复原记录位置 edlev.Adodc1.Recordset.Move (n - 1) Text1(0).SetFocus Exit Sub End If edlev.Adodc1.Recordset.MoveFirst 这两个语句恢复原记录位置 edlev.Adodc1.Recordset.Move (n - 1) edlev.Adodc1.Recordset.Fields(级别) = Trim(Text1(0).Text) edlev.Adodc1.Recordset.Fields(过期罚款) = Val(Trim(Text1(1).Text) edlev.Adodc1.Recordset.Fields(借书总数) = Val(Trim(Text1(2).Text) edlev.Adodc1.Recordset.Fields(借书天数) = Val(Trim(Text1(3).Text) edlev.Adodc1.Recordset.Update End If Unload MeEnd SubPrivate Sub Comm2_Click() Unload MeEnd SubEdreader：Private Sub DataGrid1_Click()End SubPrivate Sub Form_Load() recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub Form_Activate() DataGrid1.SetFocus Call encommEnd SubPrivate Sub Comm1_Click() flag = 1 edreader1.Show vbModalEnd SubPrivate Sub Comm2_Click() flag = 2 edreader1.Show vbModalEnd SubPrivate Sub Comm3_Click() If MsgBox(真的要删除 + Trim(Adodc1.Recordset.Fields(姓名) + 吗?, vbYesNo, 信息提示) = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Comm4_Click() Unload MeEnd SubPrivate Sub selcmd1_Click() 设置条件确定 Dim str As String str = 条件表达式 If Trim(Text1(0).Text) Then If str = Then str = 借书证号= + Trim(Text1(0).Text) + Else str = str + and 借书证号= + Trim(Text1(0).Text) + End If End If If Trim(Text1(1).Text) Then If str = Then str = 姓名= + Trim(Text1(1).Text) + Else str = str + and 姓名= + Trim(Text1(1).Text) + End If End If If Trim(Text1(2).Text) Then If str = Then str = 单位= + Trim(Text1(2).Text) + Else str = str + and 单位= + Trim(Text1(2).Text) + End If End If If Trim(Text1(3).Text) Then If str = Then str = 级别= + Trim(Text1(3).Text) + Else str = str + and 级别= + Trim(Text1(3).Text) + End If End If If Trim(Text1(4).Text) Then If str = Then str = 性别= + Trim(Text1(4).Text) + Else str = str + and 性别= + Trim(Text1(4).Text) + End If End If If str Then Adodc1.RecordSource = select * from reader where + str Adodc1.Refresh Else Adodc1.RecordSource = select * from reader Adodc1.Refresh End If recs = Adodc1.Recordset.RecordCount If recs = 0 Then MsgBox 没有任何满足条件的记录, vbOKOnly, 信息提示 End If Call encommEnd SubPrivate Sub selcmd2_Click() 设置条件重置 Text1(0).Text = Text1(1).Text = Text1(2).Text = Text1(3).Text = Text1(4).Text = End SubPrivate Sub encomm() 自定义子过程:判断Adodc1中是否存在记录 If recs = 0 Then Comm2.Enabled = False Comm3.Enabled = False Else Comm2.Enabled = True Comm3.Enabled = True End IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End SubEdreader1：Dim rs As ADODB.RecordsetPrivate Sub Form_Load() If flag = 2 Then 修改操作 Text1(0).Text = edreader.Adodc1.Recordset.Fields(借书证号) & Text1(1).Text = edreader.Adodc1.Recordset.Fields(姓名) & If edreader.Adodc1.Recordset.Fields(性别) = 男 Then opt1.Value = True Else opt2.Value = True End If DataCombo2.Text = edreader.Adodc1.Recordset.Fields(单位) & DataCombo1.Text = edreader.Adodc1.Recordset.Fields(级别) & Text1(2).Text = edreader.Adodc1.Recordset.Fields(过期罚款) & Text1(3).Text = edreader.Adodc1.Recordset.Fields(借书总数) & Text1(4).Text = edreader.Adodc1.Recordset.Fields(借书天数) & Text1(5).Text = edreader.Adodc1.Recordset.Fields(登记日期) & Text1(0).Enabled = False Else 添加操作 Text1(5).Text = Date End IfEnd SubPrivate Sub Form_Activate() Adodc1.Refresh 数据源刷新 Adodc2.Refresh 数据源刷新 DataCombo1.Refresh DataCombo2.RefreshEnd SubPrivate Sub Comm1_Click() If Trim(Text1(0).Text) = Or Trim(Text1(1).Text) = Or Trim(Text1(5).Text) = Or Trim(DataCombo1.Text) = Then MsgBox 加*数据项不能为空,请重新设置, vbOKOnly, 信息提示 Exit Sub End If If flag = 1 Then 添加操作 sqltxt = select * from reader where 借书证号= + Trim(Text1(0).Text) + 对reader中记录进行判断 Set rs = exesql(sqltxt) If rs.RecordCount 0 Then MsgBox 存在相同的借书证号, vbOKOnly, 信息提示 Text1(0).SetFocus rs.Close Exit Sub Else rs.Close End If edreader.Adodc1.Recordset.AddNew edreader.Adodc1.Recordset.Fields(借书证号) = Trim(Text1(0).Text) edreader.Adodc1.Recordset.Fields(姓名) = Trim(Text1(1).Text) If opt1.Value = True Then edreader.Adodc1.Recordset.Fields(性别) = 男 Else edreader.Adodc1.Recordset.Fields(性别) = 女 End If edreader.Adodc1.Recordset.Fields(单位) = Trim(DataCombo2.Text) edreader.Adodc1.Recordset.Fields(级别) = Trim(DataCombo1.Text) edreader.Adodc1.Recordset.Fields(过期罚款) = Trim(Text1(2).Text) edreader.Adodc1.Recordset.Fields(借书总数) = Val(Trim(Text1(3).Text) edreader.Adodc1.Recordset.Fields(借书天数) = Val(Trim(Text1(4).Text) edreader.Adodc1.Recordset.Fields(已借书数) = 0 edreader.Adodc1.Recordset.Fields(登记日期) = Format(Trim(Text1(5).Text), yyyy-mm-dd) edreader.Adodc1.Recordset.Update recs = recs + 1 Else 修改操作 edreader.Adodc1.Recordset.Fields(借书证号) = Trim(Text1(0).Text) edreader.Adodc1.Recordset.Fields(姓名) = Trim(Text1(1).Text) If opt1.Value = True Then edreader.Adodc1.Recordset.Fields(性别) = 男 Else edreader.Adodc1.Recordset.Fields(性别) = 女 End If edreader.Adodc1.Recordset.Fields(单位) = Trim(DataCombo2.Text) edreader.Adodc1.Recordset.Fields(级别) = Trim(DataCombo1.Text) edreader.Adodc1.Recordset.Fields(过期罚款) = Trim(Text1(2).Text) edreader.Adodc1.Recordset.Fields(借书总数) = Val(Trim(Text1(3).Text) edreader.Adodc1.Recordset.Fields(借书天数) = Val(Trim(Text1(4).Text) edreader.Adodc1.Recordset.Fields(登记日期) = Format(Trim(Text1(5).Text), yyyy-mm-dd) edreader.Adodc1.Recordset.Update edreader.Adodc1.Recordset.Update End If Unload MeEnd SubPrivate Sub Comm2_Click() Unload MeEnd SubPrivate Sub selcom1_Click() edlev.Show vbModalEnd SubPrivate Sub selcom2_Click() tna = depart cap = 单 位