【文章內容簡介】 權限設置的設計思想：比如添加、刪除、修改操作如果一般用戶對這些信息都可以設置，就造成了管理上的混亂和沖突，所以，在功能實現中就對一般用戶在權限上做了限制，當登陸者為已管理員身份登陸那就只能瀏覽信息而不能進行任何操作，若以管理員的身份登陸系統(tǒng)，那么就可以對信息窗體進行設置。此外，參考了同學的設計，因為他們是把功能做在外面所以可以在登陸時界面后就能發(fā)現，這明顯與我們做的有沖突換句話說是不值得我們借鑒，因此我要朋友詢問了適合我們的權限設置，在系統(tǒng)中添加個模塊，然后在代碼中再增加語句。Declare Function CreateSolidBrush Lib GDI (ByVal crColor As Integer) As IntegerDeclare Function FillRect Lib USER (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As IntegerDeclare Function DeleteObject Lib GDI (ByVal hObject As Integer) As IntegerType RECTleft As Integertop As Integerright As Integerbottom As IntegerEnd TypePublic admin As Integer39。用于驗證是否有管理員權限用戶操作說明1. 軟硬件環(huán)境硬件配置：486以上檔次的計算機，彩色顯示器，內存8M,硬盤200M。軟件配置：Windows 95/98/2000/xp操作系統(tǒng)，Visual Basic 。2. 應用系統(tǒng)安裝 直接拷貝：把應用系統(tǒng)光盤插入到驅動器中，在任意盤目錄下建立子文件夾畢業(yè)設計，將光盤根目錄中所用的文件拷貝到任意盤文件夾畢業(yè)設計中。初次運行時，須對某些文件進行重定向。3. 操作方法(1)啟動應用系統(tǒng) 先啟動Visual Basin “.exe” 可執(zhí)行文件。(2)登陸系統(tǒng) 輸入用戶名和準確的密碼，進入父窗體，即可進入相應的子系統(tǒng)，選擇“退出“按鈕可以退出系統(tǒng)。 (3)用戶管理，可以進行添加和刪除用戶。（管理員權限） 添加：輸入用戶編號，用戶名字，用戶密碼以及密碼確認，就可以添加為公司管理系統(tǒng)用戶。 刪除：輸入用戶編號，經確認之后，再輸入用戶密碼，即可以刪除用戶。系統(tǒng)自我評價 本系統(tǒng)是針對學校開發(fā)的信息、學籍、圖書館管理軟件，實現對學?，F代化信息管理。學籍管理系統(tǒng)以學號和員工號生成，能夠快速的錄入成績、設置課程等，極大的方便了學校對于學生成績和員工工作狀況的管理；而信息管理系統(tǒng)是與學籍管理系統(tǒng)數據共享的，其中各式各樣的報表方便了信息的管理；圖書館管理系統(tǒng)則是現代學校的典型的一個管理系統(tǒng)，它實現了對書籍的各式管理。系統(tǒng)總體結構：系統(tǒng)開發(fā)的總體任務是實現信息關系的系統(tǒng)化、規(guī)范化和自動化。通過該系統(tǒng)，將實現各種數據的共享，方便了信息的管理。該系統(tǒng)只要包括：信息管理系統(tǒng)、學籍管理系統(tǒng)、圖書館管理系統(tǒng)，這些管理系統(tǒng)將建立在一個規(guī)范標準的界面之上，大大提高了學校的管理水平。 通過圖書館管理系統(tǒng)，實現圖書檢索和借閱，從而一方面能作到資料共享。另一方面，能大大簡化借閱手續(xù)，提高圖書利用率和圖書管理工作效率。接口美觀大方，界面風格統(tǒng)一。整個系統(tǒng)包含了學生信息管理，員工信息管理，班級信息管理，課程信息管理，成績信息管理，綜合測評，畢業(yè)管理，這幾部分都能夠非?？旖莸膶Y料內容進行添加修改刪除以及報表打印等操作。學校管理系統(tǒng)的局限性：該系統(tǒng)是單機版，所以使用范圍得到了限制。不能實現局域網上的多臺機器，共享同一數據庫。而信息管理系統(tǒng)，需要多個職能部門來參與管理，比如學生信息以及成績的錄入，需要教師來管理。 而教師的信息需要學校教務部門來管理。圖書信息的管理，需要圖書館來完成。 因此，系統(tǒng)的單機性質，制約了系統(tǒng)在學校的廣泛應用。查詢模塊做的不是很理想，只能進行單條件查詢。系統(tǒng)不是很完善，有待補充。使用者的權限，成績管理部分，數據庫備份和恢復等。致謝在本次畢業(yè)設計中，我從指導老師陳桂生老師身上學到了很多東西。陳老師認真負責的工作態(tài)度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 另外，在系統(tǒng)開發(fā)過程中同組的同學也給于我很大的幫助，幫助解決了不少的難點，使得系統(tǒng)能及時開發(fā)完成，還有同樣給與我不少幫助，這里一并表示感謝。參考資料：1．協同教育微軟ATC教材編譯室 編著 《開發(fā)工具專家 Visual Basic 培訓教程》 電子工業(yè)出版社 2．上海市計算機應用能力考核辦公室 編《計算機應用教程——Access 2000》 復旦大學出版社 3．明日科技 高春艷 李艷 谷偉東 編著《Visual Basic數據庫開發(fā)關鍵技術與實例應用》 人民郵電出版社 4．源江科技/編著《VB編程技巧280例》 上?？茖W普及出版社 5．佳文工作室創(chuàng)作《Visual 》 電子工業(yè)出版社 6．王珊 陳紅編著《數據庫系統(tǒng)原理教程》 清華大學出版社 7．劉圣才 李春葆編著《Visual 程序設計導學》 清華大學出版社 8．周國民 《Visual Basic + Access數據庫項目開發(fā)實踐》 中國鐵道出版社9．段興 《Visual Basic 》 人民郵電出版社 10．Kris Jamsa 博士Lars Klander博士 著 《Visual Basic 程序設計技巧1001例》 電子工業(yè)出版社 附錄部分*實習管理窗體（）Dim 實習表 As Private Sub Command1_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。添加記錄 = False = False = True = True = False = True = False = True = True = True = TrueEnd SubPrivate Sub Command10_Click()If = True ThenMsgBox (已到首記錄)End IfEnd SubPrivate Sub Command11_Click()If = True ThenMsgBox (已到末記錄)End IfEnd SubPrivate Sub Command12_Click()End SubPrivate Sub Command2_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = True = True = False = False = True = True = True = False = False = False = False End SubPrivate Sub Command3_Click() = False = False = True = True = True = True = False = False = False = FalseEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Command5_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = False = False = True = True = True = True = True = False = False = False = FalseEnd SubPrivate Sub Command6_Click() = False = True = True = True = True = False = False = False = False End SubPrivate Sub Command7_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If 39。確定修改 = False = True = False = True = True = False = True = True = True = True = True End SubPrivate Sub Command8_Click()msg = 確定要刪除嗎？ 39。刪除記錄 X = MsgBox(msg, vbYesNo, ) If X = vbYes Then If Then End If End If End SubPrivate Sub Command9_Click()End SubPrivate Sub Form_Load() Set 實習表 = End Sub*各班課程設置窗體（）Private Sub Command1_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd If = 39。數據項（專業(yè)） = 39。數據項（學期） = 39。數據項（課程代號） = 39。數據項（課程名） = 0 39。過濾項設為0 adAffectAllChaptersMsgBox 課程添加成功！, vbExclamation + vbOKOnly, 成功 = 專業(yè) =39。 amp。 amp。 39。End SubPrivate Sub Command2_Click()39。判斷是否有權限If admin = 0 ThenMsgBox 你不是管理員,沒有此權限！, vbExclamation + vbOKOnly, 警告Exit SubEnd Ifdel = MsgBox(確定刪除這條記錄嗎？, vbOKCancel + vbExclamation, 警告)If del = vbCancel ThenElse 39。彈出一個有確定和取消按扭的對話框，點選確定則刪除記錄 adAffectAllChaptersMsgBox 課程刪除成功！, vbExclamation + vbOKOnly, 成功End IfEnd SubPrivate Sub Command3_Click() = cancel like 39。039。 = 專業(yè) 39。顯示所有數據并排序End SubPrivate Sub Command4_Click() 39。顯示各班課程的打印報表End SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataCombo1_Click(Area As Integer) = 專業(yè) =39。 amp。 amp。 39。 39。按專業(yè)過濾數據End SubPrivate Sub DataGrid1_Click() = True = False 39。只有在DataGrid1中點擊才能添加數據End SubPrivate Sub DataGrid2_Click() = False = True 39。只有在DataGrid2中點擊才能刪除數據End SubPrivate Sub Form_Click() = False = FalseEnd SubPrivate Sub Form_Load() = False = False = False = False = False = False 39。不能在datagrid中直接進行數據的改動 = False = FalseEnd Sub