圖書管理系統的系統設計報告
壹.導言
1.摘要:中學圖書館管理系統
目的:方便圖書館對圖書借閱的管理。
主要功能:-查詢學生基本信息。
-圖書借閱管理
-圖書管理
2.背景:X團隊承擔開發任務。
3.工作條件和限制:windows操作平臺，Visual Basic6.0和SQL Sserver2000是開發工具，利用上課時間和課外時間做出來的。因為現在的圖書管理系統比以前更加完善，我們暫時還做不出壹個技術先進的管理系統。
4.參考與引用:數據庫系統介紹，VB應用。
5.技術術語的定義:
二、系統的總體技術方案
1.計算機系統配置:windows平臺，VB/SqlServer2000，WINNT服務器操作系統，SqlServer2000關系數據庫管理系統，VB操作軟件，局域網。
2.模塊設計:主要分為三個模塊:學生基本信息模塊、圖書借閱模塊、圖書管理模塊。
代碼設計:讀者信息查詢
作為ADODB的公共連接。關系
私有子命令1_Click()
末端接頭
Private Sub cmdAdd_Click()
If Trim(List1。正文)& lt& gt”“那麽
列表2。AddItem (List1。正文)
如果…就會結束
末端接頭
Private Sub cmdMove_Click()
If Trim(列表2。正文)& lt& gt”“那麽
列表2。RemoveItem (List2。列表索引)
如果…就會結束
末端接頭
Private Sub cmdSearch_Click()
Dim cmdstr作為字符串
如果列表2。那麽ListCount = 0
MsgBox "請選擇壹個輸出列！"，vbOKOnly，“提示”
出口接頭
如果…就會結束
cmdstr = "select "
對於i = 0到List2。列表計數- 1
If Trim(列表2。List(i)) =“圖書證號”然後。
cmdstr = cmdstr + "READER_DATA。"+ Trim(列表2。列表(i)) +"，"
其他
If Trim(列表2。List(i)) =“書號”那麽。
cmdstr = cmdstr + "MARC_DATA。"+ Trim(列表2。列表(i)) +"，"
其他
cmdstr = cmdstr + Trim(List2。列表(i)) +"，"
如果…就會結束
如果…就會結束
然後
cmdstr = Left(cmdstr，Len(cmdstr) - 1)
如果Opbook。那麽值=真
cmdstr = cmdstr+" from MARC _ DATA where "
如果…就會結束
如果Opreader。那麽值=真
cmdstr = cmdstr + " from READER_DATA其中"
如果…就會結束
如果Oplend。那麽值=真
cmdstr = cmdstr + " from MARC_DATA，READER_DATA，LEND _ DATA " & amp“MARC_DATA在哪裏。ISBN =LEND_DATA。ISBN和“&；“讀者_數據。庫號=LEND_DATA。圖書館編號和"
如果…就會結束
If Trim(comKey。Text) = " "那麽
MsgBox "請選擇壹個查詢關鍵字！"，vbOKOnly，“提示”
出口接頭
如果…就會結束
If Trim(txtKey。Text) = " "那麽
MsgBox "請設置查詢關鍵字的值！"，vbOKOnly，“提示”
出口接頭
如果…就會結束
如果ComType。Text = "完全匹配"
cmdstr = cmdstr + Trim(comKey。Text) + "='" + Trim(txtKey。文本)+" ' "
其他
cmdstr = cmdstr + Trim(comKey。Text) + " like '" + Trim(txtKey。文本)+“%”
如果…就會結束
Adodc1。RecordSource = cmdstr
Adodc1。恢復精神
DataGrid1恢復精神
末端接頭
私有子窗體_Load()
設置connStr = New ADODB。關系
康恩斯特。打開“driver = { SQL Server }；Server = SYSLAB000UID = jj 138；PWD =；數據庫= 38號，吉焦(1)班”
Adodc1。ConnectionString = connStr
ComType。AddItem("精確匹配")
ComType。AddItem("前面壹致匹配")
末端接頭
私有子標簽3_Click()
末端接頭
私有子列表2_Click()
末端接頭
私有子Opbook_Click()
Dim rs為ADODB。記錄集
Set rs = New ADODB。記錄集
rs。打開“MARC_DATA”，connStr，adOpenKeyset，adLockReadOnly，adCmdTable
comKey。清楚的
List1。清楚的
對於i = 0至rs。字段。計數- 1
comKey。AddItem (rs。字段(壹)。姓名)
List1。AddItem (rs。字段(壹)。姓名)
然後
rs。關閉
列表2。清楚的
txtKey。文本= " "
末端接頭
私有Sub Oplend_Click()
comKey。清楚的
List1。清楚的
ComKey。AddItem("圖書證號碼")
ComKey。AddItem("名稱")
ComKey。AddItem(“書號”)
ComKey。AddItem(“標題”)
ComKey。AddItem(“出版社”)
ComKey。AddItem(“借出日期”)
ComKey。AddItem("返回日期")
List1。AddItem("圖書證號碼")
List1。AddItem("名稱")
List1。AddItem(“書號”)
List1。AddItem(“標題”)
List1。AddItem(“出版社”)
List1。AddItem(“借出日期”)
List1。AddItem("返回日期")
列表2。清楚的
txtKey。文本= " "
末端接頭
私有子操作閱讀器_Click()
Dim rs為ADODB。記錄集
Set rs = New ADODB。記錄集
rs。打開“READER_DATA”，connStr，adOpenKeyset，adLockReadOnly，adCmdTable
comKey。清楚的
List1。清楚的
對於i = 0至rs。字段。計數- 1
comKey。AddItem (rs。字段(壹)。姓名)
List1。AddItem (rs。字段(壹)。姓名)
然後
rs。關閉
列表2。清楚的
txtKey。文本= " "
末端接頭
借書還書
Private Sub cmdLend_Click()
Dim rs為ADODB。記錄集
Set rs = New ADODB。記錄集
If Trim(txtBid。Text) = " "或Trim(txtRid_1。Text) = " "那麽
MsgBox“請輸入圖書卡號和書號！”，vbOKOnly，“提示信息”
其他
rs。打開“LEND_DATA”，connStr，adOpenKeyset，adLockOptimistic，adCmdTable
rs。添加新內容
Rs(“書號”)= txtBid。文本
Rs("貸款日期")=日期
Rs("庫號")= txtRid。文本
rs。更新
Adodc1。恢復精神
如果…就會結束
末端接頭
私有Sub cmdReturn_Click()
Dim rs為ADODB。記錄集
Set rs = New ADODB。記錄集
If Trim(txtBid。Text) = " "或Trim(txtRid_1。Text) = " "那麽
MsgBox“請輸入圖書卡號和書號！”，vbOKOnly，“提示信息”
其他
cmdstr = " update LEND _ DATA set return date = ' " _
& amp日期和時間。“‘其中ISBN =’”&；Trim(txtBid。正文)& amp"'"
rs。Open cmdstr，connStr，adOpenKeyset，adLockOptimistic，adCmdText
Adodc1。恢復精神
如果…就會結束
末端接頭
私有子命令_Click()
Dim rs為ADODB。記錄集
Set rs = New ADODB。記錄集
cmdstr = " select * from reader _ data where library number = ' " &；Trim(txtRid_1。正文)& amp"
rs。打開cmdstr，connStr，adOpenForwardOnly，adLockReadOnly，adCmdText
如果不是rs。那麽EOF
TxtRid。Text = rs("圖書證號碼")
TxtName。Text = rs("名稱")
如果不是IsNull(rs ("gender "))，則
TxtXb。Text = rs("性別")
如果…就會結束
如果不是IsNull(rs("部門名稱"))，則
TxtXm。Text = rs("部門名稱")
如果…就會結束
其他
MsgBox "找不到讀者信息！"，vbOKOnly，“提示信息”
如果…就會結束
Cmdstr = "select借出日期，還書日期，LEND_DATA。書號、書名、作者、出版社”&；從借閱數據，機讀數據。“哪裏借出_數據。ISBN =MARC_DATA。ISBN和“&；"歸還日期為空，圖書證號= ' " &；Trim(txtRid_1。正文)& amp"
Adodc1。RecordSource = cmdstr
Adodc1。恢復精神
末端接頭
Private Sub cmdSearch_Click()
Cmdstr = "select借出日期，還書日期，LEND_DATA。書號、書名、作者、出版社”&；從借閱數據，機讀數據。“哪裏借出_數據。ISBN =MARC_DATA。ISBN和ISBN = ' " &；Trim(txtRid_1。正文)& amp"
Adodc1。RecordSource = cmdstr
Adodc1。恢復精神
末端接頭
私有子DataGrid1_Click()
如果不是Adodc1。而不是Adodc1。記錄集. BOF然後
txt bid . text = adodc 1 . recordset("圖書編號")
如果…就會結束
末端接頭
私有子窗體_Load()
設置connStr = New ADODB。關系
康恩斯特。打開“driver = { SQL Server }；Server = SYSLAB000UID = jj 138；PWD =；數據庫= 38號，吉焦(1)班”
Adodc1。ConnectionString = connStr
末端接頭
庫詳細信息
私有Sub txt_refresh()
如果不是Adodc1。而不是Adodc1。記錄集. BOF然後
txt bid . text = adodc 1 . recordset("圖書編號")
txt bname . text = adodc 1 . recordset(" title ")
txt write . text = adodc 1 . recordset(" author ")
txtpublisher . text = adodc 1 . recordset("出版社")
txt year . text = adodc 1 . recordset("發布時間")
txt GB . text = adodc 1 . recordset("國家代碼")
txt date . text = adodc 1 . recordset("庫進入時間")
txt call no . text = adodc 1 . recordset("分類號")
如果…就會結束
末端接頭
Private Sub cmdDele _ Click()
Dim deletxt作為字符串
Deletxt = "您要刪除這本書嗎" &；Adodc1。記錄集(" title ")&；“的記錄”？"
如果不是Adodc1。而不是Adodc1。記錄集. BOF然後
如果MsgBox(deletxt，vbOKCancel，“提示信息”)= vbOK那麽。
Adodc1。記錄集.刪除
Adodc1。恢復精神
如果…就會結束
如果…就會結束
末端接頭
Private Sub cmdNew_Click()
如果cmdNew。Caption = "add "然後
txt_enable (2)
CmdNew。Caption = "保存"
txtBid。文本= " "
txtBname。文本= " "
txtWrite。文本= " "
txtPublisher。文本= " "
txtYear。文本= " "
txtGb。文本= " "
txtDate。文本= " "
txtCallno。文本= " "
其他
Adodc1。Recordset.AddNew
Adodc1。記錄集("書號")= Trim(txtBid。正文)。
Adodc1。記錄集(" title") = Trim(txtBname。正文)。
Adodc1。記錄集(" author") = Trim(txtWrite。正文)。
Adodc1。記錄集("出版社")= Trim(txtPublisher。正文)。
Adodc1。記錄集("發布時間")= Trim(txtYear。正文)。
Adodc1。記錄集("國家代碼")= Trim(txtGb。正文)。
四
Adodc1。recordset(" entry time ")= Trim(txt date。正文)。
Adodc1。記錄集("分類號")= Trim(txtCallno。正文)。
Adodc1。記錄集. UpdateBatch
Adodc1。恢復精神
txt_enable (1)
CmdNew。Caption = "添加"
Adodc1。Recordset.MoveFirst
txt _刷新
如果…就會結束
Private Sub cmdNext_Click()
如果不是Adodc1。Recordset.EOF然後
Adodc1。Recordset.MoveNext
txt _刷新
如果…就會結束
末端接頭
私有Sub cmdPre_Click()
如果不是Adodc1。記錄集. BOF然後
Adodc1。Recordset.MovePrevious
txt _刷新2
如果…就會結束
末端接頭
Private Sub cmdUpdate_Click()
如果cmdUpdate。Caption = "修改"然後
txt_enable (2)
CmdUpdate。Caption = "保存"
其他
Adodc1。記錄集("書號")= Trim(txtBid。正文)。
Adodc1。記錄集(" title") = Trim(txtBname。正文)。
Adodc1。記錄集(" author") = Trim(txtWrite。正文)。
Adodc1。記錄集("出版社")= Trim(txtPublisher。正文)。
Adodc1。記錄集("發布時間")= Trim(txtYear。正文)。
Adodc1。記錄集("國家代碼")= Trim(txtGb。正文)。
Adodc1。recordset(" entry time ")= Trim(txt date。正文)。
Adodc1。記錄集("分類號")= Trim(txtCallno。正文)。
Adodc1。記錄集. UpdateBatch
Adodc1。恢復精神
txt_enable (1)
CmdUpdate。Caption = "修改"
如果…就會結束
末端接頭
私有子窗體_Load()
txt _刷新
末端接頭
私有子文本1_Change()
末端接頭
私有子文本8_Change()
末端接頭
私有Sub txtBname_Change()
末端接頭