畢業(yè)設(shè)計(jì)(論文)-學(xué)生信息管理系統(tǒng)設(shè)計(jì)_第1頁(yè)
已閱讀1頁(yè),還剩47頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(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ì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論