图书管理系统VB源代码加设计.docx_第1页
图书管理系统VB源代码加设计.docx_第2页
图书管理系统VB源代码加设计.docx_第3页
图书管理系统VB源代码加设计.docx_第4页
图书管理系统VB源代码加设计.docx_第5页
免费预览已结束,剩余20页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

图书管理系统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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论