欧美精品一二区,性欧美一级,国产免费一区成人漫画,草久久久久,欧美性猛交ⅹxxx乱大交免费,欧美精品另类,香蕉视频免费播放

《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告

上傳人:仙*** 文檔編號:28575100 上傳時間:2021-08-31 格式:DOC 頁數(shù):8 大?。?8.50KB
收藏 版權(quán)申訴 舉報 下載
《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告_第1頁
第1頁 / 共8頁
《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告_第2頁
第2頁 / 共8頁
《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告_第3頁
第3頁 / 共8頁

下載文檔到電腦,查找使用更方便

15 積分

下載資源

還剩頁未讀,繼續(xù)閱讀

資源描述:

《《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告》由會員分享,可在線閱讀,更多相關(guān)《《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告(8頁珍藏版)》請在裝配圖網(wǎng)上搜索。

1、《圖書管理系統(tǒng)》系統(tǒng)設(shè)計報告 一、 引言 1. 摘要:中學(xué)圖書館管理系統(tǒng) 目的:方便圖書館對書籍借閱的管理 主要功能: —學(xué)生基本信息查詢 —書籍借閱管理 —書籍管理 2. 背景:第十小組承擔(dān)開發(fā)任務(wù) 3. 工作條件與限制:windows操作平臺,Visual Basic6.0和SQL Sserver2000等軟件為開發(fā)工具,利用上課時間和課外時間做成。由于現(xiàn)在圖書管理系統(tǒng)已經(jīng)比叫完善,所以我們暫時沒有能做出比以前有先進技術(shù)的管理系統(tǒng)。 4. 參考和引用資料:《數(shù)據(jù)庫系統(tǒng)概論》,VB應(yīng)用 5. 專門術(shù)語定義: 二、系統(tǒng)總體技術(shù)方案 1. 計算機

2、系統(tǒng)配置:windows平臺,VB/SqlServer2000,WINNT SERVER操作系統(tǒng), SQL server2000關(guān)系數(shù)據(jù)庫管理系統(tǒng) ,VB操作軟件,局域網(wǎng)。 2. 模塊設(shè)計:主要分為三個模塊:即學(xué)生基本信息模塊,書籍借閱模塊,書籍管理模塊 代碼設(shè)計:讀者信息查詢 Public connStr As ADODB.Connection Private Sub Command1_Click() End Sub Private Sub cmdAdd_Click() If Trim(List1.Text) <> "" Then List2.AddI

3、tem (List1.Text) End If End Sub Private Sub cmdMove_Click() If Trim(List2.Text) <> "" Then List2.RemoveItem (List2.ListIndex) End If End Sub Private Sub cmdSearch_Click() Dim cmdstr As String If List2.ListCount = 0 Then MsgBox "請選擇輸出列!", vbOKOnly, "提示" Exit Sub End If

4、 cmdstr = "select " For i = 0 To List2.ListCount - 1 If Trim(List2.List(i)) = "圖書證號" Then cmdstr = cmdstr + "READER_DATA." + Trim(List2.List(i)) + "," Else If Trim(List2.List(i)) = "書號" Then cmdstr = cmdstr + "MARC_DATA." + Trim(List2.List(i)) + "," Else cmdstr = cmdstr + Trim(List2.

5、List(i)) + "," End If End If Next cmdstr = Left(cmdstr, Len(cmdstr) - 1) If Opbook.Value = True Then cmdstr = cmdstr + " from MARC_DATA where " End If If Opreader.Value = True Then cmdstr = cmdstr + " from READER_DATA where " End If If Oplend.Value = True Then cmdstr = cmdstr

6、 + " from MARC_DATA,READER_DATA,LEND_DATA " & " where MARC_DATA.書號=LEND_DATA. 書號 and " & " READER_DATA.圖書證號=LEND_DATA.圖書證號 and " End If If Trim(comKey.Text) = "" Then MsgBox "請選擇查詢關(guān)鍵字!", vbOKOnly, "提示" Exit Sub End If If Trim(txtKey.Text) = "" Then MsgBox "請設(shè)置查詢關(guān)鍵字的值!", vbOKOnly, "提示"

7、 Exit Sub End If If ComType.Text = "精確匹配" Then cmdstr = cmdstr + Trim(comKey.Text) + "=" + Trim(txtKey.Text) + "" Else cmdstr = cmdstr + Trim(comKey.Text) + " like " + Trim(txtKey.Text) + "%" End If Adodc1.RecordSource = cmdstr Adodc1.Refresh DataGrid1.Refresh End Sub Privat

8、e Sub Form_Load() Set connStr = New ADODB.Connection connStr.Open "driver={SQL Server}; Server=SYSLAB000;UID=jj138;PWD=;database=計教(1)班38號" Adodc1.ConnectionString = connStr ComType.AddItem ("精確匹配") ComType.AddItem ("前方一致匹配") End Sub Private Sub Label3_Click() End Sub Priva

9、te Sub List2_Click() End Sub Private Sub Opbook_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "MARC_DATA", connStr, adOpenKeyset, adLockReadOnly, adCmdTable comKey.Clear List1.Clear For i = 0 To rs.Fields.Count - 1 comKey.AddItem (rs.Fields(i).Name)

10、 List1.AddItem (rs.Fields(i).Name) Next rs.Close List2.Clear txtKey.Text = "" End Sub Private Sub Oplend_Click() comKey.Clear List1.Clear comKey.AddItem ("圖書證號") comKey.AddItem ("姓名") comKey.AddItem ("書號") comKey.AddItem ("書名") comKey.AddItem ("出版社") comKey.AddItem ("借出

11、日期") comKey.AddItem ("還書日期") List1.AddItem ("圖書證號") List1.AddItem ("姓名") List1.AddItem ("書號") List1.AddItem ("書名") List1.AddItem ("出版社") List1.AddItem ("借出日期") List1.AddItem ("還書日期") List2.Clear txtKey.Text = "" End Sub Private Sub Opreader_Click() Dim rs As ADODB.Records

12、et Set rs = New ADODB.Recordset rs.Open "READER_DATA", connStr, adOpenKeyset, adLockReadOnly, adCmdTable comKey.Clear List1.Clear For i = 0 To rs.Fields.Count - 1 comKey.AddItem (rs.Fields(i).Name) List1.AddItem (rs.Fields(i).Name) Next rs.Close List2.Clear txtKey.Text = "" E

13、nd Sub 借還書處理 Private Sub cmdLend_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset If Trim(txtBid.Text) = "" Or Trim(txtRid_1.Text) = "" Then MsgBox "請輸入圖書證號和書號!", vbOKOnly, "提示信息" Else rs.Open "LEND_DATA", connStr, adOpenKeyset, adLockOptimistic, adCmdTable rs.A

14、ddNew rs("書號") = txtBid.Text rs("借出日期") = Date rs("圖書證號") = txtRid.Text rs.Update Adodc1.Refresh End If End Sub Private Sub cmdReturn_Click() Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset If Trim(txtBid.Text) = "" Or Trim(txtRid_1.Text) = "" Then MsgBox "請輸入圖書證號和書號

15、!", vbOKOnly, "提示信息" Else cmdstr = "update LEND_DATA set 還書日期=" _ & Date & " where 書號=" & Trim(txtBid.Text) & "" rs.Open cmdstr, connStr, adOpenKeyset, adLockOptimistic, adCmdText Adodc1.Refresh End If End Sub Private Sub cmds_Click() Dim rs As ADODB.Recordset Set rs = New ADOD

16、B.Recordset cmdstr = "select * from READER_DATA WHERE 圖書證號 =" & Trim(txtRid_1.Text) & "" rs.Open cmdstr, connStr, adOpenForwardOnly, adLockReadOnly, adCmdText If Not rs.EOF Then txtRid.Text = rs("圖書證號") txtName.Text = rs("姓名") If Not IsNull(rs("性別")) Then txtXb.Text = rs("性別") End If

17、 If Not IsNull(rs("系名")) Then txtXm.Text = rs("系名") End If Else MsgBox "未找到該讀者信息!", vbOKOnly, "提示信息" End If cmdstr = "select 借出日期,還書日期,LEND_DATA.書號,書名,作者,出版社" & " from LEND_DATA,MARC_DATA " & "where LEND_DATA.書號=MARC_DATA.書號 and " & " 還書日期 is null and 圖書證號=" & Trim(txtRid_1.Text) & ""

18、 Adodc1.RecordSource = cmdstr Adodc1.Refresh End Sub Private Sub cmdSearch_Click() cmdstr = "select 借出日期,還書日期,LEND_DATA.書號,書名,作者,出版社" & "from LEND_DATA,MARC_DATA " & "where LEND_DATA.書號=MARC_DATA.書號 and 圖書證號=" & Trim(txtRid_1.Text) & "" Adodc1.RecordSource = cmdstr Adodc1.Refresh

19、End Sub Private Sub DataGrid1_Click() If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.BOF Then txtBid.Text = Adodc1.Recordset("書號") End If End Sub Private Sub Form_Load() Set connStr = New ADODB.Connection connStr.Open "driver={SQL Server}; Server=SYSLAB000;UID=jj138;PWD=;da

20、tabase=計教(1)班38號" Adodc1.ConnectionString = connStr End Sub 圖書館詳細(xì)信息 Private Sub txt_refresh() If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then txtBid.Text = Adodc1.Recordset("書號") txtBname.Text = Adodc1.Recordset("書名") txtWrite.Text = Adodc1.Recordset("作者") txtPubl

21、isher.Text = Adodc1.Recordset("出版社") txtYear.Text = Adodc1.Recordset("出版時間") txtGb.Text = Adodc1.Recordset("國別代碼") txtDate.Text = Adodc1.Recordset("進館時間") txtCallno.Text = Adodc1.Recordset("分類號") End If End Sub Private Sub cmdDele_Click() Dim deletxt As String deletxt = "是否刪除圖書

22、《" & Adodc1.Recordset("書名") & "》的記錄?" If Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF Then If MsgBox(deletxt, vbOKCancel, "提示信息") = vbOK Then Adodc1.Recordset.Delete Adodc1.Refresh End If End If End Sub Private Sub cmdNew_Click() If cmdNew.Caption = "新增" Then txt_ena

23、ble (2) cmdNew.Caption = "保存" txtBid.Text = "" txtBname.Text = "" txtWrite.Text = "" txtPublisher.Text = "" txtYear.Text = "" txtGb.Text = "" txtDate.Text = "" txtCallno.Text = "" Else Adodc1.Recordset.AddNew Adodc1.Recordset("書號") = Trim(txtBid.Text) Adodc1.Recordset("書名")

24、 = Trim(txtBname.Text) Adodc1.Recordset("作者") = Trim(txtWrite.Text) Adodc1.Recordset("出版社") = Trim(txtPublisher.Text) Adodc1.Recordset("出版時間") = Trim(txtYear.Text) Adodc1.Recordset("國別代碼") = Trim(txtGb.Text) 4 Adodc1.Recordset("進館時間") = Trim(txtDate.Text) Adodc1.Recordset("分類號") = Trim

25、(txtCallno.Text) Adodc1.Recordset.UpdateBatch Adodc1.Refresh txt_enable (1) cmdNew.Caption = "新增" Adodc1.Recordset.MoveFirst txt_refresh End If Private Sub cmdNext_Click() If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext txt_refresh End If End Sub Private Su

26、b cmdPre_Click() If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious txt_refresh 2 End If End Sub Private Sub cmdUpdate_Click() If cmdUpdate.Caption = "修改" Then txt_enable (2) cmdUpdate.Caption = "保存" Else Adodc1.Recordset("書號") = Trim(txtBid.Text) Adodc1.Recor

27、dset("書名") = Trim(txtBname.Text) Adodc1.Recordset("作者") = Trim(txtWrite.Text) Adodc1.Recordset("出版社") = Trim(txtPublisher.Text) Adodc1.Recordset("出版時間") = Trim(txtYear.Text) Adodc1.Recordset("國別代碼") = Trim(txtGb.Text) Adodc1.Recordset("進館時間") = Trim(txtDate.Text) Adodc1.Recordset("分類號")

28、= Trim(txtCallno.Text) Adodc1.Recordset.UpdateBatch Adodc1.Refresh txt_enable (1) cmdUpdate.Caption = "修改" End If End Sub Private Sub Form_Load() txt_refresh End Sub Private Sub Text1_Change() End Sub Private Sub Text8_Change() End Sub Private Sub txtBname_Change() End Sub

展開閱讀全文
溫馨提示:
1: 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

相關(guān)資源

更多
正為您匹配相似的精品文檔
關(guān)于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權(quán)所有   聯(lián)系電話:18123376007

備案號:ICP2024067431-1 川公網(wǎng)安備51140202000466號


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務(wù)平臺,本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權(quán)或隱私,請立即通知裝配圖網(wǎng),我們立即給予刪除!