图书管理系统VB源代码加设计.docx

图书管理系统VB源代码加设计Option ExplicitDim cont As Integer 记录确定次数 Private Sub 登录_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetDim connt As New ADODB.Connectionconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb If Trim(text1.Text) = Then MsgBox 用户名不能为空，请重新输入！ text1.SetFocus Else sql = select * from 用户表 where user_ID= & Trim(text1.Text) & rs_login.Open sql, connt, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 没有这个用户,请重输入！, vbOKOnly + vbExclamation, text1.Text = text1.SetFocus Else username = text1.Text If Trim(rs_login.Fields(1) = Trim(text2.Text) Then Unload Me 图书管理系统.Show Else MsgBox 密码不正确,请重输入！, vbOKOnly + vbExclamation, text2.SetFocus text2.Text = End If End If End If cont = cont + 1 If cont = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load()cont = 0text1.Text = text2.Text = End SubPrivate Sub 取消_Click()Unload MeEnd SubPrivate Sub Command1_Click()Dim rs_addreader As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As String If Trim(Combo1.Text) = Then MsgBox 请选择读者类别, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = Then MsgBox 读者姓名不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 读者编号不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Not IsDate(Text6.Text) Then MsgBox 请按照yyyy-mm-dd格式输入登记日期, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd IfIf Trim(Combo2.Text) = Then MsgBox 请选读者性别, vbOKOnly + vbExclamation, Combo2.SetFocus Exit SubEnd Ifconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbsql = select * from 读者信息 where 读者编号= & Text2.Text & rs_addreader.Open sql, connt, adOpenKeyset, adLockPessimisticIf rs_addreader.EOF Then rs_addreader.AddNew rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Combo2.Text) rs_addreader.Fields(3) = Trim(Combo1.Text) rs_addreader.Fields(4) = Trim(Text3.Text) rs_addreader.Fields(5) = Trim(Text4.Text) rs_addreader.Fields(6) = Trim(Text5.Text) rs_addreader.Fields(7) = Trim(Text6.Text) rs_addreader.Fields(8) = 0 rs_addreader.Update MsgBox 添加读者信息成功!, vbOKOnly, rs_addreader.CloseElse MsgBox 读者编号重复!, vbOKOnly + vbExclamation, Text2.SetFocus rs_addreader.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As StringProvider = Microsoft.Jet.OLEDB.3.5.1 ;Persist Security Info=false;data source=D:图书管理系统database.mdbconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbsql = select * from 读者类别rs_leibie.Open sql, connt, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseCombo2.AddItem 男Combo2.AddItem 女End SubPrivate Sub Command1_Click()Dim rs_addbook As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As StringIf Trim(Text1.Text) = Then MsgBox 图书编号不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 书名不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Trim(Combo1.Text) = Then MsgBox 请选择图书种类, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Not IsDate(Text5.Text) Then MsgBox 请按照yyyy-mm-dd格式输入日期, vbOKOnly + vbExclamation, Text5.SetFocus Exit SubEnd IfIf Not IsDate(Text6.Text) Then MsgBox 请按照yyyy-mm-dd格式输入日期, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd Ifconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbsql = select * from 书籍信息 where 图书编号= & Text1.Text & rs_addbook.Open sql, connt, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then rs_addbook.AddNew rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fields(2) = Trim(Combo1.Text) rs_addbook.Fields(3) = Trim(Text3.Text) rs_addbook.Fields(4) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(6) = Trim(Text6.Text) rs_addbook.Fields(7) = 否 rs_addbook.Update MsgBox 添加书籍信息成功!, vbOKOnly, rs_addbook.CloseElse MsgBox 图书编号重复!, vbOKOnly + vbExclamation, Text1.SetFocus rs_addbook.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As StringProvider = Microsoft.Jet.OLEDB.3.5.1 ;Persist Security Info=false;data source=F:VB作业新建文件夹database.mdbconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbsql = select * from 图书类别rs_leibie.Open sql, connt, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub 查询_Click()借阅查询.ShowEnd SubPrivate Sub 登记_Click()借阅登记.ShowEnd SubPrivate Sub 返还_Click()返还登记.ShowEnd SubPrivate Sub 改密_Click()更改密码.ShowEnd SubPrivate Sub 浏览_Click()读者浏览.ShowEnd SubPrivate Sub 入库_Click()图书入库.ShowEnd SubPrivate Sub 添加_Click()新读者.ShowEnd SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 新用户_Click()添加用户.ShowEnd SubPrivate Sub 信息查询_Click()借阅信息查询.ShowEnd SubPrivate Sub 阅览_Click()图书浏览.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub 确认_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetDim connt As New ADODB.Connectionconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb If Trim(Text1.Text) = Then MsgBox 用户名不能为空,请输入！, vbOKOnly + vbExclamation, Text1.SetFocus Else sql = select * from 用户表 rs_add.Open sql, connt, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Update MsgBox 添加用户成功!, vbOKOnly + vbExclamation, Me.Hide End IfEnd IfEnd SubPrivate Sub 取消_Click() Unload MeEnd SubPrivate Sub Command1_Click() Dim sql As String Dim rs_find As New ADODB.Recordset Dim connt As New ADODB.Connection connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb If Option1.Value = True Then sql = select * from 书籍信息 where 是否被借出=是 End If If Option2.Value = True Then sql = select * from 书籍信息 where 是否被借出=否 End If If Option3.Value = True And Text1.Text Then sql = select * from 借阅信息 where 读者姓名= & Text1.Text & ElseIf Option3.Value = True And Text1.Text = Then MsgBox 请输入读者姓名！, vbOKOnly + vbExclamation Text1.SetFocus Exit Sub End If rs_find.CursorLocation = adUseClient rs_find.Open sql, connt, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_find End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()End SubDim leibie As String 该读者的类别Dim qixian As String 该读者借书的期限Dim shumu As Integer 该读者已借书数量Dim maxnum As Integer 该读者借书数量的限制Private Sub Combo1_Click() Combo2.ListIndex = Combo1.ListIndexEnd SubPrivate Sub Combo2_Click() Combo1.ListIndex = Combo2.ListIndexEnd SubPrivate Sub Command1_Click() Dim rs_borrowbook As New ADODB.Recordset Dim sql As String Dim connt As New ADODB.Connection connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb sql = select * from 读者信息 where 读者编号= & Combo1.Text & rs_borrowbook.Open sql, connt, adOpenKeyset, adLockPessimistic leibie = rs_borrowbook.Fields(3) shumu = rs_borrowbook.Fields(8) rs_borrowbook.Close sql = select * from 读者类别 where 种类名称= & leibie & rs_borrowbook.Open sql, connt, adOpenKeyset, adLockPessimistic qixian = rs_borrowbook.Fields(2) maxnum = rs_borrowbook.Fields(1) rs_borrowbook.Close If shumu = maxnum Then MsgBox 该读者借书数额已满!, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 借阅信息 rs_borrowbook.Open sql, connt, adOpenKeyset, adLockPessimistic rs_borrowbook.AddNew rs_borrowbook.Fields(1) = Combo1.Text rs_borrowbook.Fields(2) = Combo2.Text rs_borrowbook.Fields(3) = Text1.Text rs_borrowbook.Fields(4) = Text2.Text rs_borrowbook.Fields(5) = Date rs_borrowbook.Fields(6) = Date + qixian rs_borrowbook.Update rs_borrowbook.Close sql = select * from 书籍信息 where 图书编号= & book_num & rs_borrowbook.Open sql, connt, adOpenKeyset, adLockPessimistic rs_borrowbook.Fields(7) = 是 rs_borrowbook.Update rs_borrowbook.Close sql = select * from 读者信息 where 读者编号= & Combo1.Text & rs_borrowbook.Open sql, connt, adOpenKeyset, adLockPessimistic rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1 rs_borrowbook.Update rs_borrowbook.Close MsgBox 本书借阅成功!, vbOKOnly + vbExclamation Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim rs_borrow As New ADODB.Recordset Dim rs_reader As New ADODB.Recordset Dim connt As New ADODB.Connection Dim sql As String Dim sqlreader As String connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb sql = select * from 书籍信息 where 图书编号= & book_num & rs_borrow.Open sql, connt, adOpenKeyset, adLockPessimistic Text1.Text = rs_borrow.Fields(0) Text2.Text = rs_borrow.Fields(1) Text3.Text = rs_borrow.Fields(3) Text4.Text = rs_borrow.Fields(5) Text5.Text = rs_borrow.Fields(2) Text6.Text = rs_borrow.Fields(4) Text7.Text = rs_borrow.Fields(6) sqlreader = select * from 读者信息 rs_reader.Open sqlreader, connt, adOpenKeyset, adLockPessimistic If Not rs_reader.EOF Then Do While Not rs_reader.EOF Combo1.AddItem rs_reader.Fields(1) Combo2.AddItem rs_reader.Fields(0) rs_reader.MoveNext Loop Else MsgBox 请先登记读者!, vbOKOnly + vbExclamation Exit Sub End If rs_borrow.Close rs_reader.CloseEnd SubPrivate Sub Command1_Click()Dim rs_findbook As New ADODB.RecordsetDim connt As New ADODB.ConnectionDim sql As StringIf Check1.Value = vbChecked Then sql = 书名= & Trim(Text1.Text & ) & End IfIf Check2.Value = vbChecked Then If Trim(sql) = Then sql = 类别= & Trim(Combo1.Text & ) & Else sql = sql & and 类别= & Trim(Combo1.Text & ) & End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = Then sql = 作者= & Trim(Text2.Text & ) & Else sql = sql & and 作者= & Trim(Text2.Text & ) & End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = Then sql = 图书编号= & Trim(Text3.Text & ) & Else sql = sql & and 图书编号= & Trim(Text3.Text & ) & End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = Then sql = 出版社= & Trim(Text4.Text & ) & Else sql = sql & and 出版社= & Trim(Text4.Text & ) & End IfEnd Ifconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbIf Trim(sql) = Then MsgBox 请选择查询方式!, vbOKOnly + vbExclamation Exit SubEnd Ifsql = select * from 书籍信息 where & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, connt, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseIf rs_findbook.RecordCount = 0 Then MsgBox 查询不到该图书信息!, vbOKOnly + vbExclamationElse Set DataGrid1.DataSource = rs_findbookEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click() If Trim(book_num) = Then MsgBox 请选择要借阅的图书!, vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then MsgBox 此书已被借出!, vbOKOnly + vbExclamation Exit Sub End If Unload Me借阅登记.ShowEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark) panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load() Dim rs_find As New ADODB.Recordset Dim connt As New ADODB.Connection Dim sql As String sql = select * from 图书类别 connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb rs_find.Open sql, connt, adOpenKeyset, adLockPessimistic rs_find.MoveFirst If Not rs_find.EOF Then Do While Not rs_find.EOF Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop Combo1.ListIndex = 0 End If rs_find.Close End SubPrivate Sub Form_Load()End SubPrivate Sub 确认_Click()Dim connt As New ADODB.ConnectionDim rs_mima As New ADODB.RecordsetDim sql As Stringconnt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb If Trim(Text1.Text) Trim(Text2.Text) Then MsgBox 密码不一致！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Exit Sub Else sql = select * from 用户表 where user_ID= & username & rs_mima.Open sql, connt, adOpenKeyset, adLockPessimistic rs_mima.Fields(1) = Text1.Text rs_mima.Update MsgBox 密码修改成功, vbOKOnly + vbExclamation, Unload Me End IfEnd SubPrivate Sub 取消_Click() Unload MeEnd SubPrivate Sub Combo1_Click() Combo2.ListIndex = Combo1.ListIndexEnd SubPrivate Sub Combo2_Click() Combo1.ListIndex = Combo2.ListIndexEnd SubPrivate Sub Combo3_Click() Combo4.ListIndex = Combo3.ListIndexEnd SubPrivate Sub Combo4_Click() Combo3.ListIndex = Combo4.ListIndexEnd SubPrivate Sub Command1_Click() Dim rs_reader As New ADODB.Recordset Dim connt As New ADODB.Connection Dim sql As String findform = False sql = select * from 借阅信息 where 读者姓名 = & Combo2.Text & connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb rs_reader.CursorLocation = adUseClient rs_reader.Open sql, connt, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_reader DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = False End SubPrivate Sub Command2_Click() Dim rs_book As New ADODB.Recordset Dim connt As New ADODB.Connection Dim sql As String findform = False sql = select * from 借阅信息 where 书籍编号 = & Combo3.Text & connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb rs_book.CursorLocation = adUseClient rs_book.Open sql, connt, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs_book DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False DataGrid1.AllowDelete = FalseEnd SubPrivate Sub Command3_Click() Dim book_number As String Dim reader_number As String Dim answer As String Dim rs_back As New ADODB.Recordset Dim connt As New ADODB.Connection Dim sql As String connt.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb book_number = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark) reader_number = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark) answer = MsgBox(确定要还这本书吗?, vbYesNo, ) If answer = vbYes Then sql = select * from 借阅信息 where 书籍编号 = & book_number & 删除这本书在借阅信息中的记录 rs_back.CursorLocation = adUseClient rs_back.Open sql, connt