【正文】 的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機可 以識別的機器指令，并判斷每個語句的語法錯誤。同時， Visual Basic 還能直接編輯和訪問其他外部 數(shù)據(jù)庫，如 dBASE， FoxPro， Paradox 等，這些數(shù)據(jù)庫格式都可以用Visual Basic 編輯和處理。利用 OLE 技術，可以方便地建立復合式文檔 (pound document)，這種文檔由來自多個不同應用程序的對象組成，文檔中的每個對象都與原來的應用程序相聯(lián)系，并可執(zhí)行與原來應用程序完 全相同的操作。 課程管理模塊（ CTRL+R） 該模塊對各個班級的課程進行設置，并可在其中設置各門課程的教材選用情況，方便了學校教材管理部門和教務處的教學管理人員的工作。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學生建立聯(lián)系，因而先不考慮。下圖為數(shù)據(jù)模型圖。909 為用戶名和密碼來登陸本 系統(tǒng)。 39。 39。 Trim(Text1(0).Text) amp。相信本學生管理系統(tǒng)是一套學校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項本過程，了解了的基本知識鞏固了我對 Visual Basic 的學習，但在這次畢業(yè)設計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設計系統(tǒng)的思維方 法，以及與同學們之間相互幫助的精神。 江西藍天學院畢業(yè)論文 41 參考文獻 [1] 周佩德 .《數(shù)據(jù)庫原理及應用》 .電子工業(yè)出版社 [2] 劉炳文等， VISUAL BASIC 程序設計 —— 數(shù)據(jù)庫篇， 1999 [3] 李光明 .《 Visual Basic 編程實例大制作》 .冶金工業(yè)出版社 [4] 劉炳文，精通 VISUAL BASIC 入門與提高，人民郵電出版社 [5] 黃淼云 .《 辦公自動化編程》 .國防工業(yè)出版社 [6] 王要武，管理系統(tǒng)，電子工業(yè)出版社， 20xx [7] 李紅等編著，管理信息系統(tǒng)開發(fā)與應用，電子工業(yè)出版社， 20xx [8] 周之英縞著，現(xiàn)代軟件工程，科學出版社， 20xx [9] 康博工作室，張紅軍，王紅等縞著《 Visual Basic 中文版高級應用與開發(fā)指南》，人民郵電出版社， 20xx 年 4 月第一版 [10] 林立軍，程斌，翁迪恩縞著《 Visual Basic 數(shù)據(jù)庫開發(fā)指南》，西安電子科技大學出版社， 20xx 年 2 月第一版 [11] 張宏林，孔艷，王 哲等編著。 在本次畢業(yè)設計中，我從 羅老師， 身上學到了很多東西。 Set mrc = ExecuteSQL(txtsql) 江西藍天學院畢業(yè)論文 36 If = False Then MsgBox 已存在該用戶！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Text1(0).SelStart = 0 Text1(0).SelLength = Len(Text1(0).Text) Exit Sub End If txtsql = select * from use Set mrc = ExecuteSQL(txtsql) (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) For i = 0 To 2 If Option1(i).Value = True Then Select Case i Case 0 (admin) = y Case 1 (readonly) = y Case 2 For j = 0 To 3 If Check1(j).Value = 1 Then Select Case j Case 0 (qx1) = y 江西藍天學院畢業(yè)論文 37 Case 1 (qx2) = y Case 2 (qx3) = y Case 3 (qx4) = y End Select End If Next j End Select End If Next i MsgBox 用戶添加成功！ , vbExclamation + vbOKOnly, 警告 Text1(0).Text = Text1(1).Text = Text1(2).Text = End Sub Private Sub Command2_Click() Unload Me End Sub 江西藍天學院畢業(yè)論文 38 Private Sub Form_Load() Option1(2).Value = True End Sub Private Sub Form_Resize() Text1(0).SetFocus End Sub Private Sub Option1_Click(Index As Integer) If Index 2 Then For i = 0 To 3 Check1(i).Enabled = False Next i Else For i = 0 To 3 Check1(i).Enabled = True Next i End If End Sub 江西藍天學院畢業(yè)論文 39 第 5 章 總結 與展望 在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。 圖 系統(tǒng)主界面 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2) 江西藍天學院畢業(yè)論文 23 If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) 江西藍天學院畢業(yè)論文 24 If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub Private Sub classapp_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！江西藍天學院畢業(yè)論文 25 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 瀏覽班級設置 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 江西藍天學院畢業(yè)論文 26 End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本 功能的權限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub Private Sub find_Click() End Sub Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本 功能的權限，請與管理員聯(lián)系！, vbInforma