![](https://static.zsdocx.com/FlexPaper/FileRoot/2019-6/7/12/6c6d5559-10de-41f1-8cc0-d26afbe45ffd/6c6d5559-10de-41f1-8cc0-d26afbe45ffdpic.jpg)
![畢業(yè)設(shè)計(jì)(論文)-學(xué)生信息管理系統(tǒng)設(shè)計(jì)_第1頁(yè)](https://static.zsdocx.com/FlexPaper/FileRoot/2019-6/7/12/6c6d5559-10de-41f1-8cc0-d26afbe45ffd/6c6d5559-10de-41f1-8cc0-d26afbe45ffd1.gif)
版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、<p> 題目:學(xué)生信息管理系統(tǒng)</p><p><b> 任務(wù)與要求:</b></p><p> 畢業(yè)設(shè)計(jì)(論文)應(yīng)把培養(yǎng)人放在首位,它的基本任務(wù)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)的基本理論、基本知識(shí)和基本技能,分析解決實(shí)際問(wèn)題的能力,幫助學(xué)生建立正確的設(shè)計(jì)思想和嚴(yán)謹(jǐn)?shù)目茖W(xué)作風(fēng),進(jìn)一步提高寫作水平和使用計(jì)算機(jī)的能力。通過(guò)畢業(yè)設(shè)計(jì)(論文)使學(xué)生受到專業(yè)技術(shù)人才所必
2、須的綜合訓(xùn)練和獨(dú)立工作能力的培養(yǎng)。</p><p> 時(shí)間: 年月日 至 年 月 日 共 周</p><p> 學(xué)生姓名: 學(xué) 號(hào):</p><p><b> 專業(yè): </b></p><p> 指導(dǎo)教師:
3、 </p><p> 年月日畢業(yè)設(shè)計(jì)(論文)進(jìn)度計(jì)劃表</p><p><b> 目錄</b></p><p> 摘要 4</p><p> 摘要:系統(tǒng)概述
4、 3</p><p> 系統(tǒng)分析與設(shè)計(jì) 4</p><p><b> 應(yīng)用背景</b></p><p> 數(shù)據(jù)庫(kù)需求分析
5、 5</p><p> ?。?)圖書(shū)信息(數(shù)據(jù)項(xiàng)):</p><p> (2)讀者類別(數(shù)據(jù)項(xiàng)):</p><p> ?。?)讀者信息(數(shù)據(jù)項(xiàng)):</p><p> (4)借閱信息(數(shù)據(jù)項(xiàng)):</p><p> (
6、5)圖書(shū)類別(數(shù)據(jù)項(xiàng)):</p><p> (6)用戶表(數(shù)據(jù)項(xiàng)):</p><p> 完成的功能上主要有: 5</p><p><b> 系統(tǒng)功能分析</b></p><p> 數(shù)據(jù)流程圖:
7、 6</p><p> 數(shù)據(jù)字典 6</p><p> 數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)項(xiàng)字典
8、 7</p><p><b> 數(shù)據(jù)流字典</b></p><p><b> 借書(shū)系統(tǒng):</b></p><p><b> 界面及程序代碼</b></p><p><b> 主界面</b></p><p>
9、登陸界面:frmLoad 8</p><p> 查詢圖書(shū)信息界面:frmMain 9</p><p> 添加圖書(shū)
10、 13</p><p> 刪除圖書(shū) 14</p><p> 圖書(shū)信息管理,添加刪除 15</p>&
11、lt;p> 讀者信息添加 19</p><p> 讀者信息查詢 22</p><p> 添加借書(shū)信息
12、 24</p><p> 社定用戶 27</p><p> 更改密碼
13、 28</p><p> 報(bào)表界面 30</p><p> 結(jié)論 34</p><p><b> 感想 </b></p><p> 參考文獻(xiàn) 34 </p>
14、<p><b> 摘要:系統(tǒng)概述</b></p><p> 圖書(shū)館管理系統(tǒng)是一些單位不可缺少的部分,書(shū)籍是人類不可缺少的精神食糧,尤其對(duì)一些學(xué)校來(lái)說(shuō),尤其重要。所以圖書(shū)館管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以?lái)人們使用傳統(tǒng)人工的方式管理圖書(shū)、期刊、試卷合訂本等,這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于
15、查找、更新和維護(hù)都帶來(lái)了不少的困難。</p><p> 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)圖書(shū)資源信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高圖書(shū)館管理的效率,也是企業(yè)、學(xué)校的科學(xué)化、正規(guī)
16、化管理,與世界接軌的重要條件。</p><p> 因此,開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開(kāi)發(fā)一套圖書(shū)館管理系統(tǒng)為例,談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。</p><p> 圖書(shū)館管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng).數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后
17、者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p> 經(jīng)過(guò)分析如此情況,我們使用微軟公司的VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。</p><p><b> 系統(tǒng)分析與設(shè)計(jì)<
18、;/b></p><p><b> 應(yīng)用背景</b></p><p> 圖書(shū)館是高等院校的重要組成部門,是教師和學(xué)生獲取知識(shí)的重要場(chǎng)所。由于圖書(shū)館主要從事大量的圖書(shū)資料的儲(chǔ)存和流通。所以一直以來(lái),計(jì)算機(jī)在圖書(shū)館的圖書(shū)管理中得到了廣泛的應(yīng)用。</p><p> 目前,本單位教師較多,借科技書(shū)籍情況日益增長(zhǎng)。本系統(tǒng)就是要達(dá)到對(duì)教師人員借
19、科技書(shū)籍的日常管理,能快速完成,并對(duì)信息進(jìn)行數(shù)據(jù)庫(kù)管理的目的。為了適應(yīng)本系小型圖書(shū)館業(yè)務(wù)發(fā)展的需要,解決問(wèn)題。經(jīng)過(guò)考察比較,決定利用自己的力量對(duì)本單位的小型圖書(shū)管理系統(tǒng)進(jìn)行重新改造。使新系統(tǒng)不僅能利用當(dāng)前的軟件開(kāi)發(fā)技術(shù)和校園網(wǎng)建設(shè)成果,方便讀者查詢、借閱操作,解決流通中存在的問(wèn)題。而且,能結(jié)合本單位資金投入有限、圖書(shū)需求量大等特點(diǎn),對(duì)圖書(shū)管理中各業(yè)務(wù)環(huán)節(jié)的加強(qiáng)管理。所以系統(tǒng)在實(shí)現(xiàn)時(shí),實(shí)現(xiàn)傳統(tǒng)的驗(yàn)收、編目、典藏、流通和管理等環(huán)節(jié)。<
20、/p><p><b> 數(shù)據(jù)庫(kù)需求分析</b></p><p> 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢,這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程,組成一份詳盡的數(shù)據(jù)字典。</p><p> 針對(duì)一般圖書(shū)管理系統(tǒng)的需求,通過(guò)對(duì)學(xué)生學(xué)習(xí)過(guò)程的內(nèi)容和數(shù)據(jù)流程分析,設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)
21、和數(shù)據(jù)結(jié)構(gòu):</p><p> ?。?)圖書(shū)信息(數(shù)據(jù)項(xiàng)):</p><p> 編號(hào)、書(shū)名、作者、是否借出、類別、登記日期</p><p> ?。?)讀者類別(數(shù)據(jù)項(xiàng)):</p><p> 種類名稱、借書(shū)數(shù)量、借書(shū)期限、有限</p><p><b> 期限</b></p>&l
22、t;p> ?。?)讀者信息(數(shù)據(jù)項(xiàng)):</p><p> 編號(hào)、姓名、性別、讀者類別、電話號(hào)碼、登記日期、聯(lián)系電話、已借書(shū)數(shù)量</p><p> (4)借閱信息(數(shù)據(jù)項(xiàng)):</p><p> 讀者編號(hào)、借閱編號(hào)、讀者姓名、書(shū)籍編號(hào)、書(shū)籍名稱、出借日期、還書(shū)日期</p><p> ?。?)圖書(shū)類別(數(shù)據(jù)項(xiàng)):</p>
23、<p><b> 類別名稱、類別編號(hào)</b></p><p> ?。?)用戶表(數(shù)據(jù)項(xiàng)):</p><p><b> 帳號(hào)、密碼、</b></p><p><b> 系統(tǒng)功能分析</b></p><p> 系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)圖書(shū)信息關(guān)系的系統(tǒng)化、規(guī)范化和
24、自動(dòng)化。</p><p> 系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成的。本系統(tǒng)中的圖書(shū)管理系統(tǒng)需要完成的功能上主要有:</p><p> ?。?)圖書(shū)信息的輸入:包括圖書(shū)的編號(hào)、書(shū)名、作者、類別、是否借出等。</p><p> ?。?)圖書(shū)信息的查詢,包括查詢圖書(shū)的信息等。</p><p> (3)借書(shū)卡信息的修改:可修改密碼、聯(lián)系
25、電話等。</p><p><b> ■數(shù)據(jù)流程圖:</b></p><p><b> 數(shù)據(jù)字典</b></p><p> 數(shù)據(jù)字典是系統(tǒng)中各類數(shù)據(jù)描述的集合,使進(jìn)行詳細(xì)的數(shù)據(jù)收集和數(shù)據(jù)分析所獲得的主要成果。數(shù)據(jù)字典是在需求分析時(shí)建立,在數(shù)據(jù)庫(kù)設(shè)計(jì)過(guò)程中不斷修改、充實(shí)、完善的。數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、
26、數(shù)據(jù)存儲(chǔ)、處理過(guò)程五部分。其中數(shù)據(jù)項(xiàng)是數(shù)據(jù)的最小組成單位,若干個(gè)數(shù)據(jù)項(xiàng)可以組成一個(gè)數(shù)據(jù)結(jié)構(gòu),數(shù)據(jù)字典通過(guò)對(duì)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)的定義來(lái)描述數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)的邏輯內(nèi)容。</p><p> ?。?).數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)項(xiàng)字典</p><p> 圖書(shū)信息表:本表主要用于存儲(chǔ)圖書(shū)信息, </p><p><b> ?。?).數(shù)據(jù)流字典</b></p&g
27、t;<p><b> 借書(shū)系統(tǒng):</b></p><p><b> 界面及程序代碼</b></p><p><b> 主界面</b></p><p> 登陸界面:frmLoad</p><p><b> 代碼:</b></p&
28、gt;<p> Option Explicit</p><p> Dim cnt As Integer '記錄確定次數(shù)</p><p> Private Sub cmdCancle_Click()</p><p><b> Unload Me</b></p><p><b> S
29、ubEnd </b></p><p> Private Sub cmdOK_Click()</p><p> Dim sql As String</p><p> Dim rs_login As New ADODB.Recordset</p><p> Dim conn As New ADODB.Connection<
30、;/p><p> conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"</p><p> If Trim(Text1.Text) = "" Then</p><p>
31、MsgBox "用戶名不能為空,請(qǐng)重新輸入!"</p><p> Text1.SetFocus</p><p><b> Else</b></p><p> sql = "select * from 用戶表 where user_ID='" & Trim(Text1.Text) &a
32、mp; "'"</p><p> rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p> If rs_login.EOF = True Then</p><p> MsgBox "沒(méi)有這個(gè)用戶,請(qǐng)重輸入!", vbOKOnly + vbE
33、xclamation, ""</p><p> Text1.Text = ""</p><p> Text1.SetFocus</p><p><b> Else</b></p><p> username = Text1.Text</p><p>
34、 If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then</p><p><b> Unload Me</b></p><p> frmMain.Show</p><p><b> Else</b></p><p> MsgBox "
35、;密碼不正確,請(qǐng)重輸入!", vbOKOnly + vbExclamation, ""</p><p> Text2.SetFocus</p><p> Text2.Text = ""</p><p><b> End If</b></p><p><b>
36、; End If</b></p><p><b> End If</b></p><p> cnt = cnt + 1</p><p> If cnt = 3 Then</p><p><b> Unload Me</b></p><p><b&g
37、t; End If</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p><b> cnt = 0</b></p><p><b> End Sub</b></p&
38、gt;<p> Private Sub Label3_Click()</p><p><b> End Sub</b></p><p> 查詢圖書(shū)信息界面:frmMain</p><p><b> 代碼:</b></p><p> Private Sub cxdz_Click
39、()</p><p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><p><b>
40、End Sub</b></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub exit_Click()</p><p
41、><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As Integer</p><p> For i = 1 To 2</p><
42、;p> StatusBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime<
43、/p><p> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><b> End Sub</b></p><p> Private Sub scdx_Click()</p><p>
44、 frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b>&l
45、t;/p><p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub sctx_Click()</p><p> frmmodifybooki
46、nfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjdx_Click()</p><p> frmaddreaderinfo.Show</p><p><b> End Sub</b></p><p>
47、Private Sub tjdz_Click()</p><p> frmaddreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub tjgy_Click()</p><p> frmadduser.Show</p><p
48、><b> End Sub</b></p><p> Private Sub tjhx_Click()</p><p> frmbackbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjjx_Click()&l
49、t;/p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjts_Click()</p><p> frmaddbookstyle.Show</p><p><b> End Sub&
50、lt;/b></p><p> Private Sub tjtx_Click()</p><p> frmaddbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub Toolbar1_ButtonClick(ByVal Button As M
51、SComctlLib.Button)</p><p> Select Case Button.Key</p><p> Case "tsxx"</p><p><b> '</b></p><p> Load frmfindbookinfo</p><p>
52、frmfindbookinfo.Show vbModal</p><p> Case "dzxx"</p><p><b> '資料</b></p><p> Load frmfindreaderinfo</p><p> frmfindreaderinfo.Show vbModal&
53、lt;/p><p> Case "backup"</p><p> Load frmsavedata</p><p> frmsavedata.Show vbModal</p><p> Case "clean"</p><p> Load frmclean</p&g
54、t;<p> frmclean.Show vbModal</p><p> End Select</p><p><b> End Sub</b></p><p> Private Sub xgdx_Click()</p><p> frmmodifyreaderinfo.Show</p&g
55、t;<p><b> End Sub</b></p><p> Private Sub xgdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub
56、xgmm_Click()</p><p> frmmodifymima.Show</p><p><b> End Sub</b></p><p> Private Sub xgtu_Click()</p><p> frmmodifystyle.Show</p><p><b>
57、; End Sub</b></p><p> Private Sub xgtx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub zx_Click()</p>&l
58、t;p><b> End Sub</b></p><p> 進(jìn)入圖書(shū)管理——圖書(shū)類別管理——添加圖書(shū)類別</p><p> 進(jìn)入圖書(shū)管理——圖書(shū)類別管理——修改添加圖書(shū)類別</p><p> 進(jìn)入圖書(shū)管理——圖書(shū)類別管理——?jiǎng)h除添加圖書(shū)類別</p><p> 是一個(gè)窗體執(zhí)行兩個(gè)項(xiàng)目</p>
59、<p><b> 添加圖書(shū)類別代碼:</b></p><p> Private Sub cxdz_Click()</p><p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_
60、Click()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b>
61、; End Sub</b></p><p> Private Sub exit_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p&
62、gt;<p> Dim i As Integer</p><p> For i = 1 To 2</p><p> StatusBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</p>&l
63、t;p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime</p><p> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><b> En
64、d Sub</b></p><p> Private Sub scdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><
65、;p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b>
66、</p><p> Private Sub sctx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p><b> 刪除圖書(shū)類別代碼:</b></p><p> Priva
67、te Sub cxdz_Click()</p><p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><
68、;p><b> End Sub</b></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub exit_Click()
69、</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As Integer</p><p> For i = 1 To
70、 2</p><p> StatusBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = sbrDate</p><p> .Item(2).St
71、yle = sbrTime</p><p> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><b> End Sub</b></p><p> Private Sub scdx_Click()</
72、p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> En
73、d Sub</b></p><p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub sctx_Click()</p><p>
74、; frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> 圖書(shū)信息管理,添加刪除</p><p> Private Sub cxdz_Click()</p><p> frmfindreaderinfo.Show</p><p>
75、;<b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxtx_Click()<
76、;/p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub exit_Click()</p><p><b> Unload Me</b></p><p><b> E
77、nd Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As Integer</p><p> For i = 1 To 2</p><p> StatusBar1.Panels.Add</p><p><b> Next i
78、</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime</p><p> .Item(3).Text = "版權(quán)所有!"</p><
79、;p><b> End With</b></p><p><b> End Sub</b></p><p> Private Sub scdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub<
80、;/b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub scts_Click()</p><p>
81、 frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub sctx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p>
82、<p> Private Sub tjdx_Click()</p><p> frmaddreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjdz_Click()</p><p> frmaddreaderstyle.Sh
83、ow</p><p><b> End Sub</b></p><p> Private Sub tjgy_Click()</p><p> frmadduser.Show</p><p><b> End Sub</b></p><p> Private Sub
84、tjhx_Click()</p><p> frmbackbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjjx_Click()</p><p> frmfindbookinfo.Show</p><p><b
85、> End Sub</b></p><p> Private Sub tjts_Click()</p><p> frmaddbookstyle.Show</p><p><b> End Sub</b></p><p> Private Sub tjtx_Click()</p>
86、<p> frmaddbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p> Select Case Button.Key<
87、/p><p> Case "tsxx"</p><p><b> '</b></p><p> Load frmfindbookinfo</p><p> frmfindbookinfo.Show vbModal</p><p> Case "dzxx&
88、quot;</p><p><b> '資料</b></p><p> Load frmfindreaderinfo</p><p> frmfindreaderinfo.Show vbModal</p><p> Case "backup"</p><p>
89、 Load frmsavedata</p><p> frmsavedata.Show vbModal</p><p> Case "clean"</p><p> Load frmclean</p><p> frmclean.Show vbModal</p><p> End Sele
90、ct</p><p><b> End Sub</b></p><p> Private Sub xgdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Pri
91、vate Sub xgdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub xgmm_Click()</p><p> frmmodifymima.Show</p>&l
92、t;p><b> End Sub</b></p><p> Private Sub xgtu_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub xgtx_Click()
93、</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub zx_Click()</p><p><b> End Sub</b></p><p><b>
94、刪除</b></p><p> Private Sub cxdz_Click()</p><p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p>
95、; frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p&
96、gt;<p> Private Sub exit_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As In
97、teger</p><p> For i = 1 To 2</p><p> StatusBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = s
98、brDate</p><p> .Item(2).Style = sbrTime</p><p> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><b> End Sub</b></p>
99、<p> Private Sub scdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyl
100、e.Show</p><p><b> End Sub</b></p><p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Priv
101、ate Sub sctx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p><b> 讀者信息添加</b></p><p> Private Sub cxdz_Click()</p>
102、<p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b
103、></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub exit_Click()</p><p><b>
104、 Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As Integer</p><p> For i = 1 To 2</p><p> Statu
105、sBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime</p><p
106、> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><b> End Sub</b></p><p> Private Sub scdx_Click()</p><p> frmmodifyrea
107、derinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><
108、;p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub sctx_Click()</p><p> frmmodifybookinfo.Show</
109、p><p><b> End Sub</b></p><p><b> 讀者信息刪除</b></p><p><b> 讀者信息查詢</b></p><p> Private Sub cxdz_Click()</p><p> frmfindrea
110、derinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p&
111、gt; Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub exit_Click()</p><p><b> Unload Me</b>&
112、lt;/p><p><b> End Sub</b></p><p> Private Sub Form_Load()</p><p> Dim i As Integer</p><p> For i = 1 To 2</p><p> StatusBar1.Panels.Add</p
113、><p><b> Next i</b></p><p> With StatusBar1.Panels</p><p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime</p><p> .Item(3).Text =
114、"版權(quán)所有!"</p><p><b> End With</b></p><p><b> End Sub</b></p><p> Private Sub scdx_Click()</p><p> frmmodifyreaderinfo.Show</p>
115、<p><b> End Sub</b></p><p> Private Sub scdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub sc
116、ts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><p> Private Sub sctx_Click()</p><p> frmmodifybookinfo.Show</p><p><b&
117、gt; End Sub</b></p><p> Private Sub tjdx_Click()</p><p> frmaddreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjdz_Click()</p>
118、<p> frmaddreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub tjgy_Click()</p><p> frmadduser.Show</p><p><b> End Sub</b><
119、;/p><p> Private Sub tjhx_Click()</p><p> frmbackbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjjx_Click()</p><p> frmfindbookinf
120、o.Show</p><p><b> End Sub</b></p><p> Private Sub tjts_Click()</p><p> frmaddbookstyle.Show</p><p><b> End Sub</b></p><p> Pri
121、vate Sub tjtx_Click()</p><p> frmaddbookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p
122、> Select Case Button.Key</p><p> Case "tsxx"</p><p><b> '</b></p><p> Load frmfindbookinfo</p><p> frmfindbookinfo.Show vbModal</p&
123、gt;<p> Case "dzxx"</p><p><b> '資料</b></p><p> Load frmfindreaderinfo</p><p> frmfindreaderinfo.Show vbModal</p><p> Case "ba
124、ckup"</p><p> Load frmsavedata</p><p> frmsavedata.Show vbModal</p><p> Case "clean"</p><p> Load frmclean</p><p> frmclean.Show vbModa
125、l</p><p> End Select</p><p><b> End Sub</b></p><p> Private Sub xgdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub<
126、/b></p><p> Private Sub xgdz_Click()</p><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub xgmm_Click()</p><p>
127、frmmodifymima.Show</p><p><b> End Sub</b></p><p> Private Sub xgtu_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub</b></p><
128、;p> Private Sub xgtx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub zx_Click()</p><p><b> End Sub</b>
129、</p><p><b> 添加借書(shū)信息</b></p><p> Private Sub cxdz_Click()</p><p> frmfindreaderinfo.Show</p><p><b> End Sub</b></p><p> Private
130、Sub cxjx_Click()</p><p> frmfindborrowinfo.Show</p><p><b> End Sub</b></p><p> Private Sub cxtx_Click()</p><p> frmfindbookinfo.Show</p><p>
131、;<b> End Sub</b></p><p> Private Sub exit_Click()</p><p><b> Unload Me</b></p><p><b> End Sub</b></p><p> Private Sub Form_Load
132、()</p><p> Dim i As Integer</p><p> For i = 1 To 2</p><p> StatusBar1.Panels.Add</p><p><b> Next i</b></p><p> With StatusBar1.Panels</
133、p><p> .Item(1).Style = sbrDate</p><p> .Item(2).Style = sbrTime</p><p> .Item(3).Text = "版權(quán)所有!"</p><p><b> End With</b></p><p><
134、b> End Sub</b></p><p> Private Sub scdx_Click()</p><p> frmmodifyreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub scdz_Click()</p
135、><p> frmmodifyreaderstyle.Show</p><p><b> End Sub</b></p><p> Private Sub scts_Click()</p><p> frmmodifystyle.Show</p><p><b> End Sub&
136、lt;/b></p><p> Private Sub sctx_Click()</p><p> frmmodifybookinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjdx_Click()</p><p>
137、frmaddreaderinfo.Show</p><p><b> End Sub</b></p><p> Private Sub tjdz_Click()</p><p> frmaddreaderstyle.Show</p><p><b> End Sub</b></p>
138、;<p> Private Sub tjgy_Click()</p><p> frmadduser.Show</p><p><b> End Sub</b></p><p> Private Sub tjhx_Click()</p><p> frmbackbookinfo.Show</
溫馨提示
- 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)(論文)
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)論文
- vb學(xué)生信息管理系統(tǒng)-畢業(yè)設(shè)計(jì)論文
- 畢業(yè)設(shè)計(jì)--學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì) 學(xué)生信息管理系統(tǒng)設(shè)計(jì)
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)---學(xué)生信息管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)---學(xué)生信息管理系統(tǒng)
- 畢業(yè)設(shè)計(jì)----學(xué)生信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)的設(shè)計(jì)研究畢業(yè)設(shè)計(jì)論文
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)--學(xué)生信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 畢業(yè)設(shè)計(jì)--學(xué)生信息管理系統(tǒng)
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
- 學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)
評(píng)論
0/150
提交評(píng)論