图书借阅 代码文档格式.docx

1、创建连接 Set rs = New ADODB.Recordset On Error GoTo transactsql_error strConnection = Provider = Microsoft.jet.oledb.4.0; data source= & App.Path & libraryMIS.mdb; strConnection = strConnection &Persist Security Info=False;Jet OLEDB:Database Password=txm strArray = Split（sql） Split（） 返回一个下标从零开始的一维数组 con

2、t.Open strConnection 打开连接 If StrComp（UCase$（strArray（0）, select, vbTextCompare） = 0 Then rs.Open Trim$（sql）, cont, adOpenKeyset, adLockOptimistic Set TransactSQL = rs iflag = 1 Else cont.Execute sql End If transactsql_exit: Set rs = Nothing Set cont = Nothing Exit Function transactsql_error: MsgBox

3、查询错误： Err.Description iflag = 2 Resume transactsql_exit End Function Public Sub tabtoenter（Key As Integer） If Key = 13 Then SendKeys TABEnd Sub 修改借书信息窗体代码:Private Sub addBrwOK_Click（） Dim rs As New ADODB.Recordset Dim sql As String sql = select * from borrowInfo Dim sql2 As String sql2 = select * fr

4、om borrowInfo where bookNO = bookNO.Text & If Trim（readerNO.Text） = Or Trim（readerName.Text） = Or Trim（readerType.Text） = Or _ Trim（bookNO.Text） = Or Trim（bookName.Text） = Trim（bookOriginalName.Text） = Trim（bookTypename.Text） = Or Trim（bookauthor.Text） = Trim（bookpress.Text） = Trim（borrowDTP.Value）

5、= Or Trim（returnDTP.Value） = Trim（borrowOther.Text） = Then MsgBox 借书信息录入不能为空！, vbOKOnly Else Set rs = TransactSQL（sql2） If rs.EOF = False Then 所给编号图书已经借出，请核对！, vbOKOnly, 提示 rs.Close Else Set rs = TransactSQL（sql） rs.AddNew 添加新纪录 rs.Fields（0） = Trim（readerNO.Text） rs.Fields（1） = Trim（readerName.Text）

6、 rs.Fields（2） = Trim（readerType.Text） rs.Fields（3） = Trim（bookNO.Text） rs.Fields（4） = Trim（bookName.Text） rs.Fields（5） = Trim（bookOriginalName.Text） rs.Fields（6） = Trim（bookTypename.Text） rs.Fields（7） = Trim（bookauthor.Text） rs.Fields（8） = Trim（bookpress.Text） rs.Fields（9） = Trim（Format（borrowDTP.Va

7、lue, yyyy-mm-dd） rs.Fields（10） = Trim（Format（returnDTP.Value, rs.Fields（11） = Trim（borrowOther.Text） rs.Update MsgBox 借书信息添加成功！, vbOKOnly rs.Close Private Sub cancel_Click（） Unload Me Private Sub Form_Load（） 初始化读者，图书类别 readerType.AddItem 教职工, 0 中专部, 1 本科部, 2 研究生, 3 校外, 4 Dim rs As New ADODB.Recordse

8、t Dim sqlType As String sqlType = select typename from booktype order by typename Set rs = TransactSQL（sqlType） While Not rs.EOF bookTypename.AddItem rs（0） rs.MoveNext Wend If ModifyBrwFlag2 = True Then Dim rs As New ADODB.Recordset Dim sql As String ModifyBrwFlag1 & Set rs = TransactSQL（sql） reader

9、NO.Text = rs.Fields（0） readerName.Text = rs.Fields（1） readerType.Text = rs.Fields（2） bookNO.Text = rs.Fields（3） bookNO.Locked = True 使不可改动 bookName.Text = rs.Fields（4） bookOriginalName.Text = rs.Fields（5） bookTypename.Text = rs.Fields（6） bookauthor.Text = rs.Fields（7） bookpress.Text = rs.Fields（8） b

10、orrowDTP.Value = rs.Fields（9） returnDTP.Value = rs.Fields（10） borrowOther.Text = rs.Fields（11） ModifyBrwFlag2 = ModifyBrwFlag2 Xor True addBrwOK.Enabled =False Else modifyBrwOK.Enabled = False End If End Sub Private Sub modifyBrwOK_Click（） Dim rs As New ADODB.Recordset Dim stdBrwTime As String stdBr

11、wTime = Format（borrowDTP.Value, ） update borrowinfo set readerNo= readerNO.Text &,readername= readerName.Text & sql = sql &,readertype= readerType.Text &,bookno=bookNO.Text &,bookname= bookName.Text &,bookoriginalname= bookOriginalName.Text &,booktypename= bookTypename.Text &,bookauthor= bookauthor.

12、Text &,bookpress=bookpress.Text &,borrowDate= Format（borrowDTP.Value, &,returnDate= Format（returnDTP.Value, ） &,borrowOther= borrowOther.Text & where bookno = TransactSQL （sql） 借书信息修改成功！借书管理窗体代码:Public Function borrowList_update（） Dim i As Integer With borrowedListGrid .Rows = 1 .Rows = .Rows + 1 .T

13、extMatrix（.Rows - 1, 0） = rs（0） .TextMatrix（.Rows - 1, 1） = rs（1） .TextMatrix（.Rows - 1, 2） = rs（2） .TextMatrix（.Rows - 1, 3） = rs（3） .TextMatrix（.Rows - 1, 4） = rs（4） .TextMatrix（.Rows - 1, 5） = rs（5） .TextMatrix（.Rows - 1, 6） = rs（6） .TextMatrix（.Rows - 1, 7） = rs（7） .TextMatrix（.Rows - 1, 8） = rs

14、（8） .TextMatrix（.Rows - 1, 9） = rs（9） .TextMatrix（.Rows - 1, 10） = rs（10） .TextMatrix（.Rows - 1, 11） = rs（11） End With Private Sub addBrwInfo_Click（） borrowInfoAdd.Show Private Sub borrowedListGrid_Click（） Dim i As Integer 首先获得选定的行号 i = borrowedListGrid.Row 将选定行的内容在文本框中显示 curSelBkNo.Text = borrowedL

15、istGrid.TextMatrix（i, 3） Private Sub brwQuery_Click（） borrowQuery.Show Private Sub delBrwInfo_Click（） Dim resMsg As String select bookno from borrowInfo where bookno = curSelBkNo.Text &sql2 = delete from borrowInfo where bookno = If Trim（curSelBkNo.Text） = 请选择或输入要删除的借出信息的图书编号！, vbOKOnly Else Set rs

16、= TransactSQL（sql） If rs.EOF = True Then 没有该编号图书的借出信息！ Else resMsg = MsgBox（真的要删除该编号图书的借出信息吗？, vbOKCancel, 警告） If resMsg = vbOK Then TransactSQL （sql2） 该编号图书的借出信息已经删除！, vbOKOnly Call borrowList_update End If End If Private Sub Form_Activate（） Call borrowList_update Private Sub modifyBrwInfo_Click（）

17、select bookno from borrowInfo where bookno =curSelBkNo.Text & If Trim（curSelBkNo.Text） = 请输入或在列表中选定要修改的借书信息（所借书编号）！, vbOKOnly Else Set rs = TransactSQL（sql） ModifyBrwFlag1 = curSelBkNo.Text ModifyBrwFlag2 = True End Sub Private Sub exit_Click（） Private Sub Form_Load（） MSFlexGrid1 表头 .TextMatrix（0, 0

18、） = 读者编号 .TextMatrix（0, 1） = 读者姓名 .TextMatrix（0, 2） = 读者类别 .TextMatrix（0, 3） = 书籍编号 .TextMatrix（0, 4） = 书籍名称 .TextMatrix（0, 5） = 书籍原名 .TextMatrix（0, 6） = 书籍类别 .TextMatrix（0, 7） = 书籍作者 .TextMatrix（0, 8） = 出版社 .TextMatrix（0, 9） = 借出日期 .TextMatrix（0, 10） = 应还日期 .TextMatrix（0, 11） = 借阅备注 .ColWidth（4） =

19、1500 .ColWidth（5） = 1500 .ColWidth（8） = 1500 .ColWidth（9） = 1200 .ColWidth（10） = 1200 .ColWidth（11） = 2000 .BackColorFixed = RGB（247, 214, 157） 在 中查询相应信息，在MSFlexGrid1中显示 读者信息管理窗体代码:Public Function readerInfo_update（） select * from readers Dim i As Integer Set rs = TransactSQL（sql） With readerInfoGrid End Function Private Sub exit_Click（） Call readerInfo_update Private Sub Form_Load（） With readerInfoGrid .TextMatrix（0, 0） = 读者性别 .TextMatrix（0, 4） = 身份证号工作单位E-mail联系电话办证日期有效期至备注 .ColWidth（5） = 1800 .ColWidth（6） = 1500 .ColWidth（10）