學(xué)生信息管理系統(tǒng)樣本

課程設(shè)計(jì)報(bào)告冊(cè)代碼及程序，如有需要，可以百度上聯(lián)系我，便宜出售課程設(shè)計(jì)名稱：大型數(shù)據(jù)庫(kù)Oracle專(zhuān)業(yè)：班級(jí)：學(xué)號(hào)：姓名：指導(dǎo)老師：課程設(shè)計(jì)報(bào)告課程設(shè)計(jì)本課程設(shè)計(jì)目掌握Oracle基本內(nèi)容，理解備份和恢復(fù)數(shù)據(jù)庫(kù)辦法；基本Oracle語(yǔ)句，如添加、查詢、修改、刪除記錄語(yǔ)句；VB中數(shù)據(jù)綁定控件辦法，熟悉數(shù)據(jù)庫(kù)連接技術(shù)。2．課程設(shè)計(jì)任務(wù)及規(guī)定1）基本規(guī)定：規(guī)定掌握Oracle基本概念，理解備份和恢復(fù)數(shù)據(jù)庫(kù)辦法,基本Oracle語(yǔ)句，如添加、查詢、修改、刪除記錄語(yǔ)句，熟悉數(shù)據(jù)庫(kù)連接技術(shù)。2）課程設(shè)計(jì)論文編寫(xiě)規(guī)定（1）理論設(shè)計(jì)某些以課程設(shè)計(jì)論文形式提交，格式必要按照課程設(shè)計(jì)論文原則格式進(jìn)行書(shū)寫(xiě)和裝訂。（2）課程設(shè)計(jì)報(bào)告（論文）涉及中文摘要、目錄、緒論、正文、設(shè)計(jì)小結(jié)、參照文獻(xiàn)、附錄等；（3）正文某些應(yīng)包括系統(tǒng)功能流程圖、系統(tǒng)構(gòu)造框圖、模塊流程圖、設(shè)計(jì)目、實(shí)現(xiàn)思路、實(shí)現(xiàn)環(huán)節(jié)、調(diào)試運(yùn)營(yíng)等。目錄第一章、系統(tǒng)機(jī)構(gòu)及重要功能…………41.1學(xué)生信息管理系統(tǒng)重要功能……………41.2系統(tǒng)功能模塊構(gòu)造…………4第二章、數(shù)據(jù)庫(kù)設(shè)計(jì)………………………52.1創(chuàng)立數(shù)據(jù)庫(kù)顧客……………52.2數(shù)據(jù)庫(kù)邏輯構(gòu)造設(shè)計(jì)…………………52.3創(chuàng)立表腳本語(yǔ)言…………………6第三章、數(shù)據(jù)庫(kù)連接………………83.1創(chuàng)立數(shù)據(jù)源……………83.2數(shù)據(jù)庫(kù)連接…………………9第四章、系統(tǒng)實(shí)現(xiàn)……………………104.1主窗體設(shè)計(jì)………………104.2登錄窗體設(shè)計(jì)…………………124.3背景窗體設(shè)計(jì)…………144.4班級(jí)管理窗體設(shè)計(jì)…………………154.5課程信息窗體設(shè)計(jì)……………………204.6顧客信息管理窗體設(shè)計(jì)………………264.7獎(jiǎng)懲信息管理窗體設(shè)計(jì)………………274.8成績(jī)查詢窗口設(shè)計(jì)……………………294.9學(xué)籍信息管理窗口設(shè)計(jì)………………314.10個(gè)人信息查詢窗口設(shè)計(jì)………………25第五章、運(yùn)營(yíng)截圖………………41課程設(shè)計(jì)總結(jié)……………………46一系統(tǒng)構(gòu)造及重要功能1.1學(xué)生信息管理系統(tǒng)重要功能有：（1）、顧客信息管理可以修改、刪除、添加顧客；（2）、班級(jí)信息管理可以添加、修改、刪除班級(jí)；（3）、學(xué)籍信息管理可以添加、查詢、修改、刪除學(xué)籍；（4）、課程信息管理可以查看各班課程信息；（5）、成績(jī)信息管理可以用一種或幾種條件查詢、添加、刪除，修改成績(jī)；（6）、獎(jiǎng)懲信息管理可以添加、查詢、刪除獎(jiǎng)懲信息（7）、個(gè)人信息管理可以查詢學(xué)生個(gè)人信息。1.2、系統(tǒng)功能模塊構(gòu)造如下：二數(shù)據(jù)庫(kù)設(shè)計(jì)2.1創(chuàng)立數(shù)據(jù)庫(kù)顧客在設(shè)計(jì)數(shù)據(jù)庫(kù)表構(gòu)造之前，一方面要?jiǎng)?chuàng)立一種學(xué)生信息管理數(shù)據(jù)庫(kù)顧客，這里定義為zengym,所有有關(guān)表都屬于這個(gè)顧客。創(chuàng)立顧客腳本為：CREATEuserzengymidentifiedbyzengymdefaulttablespaceuserstemporarytablespacetempquota10monusers;grantcreatesession,resourcetozengym;這樣在設(shè)立ODBC時(shí)，使顧客zengym登錄，就可以直接在程序中調(diào)用顧客zengym表和視圖等數(shù)據(jù)庫(kù)對(duì)象了。2.2數(shù)據(jù)庫(kù)邏輯構(gòu)造設(shè)計(jì)依照學(xué)生信息管理系統(tǒng)功能規(guī)定，選用Oracle為后臺(tái)數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)前臺(tái)控制界面使用VisualBasic6.0來(lái)實(shí)現(xiàn)。該數(shù)據(jù)庫(kù)由8個(gè)表構(gòu)成。這8個(gè)表涉及班級(jí)課程信息(class_cour)表、班級(jí)信息(class_Form)表、課程信息(course_Form)表、獲獎(jiǎng)信息(prize_Form)表、獲獎(jiǎng)學(xué)生信息(Prize_Stud)表、學(xué)生成績(jī)信息(score_Form)表、學(xué)生信息(student_Form)表、顧客（user_Form）表。（1）班級(jí)課程信息(class_cour)表字段名稱字段類(lèi)型闡明class_Nonumber班級(jí)編號(hào)Course_NameVarchar2(50)課程名稱（2）班級(jí)信息(class_Form)表字段名稱字段類(lèi)型闡明Class_Nonumber班級(jí)編號(hào)Class_NameVarchar2(50)班級(jí)名稱Class_teacherVarchar2(50)導(dǎo)員名字Class_RemarksVarchar2(50)班級(jí)主課程（3）課程信息(course_Form)表字段名稱字段類(lèi)型闡明Course_nameVarchar2(50)課程名稱Course_RemVarchar2(50)主課程（4）獎(jiǎng)懲信息(prize_Form)表字段名稱字段類(lèi)型闡明Prize_nameVarchar2(50)獎(jiǎng)懲名稱Prize_RemVarchar2(50)備注（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表字段名稱字段類(lèi)型闡明Prize_NOnumber獎(jiǎng)懲編號(hào)Prize_Stunumber獎(jiǎng)懲學(xué)生學(xué)號(hào)Prize_DatDate獎(jiǎng)懲日期Prize_NamVarchar2(50)獎(jiǎng)懲名稱（6）學(xué)生成績(jī)信息(score_Form)表字段名稱字段類(lèi)型闡明Score_Nonumber成績(jī)編號(hào)Score_perVarchar2(50)成績(jī)類(lèi)型Score_Clanumber班級(jí)編號(hào)Score_Stunumber學(xué)生學(xué)號(hào)Score_CouVarchar2(50)課程名稱Score_ScoVarchar2(50)成績(jī)（7）學(xué)生信息(student_Form)表字段名稱字段類(lèi)型闡明Student_NOnumber學(xué)號(hào)student_NameVarchar2(50)姓名student_SexVarchar2(5)性別student_BirDate出生日期student_Clanumber班級(jí)編號(hào)student_TelVarchar2(50)聯(lián)系電話student_EsdDate報(bào)名日期student_AddVarchar2(50)家庭地址student_RemVarchar2(50)備注（8）顧客（user_Form）表字段名稱字段類(lèi)型闡明user_IDVarchar2(50)顧客名user_PWDVarchar2(50)顧客密碼user_DATEdate登錄日期2.3創(chuàng)立表腳本語(yǔ)言（1）班級(jí)課程信息(class_cour)表CREATETABLEzengym.class_Cour(class_NOnumberPrimaryKey,course_Namevarchar2(50))TABLESPACEUSERS;（2）班級(jí)信息(class_Form)表CREATETABLEzengym.class_Form(class_NonumberPrimaryKey,class_Namevarchar2(50),class_Teachervarchar2(50),class_Remarksvarchar2(50))TABLESPACEUSERS;（3）課程信息(course_Form)表CREATETABLEzengym.course_Form(course_NameVarchar2(50)PrimaryKey,course_RemVarchar2(50))TABLESPACEUSERS;（4）獎(jiǎng)懲信息(prize_Form)表CREATETABLEzengym.prize_Form(prize_namevarchar2(50)PrimaryKey,prize_RemVarchar2(50))TABLESPACEUSERS;（5）獎(jiǎng)懲學(xué)生信息(Prize_Stud)表CREATETABLEzengym.prize_Stud(prize_NOnumberPrimaryKey,prize_Stunumber,prize_Datdate,prize_NamVarchar2(50))TABLESPACEUSERS;（6）學(xué)生成績(jī)信息(score_Form)表CREATETABLEzengym.score_Form(score_NOnumberPrimaryKey,score_perVarchar2(50),score_Clanumber,score_Stunumber,score_CouVarchar2(50),score_ScoVarchar2(50))TABLESPACEUSERS;（7）學(xué)生信息(student_Form)表CREATETABLEzengym.student_Form(student_NOnumberPrimaryKey,student_NameVarchar2(50),student_SexVarchar2(5),student_BirDate,student_Clanumber,student_TelVarchar2(50),student_EsdDate,student_AddVarchar2(50),student_RemVarchar2(50))TABLESPACEUSERS;（8）顧客（user_Form）表CREATETABLEzengym.user_Form(user_IDVarchar2(50)PrimaryKey,user_PWDVarchar2(50),user_DATEdate)TABLESPACEUSERS;三數(shù)據(jù)庫(kù)連接3.1、創(chuàng)立數(shù)據(jù)源為了可以在程序中訪問(wèn)到數(shù)據(jù)庫(kù)House，需要?jiǎng)?chuàng)立系統(tǒng)數(shù)據(jù)源。選取“控制面板”→“管理工具”→“數(shù)據(jù)源”→“系統(tǒng)DSN”標(biāo)簽→“添加”→選取“OracleinOraHome92”數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序進(jìn)入數(shù)據(jù)庫(kù)OracleODBCDriverConfiguration配備。將“DataSourceName”設(shè)立為Status，“TNSServiceName”設(shè)立為Oracle創(chuàng)立數(shù)據(jù)庫(kù)，“User”設(shè)立為zengym,然后點(diǎn)擊“TestConncetion”進(jìn)入測(cè)試數(shù)據(jù)庫(kù)連接與否連接成功。測(cè)試連接數(shù)據(jù)庫(kù)與否成功：輸入密碼zengym后顯示連接成果“Password”輸入zengym，點(diǎn)擊OK測(cè)試連接與否成功。最后就可以在VB中使用“外接程序”→“可視化數(shù)據(jù)管理”連接數(shù)據(jù)庫(kù)。3.2、數(shù)據(jù)庫(kù)連接（在模塊modulel.bas中）PublicFunctionConnectString()AsStringConnectString="Driver={MicrosoftODBCfororacle};server=gntc;UID=zengym;PWD=zengym;"EndFunctionPublicFunctionExecuteSQL(ByValSQLAsString，MsgStringAsString)AsADODB.RecordsetDimcnnAsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErrorGoToExecuteSQL_ErrorsTokens=Split(SQL)Setcnn=NewADODB.Connectioncnn.OpenConnectStringIfInStr("INSERT,DELETE,UPDATE"，UCase$(sTokens(0)))Thencnn.ExecuteSQLMsgString=sTokens(0)&"querysuccessful"ElseSetrst=NewADODB.Recordsetrst.OpenTrim$(SQL)，cnn，adOpenKeyset，adLockOptimisticSetExecuteSQL=rstMsgString="查詢到"&rst.RecordCount&"條記錄"EndIfExecuteSQL_Exit:Setrst=NothingSetcnn=NothingExitFunctionExecuteSQL_Error:MsgString="查詢錯(cuò)誤："&Err.DescriptionResumeExecuteSQL_ExitEndFunction四、系統(tǒng)實(shí)現(xiàn)4.1主窗體設(shè)計(jì)4.1.1主界面是學(xué)生信息管理系統(tǒng)重要窗口，擔(dān)任著調(diào)動(dòng)程序其她模塊功能，是整個(gè)應(yīng)程序核心。在工程中添加一種窗體，命名為“frmMain”。主界面重要屬性如下：窗體屬性設(shè)立值詳細(xì)闡明名稱FrmMain設(shè)立窗體名稱Appearance1–3D外觀效果Caption學(xué)生信息管理系統(tǒng)窗體標(biāo)題條文本EnableTrue窗體可用MoveableTrue窗體可以移動(dòng)negotiateToolbarsTrueMDIForm對(duì)象在MDIForm頂部或底部顯示活動(dòng)對(duì)象工具欄StartUpPosition0–手動(dòng)設(shè)立窗體彈出時(shí)，位置在屏幕中心選取“工具”菜單項(xiàng)中“菜單編輯器”，編輯菜單內(nèi)容，如下圖所示。菜單項(xiàng)屬性如下：標(biāo)題名稱顧客信息管理cusiMenu班級(jí)信息管理claiMenu學(xué)籍信息管理stsiMenu課程信息管理couiMenu成績(jī)信息管理scoiMenu獎(jiǎng)懲信息管理prpiMenu個(gè)人信息管理sumiMenu協(xié)助help主界面如下圖所示：4.1.2窗口代碼如下：PrivateSubclaiMenu_Click()frmclai.ShowEndSubPrivateSubcouiMenu_Click()frmcoui.ShowEndSubPrivateSubcusiMenu_Click()frmcusi.ShowEndSubPrivateSubMDIForm_Load()dColor.ShowEndSubPrivateSubMDIForm_Resize()IfMe.Height>1100ThendColor.Height=Me.Height-1100EndIfIfMe.Width>180ThendColor.Width=Me.Width-180EndIfEndSubPrivateSubprpiMenu_Click()frmprpi.ShowEndSubPrivateSubscoiMenu_Click()frmscoi.ShowEndSubPrivateSubstsiMenu_Click()frmstsi.ShowEndSubPrivateSubsumiMenu_Click()frmsumi.ShowEndSub4.2、登錄窗體設(shè)計(jì)4.2.1在工程中添加一種窗體，命名為“frmLogin”。整個(gè)窗體界面示意圖如圖所示。顧客要使用本系統(tǒng)，一方面要通過(guò)系統(tǒng)身份認(rèn)證，即需要登錄。登錄過(guò)程需要完畢一下任務(wù)：（1）依照顧客名和密碼來(lái)判斷與否能進(jìn)入系統(tǒng)；（2）依照顧客類(lèi)型決定顧客擁有權(quán)限。登錄界面窗體重要屬性如下。窗體屬性設(shè)立值詳細(xì)闡明名稱Label1設(shè)立窗體名稱BorderStyle1-FixedSingle設(shè)立窗體邊框?qū)傩訡aption登錄窗體標(biāo)題條文本ControlBoxFalse取消控制按鈕在登錄窗體中添加控件，并設(shè)立控件屬性如下表所示：對(duì)象名屬性屬性值txtPassword（名稱）txtPasswordtxtUserNameStyle0—DropdownComboTexttxtUserNameCmd_OkCaption擬定Cmd_CancelCaption取消4.2.2編寫(xiě)窗體代碼：PrivateSubForm_Load()DimiAsIntegeri=0txtSQL="select*fromuser_Form"WithtxtUserNameSetmrc=ExecuteSQL(txtSQL，MsgText)DoWhileNotmrc.EOFi=i+1txtUserName.AddItemTrim(mrc!user_ID)mrc.MoveNextLoop.ListIndex=i-1EndWithmrc.CloseOK=FalsemiCount=0EndSubPrivateSubcmdCancel_Click()OK=FalseMe.HideEndSubPrivateSubcmdOK_Click()txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=TrueThenMsgBox"沒(méi)有這個(gè)顧客，請(qǐng)重新輸入顧客名"，vbOKOnly+vbExclamation，"警告"txtUserName.SetFocusElseIfTrim(mrc.Fields(1))=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox"輸入密碼不對(duì)，請(qǐng)重新輸入"，vbOKOnly+vbExclamation，"警告"txtPassword.SetFocustxtPassword.Text=""EndIfEndIfmiCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSubPrivateSubLabel1_Click()EndSubPrivateSubtxtPassword_KeyDown(KeyCodeAsInteger，ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubtxtPassword_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallcmdOK_ClickEndIfEndSubPrivateSubtxtUserName_Click()txtPassword.Text=""EndSubPrivateSubtxtUserName_KeyDown(KeyCodeAsInteger，ShiftAsInteger)EnterToTabKeyCodeEndSub4.3背景窗體設(shè)計(jì)4.3.1在工程中添加一種窗體，命名為“dColor”。整個(gè)窗體界面設(shè)計(jì)示意圖如下.dColor窗體上空間及其屬性如下表所示。窗體屬性設(shè)立值詳細(xì)闡明名稱dColor設(shè)立窗體名稱MaxButtonTrue激活最大化按鈕MinButtonTrue激活最小化按鈕ControlBoxTrue控制按鈕在登錄窗體中添加控件，并設(shè)立控件屬性如下表所示：對(duì)象名屬性屬性值Image1Picture（Bitmap）Image2Picture（Bitmap）StretchFalseLabel1Caption歡迎進(jìn)去學(xué)生管理系統(tǒng)BackColor0–Transparent4.3.2編寫(xiě)窗體代碼PrivateSubForm_Load()Label1.ForeColor=&H8000000ELabel1.FontSize=12Label1.AutoSize=Truei=Image2.WidthEndSubPrivateSubForm_Resize()Image1.Top=0Image1.Left=0Image1.Height=Me.HeightImage1.Width=Me.WidthImage2.Top=Me.Height-Image2.HeightImage2.Left=Me.Width-Image2.WidthLabel1.Top=Me.Height-Label1.Height-100EndSubPrivateSubLabel1_Click()EndSubPrivateSubTimer1_Timer()i=i+50Label1.Left=Me.Width-iIfi>Me.Width+Label1.WidthTheni=Image2.WidthEndIfEndSub4.4班級(jí)管理窗體設(shè)計(jì)4.4.1在工程中添加一種窗體，命名為“frmclai”。整個(gè)窗體界面示意圖如圖所示。frmclai窗體上重要屬性和控件設(shè)立如下：對(duì)象名屬性屬性值FrmclaiCaption班級(jí)信息MinbuttonTrueLinkTopicForm1HacDCTrueMSFlexGrid1DragMode0–vbManualLabel1Caption班級(jí)信息列表Label2（0）Caption添加Label2（1）Caption修改Label2（2）Caption刪除Label3（0）Caption班級(jí)編號(hào)Label3（1）Caption班級(jí)名稱Label3（2）Caption導(dǎo)員姓名Label3（3）Caption備注4.4.2編寫(xiě)窗體代碼PrivateSubCommand1_Click()IfText1(0)=""ThenMsgBox"班級(jí)編號(hào)不能為空！"，vbOKOnly，"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"班級(jí)名稱不能為空！"，vbOKOnly，"提示"Text1(1).SetFocusExitSubEndIfIfText1(2)=""ThenMsgBox"導(dǎo)員姓名不能為空！"，vbOKOnly，"提示"Text1(2).SetFocusExitSubEndIftxtSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenMsgBox"此班級(jí)編號(hào)已經(jīng)存在！"，vbOKOnly，"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Trim(Text1(2))mrc.Fields(3)=Trim(Text1(3))mrc.Updatemrc.CloseFori=0To3Text1(i)=""NextMsgBox"班級(jí)信息添加成功！"，vbOKOnly，"提示"ShowDataEndSubPrivateSubCommand2_Click()Fori=0To3Text1(i)=""NextEndSubPrivateSubCommand5_Click()txtSQL="deletefromclass_Formwhereclass_NO='"&Trim(Text1(8))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Fori=8To11Text1(i)=""NextMsgBox"班級(jí)已經(jīng)刪除！"，vbOKOnly，"警告"ShowDataEndSubPrivateSubCommand6_Click()Fori=8To11Text1(i)=""NextEndSubPrivateSubForm_Load()Me.Caption="班級(jí)信息—>添加"Picture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftShowDataFori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(0).BackColor=&HFFFFFFPicture1(0).Visible=TrueEndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel2_Click(IndexAsInteger)Me.Caption="班級(jí)信息"Me.Caption=Me.Caption&"->"&Trim(Label2(Index).Caption)Fori=0To2Label2(i).BackColor=&HE0E0E0Picture1(i).Visible=FalseNextLabel2(Index).BackColor=&HFFFFFFPicture1(Index).Visible=TrueFori=0To11Text1(i)=""NextCommand3.Enabled=FalseCommand5.Enabled=FalseEndSubPrivateSubShowData()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Form"Setmrcc=ExecuteSQL(txSQL，MsgText)WithMSFlexGrid1.ColWidth(0)=1200.ColWidth(1)=1200.ColWidth(2)=1200.ColWidth(3)=6000.TextMatrix(0，0)="班級(jí)編號(hào)".TextMatrix(0，1)="班級(jí)名稱".TextMatrix(0，2)="導(dǎo)員姓名".TextMatrix(0，3)="備注信息￠".Rows=1DoWhileNotmrcc.EOF.Rows=.Rows+1Fori=0Tomrcc.Fields.Count-1.TextMatrix(.Rows-1，i)=mrcc.Fields(i)&""Nextimrcc.MoveNextLoopEndWithmrcc.CloseEndSubPrivateSubMSFlexGrid1_Click()IfPicture1(1).Visible=TrueThenText1(4)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，0))Text1(5)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，1))Text1(6)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，2))Text1(7)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，3))Command3.Enabled=TrueEndIfIfPicture1(2).Visible=TrueThenText1(8)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，0))Text1(9)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，1))Text1(10)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，2))Text1(11)=Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，3))Command5.Enabled=TrueEndIfEndSubPrivateSubText1_Change(IndexAsInteger)IfIndex=4ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL，MsgText)Ifmrc.EOF=FalseThenText1(5)=mrc.Fields(1)Text1(6)=mrc.Fields(2)Text1(7)=mrc.Fields(3)Command3.Enabled=TrueExitSubElseText1(5)=""Text1(6)=""Text1(7)=""Command3.Enabled=FalseEndIfmrc.CloseEndIfIfIndex=8ThentSQL="select*fromclass_Formwhereclass_NO='"&Trim(Text1(Index))&"'"Setmrc=ExecuteSQL(tSQL，MsgText)Ifmrc.EOF=FalseThenText1(9)=mrc.Fields(1)Text1(10)=mrc.Fields(2)Text1(11)=mrc.Fields(3)Command5.Enabled=TrueExitSubElseText1(9)=""Text1(10)=""Text1(11)=""Command5.Enabled=FalseEndIfmrc.CloseEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger，KeyCodeAsInteger，ShiftAsInteger)EnterToTabKeyCodeEndSub4.5課程信息窗體設(shè)計(jì)4.5.1在工程中添加一種窗體，命名為“frmcoui”。整個(gè)窗體界面如下所示。Frmcoui窗體重要控件和屬性設(shè)立如下對(duì)象名屬性屬性值ComcolTextCombolList1(名稱)密碼TxtUserTextList1FrmcouiCaption課程信息StartUpPosition0–手動(dòng)Command1Caption添加Command2Caption刪除4.5.2添加窗體代碼PrivateSubCombo1_Click()List1TextEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"課程名稱不能為空"，vbOKOnly，"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenMsgBox"此課程名稱已經(jīng)存在！"，vbOKOnly，"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromcourse_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"課程信息添加成功！"，vbOKOnly，"提示"List2TextEndSubPrivateSubCommand2_Click()DimtxtSQLAsStringIfList2.Text<>""ThentxtSQL="deletefromcourse_Formwherecourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)MsgBox"課程信息已經(jīng)刪除！"，vbOKOnly，"提示"List2TextEndIfEndSubPrivateSubForm_Load()DimtxtSQLAsStringMe.Caption="課程信息->設(shè)置"txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=TrueThenMsgBox"請(qǐng)先進(jìn)行班級(jí)設(shè)立"，vbOKOnly，"提示"ElseWithCombo1DoWhileNotmrc.EOF.AddItemTrim(mrc!class_NO)mrc.MoveNextLoopCombo1.ListIndex=0EndWithEndIfList2TextEndSubPrivateSubForm_MouseMove(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Label3(0).BackColor=&HC0C0C0Label3(1).BackColor=&HC0C0C0Label3(2).BackColor=&HC0C0C0Label3(3).BackColor=&HC0C0C0EndSubPrivateSubForm_Resize()dColor.ZOrder1EndSubPrivateSubLabel3_Click(IndexAsInteger)DimtxtSQLAsStringDimtSQLAsStringDimmmrcAsADODB.RecordsetIfIndex=0ThenIfCombo1.Text<>""AndList2.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List2.Text)&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)txtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=Trim(List2.Text)mrc.Updatemrc.CloseEndIfEndIfIfIndex=1ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)tSQL="select*fromcourse_Form"txtSQL="select*fromclass_Cour"Setmmrc=ExecuteSQL(tSQL，MsgText)Ifmmrc.EOF=TrueThenMsgBox"請(qǐng)先進(jìn)行班級(jí)設(shè)立!"，vbOKOnly，"提示"ElseDoWhileNotmmrc.EOFSetmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Combo1.Text)mrc.Fields(1)=mmrc.Fields(0)mrc.Updatemrc.Closemmrc.MoveNextLoopEndIfEndIfEndIfIfIndex=2ThenIfCombo1.Text<>""AndList1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'andcourse_Name='"&Trim(List1.Text)&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)EndIfEndIfIfIndex=3ThenIfCombo1.Text<>""ThentxtSQL="deletefromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)EndIfEndIftxtSQL="select*fromclass_Cour"Setmrc=ExecuteSQL(txtSQL，MsgText)List1TextEndSubPrivateSubLabel3_MouseMove(IndexAsInteger，ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)Label3(Index).BackColor=&HFFFFFFEndSubPrivateSubList1_Click()EndSubPrivateSubList2_Click()Text1(0)=List2.TextEndSubPrivateSubText1_Change(IndexAsInteger)DimtxSQLAsStringIfIndex=0ThentxtSQL="select*fromcourse_Formwherecourse_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenText1(1)=mrc.Fields(1)Text1(1).Locked=TrueElseText1(1)=""Text1(1).Locked=FalseEndIfEndIfEndSubPrivateSubText1_GotFocus(IndexAsInteger)Text1(Index).SelStart=0Text1(Index).SelLength=Len(Text1(Index))EndSubPrivateSubText1_KeyDown(IndexAsInteger，KeyCodeAsInteger，ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubList1Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromclass_Courwhereclass_NO='"&Trim(Combo1.Text)&"'"Setmrcc=ExecuteSQL(txSQL，MsgText)List1.ClearDoWhileNotmrcc.EOFList1.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSubPrivateSubList2Text()DimtxSQLAsStringDimmrccAsADODB.RecordsettxSQL="select*fromcourse_Form"Setmrcc=ExecuteSQL(txSQL，MsgText)List2.ClearDoWhileNotmrcc.EOFList2.AddItemTrim(mrcc!course_Name)mrcc.MoveNextLoopmrcc.CloseEndSub4.6顧客信息管理窗體設(shè)計(jì)4.6.1在工程中添加一種窗體，命名為“frmcusi”。Frmcusi窗口界面十一圖如下。Frmcusi窗體包括控件及其屬性如下：對(duì)象名屬性屬性值Label1Caption顧客列表Label2(0)Caption添加Label2(1)Caption修改Label2(2)Caption刪除Picture1(0)IMEMode0–NoOperationList1List（List）Command1Caption添加Command2Caption取消4.6.2編寫(xiě)窗體代碼PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"顧客名稱不能為空!"，vbOKOnly，"提示"Text1(0).SetFocusExitSubEndIfIfText1(1)=""ThenMsgBox"顧客密碼不能為空!"，vbOKOnly，"提示"Text1(1).SetFocusExitSubElseIfText1(1)<>Text1(2)ThenMsgBox"兩次密碼不同!"，vbOKOnly，"提示"Text1(1)=""Text1(2)=""Text1(1).SetFocusExitSubEndIfEndIftxtSQL="select*fromuser_Formwhereuser_ID='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenMsgBox"此顧客已經(jīng)存在!"，vbOKOnly，警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromuser_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Fields(2)=Nowmrc.Updatemrc.CloseFori=0To2Text1(i)=""NextMsgBox"顧客添加成功!"，vbOKOnly，"提示"ListappEndSub4.7獎(jiǎng)懲信息管理窗口設(shè)計(jì)4.7.1在工程中添加一種窗體，命名為“frmprpi”。Frmprpi窗口界面設(shè)計(jì)十一圖如下：Frmprpi窗體包括重要控件及其屬性如下：對(duì)象名屬性屬性值Label1Caption輸入學(xué)號(hào)進(jìn)行查詢添加Label2Caption獎(jiǎng)懲信息表Label3Caption收到獎(jiǎng)勵(lì)或懲罰時(shí)間Label4Caption獎(jiǎng)懲名稱Picture5Caption備注信息List1List（List）Command1Caption添加Command2Caption刪除4.7.2編寫(xiě)重要代碼如下PrivateSubCommand1_Click()DimtxtSQLAsStringIfText1(0)=""ThenMsgBox"獎(jiǎng)懲名稱不能為空!"，vbOKOnly，"提示"Text1(0).SetFocusExitSubEndIftxtSQL="select*fromprize_Formwhereprize_Name='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenMsgBox"此獎(jiǎng)懲名稱已經(jīng)存在"，vbOKOnly，"警告"Text1(0).SetFocusExitSubEndIfmrc.ClosetxtSQL="select*fromprize_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)mrc.AddNewmrc.Fields(0)=Trim(Text1(0))mrc.Fields(1)=Trim(Text1(1))mrc.Updatemrc.CloseText1(0)=""Text1(1)=""MsgBox"獎(jiǎng)懲信息添加成功!"，vbOKOnly，"提示"List1TextEndSub4.8成績(jī)查詢窗口設(shè)計(jì)4.8.1在工程中添加一種窗口，命名為“frmscoi”。Frmscoi窗口界面設(shè)計(jì)示意圖如下.Frmscoi窗體包括重要控件及其屬性如下：對(duì)象名屬性屬性值Combo1（0）Caption學(xué)生班號(hào)LabelCaption考試期號(hào)Option1（0）Caption添加MSFlexGrid1BorderStyle1–flexBorderSinglePicture1（0）DrawMode13–CopyPenProgressBar1OrientationccOrientationHorizontalCommand1Caption添加Command2Caption取消其她控件以及屬性跟上面表中類(lèi)似。4.8.2編寫(xiě)窗體重要代碼如下PrivateSubForm_Load()Option1(1).Value=TruePicture1(0).Visible=FalsePicture1(1).Visible=TruePicture1(2).Visible=FalsePicture1(3).Visible=FalsePicture1(1).Top=Picture1(0).TopPicture1(1).Left=Picture1(0).LeftPicture1(2).Top=Picture1(0).TopPicture1(2).Left=Picture1(0).LeftPicture1(3).Top=Picture1(0).TopPicture1(3).Left=Picture1(0).LeftWithMSFlexGrid1.Cols=6.TextMatrix(0，1)="考試期號(hào)".TextMatrix(0，2)="學(xué)生班號(hào)".TextMatrix(0，3)="學(xué)生編號(hào)".TextMatrix(0，4)="考試課程".TextMatrix(0，5)="考試分?jǐn)?shù)y".ColWidth(0)=0.ColWidth(1)=1550.ColWidth(2)=1550.ColWidth(3)=1550.ColWidth(4)=1550.ColWidth(5)=1550.Rows=1EndWithText1(0)=GetRknoEndSubPrivateSubMSFlexGrid1_Click()DimtxtSQLAsStringIfMSFlexGrid1.Row<>0ThenText3(0)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，0)Text3(1)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，1)Combo3(0).ClearCombo3(0).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，2)Combo3(0).ListIndex=0txtSQL="select*fromclass_Form"Setmrc=ExecuteSQL(txtSQL，MsgText)Ifmrc.EOF=FalseThenWithCombo3(0)DoWhileNotmrc.EOFIfmrc!class_NO<>.TextThen.AddItemTrim(mrc!class_NO)EndIfmrc.MoveNextLoopEndWithEndIfCombo3(1).ClearCombo3(1).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，3)Combo3(1).ListIndex=0Combo3(2).ClearCombo3(2).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，4)Combo3(2).ListIndex=0Text3(2)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，5)Text4(0)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，0)Text4(1)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，1)Combo4(0).ClearCombo4(0).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，2)Combo4(0).ListIndex=0Combo4(1).ClearCombo4(1).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，3)Combo4(1).ListIndex=0Combo4(2).ClearCombo4(2).AddItemMSFlexGrid1.TextMatrix(MSFlexGrid1.Row，4)Combo4(2).ListIndex=0Text4(2)=MSFlexGrid1.TextMatrix(MSFlexGrid1.Row，5)EndIfEndSub4.9學(xué)籍信息管理窗體設(shè)計(jì)4.9.1在工程中添加一種窗口，命名為“frmstsi”。Frmstsi界面這幾示意圖如下。Frmstsii窗體包括重要控件及其屬性如下：對(duì)象名屬性屬性值Combo1（0）TextCombolLabel1(0)Caption添加Label1（1）Caption查詢Label1（2）Caption修改Label1（3）Caption刪除Label4Caption查詢中請(qǐng)稍后…Label3Caption學(xué)籍信息列表MSFlexGrid1Row2Command1Caption添加Command2Caption取消其她屬性設(shè)立與表中類(lèi)似。4.9.2編寫(xiě)重要代碼如下：PrivateSubCombo1_Click()Text1(4)=Combo1.TextIfLabel1(3).BackColor<>&HFFFFFFThenIfLabel2(4).Caption=Combo1.TextThenCombo1.BackColor=&HE0E0E0ElseCombo1.BackColor=&HFFFFFFEndIfEndIfEndSubPrivateSubCommand1_Click()DimtxtSQLAsStringFori=0To7Ifi<>4ThenIfText1(i)=Label2(i).CaptionThenMsgBox"請(qǐng)"&Label2(i).Caption&"!"，vbOKOnly，"提示"Text1(i).SetFocusExitSubEndIfElseIfText1(i)=Label2(i).CaptionThenMsgBox"請(qǐng)"&Label2(i).Caption&"!"，vbOKOnly，"提示"Combo1.SetFocusExitSubEndIfEndIfNextIfIsDate(Text1(3))=FalseThenMsgBox"出生日期應(yīng)為日期格式((yyyy-