圖書管理系統(tǒng)設(shè)計(jì)方案(編輯修改稿)
2025-06-06 00:27 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 se End IfEnd Function第二步 在登錄窗體中添加獲取登錄時(shí)用戶的應(yīng)有權(quán)限。 Select 權(quán)限 From 系統(tǒng) Where 用戶名=39。 amp。 amp。 39。 , _ , adOpenKeyset, adLockOptimistic If (0) = System Then blnDJ = True If (0) = Guest Then blnDJ = False 第三步 在主窗體（MDI）窗體下響應(yīng)登錄窗體中用戶權(quán)限的選擇，即在主窗體的啟動(dòng)事件中添加如下代碼即可。Call Quanxian(blnDJ) 軟件的調(diào)試分為兩個(gè)部分進(jìn)行，一是管理員，二是用戶。、管理員權(quán)限登錄操作、修改密碼、讀者新增、讀者編輯、圖書新增、圖書編輯、圖書刪除、圖書搜索、圖書借出、圖書歸還、借閱查詢、普通用戶權(quán)限登錄5..、搜索 設(shè)計(jì)總結(jié)及分析、功能 ：軟件基本完成上述所分析要求的功能。、界面設(shè)計(jì)：本系統(tǒng)的界面很大眾化，功能不復(fù)雜，管理人員和用戶可以較好的把握各自對(duì)應(yīng)權(quán)限所有的功能。：本系統(tǒng)界面比較粗糙，設(shè)計(jì)一些大方得體的圖片，圖表等使得界面更加的美麗，給人感覺(jué)更親近。 七、課程設(shè)計(jì)體會(huì)圖書管理系統(tǒng)的使用，大大增加了圖書管理員的效率，這次我們?cè)O(shè)計(jì)的系統(tǒng)雖然完成，但依然存在一定問(wèn)題：；，無(wú)法保證完全滿足用戶各方面的要求；。在程序的設(shè)計(jì)過(guò)程中，通過(guò)各種資料的閱讀，更深一步的了解了圖書館管理信息系統(tǒng)、數(shù)據(jù)庫(kù)系統(tǒng)的的概念，為今后開(kāi)發(fā)和設(shè)計(jì)信息系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)打下了深厚的基礎(chǔ)。在開(kāi)發(fā)軟件的過(guò)程中，對(duì)編程工具 Visual Basic從一無(wú)所知到能夠簡(jiǎn)單的應(yīng)用，不僅新學(xué)會(huì)了一種功能強(qiáng)大的編程語(yǔ)言，而且提高了獨(dú)立自學(xué)的能力。在學(xué)習(xí)過(guò)程中，遇到了許多的問(wèn)題，經(jīng)過(guò)努力，我終于沖破了這些難點(diǎn)。由于每個(gè)軟件的自身設(shè)計(jì)思路是不一樣的，在各種功能的實(shí)現(xiàn)上多存在著差異，這使我走了許多的彎路。但同時(shí)使我了解了一種新的思路，使我獲益匪淺。學(xué)到的知識(shí)是有限的，面對(duì)的實(shí)踐應(yīng)用是多種多樣的，所學(xué)很可能無(wú)法滿足所用，必須在實(shí)踐中、在應(yīng)用中不斷學(xué)習(xí)不斷提高，這次完成畢業(yè)設(shè)計(jì)的過(guò)程中我學(xué)到了許多從前聞所未聞的知識(shí)和技能。八、設(shè)計(jì)中所用到的程序代碼匯總Option ExplicitPrivate Sub cmdOk_Click() Unload MeEnd SubPrivate Sub Form_Load() = LoadPicture( amp。 \)39。 = LoadPicture( amp。 \PIC\)End Sub //背景圖片Private Sub Label1_Click()End SubOption ExplicitDim rs As New Private Sub cmdNo_Click() Unload MeEnd Sub //標(biāo)簽Private Sub cmdOk_Click() If txt(0).Text = Or txt(1).Text = Or = Then MsgBox 請(qǐng)輸入完成的信息！ Else Select * From 系統(tǒng)設(shè)置 Where 用戶名=39。 amp。 txt(0).Text amp。 39。, , adOpenKeyset, adLockOptimistic If = False Then 39。 If 0 Then MsgBox 有重名！, vbCritical, 警告 Exit Sub End If If txt(2).Text = txt(1).Text Then 系統(tǒng)設(shè)置, , adOpenKeyset, adLockOptimistic (0) = txt(0).Text (1) = txt(1).Text (2) = MsgBox 添加新用戶成功！, , 恭喜 txt(0).Text = txt(1).Text = txt(2).Text = = 1 Else MsgBox 兩次輸入的密碼不相同，請(qǐng)確認(rèn)后重新輸入, vbCritical, 警告 End If End IfEnd Sub //注冊(cè)Private Sub Form_Load() System Guest Provider=。Data Source= amp。 amp。 \ Icon = LoadPicture( amp。 \)End Sub //權(quán)限Private Sub Form_Unload(Cancel As Integer) End SubOption ExplicitPrivate Sub cmdCancel_Click() Unload MeEnd SubPrivate Sub cmdOk_Click() Dim i As Integer If txt(0).Text = Or txt(1).Text = Or txt(2).Text = Or txt(3).Text = Then MsgBox 請(qǐng)輸入完整的信息！ Else 讀者庫(kù), , adOpenKeyset, adLockOptimistic For i = 0 To 3 (i) = txt(i).Text Next i MsgBox 添加新用戶成功！, , 恭喜 txt(0).Text = (0) + 1 For i = 1 To 3 txt(i).Text = Next i End IfEnd SubPrivate Sub Form_Load() Provider=。Data Source= amp。 amp。 \ 讀者庫(kù), , adOpenKeyset, adLockOptimistic If = 0 Then txt(0).Text = 1 Else txt(0).Text = (0) + 1
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1