【正文】 翻譯：于書舉 許向眾 電子工業(yè)出版社[10] Database Systems 電子工業(yè)出版社附錄：公用模塊原代碼：Public fMainForm As frmMainPublic UserName As StringPublic usertype As String 39。 查詢成績信息窗體的創(chuàng)建選擇“成績管理|查詢成績信息”菜單，將出現(xiàn)“查詢成績信息”窗口。 修改成績信息窗體的創(chuàng)建選擇“成績管理|修改成績信息”菜單，將出現(xiàn)“修改成績信息”窗口。圖21 添加成績信息窗體“添加成績信息”窗體中控件的屬性設(shè)置見下表：控件屬性屬性取值FrmAddresult(Form)NameFrmAddresultCaption添加成績信息MDIChildTrueComboExamtypeNameComboExamtypeComboClassnoNameComboClassnoComboCourseNameComboCourseTxtResultNameTxtResultComboSIDNameComboSIDTxtNameNameTxtNameCmdOKNameCmdOKCaption確定添加CmdCanelNameCmdCanelCaption退出添加Lable1Caption考試編號Lable2Caption選擇班號Label3Caption選擇學(xué)號Lable4Caption姓名Lable5Caption選擇課程Lable6Caption分?jǐn)?shù)表26 添加成績信息窗體中控件及其屬性設(shè)置表選擇班級后，將觸發(fā)Click事件，學(xué)號的文本框中自動加入相關(guān)班級的所有學(xué)號。修改成績信息 成績管理模塊的創(chuàng)建成績管理模塊主要實(shí)現(xiàn)如下功能：單擊“確認(rèn)設(shè)置”按鈕，將課程設(shè)置數(shù)據(jù)保存到數(shù)據(jù)庫中。單擊“添加”和“刪除”按鈕，可以添加和刪除課程。程序根據(jù)選擇的年級查詢獲得相應(yīng)的信息，并顯示在列表框中。Lable1Caption選擇年級Lable2Caption所有課程Lable3Caption已經(jīng)選擇課程表25 設(shè)置年級課程窗體中控件及其屬性設(shè)置表程序開始執(zhí)行時(shí)，選擇年級，將在“已經(jīng)選擇課程”列表框中顯示內(nèi)容。圖20 設(shè)置年級課程窗體窗體中各個(gè)控件的屬性設(shè)置見下表：控件屬性屬性取值Frmsetcourseinfo(Form)NameFrmsetcourseinfoCaption設(shè)置年級課程MDIChildTrueCombogradeNameCombogradeListallcourse(listbox)NameListallcourselistselectcourse(listbox)NameListselectcourseCmdSetNameCmdsetCaption設(shè)置課程CmdModifyNameCmdModifyCaption確認(rèn)設(shè)置CmdAddNameCmdAddCaption224。“查看課程信息”框架中的4個(gè)按鈕用來移動的數(shù)據(jù)集中記錄的位置，“修改課程信息”框架中的4個(gè)按鈕用來修改數(shù)據(jù)集中的記錄。 修改課程信息窗體的創(chuàng)建選擇“課程設(shè)置|修改課程信息”菜單，將出現(xiàn)“修改課程信息”窗體。圖18 添加課程信息窗體窗體中的各個(gè)控件的屬性設(shè)置見下表：控件屬性屬性取值FrmAddcourseinfo(Form)NamefrmaddcourseinfoCaption添加課程信息MDIChildTrueTxtCoursenoNameTxtcoursenoTxtCoursenameNameTxtcoursenameComboCoursetypenameCombocoursetypeTxtcoursedesNameTxtcoursedesCommand1NameCommand1Caption確定添加Command2NameCommand2Caption退出添加Lable1Caption課程編號Lable2Caption課程名稱Lable3Caption課程類型Lable4Caption課程描述表24 添加課程信息窗體控件及其屬性設(shè)置表單擊“確認(rèn)添加”按鈕，觸發(fā)Click事件并添加記錄到數(shù)據(jù)庫。修改課程設(shè)置 課程設(shè)置模塊的創(chuàng)建課程設(shè)置模塊主要實(shí)現(xiàn)如下功能：窗體中“查看班級信息”中的按鈕，可以瀏覽數(shù)據(jù)庫中的各條記錄。 修改班級信息窗體的創(chuàng)建選擇“班級管理|修改班級信息”菜單，將出現(xiàn)“修改班級信息”窗體。然后判斷是否為重復(fù)記錄，最后將滿足要求的記錄添加到數(shù)據(jù)庫。圖16 添加班級信息窗體窗體中各個(gè)屬性見下表：控件屬性屬性取值FrmAddclassinfo(Roem)NameFrmAddclassinfoCaption添加班級信息MDIChildTrueTxtClassnoNameTxtClassnoComboGradeNameComboGradeTxtDirectorNameTxtDirectortxtClassroomNameTxtClassroomCommand1NameCommand1Caption確定添加Lable1Caption班號Command2NameCommand2Caption退出添加Lable2Caption年級Lable3Caption班主任Lable4Caption教室表23 添加班級信息窗體控件及其屬性設(shè)置表輸入完內(nèi)容，單擊“確定添加”按鈕，觸發(fā)Click事件，添加內(nèi)容到數(shù)據(jù)庫。添加班級信息單擊“退出查詢”按鈕，將退出查詢。查詢到數(shù)據(jù)集以后，需要正常顯示在表格控件中。單擊“查詢”按鈕，觸發(fā)Click事件進(jìn)行查詢。查詢學(xué)籍信息窗體包括的控件及其屬性設(shè)置見下表：控件屬性屬性取值FrmInquiresinfo(Form)NamefrmInquiresinfoCaption查詢學(xué)籍信息MDIChildTrueCheck1Caption按學(xué)號Check2Caption按姓名Check3Caption按班號CmdInquireNameCmdInquireCaption查詢CmdExitNameCmdExitCaption退出查詢MyFlexgrit(MSHFlexgrid)nameMyFlexgrid表22 查詢學(xué)籍信息窗體及其控件屬性設(shè)置表在窗體中添加了一個(gè)表格控件（MSHFlexgrid）,用來顯示查詢后得到的結(jié)果。 查詢學(xué)籍信息窗體的創(chuàng)建選擇“學(xué)籍管理|查詢學(xué)籍信息”菜單，將出現(xiàn)“查詢學(xué)籍信息”菜單。單擊“取消修改記錄”按鈕時(shí)，將取消所作的修改。此時(shí)，移動記錄按鈕將失效，可以避免誤操作。單擊“下一條記錄”按鈕，將顯示下一條記錄。單擊“最后一條記錄”按鈕，將顯示最后一條記錄。由于程序中各處需要顯示數(shù)據(jù)，定義函數(shù)viewDate。由于記錄集為整個(gè)窗體公用，需要將記錄集對象定義為全局變量。 修改學(xué)籍信息窗體的創(chuàng)建 選擇“學(xué)籍管理|修改學(xué)籍信息”菜單，將出現(xiàn)“修改學(xué)籍信息”窗體。程序首先對是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷，使用了下面兩個(gè)函數(shù)：‘判斷數(shù)據(jù)是否日期格式IsDate()‘判斷數(shù)據(jù)是否日期格式IsDate()判斷是否有重復(fù)記錄是很重要的，否則數(shù)據(jù)庫中將發(fā)生錯(cuò)誤。在班號選擇的下拉式文本框中，將出現(xiàn)所有班級，用戶不用輸入內(nèi)容。圖13 添加學(xué)籍信息窗體在窗體上放置了多個(gè)文本框和下拉式文本框，用來輸入學(xué)籍信息；兩個(gè)按鈕用來確定是否添加學(xué)籍信息；多個(gè)標(biāo)簽用來提示文本框需要輸入的內(nèi)容。修改學(xué)籍信息 學(xué)籍管理模塊的創(chuàng)建學(xué)籍信息管理模塊主要實(shí)現(xiàn)以下功能：控件屬性如下表：控件屬性屬性取值FrmModifyuserinfo(Form)NamefrmModifyuserinfoCaption修改密碼StartUpPositonCenterScreenWindowStateNomalTxtPassword1NameTxtPassword1PasswordChar*TxtPassword2NameTxtPassword2PasswordChar*CmdOKNameCmdOKCaption確定CmdCanelNamecmdCanelCaption取消Lable1Caption請輸入密碼Lable2Caption請確認(rèn)密碼表19 用戶修改密碼控件及其屬性設(shè)置表兩次輸入密碼后，單擊“確認(rèn)”按牛，將觸發(fā)Click事件判斷是否修改密碼。 修改用戶密碼窗體的創(chuàng)建用戶可以修改自己的密碼，選擇菜單“系統(tǒng)|修改密碼”，出現(xiàn)“修改密碼”窗體。當(dāng)確定數(shù)據(jù)庫中沒有相同的用戶名，并且兩次輸入密碼一致時(shí)，將把該條記錄添加到數(shù)據(jù)庫中。用戶輸入信息完畢，單擊“確定”按鈕將觸發(fā)Click事件。圖11 添加用戶窗體在添加用戶窗體中放置了三個(gè)文本框，用來輸入用戶名和密碼；兩個(gè)按牛用來確定是否添加用戶；三個(gè)標(biāo)簽用來標(biāo)示文本框的提示。如果用戶取消登錄，單擊“取消”按鈕，將觸發(fā)按鈕的Click事件，代碼如下： OK = False Me是Visual Basic中常用的對象，用來指代當(dāng)前對象本身。用戶登錄成功，全局變量OK將被賦值為False。如果輸入的用戶名在用戶表格中沒有找到，將提示重新輸入用戶名（默認(rèn)的用戶名和密碼是aa），文本框TxtUserName，將重新獲得輸入焦點(diǎn)。用戶單擊該按鈕，將觸發(fā)按鈕cmdOK的Click事件。這樣可以避免由于輸入錯(cuò)誤而產(chǎn)生的新變量。并且在載入窗體時(shí)初始化這兩個(gè)全局變量。屬性見下表：控件屬性屬性取值FrmLogin(form)NamefrmLoginCaption登錄StartUpPositonCenterSreenWindowStateNoMaltxtUserNameNameTxtUserNametxtPasswordNameTxtpasswordPasswordChar*txtUserSxNameTxtUserSxcmdOKNamecmdOKCaption確定cmdCancelNamecmdCanelCaption取消Lable1Caption學(xué)生信息管理系統(tǒng)Lable2Caption用戶名Lable3Caption用戶密碼Lable4Caption用戶類型表17 用戶登錄窗體中控件及其屬性設(shè)置表文本框TxtPassword的PasswordChar屬性是用指定字符來掩蓋用戶輸入的密碼。如果用戶3次輸入密碼錯(cuò)誤，將退出程序。修改用戶密碼。添加用戶。用戶登錄。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行，這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。如果文本框內(nèi)容為空時(shí)，函數(shù)將返回True,否則將返回False。在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫。其中SQL用來存放需要執(zhí)行的SQL語句，MsgString用來返回執(zhí)行的提示信息。添加函數(shù)ExecuteSQL。下面就可以開始添加需要的代碼了。整個(gè)工程項(xiàng)目中的任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。單擊Insert Panel按鈕，為狀態(tài)欄添加3個(gè)面板，設(shè)置屬性如下表：面板屬性屬性取值1styleSbrText2styleSbrDate3styleSbrTime表16 主窗體中面板屬性設(shè)置表面板1用來顯示各種文本信息，面板2用來顯示當(dāng)前日期，面板3用來顯示當(dāng)前時(shí)間。狀態(tài)欄控件需要在通常的屬性窗口中設(shè)置一般屬性，還需要在其特有的彈出式菜單中進(jìn)行設(shè)置。圖8 學(xué)生信息管理系統(tǒng)主窗體單擊工具欄中的“ADD MDI Form”按鈕，生成一個(gè)窗體，屬性設(shè)置如表。而MDI的程序中，有一個(gè)窗體是主窗體，可以包含其他窗體，它的類型是MDI Form?！　?創(chuàng)建學(xué)生信息管理系統(tǒng)的主窗體Visual Basic創(chuàng)建的應(yīng)用程序可以是SDI（單文檔界面）和MDI（多文檔界面）。啟動Visual Basic后，單