【文章內(nèi)容簡介】 學(xué)籍管理……添加學(xué)籍信息……修改學(xué)籍信息……查詢學(xué)籍信息班級(jí)管理……添加班級(jí)信息……修改班級(jí)信息課程設(shè)置……添加課程信息……修改課程信息……設(shè)置年級(jí)課程成績管理……添加成績信息……修改成績信息……查詢成績信息幫助……使用說明構(gòu)如下表： 圖9 主窗體菜單結(jié)構(gòu)表 創(chuàng)建公用模塊在Visual Basic中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)、全局變量等。整個(gè)工程項(xiàng)目中的任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè)Module。下面就可以開始添加需要的代碼了。由于系統(tǒng)中各個(gè)功能模塊都將頻繁使用數(shù)據(jù)庫中的各種數(shù)據(jù)，因此需要一個(gè)公共的數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種SQL語句。添加函數(shù)ExecuteSQL。ExecuteSQL函數(shù)有兩個(gè)參數(shù)：SQL和MsgString。其中SQL用來存放需要執(zhí)行的SQL語句，MsgString用來返回執(zhí)行的提示信息。函數(shù)執(zhí)行時(shí)，首先判斷SQL語句中包含的內(nèi)容：當(dāng)執(zhí)行查詢操作時(shí)，ExecuteSQL函數(shù)將返回一個(gè)與函數(shù)同名的記錄集對象（Recordset），所有滿足條件的記錄包含在對象中；當(dāng)執(zhí)行如刪除、更新、添加等操作時(shí)，不返回記錄集對象。在ExecuteSQL函數(shù)中使用了Connect String函數(shù)，這個(gè)函數(shù)用來連接數(shù)據(jù)庫。由于在后面的程序中，需要頻繁檢查各種文本框的內(nèi)容是否為空，這里定義了Txsttxt函數(shù)。如果文本框內(nèi)容為空時(shí)，函數(shù)將返回True,否則將返回False。由于學(xué)生信息管理系統(tǒng)啟動(dòng)后，需要對用戶進(jìn)行判斷。如果登錄者是授權(quán)用戶，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行，這個(gè)判斷需要在系統(tǒng)運(yùn)行的最初進(jìn)行，因此將代碼放在公用模塊中。系統(tǒng)需要知道登錄用戶的信息，定義全局變量UserName: Public UserName As String 系統(tǒng)用戶管理模塊的創(chuàng)建系統(tǒng)用戶管理模塊主要實(shí)現(xiàn)：用戶登錄。添加用戶。修改用戶密碼。 用戶登錄窗體的創(chuàng)建系統(tǒng)啟動(dòng)后，將首先出現(xiàn)用戶登錄窗體，用戶首先輸入用戶名，然后輸入密碼。如果用戶3次輸入密碼錯(cuò)誤，將退出程序。圖10 學(xué)生信息管理系統(tǒng)登錄窗體用戶登錄窗體中放置了三個(gè)文本框（Textbox），用來輸入用戶名、密碼和用戶類型；兩個(gè)按鈕（CommandButton）用來確定或取消登錄；四個(gè)標(biāo)簽（Label）用來標(biāo)示窗體的信息。屬性見下表：控件屬性屬性取值FrmLogin(form)NamefrmLoginCaption登錄StartUpPositonCenterSreenWindowStateNoMaltxtUserNameNameTxtUserNametxtPasswordNameTxtpasswordPasswordChar*txtUserSxNameTxtUserSxcmdOKNamecmdOKCaption確定cmdCancelNamecmdCanelCaption取消Lable1Caption學(xué)生信息管理系統(tǒng)Lable2Caption用戶名Lable3Caption用戶密碼Lable4Caption用戶類型表17 用戶登錄窗體中控件及其屬性設(shè)置表文本框TxtPassword的PasswordChar屬性是用指定字符來掩蓋用戶輸入的密碼。為窗體定義全局變量OK，用來判斷登錄是否成功；定義MiCount，用來記載輸入密碼的次數(shù)。并且在載入窗體時(shí)初始化這兩個(gè)全局變量。Option Explicit是用來規(guī)定所有變量使用前必須定義。這樣可以避免由于輸入錯(cuò)誤而產(chǎn)生的新變量。當(dāng)用戶輸入完用戶名、用戶密碼和用戶屬性，單擊CmdOK按鈕將對用戶輸入信息進(jìn)行判斷。用戶單擊該按鈕，將觸發(fā)按鈕cmdOK的Click事件。用戶如果沒有輸入用戶名、用戶密碼和用戶屬性，將出現(xiàn)消息框給予提示。如果輸入的用戶名在用戶表格中沒有找到，將提示重新輸入用戶名（默認(rèn)的用戶名和密碼是aa），文本框TxtUserName，將重新獲得輸入焦點(diǎn)。如果用戶輸入的密碼不正確，文本框TxtPassword將重新獲得輸入焦點(diǎn)。用戶登錄成功，全局變量OK將被賦值為False。公用模塊中的Main過程將根據(jù)OK的值決定是退出，或者進(jìn)入管理員主模塊，或者進(jìn)入學(xué)生主模塊。如果用戶取消登錄，單擊“取消”按鈕，將觸發(fā)按鈕的Click事件，代碼如下： OK = False Me是Visual Basic中常用的對象，用來指代當(dāng)前對象本身。 添加用戶窗體的創(chuàng)建進(jìn)入管理員主模塊后，選擇菜單“系統(tǒng)|添加用戶”就可以添加用戶，出現(xiàn)添加用戶窗體。圖11 添加用戶窗體在添加用戶窗體中放置了三個(gè)文本框，用來輸入用戶名和密碼；兩個(gè)按牛用來確定是否添加用戶；三個(gè)標(biāo)簽用來標(biāo)示文本框的提示。這些控件的屬性見下表：控件屬性屬性取值FrmAdduser(rorm)NameFrmAdduserCaption添加用戶StartUpPositonCenterScreenwindowStateNomaltxtUserNameNameTxtUserNameTxtPassword1NameTxtpassword1PasswordChar*TxtPassword2NameTxtPassword2PasswordChar*cmdOKNamecmdOKCaption確定cmdCanelNamecmdCanelCaption取消Lable1Caption請輸入用戶名Lable2Caption請輸入密碼Lable3Caption請確認(rèn)密碼表18 添加用戶窗體控件及其屬性設(shè)置表用戶需要兩次輸入密碼，用來確保輸入密碼的正確。用戶輸入信息完畢，單擊“確定”按鈕將觸發(fā)Click事件。一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當(dāng)確定數(shù)據(jù)庫中沒有相同的用戶名，并且兩次輸入密碼一致時(shí)，將把該條記錄添加到數(shù)據(jù)庫中。單擊“取消”按鈕將取消添加用戶的操作。 修改用戶密碼窗體的創(chuàng)建用戶可以修改自己的密碼，選擇菜單“系統(tǒng)|修改密碼”，出現(xiàn)“修改密碼”窗體。圖12 用戶修改密碼窗體在修改密碼窗體中，放置了兩個(gè)文本框，用來輸入密碼和確認(rèn)密碼；兩個(gè)按鈕用來確定是否修改密碼；兩個(gè)標(biāo)簽用來標(biāo)示文本框的內(nèi)容?？丶傩匀缦卤恚嚎丶傩詫傩匀≈礔rmModifyuserinfo(Form)NamefrmModifyuserinfoCaption修改密碼StartUpPositonCenterScreenWindowStateNomalTxtPassword1NameTxtPassword1PasswordChar*TxtPassword2NameTxtPassword2PasswordChar*CmdOKNameCmdOKCaption確定CmdCanelNamecmdCanelCaption取消Lable1Caption請輸入密碼Lable2Caption請確認(rèn)密碼表19 用戶修改密碼控件及其屬性設(shè)置表兩次輸入密碼后，單擊“確認(rèn)”按牛，將觸發(fā)Click事件判斷是否修改密碼。當(dāng)兩次輸入密碼一致時(shí)，數(shù)據(jù)庫中的記錄將更新。 學(xué)籍管理模塊的創(chuàng)建學(xué)籍信息管理模塊主要實(shí)現(xiàn)以下功能：添加學(xué)籍信息修改學(xué)籍信息查詢學(xué)籍信息 添加學(xué)籍信息窗體的創(chuàng)建選擇“學(xué)籍管理|添加學(xué)籍信息”菜單，將出現(xiàn)“添加學(xué)籍信息”窗體。圖13 添加學(xué)籍信息窗體在窗體上放置了多個(gè)文本框和下拉式文本框，用來輸入學(xué)籍信息；兩個(gè)按鈕用來確定是否添加學(xué)籍信息；多個(gè)標(biāo)簽用來提示文本框需要輸入的內(nèi)容。屬性見下表：控件屬性屬性取值FrmAddsinfo(Form)NameFrmsinfoCaption添加學(xué)籍信息MDIChildtrueTxtSIDNameTxtSIDTxtNameNameTxtNameTxtBorndateNameTxtBorndateTxtTelNameTxtTelTxtRudateNameTxeRudateTxtAddressNametxtAddressScrollbarsVerticalMultilineTrueTxtCommentNameTxtCommentScrollbarsVerticalMultilinetrueComboGenderNameboGenderComboClassNoNameComboClassNoCmdOKNameCmdOKCaption確定添加CmdcanelNameCmdCanelCaption取消添加Lable1Caption學(xué)號(hào)Lable2Caption姓名Lable3Caption性別Lable4Caption出生日期Lable5Caption班號(hào)Lable6Caption聯(lián)系電話Lable7Caption入校日期Lable8Caption家庭住址Lable9Caption備注表20 添加學(xué)籍信息窗體控件及其屬性設(shè)置表在載入窗體時(shí)，程序?qū)⒆詣?dòng)在兩個(gè)下拉式文本框中添加內(nèi)容，這樣可以規(guī)范化輸入內(nèi)容。在班號(hào)選擇的下拉式文本框中，將出現(xiàn)所有班級(jí)，用戶不用輸入內(nèi)容。用戶輸入內(nèi)容完畢后，單擊cmdOK按鈕將觸發(fā)Click事件。程序首先對是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷，使用了下面兩個(gè)函數(shù)：‘判斷數(shù)據(jù)是否日期格式IsDate()‘判斷數(shù)據(jù)是否日期格式IsDate()判斷是否有重復(fù)記錄是很重要的，否則數(shù)據(jù)庫中將發(fā)生錯(cuò)誤。單擊按鈕cmdCanel取消添加學(xué)籍信息。 修改學(xué)籍信息窗體的創(chuàng)建 選擇“學(xué)籍管理|修改學(xué)籍信息”菜單，將出現(xiàn)“修改學(xué)籍信息”窗體。圖14 修改學(xué)籍信息窗體這個(gè)窗體在“添加學(xué)籍信息”窗體的基礎(chǔ)上添加了兩排按鈕，所有控件的屬性見下表：控件屬性屬性取值FrmAddsinfo(Form)NameFrmsinfoCaption添加學(xué)籍信息MDIChildtrueTxtSIDNameTxtSIDTxtNameNameTxtNameTxtBorndateNameTxtBorndateTxtTelNameTxtTelTxtRudateNameTxeRudateTxtAddressNametxtAddressScrollbarsVerticalMultilineTrueTxtCommentNameTxtCommentScrollbarsVerticalMultilinetrueComboGenderNameboGenderComboClassNoNameComboClassNoCmdFirstNameCmdOKCaption第一條記錄CmdPreviousNameCmdPreviousCaption上一條記錄cmdNextNamecmdNextcaption下一條記錄CmdLastNamecmdLastcaption最后一條記錄CmdEditNameCmdEditCaption修改記錄cmdUpdateNameCmdUpdatecaption更新記錄CmdcanelNameCmdCanelCaption取消修改記錄cmdDeleteNameCmdDeleteCaption刪除記錄Frame1Caption查看學(xué)籍信息Frame2caption修改學(xué)籍信息Lable1Caption學(xué)號(hào)Lable2Caption姓名Lable3Caption性別Lable4Caption出生日期Lable5Caption班號(hào)Lable6Caption聯(lián)系電話Lable7Caption入校日期Lable8Caption家庭住址Lable9Caption備注表21 修改學(xué)籍信息窗體控件及其屬性設(shè)置表第一排按鈕用來方便的瀏覽數(shù)據(jù)庫中各條記錄，第二排按牛用來修改記錄。由于記錄集為整個(gè)窗體公用，需要將記錄集對象定義為全局變量。程序在窗體載入時(shí)自動(dòng)加入各條記錄。由于程序中各處需要顯示數(shù)據(jù)，定義函數(shù)viewDate。單擊“第一條記錄”按鈕，將顯示第一條記錄。單擊“最后一條記錄”按鈕，將顯示最后一條記錄。單擊“上一條記錄”按鈕，將顯示上一條記錄。單擊“下一條記錄”按鈕，將顯示下一條記錄。單擊“修改記錄”按鈕，將進(jìn)入修改狀態(tài)，各個(gè)文本框?qū)⒍加行?。此時(shí)，移動(dòng)記錄按鈕將失效，可以避免誤操作。修改完畢后，單擊“更新記錄”按鈕，將觸發(fā)Click事件。單擊“取消修改記錄”按鈕時(shí)，將取消所作的修改。單擊“刪除記錄”按鈕時(shí)，