图书借阅 代码文档格式.docx
《图书借阅 代码文档格式.docx》由会员分享，可在线阅读，更多相关《图书借阅 代码文档格式.docx（20页珍藏版）》请在冰豆网上搜索。
创建连接
Setrs=NewADODB.Recordset
OnErrorGoTotransactsql_error
strConnection="
Provider=Microsoft.jet.oledb.4.0;
data
source="
&
App.Path&
"
\libraryMIS.mdb;
"
strConnection=strConnection&
PersistSecurity
Info=False;
JetOLEDB:
DatabasePassword='
txm'
strArray=Split（sql）'
Split（）返回一个下标从零开始的一维数组
cont.OpenstrConnection'
打开连接
IfStrComp（UCase$（strArray（0））,"
select"
vbTextCompare）=0
Then
rs.OpenTrim$（sql）,cont,adOpenKeyset,adLockOptimistic
SetTransactSQL=rs
iflag=1
Else
cont.Executesql
EndIf
transactsql_exit:
Setrs=Nothing
Setcont=Nothing
ExitFunction
transactsql_error:
MsgBox"
查询错误：
Err.Description
iflag=2
Resumetransactsql_exit
EndFunction
PublicSubtabtoenter（KeyAsInteger）
IfKey=13Then
SendKeys"
{TAB}"
EndSub
修改借书信息窗体代码:
PrivateSubaddBrwOK_Click（）
DimrsAsNewADODB.RecordsetDimsqlAsString
sql="
select*fromborrowInfo"
Dimsql2AsString
sql2="
select*fromborrowInfowherebookNO='
bookNO.Text&
IfTrim（readerNO.Text）="
OrTrim（readerName.Text）="
Or
Trim（readerType.Text）="
Or_
Trim（bookNO.Text）="
OrTrim（bookName.Text）="
Trim（bookOriginalName.Text）="
Trim（bookTypename.Text）="
OrTrim（bookauthor.Text）="
Trim（bookpress.Text）="
Trim（borrowDTP.Value）="
OrTrim（returnDTP.Value）="
Trim（borrowOther.Text）="
ThenMsgBox"
借书信息录入不能为空！
vbOKOnlyElse
Setrs=TransactSQL（sql2）
Ifrs.EOF=FalseThen
所给编号图书已经借出，请核对！
！
vbOKOnly,"
提示"
rs.CloseElseSetrs=TransactSQL（sql）
rs.AddNew'
添加新纪录
rs.Fields（0）=Trim（readerNO.Text）
rs.Fields
（1）=Trim（readerName.Text）
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.Value,"
yyyy-mm-dd"
））
rs.Fields（10）=Trim（Format（returnDTP.Value,"
rs.Fields（11）=Trim（borrowOther.Text）
rs.UpdateMsgBox"
借书信息添加成功！
vbOKOnly
rs.Close
PrivateSubcancel_Click（）
UnloadMe
PrivateSubForm_Load（）'
初始化读者，图书类别
readerType.AddItem"
教职工"
0
中专部"
1
本科部"
2
研究生"
3
校外"
4
DimrsAsNewADODB.RecordsetDimsqlTypeAsString
sqlType="
selecttypenamefrombooktypeorderbytypename"
Setrs=TransactSQL（sqlType）
WhileNotrs.EOF
bookTypename.AddItemrs（0）
rs.MoveNext
Wend
IfModifyBrwFlag2=TrueThen'
DimrsAsNewADODB.Recordset
DimsqlAsString
ModifyBrwFlag1&
Setrs=TransactSQL（sql）
readerNO.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）
borrowDTP.Value=rs.Fields（9）
returnDTP.Value=rs.Fields（10）
borrowOther.Text=rs.Fields（11）
ModifyBrwFlag2=ModifyBrwFlag2XorTrueaddBrwOK.Enabled=False
ElsemodifyBrwOK.Enabled=False
EndIf
EndSub
PrivateSubmodifyBrwOK_Click（）
DimrsAsNewADODB.Recordset
DimstdBrwTimeAsString
stdBrwTime=Format（borrowDTP.Value,"
）
updateborrowinfosetreaderNo='
readerNO.Text&
readername='
readerName.Text&
sql=sql&
readertype='
readerType.Text&
bookno='
bookNO.Text&
bookname='
bookName.Text&
bookoriginalname='
bookOriginalName.Text&
booktypename='
bookTypename.Text&
bookauthor='
bookauthor.Text&
bookpress='
bookpress.Text&
borrowDate='
Format（borrowDTP.Value,"
&
returnDate='
Format（returnDTP.Value,"
）&
borrowOther='
borrowOther.Text&
wherebookno='
TransactSQL（sql）
借书信息修改成功！
借书管理窗体代码:
PublicFunctionborrowList_update（）
DimiAsInteger
WithborrowedListGrid
.Rows=1
.Rows=.Rows+1
.TextMatrix（.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（8）
.TextMatrix（.Rows-1,9）=rs（9）
.TextMatrix（.Rows-1,10）=rs（10）
.TextMatrix（.Rows-1,11）=rs（11）
EndWith
PrivateSubaddBrwInfo_Click（）
borrowInfoAdd.Show
PrivateSubborrowedListGrid_Click（）
DimiAsInteger'
首先获得选定的行号
i=borrowedListGrid.Row'
将选定行的内容在文本框中显示
curSelBkNo.Text=borrowedListGrid.TextMatrix（i,3）
PrivateSubbrwQuery_Click（）
borrowQuery.Show
PrivateSubdelBrwInfo_Click（）
DimresMsgAsString
selectbooknofromborrowInfowherebookno='
curSelBkNo.Text&
sql2="
deletefromborrowInfowherebookno='
IfTrim（curSelBkNo.Text）="
请选择或输入要删除的借出信息的图书编号！
vbOKOnlyElseSetrs=TransactSQL（sql）
Ifrs.EOF=TrueThen
没有该编号图书的借出信息！
ElseresMsg=MsgBox（"
真的要删除该编号图书的借出信息吗？
vbOKCancel,"
警告"
）IfresMsg=vbOKThenTransactSQL（sql2）
该编号图书的借出信息已经删除！
vbOKOnlyCallborrowList_updateEndIf
EndIf
PrivateSubForm_Activate（）
CallborrowList_update
PrivateSubmodifyBrwInfo_Click（）
selectbooknofromborrowInfowherebookno='
curSelBkNo.Text&
IfTrim（curSelBkNo.Text）="
请输入或在列表中选定要修改的借书信息（所借书编号）！
vbOKOnlyElseSetrs=TransactSQL（sql）
ModifyBrwFlag1=curSelBkNo.Text
ModifyBrwFlag2=True
EndSub
PrivateSubexit_Click（）
PrivateSubForm_Load（）
MSFlexGrid1表头
.TextMatrix（0,0）="
读者编号"
.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）=1500
.ColWidth（5）=1500
.ColWidth（8）=1500
.ColWidth（9）=1200
.ColWidth（10）=1200
.ColWidth（11）=2000
.BackColorFixed=RGB（247,214,157）
在中查询相应信息，在MSFlexGrid1中显示
读者信息管理窗体代码:
PublicFunctionreaderInfo_update（）
select*fromreaders"
DimiAsIntegerSetrs=TransactSQL（sql）
WithreaderInfoGrid
EndFunctionPrivateSubexit_Click（）
CallreaderInfo_update
PrivateSubForm_Load（）WithreaderInfoGrid.TextMatrix（0,0）="
读者性别"
.TextMatrix（0,4）="
身份证号"
工作单位"
E-mail"
联系电话"
办证日期"
有效期至"
备注"
.ColWidth（5）=1800
.ColWidth（6）=1500
.ColWidth（10）
升级会员 