學生管理系統(tǒng)VB

1、學生管理系統(tǒng)一系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)學生信息關(guān)系的系統(tǒng)化，規(guī)范化和自動化。主要功能有：1有關(guān)學籍等信息的輸入，包括輸入學生基本信息，所在班機，所學課程和成績等。2學生信息的查詢，包括查詢學生基本信息，所在班級，已學課程，和成績等3學生信息修改4班級管理信息的輸入，包括輸入班級設(shè)置，年級信息等。5班級管理信息查詢6班級管理信息修改7學?；菊n程信息輸入8基本課程信息修改9學生課程的設(shè)置和修改10學生成績信息的輸入11學生成績信息的修改12 學生成績信息的查詢13學生成績信息的統(tǒng)計1. 1. 2系統(tǒng)功能模塊設(shè)計數(shù)據(jù)庫設(shè)計1.2.1數(shù)據(jù)庫需求分析1學生基本信息：學號，姓名，性別，出生日

2、期，班號，電話，入校日期，家庭住址，備 注等。2班級信息：班號，所在年級，班主任姓名，所在教室3課程基本信息：課程號，課程名稱，課程類別，課程描述4課程設(shè)置信息：年級信息，所學課程等。5學生成績信息：考試編號，所在班級，學生學號，學生姓名，所學課程，考試分數(shù)1.2.2數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計根據(jù)扇面的設(shè)計規(guī)劃出的實體有：學生實體，班級實體，年級實體，課程實體 各個實體具體的描述E-R圖如下C學生成績信息實體和實體之間的關(guān)系E-R如下三數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn)1.3.1創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表1創(chuàng)建系統(tǒng)用戶表格user-InfoCREAT TABLE dbo.user-info(user-ID char (10)

3、COLLATE Chinese-PRC-CI-AS NOT NULL,user-PWD char (10) COLLATE Chinese-PRC-CI-AS NULL,user-Des char (10) COLLATE Chinese-PRC-CI-AS NULL, )ON PRIMARY2創(chuàng)建學生基本信息表格student_InfoCREATE TABLE dbo. student_Info(student_ID int NOT NULL,student -ID char (10) COLLATE Chinese-PRC-CI-AS NULL,student -Sex char (2)

4、COLLATE Chinese-PRC-CI-AS NULL,born_Date datetime NULL,class_NO int NULL,tele_Number char (10) COLLATE Chinese-PRC-CI-AS NULL,ru_Date datetime NULL,address varchar (50) COLLATE Chinese-PRC-CI-AS NULL, comment varchar (200) COLLATE Chinese-PRC-CI-AS NULL, )ON PRIMARY3創(chuàng)建班級信息表格class_InfoCREAT TABLE dbo

5、.class-info(class_No int NOT NULL,grade char (10) COLLATE Chinese-PRC-CI-AS NULLdirector char (10) COLLATE Chinese-PRC-CI-AS NULL classroom_No char (10) COLLATE Chinese-PRC-CI-AS NULL)ON PRIMARY4創(chuàng)建課程基本信息表 course_InfoCREAT TABLE dbo.course-info(course_No int NOT NULL,course_Name char (10) COLLATE Chi

6、nese-PRC-CI-AS NULL course_Type char (10) COLLATE Chinese-PRC-CI-AS NULL course_Des char (50) COLLATE Chinese-PRC-CI-AS NULL )ON PRIMARY5創(chuàng)建年級課程設(shè)置信息表gradecourse_InfoCREAT TABLE dbo.gradecourse-info(grade char (10) COLLATE Chinese-PRC-CI-AS NULL course_Name char (10) COLLATE Chinese-PRC-CI-AS NULL )ON

7、 PRIMARY6創(chuàng)建學生成績信息表result_InfoCREAT TABLE dbo.result-info(exam_No char (10) COLLATE Chinese-PRC-CI-AS NOT NUL student_ID int NOT NULLstudent Name char (10) COLLATE Chinese-PRC-CI-AS NULL class_No int NULLcourse_Name char (10) COLLATE Chinese-PRC-CI-AS NULL result float NULL)ON PRIMARY四系統(tǒng)用戶管理模塊的創(chuàng)建控 件屬

8、性屬性取值frmLogin(From)NamefrmLoginCaptionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNametxtpasswordNametxtPasswordPassword*cmdOKNamecmdOKCaption確定cmdCancelNamecmdCancelCaption取消Label1Caption學生信息管理系統(tǒng)Label2Caption用戶名Label3Caption用戶密碼LabelCaption版權(quán)提供主要實現(xiàn)：1用戶登錄2添加用戶3修改用戶密碼系統(tǒng)啟動后，將首先出現(xiàn)如下

9、圖所示的用戶登錄窗體，用戶首先輸入用戶名，然后輸入密碼，如果用戶3次輸入密碼不正確，將退出程序。用戶登錄窗體中放置兩個文本文檔(TextBox)，用來輸入用戶名和用戶密碼；兩個按鈕 (CommandButton)用來確定或取消登錄；4個標簽(Label)用來標示窗體的信息。為窗體定義全局變量OK，用來判斷登陸是否成功；定義miCount，用來記載輸入密碼 的次數(shù)，并且在載入窗體時初始化這兩個變量，代碼如下： 用戶登錄窗體創(chuàng)建強制變量聲明代碼實現(xiàn)如下：Option ExplicitPublic OK As Boolean記錄確定次數(shù)Dim miCount As IntegerPrivate Su

10、b Form_Load()OK = FalsemiCount = 0End SubOption Explicit是用來規(guī)定所有變量使用前必須定義。這樣可以避免由于輸入錯誤而產(chǎn)生的 新變量。當用戶輸入完用戶名和用戶密碼，單擊cmdOK按鈕將對用戶輸入信息進行判斷。用戶 單擊按鈕，將觸發(fā)按鈕cmdOK的Click事件，代碼如下：Private Sub cmdOK_Click()用來存放SQL語句Dim txtSQL As String用來存放記錄集對象Dim mrc As ADODB.Recordset用來存放返回信息Dim MsgText As StringToDo: create test f

11、or correct passwordcheck for correct passwordUserName =If Trim(txtUserName.Text = ) Then判斷輸入用戶名為空MsgBox ”沒有這個用戶，請重新輸入用戶名！”, vbOKOnly + vbExclamation,”警告” txtUserName.SetFocusElsetxtSQL = select * from user_Info where user_ID = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = Tr

12、ue ThenMsgBox 沒有這個用戶，請重新輸入用戶名!，vbOKOnly + vbExclamation,警告txtUserName.SetFocusElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) ThenOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox 輸入密碼不、正確，請重新輸入！ , vbOKOnly + vbExclamation,警告txtPassword.SetFocus txtPassword.Text = End IfEnd IfE

13、nd IfmiCount = miCount + 1If miCount = 3 ThenMe.HideEnd IfExit SubEnd Sub用戶如果沒有輸入用戶名密碼，將出現(xiàn)消息框給予提示。如果輸入的用戶名在用戶表格 中沒有找到，將提示重新輸入用戶名，文本檔txtUserName將重新獲得輸入焦點。如果用戶 輸入密碼不正確，文本檔txtUserName將重新獲得輸入焦點。用戶登錄成功，全局變量OK 將被賦值為Ture； 一旦三次輸入密碼均不正確，全局變量OK將被賦值為False。公用模塊 中的Main過程將根據(jù)OK的值決定是退出，或者進入系統(tǒng)。如果用戶取消登錄，單擊“取 消”按鈕，將觸發(fā)

14、按鈕的Click事件；代碼如下：OK=Falseme.HideMe是Visual Basic中一個常用的對象，用來指代當前對象本身。添加用戶窗體創(chuàng)建控 件屬性屬性取值frmLogin(From)NamefrmLoginCaptionStartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNameTxtpassword1NametxtPassword1password*NametxtPasswordPassword*cmdOKNamecmdOKCaption確定cmdCancelNamecmdCancelCaption取消L

15、abel1CaptionLabel2CaptionLabel3Caption用戶需要兩次輸入密碼，用來確保輸入密碼的正確。用戶輸入信息完畢，單擊“確定”按鍵將觸發(fā)Click事件，代碼如下：Private Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringIf Trim(Text1(0).Text) = ThenMsgBox ”請輸入用戶名稱！”, vbOKOnly + vbExclamat

16、ion,”警告”Exit SubText1(0).SetFocusElsetxtSQL = select * from user_Info Set mrc = ExecuteSQL(txtSQL, MsgText)判斷數(shù)據(jù)集是否為空While (mrc.EOF = False)判斷是否有重復記錄If Trim(mrc.Fields(0) = Trim(Text1(0) ThenMsgBox 用戶已經(jīng)存在，請重新輸入用戶名！，vbOKOnly + vbExclamation, 警告Text1(0).SetFocusText1(0).Text =Text1(1).Text =Text1(2).Te

17、xt =Exit SubElse移動到下一條記錄mrc.MoveNextEnd IfWendEnd If判斷兩次輸入密碼是否一致If Trim(Text1(1).Text) Trim(Text1(2).Text) ThenMsgBox 兩次輸入密碼不一樣，請確認！, vbOKOnly + vbExclamation,警告Text1(1).SetFocusText1(1).Text =Text1(2).Text = Exit SubElse判斷輸入密碼是否為空If Text1(1).Text = ThenMsgBox ”密碼不能為空！、vbOKOnly + vbExclamation,”警告”T

18、ext1(1).SetFocusText1(1).Text =Text1(2).Text =Elsemrc.AddNewmrc.Fields(0) = Trim(Text1(0).Text)mrc.Fields(1) = Trim(Text1(1).Text)mrc.Updatemrc.CloseMe.HideMsgBox ”添加用戶成功！、vbOKOnly + vbExclamation,，添加用戶”End IfEnd IfEnd Sub-W XI明f 菖# Q .F. ft格, k II是申受皆8垣篇十：gOi； H90X3WFFfc 汕 fruist Fvmflt Qoturi ftjr

19、 QfEe TkJsGetwnHA頑_J國劇& g 0 =| _i IT3 E_L1 口士 J r.曲斐Add-Ins 丑nm Ebmt sifif ainYU_L lirk (J曲認fittAffi戶書MCA和-! X|(Narine) Returns rre name3匚翌1一旦輸入密碼完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫中與新建用戶名相同的記錄，如果有相同的 記錄將提示用戶重新輸入用戶名。但確定數(shù)據(jù)庫中沒有相同的用戶名，并且兩次輸入密碼一 致的時候，將把該條記錄添加到數(shù)據(jù)庫中。單擊取消按鈕將取消添加用戶的操作。修改用戶密碼窗體創(chuàng)建兩次輸入密碼后，單擊“確認”按鈕，將觸發(fā)Click事件判斷是否修改密

20、碼，代碼如下控 件屬性屬性取值frmLogin(From)NamefrmLoginCaption修改密碼StartUpPostionCenterScreenWindowStateNomaltxtUserNameNametxtUserNameTxtpassword1NametxtPassword1password*NametxtPasswordPassword*cmdOKNamecmdOKCaption確定cmdCancelNamecmdCancelCaption取消Label1Caption請輸入密碼Label2Caption請確認密碼Private Sub cudOK_Click()Dim

21、txtSQL, MsgText As StringDim mrc ADODB.Recrodset判斷是否為空If Trim(Text(1).Text)Trim(Text(2).Text)ThenMsgBox “密碼輸入不正確！，vbOKOnly+vbExclamation, “警告Text(1).SetFocusText(1).Text= ”ElsetxtSQL=”select*ftom user_Info where user_ID=”&UserName&Set mrc=ExecuteSQL(txtSQL,MsgText)mrc.Fields(1)=Text(1).Textmrc.Updat

22、emrc.CloseMsgBox” 密碼修改成功!”,vbOKOnly+vbExclamation,，修改密碼”Me.hideEnd ifEnd sub學籍管理模塊的創(chuàng)建控件屬性屬性取值txtSIDNametxtSIDtxtTelNametxtTeltxtRudateNametxtRudatetxtAddressScrollBarsVerticalMultiLineTruetxtCommentNametxtCommentScrollBarsVerticalMultiLineTruecomboGenderNamecomboGendercomboClassNoNamecomboClassNocmd

23、FirstNamecndOKCaption第一條記錄cmdPreviousNamecmdNextCaption上一條記錄cmdNextNamecmdNextCaption下一條記錄cmdLastNamecmdLastCaption最后一條記錄cmdEditNamecmdEditCaption修改記錄cmdUpdateNamecmdUpdateCaption更新記錄cmdCancelNamecmdCancelCaption取消修改記錄cmdDeleteNamecmdDeleteCaption刪除記錄FramelCaption查看學籍信息Frame2Caption修改學籍信息LabellCapti

24、on學號Label2Caption姓名Label3Caption性別Label4Caption出生日期Label5Caption班號Label6Caption聯(lián)系電話Label7Caption入校日期Label8Caption家庭住址Label9Caption備注功能如下1添加學籍信息2修改學籍信息3查詢學籍信息代碼如下：添加學籍信息窗體創(chuàng)建Private Sub Command1_Click()定義數(shù)據(jù)集對象Dim mrc As ADODB.Recordset定義字符串變量，表示查詢語句Dim txtSQL As String定義字符串變量，返回查詢信息Dim MsgText As Stri

25、ng是否輸入學號If Not Testtxt(txtSID.Text) ThenMsgBox ”請輸入學號！ ”, vbOKOnly + vbExclamation,”警告 txtSID.SetFocusExit SubEnd IfIf Not Testtxt(txtName.Text) ThenMsgBox ”請輸入姓名！ ”, vbOKOnly + vbExclamation,，警告 txtName.SetFocusExit SubEnd If判斷是否輸入姓名If Not Testtxt(comboSex.Text) ThenMsgBox ”請選擇性別！”, vbOKOnly + vbEx

26、clamation, ”警告comboSex.SetFocusExit SubEnd If判斷是否輸入性別If Not Testtxt(txtBorndate.Text) ThenMsgBox ”請輸入出生日期！”, vbOKOnly + vbExclamation,，警告txtBorndate.SetFocusExit SubEnd If判斷是否輸入出生日期If Not Testtxt(comboClassno.Text) ThenMsgBox ”請選擇班號！”, vbOKOnly + vbExclamation,”警告”comboClassno.SetFocusExit SubEnd If

27、判斷是否選擇班號If Not Testtxt(txtTel.Text) ThenMsgBox ”請輸入聯(lián)系電話！”, vbOKOnly + vbExclamation,”警告 txtTel.SetFocusExit SubEnd If判斷是否輸入聯(lián)系電話If Not Testtxt(txtRudate.Text) ThenMsgBox ”請輸入入校日期！”, vbOKOnly + vbExclamation,”警告txtRudate.SetFocusExit SubEnd IfIf Not Testtxt(txtAddress.Text) ThenMsgBox ”請輸入家庭住址！”, vbOK

28、Only + vbExclamation,”警告txtAddress.SetFocusExit SubEnd IfIf Not IsNumeric(Trim(txtSID.Text) ThenMsgBox ”請輸入數(shù)字！ ”, vbOKOnly + vbExclamation,，警告”Exit SubtxtSID.SetFocusEnd IftxtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = F

29、alse ThenMsgBox ”學號重復，請重新輸入！ ”, vbOKOnly + vbExclamation,”警告”mrc.ClosetxtSID.SetFocusElsemrc.CloseIf Not IsDate(txtBorndate.Text) ThenMsgBox 出生時間應(yīng)輸入日期格式(yyyy-mm-dd)！ , vbOKOnly + vbExclamation,”警告”txtBorndate.SetFocusElsetxtBorndate = Format(txtBorndate, yyyy-mm-dd)If Not IsDate(txtRudate.Text) Then

30、MsgBox 入校時間應(yīng)輸入日期格式(yyyy-mm-dd)！ , vbOKOnly + vbExclamation, ”警告”txtRudate.SetFocusElsetxtRudate = Format(txtRudate, yyyy-mm-dd)txtSQL = select * from student_InfoSet mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(txtSID.Text)mrc.Fields(1) = Trim(txtName.Text)mrc.Fields(2) = Trim(com

31、boSex.Text)mrc.Fields(3) = Trim(txtBorndate.Text)mrc.Fields(4) = Trim(comboClassno.Text)mrc.Fields(5) = Trim(txtTel.Text)mrc.Fields(6) = Trim(txtRudate.Text)mrc.Fields(7) = Trim(txtAddress.Text)mrc.Fields(8) = Trim(txtComment.Text)mrc.UpdateMsgBox 添加學籍信息成功！, vbOKOnly + vbExclamation,警告 mrc.CloseMe.H

32、ideEnd IfEnd IfEnd If程序首先對是否輸入內(nèi)容進行判斷，然后進行格式判斷，使用了下面兩個函數(shù)判斷數(shù)據(jù)是否日期格式IsDate(txtBorndate.Text)判斷數(shù)據(jù)是否日期格式IsDate(txtRudate.Text)判斷是否有重復記錄是很重要的，否則數(shù)據(jù)庫中將發(fā)生錯誤。業(yè)2S1.fitudb&nt_Mte - 土MMolt 州idW fiadc 俄1爐-_MJe 1 甫心Mkklofa* (Foi-nt-W X|1 X也昭航 1 k11.?？?呂皆奩垣q go孑甘日H5:5T45I ll ICP Ffc Cdt 溟h 紂2t Format Qstwi ftjr Que

33、ry Owe Tneb AHnji 翳Tm HobA頑_1國劇& g 0 =| _i IT101|.-II -1st 頊ZOT* L . |-n1(Hdnw)Fstims ire& t. 畛1竽股理不藐Mm,. |屆對扣七財.Hri wk-1.修改學籍信息窗體創(chuàng)建控件屬性屬性取值txtSIDNametxtSIDtxtTelNametxtTeltxtRudateNametxtRudatetxtAddressScrollBarsVerticalMultiLineTruetxtCommentNametxtCommentScrollBarsVerticalMultiLineTruecomboGende

34、rNamecomboGendercomboClassNoNamecomboClassNocmdFirstNamecndOKCaption第一條記錄cmdPreviousNamecmdNextCaption上一條記錄cmdNextNamecmdNextCaption下一條記錄cmdLastNamecmdLastCaption最后一條記錄cmdEditNamecmdEditCaption修改記錄cmdUpdateNamecmdUpdateCaption更新記錄cmdCancelNamecmdCancelCaption取消修改記錄cmdDeleteNamecmdDeleteCaption刪除記錄Fr

35、ame1Caption查看學籍信息Frame2Caption修改學籍信息Label1Caption學號Label2Caption姓名Label3Caption性別Label4Caption出生日期Label5Caption班號Label6Caption聯(lián)系電話Label7Caption入校日期Label8Caption家庭住址Label9Caption備注定義數(shù)據(jù)集對象Dim mrc As ADODB.Recordset 定義書簽，用來記載當前記錄位置 Dim myBookmark As Variant 判斷是否修改記錄Dim mcclean As Boolean程序在窗體載入時自動加入各條記

36、錄Private Sub editCommand_Click() mcclean = False Frame2.Enabled = False firstCommand.Enabled = False previousCommand.Enabled = False nextCommand.Enabled = False lastCommand.Enabled = FalsetxtSID.Enabled = True txtName.Enabled = True comboSex.Enabled = True txtBorndate.Enabled = True comboClassno.Ena

37、bled = True txtRudate.Enabled = True txtTel.Enabled = True txtAddress.Enabled = True txtComment.Enabled = TruemyBookmark = mrc.Bookmark End SubPrivate Sub cancelCommand_Click() If Not mcclean ThenFrame2.Enabled = TruefirstCommand.Enabled = TruepreviousCommand.Enabled = TruenextCommand.Enabled = True

38、lastCommand.Enabled = TruetxtSID.Enabled = FalsetxtName.Enabled = FalsecomboSex.Enabled = FalsetxtBorndate.Enabled = FalsecomboClassno.Enabled = FalsetxtRudate.Enabled = FalsetxtTel.Enabled = FalsetxtAddress.Enabled = FalsetxtComment.Enabled = Falsemrc.Bookmark = myBookmarkCall viewDataElseMsgBox ”什

39、么都沒有修改，有什么好取消的！”, vbOKOnly + vbExclamation,”警告”End IfEnd SubPrivate Sub deleteCommand_Click()myBookmark = mrc.Bookmarkstr2$ = MsgBox(是否刪除當前記錄？ ”, vbOKCancel,”刪除當前記錄”)If str2$ = vbOK Thenmrc.MoveNextIf mrc.EOF Thenmrc.MoveFirstmyBookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark = myBookmarkCa

40、ll viewDataElsemyBookmark = mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark = myBookmarkCall viewDataEnd IfElsemrc.Bookmark = myBookmarkCall viewDataEnd IfEnd SubPrivate Sub firstCommand_Click()mrc.MoveFirstCall viewDataEnd SubPrivate Sub Form_Load()SOL語句Dim txtSQL As StringDim MsgText As Stringt

41、xtSQL = select * from student_Info 執(zhí)行查詢操作Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.MoveFirst顯示數(shù)據(jù)Call viewDatamcbookmark = mrc.Bookmark mcclean = TrueEnd Sub由于程序各處需要顯示數(shù)據(jù)，定義函數(shù)viewDataPublic Sub viewData()txtSID.Text = mrc.Fields(0)txtName.Text = mrc.Fields(1)comboSex.Text = mrc.Fields(2)txtBorndate.Tex

42、t = Format(mrc.Fields(3), yyyy-mm-dd)comboClassno.Text = mrc.Fields(4)txtTel.Text = mrc.Fields(5)txtRudate.Text = Format(mrc.Fields(6), yyyy-mm-dd)txtAddress.Text = mrc.Fields(7)txtComment.Text = mrc.Fields(8)End Sub單擊“最后一條記錄”，將顯示最后一條記錄Private Sub lastCommand_Click()移動到數(shù)據(jù)集的最后一條記錄mrc.MoveLastCall vie

43、wDataEnd SubPrivate Sub nextCommand_Click()mrc.MoveNextIf mrc.EOF Thenmrc.MoveFirstEnd IfCall viewDataEnd SubPrivate Sub previousCommand_Click()mrc.MovePreviousIf mrc.BOF Thenmrc.MoveLastEnd IfCall viewDataEnd Sub修改完畢后，單擊“更新記錄“按鈕，將觸發(fā)Click事件Private Sub updateCommand_Click()Dim txtSQL As StringDim Msg

44、Text As StringDim mrcc As ADODB.Recordset判斷是否處于修改狀態(tài)If mcclean ThenMsgBox ”請先修改學籍信息”,vbOKOnly + vbExclamation,，警告”Exit SubEnd If判斷數(shù)據(jù)是否為空If Not Testtxt(txtSID.Text) ThenMsgBox ”請輸入學號！ ”, vbOKOnly + vbExclamation,”警告”txtSID.SetFocusExit SubEnd If判斷學號是否為空If Not Testtxt(txtName.Text) ThenMsgBox ”請輸入姓名！ ”

45、, vbOKOnly + vbExclamation, ”警告”txtName.SetFocusExit SubEnd If判斷姓名是否為空If Not Testtxt(comboSex.Text) ThenMsgBox ”請選擇性別！”, vbOKOnly + vbExclamation,，警告”comboSex.SetFocusExit SubEnd If判斷性別是否為空If Not Testtxt(txtBorndate.Text) ThenMsgBox ”請輸入出生日期！”, vbOKOnly + vbExclamation,，警告”txtBorndate.SetFocusExit S

46、ubEnd If判斷出生日期是否為空If Not Testtxt(comboClassno.Text) ThenMsgBox ”請選擇班號！”, vbOKOnly + vbExclamation, ”警告”comboClassno.SetFocusExit SubEnd If判斷班號是否為空If Not Testtxt(txtTel.Text) ThenMsgBox ”請輸入聯(lián)系電話！”, vbOKOnly + vbExclamation, ”警告” txtTel.SetFocusExit SubEnd If判斷聯(lián)系電話是否為空If Not Testtxt(txtRudate.Text) Th

47、enMsgBox ”請輸入入校日期！”, vbOKOnly + vbExclamation, ”警告”txtRudate.SetFocusExit SubEnd If判斷入校日期是否為空If Not Testtxt(txtAddress.Text) ThenMsgBox ”請輸入家庭住址！”, vbOKOnly + vbExclamation, ”警告”txtAddress.SetFocusExit SubEnd If判斷家庭住址是否為空If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox ”學號請輸入數(shù)字！ ”, vbOKOnly + vbExclama

48、tion,，警告” txtSID.SetFocusExit Sub判斷是否為數(shù)字End If判斷是否有重復記錄mrc.DeletetxtSQL = select * from student_Info where student_ID = & Trim(txtSID.Text) & Set mrcc = ExecuteSQL(txtSQL, MsgText)If mrcc.EOF = False ThenMsgBox ”學號重復，請重新輸入！ ”, vbOKOnly + vbExclamation,”警告” mrcc.Close txtSID.SetFocusElsemrcc.CloseIf

49、Not IsDate(txtBorndate.Text) ThenMsgBox 出生時間應(yīng)輸入日期格式(yyyy-mm-dd)！ , vbOKOnly + vbExclamation,”警告”txtBorndate.SetFocusElsetxtBorndate = Format(txtBorndate, yyyy-mm-dd)If Not IsDate(txtRudate.Text) ThenMsgBox 入校時間應(yīng)輸入日期格式(yyyy-mm-dd)！ , vbOKOnly + vbExclamation, 警告txtRudate.SetFocusElsetxtRudate = Forma

50、t(txtRudate, yyyy-mm-dd)mrc.AddNewmrc.Fields(O) = Trim(txtSID.Text)mrc.Fields(l) = Trim(txtName.Text)mrc.Fields(2) = Trim(comboSex.Text)mrc.Fields(3) = Trim(txtBorndate.Text)mrc.Fields(4) = Trim(comboClassno.Text)mrc.Fields(5) = Trim(txtTel.Text)mrc.Fields(6) = Trim(txtRudate.Text)mrc.Fields(7) = Tr

51、im(txtAddress.Text)mrc.Fields(8) = Trim(txtComment.Text)mrc.UpdateMsgBox ”修改學籍信息成功！”, vbOKOnly + vbExclamation,”修改學籍信 息”mrc.Bookmark = myBookmarkCall viewDataFrame2.Enabled = TruefirstCommand.Enabled = TruepreviousCommand.Enabled = True nextCommand.Enabled = True lastCommand.Enabled = TruetxtSID.Ena

52、bled = FalsetxtName.Enabled = FalsecomboSex.Enabled = FalsetxtBorndate.Enabled = False comboClassno.Enabled = False txtRudate.Enabled = FalsetxtTel.Enabled = FalsetxtAddress.Enabled = FalsetxtComment.Enabled = False mcclean = TrueEnd IfEnd IfEnd IfEnd SubEnd SubPrivate Sub Command2_Click()Unload MeE

53、nd SubPrivate Sub Form_Load()Dim mrc As ADODB.RecordsetDim txtSQL As StringDim MsgText As StringDim i As IntegercomboSex.AddItem ”男”comboSex.AddItem ”女” txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText)For i = 1 To mrc.RecordCountcomboClassno.AddItem mrc.Fields(O) mrc.MoveNextN

54、ext imrc.CloseEnd Sub查詢學籍信息窗體的創(chuàng)建控 件屬性屬性取值frmInquiresinfoNamefrmInquiresinfoCaption查詢學籍信息MDIChildTrueCheck1Caption按學號Check2Caption按姓名Check3Caption按班號cmdInquireNamecmdInquireCaption查詢cmdExitNamecmdExitCaption推出查詢myFlexgrid(MSHFlexgrid)NamemyFlexgridPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Su

55、b cmdInquire_Click()Dim txtSQL As StringDim MsgText As StringDim dd(4) As BooleanDim mrc As ADODB.Recordset組合SQL語句txtSQL = select * from student_Info where判斷是否選擇學號查詢方式If Check1(0).Value ThenIf Trim(txtSID.Text) = ThensMeg =學號不能為空”MsgBox sMeg, vbOKOnly + vbExclamation,警告txtSID.SetFocusExit SubElse判斷輸

56、入學號是否為數(shù)字If Not IsNumeric(Trim(txtSID.Text) ThenMsgBox ”請輸入數(shù)字！ ”, vbOKOnly + vbExclamation,”警告”Exit SubtxtSID.SetFocusEnd Ifdd(0) = True組合查詢語句txtSQL = txtSQL & student_ID = & Trim(txtSID.Text) & End IfEnd If判斷是否選擇姓名查詢方式If Check1(1).Value Then判斷是否輸入姓名If Trim(txtName.Text) = ThensMeg =姓名不能為空”MsgBox sMe

57、g, vbOKOnly + vbExclamation, 警告txtName.SetFocusExit SubElsedd(1) = TrueIf dd(0) Then組合查詢語句txtSQL = txtSQL & and student_Name = & txtName.Text & ElsetxtSQL = txtSQL & student_Name = & txtName.Text & End IfEnd IfEnd If判斷是否選擇班號查詢方式If Check1(2).Value Then判斷是否輸入班號If Trim(txtClassno.Text) = ThensMeg =班號不能

58、為空”MsgBox sMeg, vbOKOnly + vbExclamation, 警告txtClassno.SetFocusExit SubElsedd(2) = TrueIf dd(0) Or dd(1) Then組合查詢語句txtSQL = txtSQL & and class_No = & txtClassno.Text & ElsetxtSQL = txtSQL & class_No = & txtClassno.Text & ”End IfEnd IfEnd If判斷是否設(shè)置查詢方式If Not (dd(0) Or dd(1) Or dd(2) Or dd(3) ThenMsgBo

59、x ”請設(shè)置查詢方式！ ”, vbOKOnly + vbExclamation,，警告”Exit SubEnd If查詢所有滿足條件內(nèi)容txtSQL = txtSQL & order by student_ID 執(zhí)行查詢語句Set mrc = ExecuteSQL(txtSQL, MsgText)將查詢內(nèi)容顯示在表格控件中With myflexgrid.Rows = 2.CellAlignment = 4.TextMatrix(1, 0)=學號”.TextMatrix(1, 1)=姓名”.TextMatrix(1, 2)=性別”.TextMatrix(1, 3)=出生日期”.TextMatri

60、x(1, 4)=班號”.TextMatrix(1, 5)=聯(lián)系電話”.TextMatrix(1, 6)=入校日期”.TextMatrix(1, 7)=家庭住址”判斷是否移動到數(shù)據(jù)集對象的最后一條記錄Do While Not mrc.EOF.Rows = .Rows + 1.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = mrc.Fields(0).TextMatrix(.Rows - 1, 1) = mrc.Fields(1).TextMatrix(.Rows - 1, 2) = mrc.Fields(2).TextMatrix(.Rows - 1,