畢業(yè)設(shè)計(jì)（論文）-學(xué)生信息管理系統(tǒng)設(shè)計(jì)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-02 格式：doc 頁數(shù)：48 大?。?.18MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩47頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　題目：學(xué)生信息管理系統(tǒng)　　任務(wù)與要求：　　畢業(yè)設(shè)計(jì)（論文）應(yīng)把培養(yǎng)人放在首位，它的基本任務(wù)是培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)的基本理論、基本知識和基本技能，分析解決實(shí)際問題的能力，幫助學(xué)生建立正確的設(shè)計(jì)思想和嚴(yán)謹(jǐn)?shù)目茖W(xué)作風(fēng)，進(jìn)一步提高寫作水平和使用計(jì)算機(jī)的能力。通過畢業(yè)設(shè)計(jì)（論文）使學(xué)生受到專業(yè)技術(shù)人才所必

2、須的綜合訓(xùn)練和獨(dú)立工作能力的培養(yǎng)。　　時(shí)間：年月日至年月日共周　　學(xué)生姓名：學(xué) 號：　　專業(yè)： 　　指導(dǎo)教師：

3、 　　年月日畢業(yè)設(shè)計(jì)(論文)進(jìn)度計(jì)劃表　　目錄　　摘要 4　　摘要：系統(tǒng)概述

4、 3　　系統(tǒng)分析與設(shè)計(jì) 4　　應(yīng)用背景　　數(shù)據(jù)庫需求分析

5、 5　?。?）圖書信息（數(shù)據(jù)項(xiàng)）：　?。?）讀者類別（數(shù)據(jù)項(xiàng)）：　?。?）讀者信息（數(shù)據(jù)項(xiàng)）：　　（4）借閱信息（數(shù)據(jù)項(xiàng)）：　?。?/p>

6、5）圖書類別（數(shù)據(jù)項(xiàng)）：　?。?）用戶表（數(shù)據(jù)項(xiàng)）：　　完成的功能上主要有： 5　　系統(tǒng)功能分析　　數(shù)據(jù)流程圖：

7、 6　　數(shù)據(jù)字典 6　　數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)項(xiàng)字典

8、 7　　數(shù)據(jù)流字典　　借書系統(tǒng)：　　界面及程序代碼　　主界面

9、登陸界面：frmLoad 8　　查詢圖書信息界面：frmMain 9　　添加圖書

10、 13　　刪除圖書 14　　圖書信息管理，添加刪除 15&

11、lt;p>　　讀者信息添加 19　　讀者信息查詢 22　　添加借書信息

12、 24　　社定用戶 27　　更改密碼

13、 28　　報(bào)表界面 30　　結(jié)論 34　　感想 　　參考文獻(xiàn) 34

14、　　摘要：系統(tǒng)概述　　圖書館管理系統(tǒng)是一些單位不可缺少的部分,書籍是人類不可缺少的精神食糧，尤其對一些學(xué)校來說，尤其重要。所以圖書館管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理圖書、期刊、試卷合訂本等，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于

15、查找、更新和維護(hù)都帶來了不少的困難。　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對圖書資源信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高圖書館管理的效率,也是企業(yè)、學(xué)校的科學(xué)化、正規(guī)

16、化管理,與世界接軌的重要條件。　　因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中我們將以開發(fā)一套圖書館管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。　　圖書館管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng).數(shù)據(jù)安全性好的庫。而對于后

17、者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。　　經(jīng)過分析如此情況,我們使用微軟公司的VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。　　系統(tǒng)分析與設(shè)計(jì)<

18、;/b>　　應(yīng)用背景　　圖書館是高等院校的重要組成部門，是教師和學(xué)生獲取知識的重要場所。由于圖書館主要從事大量的圖書資料的儲存和流通。所以一直以來，計(jì)算機(jī)在圖書館的圖書管理中得到了廣泛的應(yīng)用。　　目前，本單位教師較多,借科技書籍情況日益增長。本系統(tǒng)就是要達(dá)到對教師人員借

19、科技書籍的日常管理,能快速完成,并對信息進(jìn)行數(shù)據(jù)庫管理的目的。為了適應(yīng)本系小型圖書館業(yè)務(wù)發(fā)展的需要，解決問題。經(jīng)過考察比較，決定利用自己的力量對本單位的小型圖書管理系統(tǒng)進(jìn)行重新改造。使新系統(tǒng)不僅能利用當(dāng)前的軟件開發(fā)技術(shù)和校園網(wǎng)建設(shè)成果，方便讀者查詢、借閱操作，解決流通中存在的問題。而且，能結(jié)合本單位資金投入有限、圖書需求量大等特點(diǎn)，對圖書管理中各業(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>　　數(shù)據(jù)庫需求分析　　用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典。　　針對一般圖書管理系統(tǒng)的需求，通過對學(xué)生學(xué)習(xí)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)

21、和數(shù)據(jù)結(jié)構(gòu)：　?。?）圖書信息（數(shù)據(jù)項(xiàng)）：　　編號、書名、作者、是否借出、類別、登記日期　?。?）讀者類別（數(shù)據(jù)項(xiàng)）：　　種類名稱、借書數(shù)量、借書期限、有限　　期限&l

22、t;p>　　（3）讀者信息（數(shù)據(jù)項(xiàng)）：　　編號、姓名、性別、讀者類別、電話號碼、登記日期、聯(lián)系電話、已借書數(shù)量　?。?）借閱信息（數(shù)據(jù)項(xiàng)）：　　讀者編號、借閱編號、讀者姓名、書籍編號、書籍名稱、出借日期、還書日期　?。?）圖書類別（數(shù)據(jù)項(xiàng)）：

23、　　類別名稱、類別編號　　（6）用戶表（數(shù)據(jù)項(xiàng)）：　　帳號、密碼、　　系統(tǒng)功能分析　　系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)圖書信息關(guān)系的系統(tǒng)化、規(guī)范化和

24、自動化。　　系統(tǒng)功能分析是在系統(tǒng)開發(fā)的總體任務(wù)的基礎(chǔ)上完成的。本系統(tǒng)中的圖書管理系統(tǒng)需要完成的功能上主要有：　　（1）圖書信息的輸入：包括圖書的編號、書名、作者、類別、是否借出等。　?。?）圖書信息的查詢，包括查詢圖書的信息等。　?。?）借書卡信息的修改：可修改密碼、聯(lián)系

25、電話等。　　■數(shù)據(jù)流程圖：　　數(shù)據(jù)字典　　數(shù)據(jù)字典是系統(tǒng)中各類數(shù)據(jù)描述的集合，使進(jìn)行詳細(xì)的數(shù)據(jù)收集和數(shù)據(jù)分析所獲得的主要成果。數(shù)據(jù)字典是在需求分析時(shí)建立，在數(shù)據(jù)庫設(shè)計(jì)過程中不斷修改、充實(shí)、完善的。數(shù)據(jù)字典通常包括數(shù)據(jù)項(xiàng)、數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)流、

26、數(shù)據(jù)存儲、處理過程五部分。其中數(shù)據(jù)項(xiàng)是數(shù)據(jù)的最小組成單位，若干個(gè)數(shù)據(jù)項(xiàng)可以組成一個(gè)數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)字典通過對數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)的定義來描述數(shù)據(jù)流、數(shù)據(jù)存儲的邏輯內(nèi)容。　　（1）.數(shù)據(jù)結(jié)構(gòu)和數(shù)據(jù)項(xiàng)字典　　圖書信息表:本表主要用于存儲圖書信息, 　?。?）.數(shù)據(jù)流字典</p&g

27、t;　　借書系統(tǒng)：　　界面及程序代碼　　主界面　　登陸界面：frmLoad　　代碼：</p&

28、gt;　　Option Explicit　　Dim cnt As Integer '記錄確定次數(shù)　　Private Sub cmdCancle_Click()　　Unload Me　　S

29、ubEnd 　　Private Sub cmdOK_Click()　　Dim sql As String　　Dim rs_login As New ADODB.Recordset　　Dim conn As New ADODB.Connection<

30、;/p>　　conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"　　If Trim(Text1.Text) = "" Then

31、MsgBox "用戶名不能為空，請重新輸入！"　　Text1.SetFocus　　Else　　sql = "select * from 用戶表 where user_ID='" & Trim(Text1.Text) &a

32、mp; "'"　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic　　If rs_login.EOF = True Then　　MsgBox "沒有這個(gè)用戶,請重輸入！", vbOKOnly + vbE

33、xclamation, ""　　Text1.Text = ""　　Text1.SetFocus　　Else　　username = Text1.Text

34、　　If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then　　Unload Me　　frmMain.Show　　Else　　MsgBox "

35、;密碼不正確,請重輸入！", vbOKOnly + vbExclamation, ""　　Text2.SetFocus　　Text2.Text = ""　　End If

36、;　　End If　　End If　　cnt = cnt + 1　　If cnt = 3 Then　　Unload Me<b&g

37、t;　　End If　　End Sub　　Private Sub Form_Load()　　cnt = 0　　End Sub</p&

38、gt;　　Private Sub Label3_Click()　　End Sub　　查詢圖書信息界面：frmMain　　代碼：　　Private Sub cxdz_Click

39、()　　frmfindreaderinfo.Show　　End Sub　　Private Sub cxjx_Click()　　frmfindborrowinfo.Show

40、End Sub　　Private Sub cxtx_Click()　　frmfindbookinfo.Show　　End Sub　　Private Sub exit_Click()<p

41、>　　Unload Me　　End Sub　　Private Sub Form_Load()　　Dim i As Integer　　For i = 1 To 2<

42、;p>　　StatusBar1.Panels.Add　　Next i　　With StatusBar1.Panels　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime<

43、/p>　　.Item(3).Text = "版權(quán)所有!"　　End With　　End Sub　　Private Sub scdx_Click()

44、　frmmodifyreaderinfo.Show　　End Sub　　Private Sub scdz_Click()　　frmmodifyreaderstyle.Show　　End Sub&l

45、t;/p>　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub　　Private Sub sctx_Click()　　frmmodifybooki

46、nfo.Show　　End Sub　　Private Sub tjdx_Click()　　frmaddreaderinfo.Show　　End Sub

47、Private Sub tjdz_Click()　　frmaddreaderstyle.Show　　End Sub　　Private Sub tjgy_Click()　　frmadduser.Show<p

48、>　　End Sub　　Private Sub tjhx_Click()　　frmbackbookinfo.Show　　End Sub　　Private Sub tjjx_Click()&l

49、t;/p>　　frmfindbookinfo.Show　　End Sub　　Private Sub tjts_Click()　　frmaddbookstyle.Show　　End Sub&

50、lt;/b>　　Private Sub tjtx_Click()　　frmaddbookinfo.Show　　End Sub　　Private Sub Toolbar1_ButtonClick(ByVal Button As M

51、SComctlLib.Button)　　Select Case Button.Key　　Case "tsxx"　　'　　Load frmfindbookinfo

52、frmfindbookinfo.Show vbModal　　Case "dzxx"　　'資料　　Load frmfindreaderinfo　　frmfindreaderinfo.Show vbModal&

53、lt;/p>　　Case "backup"　　Load frmsavedata　　frmsavedata.Show vbModal　　Case "clean"　　Load frmclean</p&g

54、t;　　frmclean.Show vbModal　　End Select　　End Sub　　Private Sub xgdx_Click()　　frmmodifyreaderinfo.Show</p&g

55、t;　　End Sub　　Private Sub xgdz_Click()　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub

56、xgmm_Click()　　frmmodifymima.Show　　End Sub　　Private Sub xgtu_Click()　　frmmodifystyle.Show

57、;　　End Sub　　Private Sub xgtx_Click()　　frmmodifybookinfo.Show　　End Sub　　Private Sub zx_Click()&l

58、t;p>　　End Sub　　進(jìn)入圖書管理——圖書類別管理——添加圖書類別　　進(jìn)入圖書管理——圖書類別管理——修改添加圖書類別　　進(jìn)入圖書管理——圖書類別管理——刪除添加圖書類別　　是一個(gè)窗體執(zhí)行兩個(gè)項(xiàng)目

59、　　添加圖書類別代碼：　　Private Sub cxdz_Click()　　frmfindreaderinfo.Show　　End Sub　　Private Sub cxjx_

60、Click()　　frmfindborrowinfo.Show　　End Sub　　Private Sub cxtx_Click()　　frmfindbookinfo.Show

61、;　　End Sub　　Private Sub exit_Click()　　Unload Me　　End Sub　　Private Sub Form_Load()</p&

62、gt;　　Dim i As Integer　　For i = 1 To 2　　StatusBar1.Panels.Add　　Next i　　With StatusBar1.Panels&l

63、t;p>　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime　　.Item(3).Text = "版權(quán)所有!"　　End With　　En

64、d Sub　　Private Sub scdx_Click()　　frmmodifyreaderinfo.Show　　End Sub　　Private Sub scdz_Click()<

65、;p>　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub

66、　　Private Sub sctx_Click()　　frmmodifybookinfo.Show　　End Sub　　刪除圖書類別代碼：　　Priva

67、te Sub cxdz_Click()　　frmfindreaderinfo.Show　　End Sub　　Private Sub cxjx_Click()　　frmfindborrowinfo.Show<

68、;p>　　End Sub　　Private Sub cxtx_Click()　　frmfindbookinfo.Show　　End Sub　　Private Sub exit_Click()

69、　　Unload Me　　End Sub　　Private Sub Form_Load()　　Dim i As Integer　　For i = 1 To

70、 2　　StatusBar1.Panels.Add　　Next i　　With StatusBar1.Panels　　.Item(1).Style = sbrDate　　.Item(2).St

71、yle = sbrTime　　.Item(3).Text = "版權(quán)所有!"　　End With　　End Sub　　Private Sub scdx_Click()</

72、p>　　frmmodifyreaderinfo.Show　　End Sub　　Private Sub scdz_Click()　　frmmodifyreaderstyle.Show　　En

73、d Sub　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub　　Private Sub sctx_Click()

74、;　　frmmodifybookinfo.Show　　End Sub　　圖書信息管理，添加刪除　　Private Sub cxdz_Click()　　frmfindreaderinfo.Show

75、;　　End Sub　　Private Sub cxjx_Click()　　frmfindborrowinfo.Show　　End Sub　　Private Sub cxtx_Click()<

76、;/p>　　frmfindbookinfo.Show　　End Sub　　Private Sub exit_Click()　　Unload Me　　E

77、nd Sub　　Private Sub Form_Load()　　Dim i As Integer　　For i = 1 To 2　　StatusBar1.Panels.Add　　Next i

78、　　With StatusBar1.Panels　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime　　.Item(3).Text = "版權(quán)所有!"<

79、;p>　　End With　　End Sub　　Private Sub scdx_Click()　　frmmodifyreaderinfo.Show　　End Sub<

80、;/b>　　Private Sub scdz_Click()　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub scts_Click()

81、　frmmodifystyle.Show　　End Sub　　Private Sub sctx_Click()　　frmmodifybookinfo.Show　　End Sub

82、　　Private Sub tjdx_Click()　　frmaddreaderinfo.Show　　End Sub　　Private Sub tjdz_Click()　　frmaddreaderstyle.Sh

83、ow　　End Sub　　Private Sub tjgy_Click()　　frmadduser.Show　　End Sub　　Private Sub

84、tjhx_Click()　　frmbackbookinfo.Show　　End Sub　　Private Sub tjjx_Click()　　frmfindbookinfo.Show<b

85、>　　End Sub　　Private Sub tjts_Click()　　frmaddbookstyle.Show　　End Sub　　Private Sub tjtx_Click()

86、　　frmaddbookinfo.Show　　End Sub　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)　　Select Case Button.Key<

87、/p>　　Case "tsxx"　　'　　Load frmfindbookinfo　　frmfindbookinfo.Show vbModal　　Case "dzxx&

88、quot;　　'資料　　Load frmfindreaderinfo　　frmfindreaderinfo.Show vbModal　　Case "backup"

89、　Load frmsavedata　　frmsavedata.Show vbModal　　Case "clean"　　Load frmclean　　frmclean.Show vbModal　　End Sele

90、ct　　End Sub　　Private Sub xgdx_Click()　　frmmodifyreaderinfo.Show　　End Sub　　Pri

91、vate Sub xgdz_Click()　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub xgmm_Click()　　frmmodifymima.Show&l

92、t;p>　　End Sub　　Private Sub xgtu_Click()　　frmmodifystyle.Show　　End Sub　　Private Sub xgtx_Click()

93、　　frmmodifybookinfo.Show　　End Sub　　Private Sub zx_Click()　　End Sub

94、刪除　　Private Sub cxdz_Click()　　frmfindreaderinfo.Show　　End Sub　　Private Sub cxjx_Click()

95、;　　frmfindborrowinfo.Show　　End Sub　　Private Sub cxtx_Click()　　frmfindbookinfo.Show　　End Sub</p&

96、gt;　　Private Sub exit_Click()　　Unload Me　　End Sub　　Private Sub Form_Load()　　Dim i As In

97、teger　　For i = 1 To 2　　StatusBar1.Panels.Add　　Next i　　With StatusBar1.Panels　　.Item(1).Style = s

98、brDate　　.Item(2).Style = sbrTime　　.Item(3).Text = "版權(quán)所有!"　　End With　　End Sub

99、　　Private Sub scdx_Click()　　frmmodifyreaderinfo.Show　　End Sub　　Private Sub scdz_Click()　　frmmodifyreaderstyl

100、e.Show　　End Sub　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub　　Priv

101、ate Sub sctx_Click()　　frmmodifybookinfo.Show　　End Sub　　讀者信息添加　　Private Sub cxdz_Click()

102、　　frmfindreaderinfo.Show　　End Sub　　Private Sub cxjx_Click()　　frmfindborrowinfo.Show　　End Sub</b

103、>　　Private Sub cxtx_Click()　　frmfindbookinfo.Show　　End Sub　　Private Sub exit_Click()

104、　　Unload Me　　End Sub　　Private Sub Form_Load()　　Dim i As Integer　　For i = 1 To 2　　Statu

105、sBar1.Panels.Add　　Next i　　With StatusBar1.Panels　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime<p

106、>　　.Item(3).Text = "版權(quán)所有!"　　End With　　End Sub　　Private Sub scdx_Click()　　frmmodifyrea

107、derinfo.Show　　End Sub　　Private Sub scdz_Click()　　frmmodifyreaderstyle.Show　　End Sub<

108、;p>　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub　　Private Sub sctx_Click()　　frmmodifybookinfo.Show</

109、p>　　End Sub　　讀者信息刪除　　讀者信息查詢　　Private Sub cxdz_Click()　　frmfindrea

110、derinfo.Show　　End Sub　　Private Sub cxjx_Click()　　frmfindborrowinfo.Show　　End Sub<p&

111、gt;　　Private Sub cxtx_Click()　　frmfindbookinfo.Show　　End Sub　　Private Sub exit_Click()　　Unload Me&

112、lt;/p>　　End Sub　　Private Sub Form_Load()　　Dim i As Integer　　For i = 1 To 2　　StatusBar1.Panels.Add</p

113、>　　Next i　　With StatusBar1.Panels　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime　　.Item(3).Text =

114、"版權(quán)所有!"　　End With　　End Sub　　Private Sub scdx_Click()　　frmmodifyreaderinfo.Show

115、　　End Sub　　Private Sub scdz_Click()　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub sc

116、ts_Click()　　frmmodifystyle.Show　　End Sub　　Private Sub sctx_Click()　　frmmodifybookinfo.Show<b&

117、gt;　　End Sub　　Private Sub tjdx_Click()　　frmaddreaderinfo.Show　　End Sub　　Private Sub tjdz_Click()

118、　　frmaddreaderstyle.Show　　End Sub　　Private Sub tjgy_Click()　　frmadduser.Show　　End Sub<

119、;/p>　　Private Sub tjhx_Click()　　frmbackbookinfo.Show　　End Sub　　Private Sub tjjx_Click()　　frmfindbookinf

120、o.Show　　End Sub　　Private Sub tjts_Click()　　frmaddbookstyle.Show　　End Sub　　Pri

121、vate Sub tjtx_Click()　　frmaddbookinfo.Show　　End Sub　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)<p

122、>　　Select Case Button.Key　　Case "tsxx"　　'　　Load frmfindbookinfo　　frmfindbookinfo.Show vbModal</p&

123、gt;　　Case "dzxx"　　'資料　　Load frmfindreaderinfo　　frmfindreaderinfo.Show vbModal　　Case "ba

124、ckup"　　Load frmsavedata　　frmsavedata.Show vbModal　　Case "clean"　　Load frmclean　　frmclean.Show vbModa

125、l　　End Select　　End Sub　　Private Sub xgdx_Click()　　frmmodifyreaderinfo.Show　　End Sub<

126、/b>　　Private Sub xgdz_Click()　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub xgmm_Click()

127、frmmodifymima.Show　　End Sub　　Private Sub xgtu_Click()　　frmmodifystyle.Show　　End Sub<

128、;p>　　Private Sub xgtx_Click()　　frmmodifybookinfo.Show　　End Sub　　Private Sub zx_Click()　　End Sub

129、　　添加借書信息　　Private Sub cxdz_Click()　　frmfindreaderinfo.Show　　End Sub　　Private

130、Sub cxjx_Click()　　frmfindborrowinfo.Show　　End Sub　　Private Sub cxtx_Click()　　frmfindbookinfo.Show

131、;　　End Sub　　Private Sub exit_Click()　　Unload Me　　End Sub　　Private Sub Form_Load

132、()　　Dim i As Integer　　For i = 1 To 2　　StatusBar1.Panels.Add　　Next i　　With StatusBar1.Panels</

133、p>　　.Item(1).Style = sbrDate　　.Item(2).Style = sbrTime　　.Item(3).Text = "版權(quán)所有!"　　End With<

134、b>　　End Sub　　Private Sub scdx_Click()　　frmmodifyreaderinfo.Show　　End Sub　　Private Sub scdz_Click()</p

135、>　　frmmodifyreaderstyle.Show　　End Sub　　Private Sub scts_Click()　　frmmodifystyle.Show　　End Sub&

136、lt;/b>　　Private Sub sctx_Click()　　frmmodifybookinfo.Show　　End Sub　　Private Sub tjdx_Click()

137、frmaddreaderinfo.Show　　End Sub　　Private Sub tjdz_Click()　　frmaddreaderstyle.Show　　End Sub

138、;　　Private Sub tjgy_Click()　　frmadduser.Show　　End Sub　　Private Sub tjhx_Click()　　frmbackbookinfo.Show</

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

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. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

畢業(yè)設(shè)計(jì)（論文）-學(xué)生信息管理系統(tǒng)設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

畢業(yè)設(shè)計(jì)（論文）-學(xué)生信息管理系統(tǒng)設(shè)計(jì)

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載