Oracle+Visual Basic60學(xué)生信息管理系統(tǒng)

1、PAGE PAGE 83 課程設(shè)計(jì)報(bào)告冊(cè)代碼及程序，如如有需要，可可以百度上聯(lián)聯(lián)系我，便宜宜出售 課課程設(shè)計(jì)名稱：大型數(shù)數(shù)據(jù)庫(kù)Oraacle 專 業(yè)：班 級(jí): 學(xué) 號(hào)： 姓 名： 指 導(dǎo) 老 師師 ： 課程設(shè)計(jì)報(bào)告學(xué)理Vli1課程設(shè)計(jì)書本課程設(shè)計(jì)的目目的掌握Oraclle基本內(nèi)容容，了解備份份和恢復(fù)數(shù)據(jù)據(jù)庫(kù)的方法；基本的Orracle語(yǔ)語(yǔ)句，如添加加、查詢、修修改、刪除記記錄語(yǔ)句；VVB中數(shù)據(jù)綁綁定控件的方方法，熟悉數(shù)數(shù)據(jù)庫(kù)連接技技術(shù)。2課程設(shè)計(jì)的的任務(wù)及要求求1）基本要求：要求掌握Oraacle的基基本概念，了了解備份和恢恢復(fù)數(shù)據(jù)庫(kù)的的方法,基本的Orracle語(yǔ)語(yǔ)句，如添加加、查詢、修修改

2、、刪除記記錄語(yǔ)句, 熟悉數(shù)據(jù)據(jù)庫(kù)連接技術(shù)術(shù)。2）課程設(shè)計(jì)論論文編寫要求求（1）理論設(shè)計(jì)計(jì)部分以課程程設(shè)計(jì)論文的的形式提交，格格式必須按照照課程設(shè)計(jì)論論文標(biāo)準(zhǔn)格式進(jìn)行書寫和和裝訂。（2）課程設(shè)計(jì)計(jì)報(bào)告（論文文）包括中文文摘要、目錄錄、緒論、正正文、設(shè)計(jì)小小結(jié)、參考文文獻(xiàn)、附錄等等；（3）正文部分分應(yīng)包含系統(tǒng)統(tǒng)功能流程圖圖、系統(tǒng)結(jié)構(gòu)構(gòu)框圖、模塊塊流程圖、設(shè)設(shè)計(jì)目的、實(shí)實(shí)現(xiàn)思路、實(shí)實(shí)現(xiàn)步驟、調(diào)調(diào)試運(yùn)行等。目錄第一章、系統(tǒng)機(jī)機(jī)構(gòu)及主要功功能4 1.1學(xué)學(xué)生信息管理理系統(tǒng)的主要要功能 4 1.2系系統(tǒng)的功能模模塊結(jié)構(gòu)4第二章、數(shù)據(jù)庫(kù)庫(kù)設(shè)計(jì)5 2.1 創(chuàng)建數(shù)據(jù)庫(kù)庫(kù)用戶 55 2.2數(shù)數(shù)據(jù)庫(kù)邏輯結(jié)結(jié)構(gòu)設(shè)計(jì)5

3、 2.3 創(chuàng)建表的腳腳本語(yǔ)言 66第三章、數(shù)據(jù)庫(kù)庫(kù)連接83.1創(chuàng)建數(shù)據(jù)據(jù)源 8 3.2 數(shù)據(jù)庫(kù)連接接 9第四章、系統(tǒng)的的實(shí)現(xiàn) 10 4.11主窗體的設(shè)設(shè)計(jì) 104.2 登錄窗窗體的設(shè)計(jì) 12 4.33背景窗體的的設(shè)計(jì) 114 4.44班級(jí)管理窗窗體的設(shè)計(jì) 1154.5課程信息息窗體的設(shè)計(jì)計(jì) 2204.6用戶信息息管理窗體的的設(shè)計(jì) 264.7獎(jiǎng)懲信息息管理窗體的的設(shè)計(jì) 274.8成績(jī)查詢?cè)兇翱诘脑O(shè)計(jì)計(jì) 294.9學(xué)籍信息息管理窗口的的設(shè)計(jì) 314.10個(gè)人信信息查詢窗口口的設(shè)計(jì)25第五章、運(yùn)行截截圖 41課程設(shè)計(jì)總結(jié) HYPERLINK l _Toc19788 46一 系統(tǒng)結(jié)構(gòu)及及主要功能1.1

4、學(xué)生信息息管理系統(tǒng)的的主要功能有有：（1）、用戶信信息管理 可可以修改、刪刪除、添加用用戶；（2）、班級(jí)信信息管理可以添加、修改改、刪除班級(jí)級(jí)；（3）、學(xué)籍信信息管理可以添加、查詢?cè)?、修改、刪刪除學(xué)籍；（4）、課程信信息管理可以查看各班的的課程信息；（5）、成績(jī)信信息管理可以用一個(gè)或幾幾個(gè)條件查詢?cè)儭⑻砑?、刪刪除，修改成成績(jī)；（6）、獎(jiǎng)懲信信息管理可以添加、查詢?cè)儭h除獎(jiǎng)懲懲信息（7）、個(gè)人信信息管理可以查詢學(xué)生的的個(gè)人信息。1.2、系統(tǒng)的的功能模塊結(jié)結(jié)構(gòu)如下：二 數(shù)據(jù)庫(kù)設(shè)計(jì)計(jì)2.1創(chuàng)建數(shù)據(jù)據(jù)庫(kù)用戶在設(shè)計(jì)數(shù)據(jù)庫(kù)表表結(jié)構(gòu)之前，首首先要?jiǎng)?chuàng)建一一個(gè)學(xué)生信息息管理的數(shù)據(jù)據(jù)庫(kù)用戶，這這里定義為zzeng

5、ymm,所有相關(guān)關(guān)的表都屬于于這個(gè)用戶。創(chuàng)建用戶的腳本本為： CREATE user zengyymidentiffied bby zenngymdefaultt tabllespacce useerstemporaary taablesppace ttempquota 110m onn userrs;grant ccreatee sesssion,rresourrce too zenggym;這樣在設(shè)置ODDBC時(shí)，使使用戶zenngym登錄錄，就可以直直接在程序中中調(diào)用用戶zzengymm的表和視圖圖等數(shù)據(jù)庫(kù)對(duì)對(duì)象了。2.2數(shù)據(jù)庫(kù)邏邏輯結(jié)構(gòu)設(shè)計(jì)計(jì)根據(jù)學(xué)生信息管管理系統(tǒng)的功功能要求，選選取O

6、raccle為后臺(tái)臺(tái)數(shù)據(jù)庫(kù)，數(shù)數(shù)據(jù)庫(kù)前臺(tái)控控制界面使用用Visuaal Bassic 6.0來(lái)實(shí)現(xiàn)。該數(shù)據(jù)庫(kù)由8個(gè)個(gè)表組成。這這8個(gè)表包括括班級(jí)課程信信息(claass_coour)表、班班級(jí)信息(cclass_Form)表、課程信信息(couurse_FForm)表表、獲獎(jiǎng)信息息(prizze_Forrm)表、獲獲獎(jiǎng)學(xué)生信息息(Prizze_Stuud)表、學(xué)學(xué)生成績(jī)信息息(scorre_Forrm)表、學(xué)學(xué)生信息(sstudennt_Forrm)表、用用戶（useer_Forrm）表。（1）班級(jí)課程程信息(cllass_ccour)表表字段名稱字段類型說(shuō)明class_NNo nnumber

7、r 班級(jí)編號(hào) Courrse_NaameVarcharr2(50)課程名稱 （2）班班級(jí)信息(classs_Formm)表字段名稱字段類型說(shuō)明Class_NNo nnumberr班級(jí)編號(hào) Classs_NammeVarcharr2(50)班級(jí)名稱 Classs_teaacherVarcharr2(50)導(dǎo)員名字 Classs_RemmarksVarcharr2(50)班級(jí)主課程（3）課程信息息(courrse_Foorm)表字段名稱字段類型說(shuō)明Course_name VVarchaar2(50)課程名稱 Courrse_ReemVarcharr2(50)主課程（4）獎(jiǎng)懲信息息(prizze_F

8、orrm)表字段名稱字段類型說(shuō)明Prize_nname Vaarcharr2(50) 獎(jiǎng)懲懲名稱 Prrize_RRem Varrchar22(50) 備注注（5）獎(jiǎng)懲學(xué)生生信息(Prizee_Studd)表字段名稱字段類型說(shuō)明Prize_NNO nuumber 獎(jiǎng)懲懲編號(hào) Prrize_SStu nuumber 獎(jiǎng)懲懲學(xué)生學(xué)號(hào) Prrize_DDat Daate 獎(jiǎng)懲懲日期 Prrize_NNam Vaarcharr2(50) 獎(jiǎng)懲懲名稱（6）學(xué)生成績(jī)績(jī)信息(scoree_Formm)表字段名稱字段類型說(shuō)明Score_NNo nuumber 成績(jī)績(jī)編號(hào) Sccore_pper Vaarcha

9、rr2(50) 成績(jī)績(jī)類型 Sccore_CCla nuumber 班級(jí)級(jí)編號(hào) Sccore_SStu nuumber 學(xué)生生學(xué)號(hào) Sccore_CCou Vaarcharr2(50) 課程程名稱 Sccore_SSco Vaarcharr2(50) 成績(jī)績(jī)（7）學(xué)生信息息(studeent_Foorm)表字段名稱字段類型說(shuō)明Studentt_NO nuumber 學(xué)號(hào)號(hào) sttudentt_Namee Varcchar2(50) 姓名名 sttudentt_Sex Varcchar2(5) 性別別 sttudentt_Bir Daate 出生生日期 sttudentt_Cla nuumber

10、 班級(jí)級(jí)編號(hào) sttudentt_Tel Varcchar2(50) 聯(lián)系系電話 sttudentt_Esd Daate 報(bào)名名日期studentt_AddVarcharr2(50)家庭地址 sttudentt_Rem Varchhar2(550) 備注注（8）用戶（uuser_FForm）表表字段名稱字段類型說(shuō)明user_IDD Varrchar22(50) 用戶戶名 usser_PWWD Varrchar22(50) 用戶戶密碼 usser_DAATE daate 登錄錄日期2.3創(chuàng)建表的的腳本語(yǔ)言（1）班級(jí)課程程信息(cllass_ccour)表表CREATE TABLEE zenggy

11、m.cllass_CCour (classs_NO numbeer Prrimaryy Key,course_Name varchhar2(550) )TABLESPPACE UUSERS;（2）班級(jí)信息息(classs_Forrm)表CREATE TABLEE zenggym.cllass_FForm (classs_No numbeer Priimary Key,class_NName vvarchaar2(500),class_TTeacheer varrchar22(50),class_RRemarkks varrchar22(50) )TABLESPPACE UUSERS;（3）課程

12、信息息(courrse_Foorm)表CREATE TABLEE zenggym.coourse_Form (courrse_Naame Vaarcharr2(50) Primmary KKey,course_Rem VVarchaar2(500) )TABLESPPACE UUSERS;（4）獎(jiǎng)懲信息息(prizze_Forrm)表CREATE TABLEE zenggym.prrize_FForm (prizze_namme varrchar22(50) Primaary Keey,prize_RRem Vaarcharr2(50)TABLESPPACE UUSERS;（5）獎(jiǎng)懲學(xué)生生信息

13、(Prrize_SStud)表表CREATE TABLEE zenggym.prrize_SStud (prizze_NO numbeer Prrimaryy Key,prize_SStu nuumber,prize_DDat daate,prize_NNam Vaarcharr2(50)TABLESPPACE UUSERS;（6）學(xué)生成績(jī)績(jī)信息(sccore_FForm)表表CREATE TABLEE zenggym.sccore_FForm (scorre_NO numbeer Prrimaryy Key,score_pper Vaarcharr2(50),score_CCla nuumb

14、er,score_SStu nuumber,score_CCou Vaarcharr2(50),score_SSco Vaarcharr2(50) )TABLESPPACE UUSERS;（7）學(xué)生信息息(studdent_FForm)表表CREATE TABLEE zenggym.sttudentt_Formm (studdent_NNO nummber Primaary Keey,studentt_Namee Varcchar2(50),studentt_Sex Varchhar2(55),studentt_Bir Date,studentt_Cla numbeer,studentt_Te

15、l Varchhar2(550),studentt_Esd Date,studentt_Add Varchhar2(550),studentt_Rem Varchhar2(550) )TABLESPPACE UUSERS;（8）用戶（uuser_FForm）表表CREATE TABLEE zenggym.usser_Foorm (userr_ID VVarchaar2(500) Prrimaryy Key,user_PWWD Varrchar22(50),user_DAATE daate )TABLESPPACE UUSERS;三 數(shù)據(jù)庫(kù)連接接3.1、創(chuàng)建數(shù)數(shù)據(jù)源為了能夠在程序序中訪問(wèn)到數(shù)數(shù)據(jù)

16、庫(kù)Houuse，需要要?jiǎng)?chuàng)建系統(tǒng)數(shù)數(shù)據(jù)源。選擇“控制面板板”“管理理工具”“數(shù)數(shù)據(jù)源”“系系統(tǒng)DSN”標(biāo)標(biāo)簽“添加加”選擇“OOraclee in OOraHomme92”數(shù)據(jù)庫(kù)庫(kù)驅(qū)動(dòng)程序進(jìn)進(jìn)入數(shù)據(jù)庫(kù)OOraclee ODBCC Drivver Coonfiguuratioon配置。 將“Dataa Sourrce Naame”設(shè)置置為Stattus，“TTNS Seervicee Namee”設(shè)置為OOraclee創(chuàng)建的數(shù)據(jù)據(jù)庫(kù) ，“UUser”設(shè)設(shè)置為zenngym,然然后點(diǎn)擊“TTest CConnceetion”進(jìn)進(jìn)入測(cè)試數(shù)據(jù)據(jù)庫(kù)連接是否否連接成功。測(cè)試連接數(shù)據(jù)庫(kù)庫(kù)是否成功： 輸入入密碼

17、zenngym后顯顯示連接結(jié)果果 “Passwoord”輸入zenngym，點(diǎn)點(diǎn)擊OK測(cè)試試連接是否成成功。最后就就可以在VBB中使用“外外接程序”“可視化數(shù)數(shù)據(jù)管理”連連接數(shù)據(jù)庫(kù)。3.2、數(shù)據(jù)庫(kù)庫(kù)連接（在模模塊moduulel.bbas中）Public Functtion CConnecctStriing() As SttringConnecttStrinng = Driveer=Micrrosoftt ODBCC for oraclle;seerver=gntc;UID=zzengymm;PWD=zengyym;End FunnctionnPublic Functtion EExecutt

18、eSQL(ByVall SQL As Sttring, MsgSStringg As SStringg) As ADODBB.Recoordsett Dim cnn AAs ADOODB.Coonnecttion Dim rst AAs ADOODB.Reecordsset Dim sTokeens() As Sttring On EError GoTo ExecuuteSQLL_Erroor sTokkens = Spliit(SQLL) Set cnn = New ADODBB.Connnectioon cnn.Open ConneectStrringIf InSttr(INNSERT,D

19、ELETTE,UPDDATE, UCasse$(sTTokenss(0) Thenn ccnn.Exxecutee SQL MMsgStrring = sTokkens(00) & querry succcessfful Elsee SSet rsst = NNew ADDODB.RRecorddset rrst.Oppen Trrim$(SSQL), cnn, adOpeenKeysset, aadLockkOptimmisticc SSet ExxecuteeSQL = rst MMsgStrring = 查詢到到 & rrst.ReecordCCount & 條條記錄 End IfExe

20、cuteeSQL_EExit: Set rst = Nothhing Set cnn = Nothhing Exitt FuncctionExecuteeSQL_EError: MsgSStringg = 查查詢錯(cuò)誤: & Errr.Desscripttion Resuume ExxecuteeSQL_EExitEnd Funnctionn四、系統(tǒng)的實(shí)現(xiàn)現(xiàn)4.1主窗體的的設(shè)計(jì)4.1.1主界界面是學(xué)生信信息管理系統(tǒng)統(tǒng)的主要窗口口，擔(dān)任著調(diào)調(diào)動(dòng)程序其他他模塊的功能能，是整個(gè)應(yīng)應(yīng)程序的核心心。在工程中添加一一個(gè)窗體，命命名為“frrmMainn”。主界面的主要屬屬性如下：窗體屬性設(shè)置值具體說(shuō)明 名稱

21、 FFrmMaiin設(shè)置窗體名稱Appearaance1 3D外觀效果 Captioon 學(xué)學(xué)生信息管理理系統(tǒng)窗體的標(biāo)題條文文本 Enabble TTrue窗體可用 Moveeable TTrue窗體可以移動(dòng)negotiaateTooolbarssTrueMDIFormm 對(duì)象在 MDIFoorm 的頂部或底底部顯示活動(dòng)動(dòng)對(duì)象的工具具欄 StarrtUpPoositioon 0 手動(dòng)設(shè)置窗體彈出時(shí)時(shí)，位置在屏屏幕中心選擇“工具”菜菜單項(xiàng)中的“菜菜單編輯器”，編編輯菜單內(nèi)容容，如下圖所所示。菜單項(xiàng)的屬性如如下：標(biāo)題 名稱稱用戶信息管理cusiMennu班級(jí)信息管理claiMennu學(xué)籍信息管理s

22、tsiMennu課程信息管理couiMennu成績(jī)信息管理scoiMennu獎(jiǎng)懲信息管理prpiMennu個(gè)人信息管理sumiMennu幫助help主界面如下圖所所示：4.1.2窗口口代碼如下：Privatee Sub claiMMenu_CClick() frmmclai.ShowEnd SubbPrivatee Sub couiMMenu_CClick() frmmcoui.ShowEnd SubbPrivatee Sub cusiMMenu_CClick() frmmcusi.ShowEnd SubbPrivatee Sub MDIFoorm_Looad() dCoolor.SShowE

23、nd SubbPrivatee Sub MDIFoorm_Reesize() If Me.Heeight 11000 Theen dCollor.Heeight = Me.Heighht - 11100 Endd If If Me.Wiidth 180 Then dCollor.Wiidth = Me.WWidth - 1800 Endd IfEnd SubbPrivatee Sub prpiMMenu_CClick() frmmprpi.ShowEnd SubbPrivatee Sub scoiMMenu_CClick() frmmscoi.ShowEnd SubbPrivatee Sub

24、stsiMMenu_CClick() frmmstsi.ShowEnd SubbPrivatee Sub sumiMMenu_CClick() frmmsumi.ShowEnd Subb4.2、登錄窗窗體的設(shè)計(jì)4.2.1在工工程中添加一一個(gè)窗體，命命名為“frrmLogiin”。整個(gè)窗體界面的的示意圖如圖圖所示。用戶要使用本系系統(tǒng)，首先要要通過(guò)系統(tǒng)的的身份認(rèn)證，即即需要登錄。登登錄過(guò)程需要要完成一下任任務(wù)：（1）根根據(jù)用戶名和和密碼來(lái)判斷斷是否能進(jìn)入入系統(tǒng)；（22）根據(jù)用戶戶類型決定用用戶擁有的權(quán)權(quán)限。登錄界面窗體的的主要屬性如下。窗體屬性 設(shè)設(shè)置值 具體說(shuō)明 名稱Label1設(shè)置窗體名稱Bo

25、rderSStyle1-Fixedd Singgle設(shè)置窗體的邊框框?qū)傩訡aptionn登錄窗體的標(biāo)題條文文本ControllBoxFalse取消控制按鈕在登錄窗體中添添加控件，并并設(shè)置控件的的屬性如下表表所示：對(duì)象名屬性屬性值txtPasssword（名稱）txtPassswordtxtUserrNameStyle0Dropddown CComboTexttxtUserrNameCmd_OkCaptionn確定Cmd_CanncelCaptionn取消4.2.2編寫寫窗體代碼：Privatee Sub Form_Load() Dimm i Ass Inteeger i = 0 txttSQL

26、 = sellect * fromm userr_Formm Witth txttUserNName Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) Do WWhile Not mmrc.EOOF i = ii + 1 txtUsserNamme.AdddItem Trim(mrc!uuser_IID) mrc.MMoveNeext Loopp .LisstIndeex = ii - 1 Endd Withh mrcc.Closse OK = Fallse miCCount = 0End SubbPrivatee Sub cmdCaancel_Clickk

27、() OK = Fallse Me.HideEnd SubbPrivatee Sub cmdOKK_Clicck() txttSQL = sellect * fromm userr_Formm wherre useer_ID = & txttUserNName.TText & Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) If mrc.EEOF = True Then MsgBoox 沒(méi)有有這個(gè)用戶，請(qǐng)請(qǐng)重新輸入用用戶名, vbOKOOnly + vbExxclamaation, 警告 txtUUserNaame.SeetFocuus Elsse If

28、TTrim(mmrc.Fiields(1) = Trimm(txtPPasswoord.Teext) TThen OK = True mrc.CClose Me.Hiide UserNName = Trimm(txtUUserNaame.Teext) Elsee MMsgBoxx 輸入的的密碼不對(duì)，請(qǐng)請(qǐng)重新輸入, vbOOKOnlyy + vbbExclaamatioon, 警警告 txtPaassworrd.SettFocuss txtPaassworrd.Texxt = End If Endd If miCCount = miCCount + 1 If miCouunt = 3 Theen

29、 Me.HHide Endd If Exiit SubbEnd SubbPrivatee Sub Labell1_Cliick()End SubbPrivatee Sub txtPaassworrd_KeyyDown(KeyCoode Ass Inteeger, Shiftt As IIntegeer) EntterToTTab KeeyCodeeEnd SubbPrivatee Sub txtPaassworrd_KeyyPresss(KeyAAscii As Inntegerr) If KeyAsscii = 13 TThen Calll cmdOOK_Cliick Endd IfEnd

30、SubbPrivatee Sub txtUsserNamme_Cliick() txttPasswword.TText = End SubbPrivatee Sub txtUsserNamme_KeyyDown(KeyCoode Ass Inteeger, Shiftt As IIntegeer) EntterToTTab KeeyCodeeEnd Subb4.3背景窗體體的設(shè)計(jì)4.3.1在工工程中添加一一個(gè)窗體，命命名為“dCColor”。整個(gè)窗體的界面面設(shè)計(jì)示意圖圖如下. dColor窗窗體上的空間間及其屬性如如下表所示。窗體屬性 設(shè)設(shè)置值 具體說(shuō)明 名稱dColor設(shè)置窗體名稱MaxBu

31、tttonTrue激活最大化按鈕鈕MinButttonTrue激活最小化按鈕鈕ControllBoxTrue控制按鈕在登錄窗體中添添加控件，并并設(shè)置控件的的屬性如下表表所示：對(duì)象名屬性屬性值Image1Picturee（Bitmapp）Image2Picturee（Bitmapp）StretchhFalseLabel1Captionn歡迎進(jìn)去學(xué)生管管理系統(tǒng)BackCollor0 Traansparrent4.3.2編寫寫窗體代碼Privatee Sub Form_Load() Labbel1.FForeCoolor = &H800000000E Labbel1.FFontSiize = 12

32、Labbel1.AAutoSiize = True i = Imagge2.WiidthEnd SubbPrivatee Sub Form_Resizze() Imaage1.TTop = 0 Imaage1.LLeft = 0 Imaage1.HHeightt = Mee.Heigght Imaage1.WWidth = Me.Widthh Imaage2.TTop = Me.Heeight - Imaage2.HHeightt Imaage2.LLeft = Me.WWidth - Imaage2.WWidth Labbel1.TTop = Me.Heeight - Labbel1.HHe

33、ightt - 1000End SubbPrivatee Sub Labell1_Cliick()End SubbPrivatee Sub Timerr1_Timmer() i = i + 50 Labbel1.LLeft = Me.WWidth - i If i MMe.Widdth + Labell1.Widdth Thhen i = Imagee2.Widdth Endd IfEnd Subb4.4班級(jí)管理理窗體的設(shè)計(jì)計(jì)4.4.1在工工程中添加一一個(gè)窗體，命命名為“frrmclaii”。整個(gè)窗體界面示示意圖如圖所所示。frmclaii窗體上的的的主要屬性和控控件設(shè)置如下下： 對(duì)象名屬性屬

34、性值 FFrmclaaiCaptionn班級(jí)信息MinbutttonTrueLinkToppicForm1HacDCTrueMSFlexGGrid1DragModde0 vbMManuallLabel1Captionn班級(jí)信息列表Label2（0）Captionn添加Label2（1）Captionn修改Label2（2）Captionn刪除Label3（0）Captionn班級(jí)編號(hào)Label3（1）Captionn班級(jí)名稱Label3（2）Captionn導(dǎo)員姓名Label3（3）Captionn備注4.4.2編寫寫窗體代碼Privatee Sub Commaand1_CClick() If

35、 Text11(0) = TThen MsgBBox 班班級(jí)編號(hào)不能能為空！, vbOKKOnly, 提示 Textt1(0).SetFoocus Exitt Sub Endd If If Text11(1) = TThen MsgBBox 班班級(jí)名稱不能能為空！, vbOKKOnly, 提示 Textt1(1).SetFoocus Exitt Sub Endd If If Text11(2) = TThen MsgBBox 導(dǎo)導(dǎo)員姓名不能能為空！, vbOKKOnly, 提示 Textt1(2).SetFoocus Exitt Sub Endd If txttSQL = sellect *

36、fromm classs_Forrm wheere cllass_NNO= & Triim(Texxt1(0) & Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) If mrc.EEOF = Falsee Thenn MsgBBox 此此班級(jí)編號(hào)已已經(jīng)存在！, vbOOKOnlyy, 警告告 Textt1(0).SetFoocus Exitt Sub Endd If mrcc.Closse txttSQL = sellect * fromm classs_Forrm Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) mr

37、cc.AddNNew mrcc.Fiellds(0) = Trrim(Teext1(00) mrcc.Fiellds(1) = Trrim(Teext1(11) mrcc.Fiellds(2) = Trrim(Teext1(22) mrcc.Fiellds(3) = Trrim(Teext1(33) mrcc.Updaate mrcc.Closse Forr i = 0 To 3 Textt1(i) = Nexxt MsggBox 班級(jí)信息添添加成功！, vbOOKOnlyy, 提示示 ShoowDataaEnd SubbPrivatee Sub Commaand2_CClick() Forr

38、 i = 0 To 3 Textt1(i) = NexxtEnd SubbPrivatee Sub Commaand5_CClick() txttSQL = dellete ffrom cclass_Form wheree classs_NO= & Trim(Text11(8) & Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) Forr i = 8 To 11 Textt1(i) = Nexxt MsggBox 班級(jí)已經(jīng)刪刪除！, vbOKOOnly, 警告 ShoowDataaEnd SubbPrivatee Sub Commaand6_CClick(

39、) Forr i = 8 To 11 Textt1(i) = NexxtEnd SubbPrivatee Sub Form_Load() Me.Captiion = 班級(jí)信息息添 加 Piccture11(1).TTop = Pictuure1(00).Topp Piccture11(1).LLeft = Pictture1(0).Leeft Piccture11(2).TTop = Pictuure1(00).Topp Piccture11(2).LLeft = Pictture1(0).Leeft ShoowDataa Forr i = 0 To 2 Labeel2(i).BackkCol

40、orr = &HHE0E0EE0 Pictture1(i).Viisiblee = Faalse Nexxt Labbel2(00).BacckColoor = &HFFFFFFF Piccture11(0).VVisiblle = TTrueEnd SubbPrivatee Sub Form_Resizze() dCoolor.ZZOrderr 1End SubbPrivatee Sub Labell2_Cliick(Inndex AAs Intteger) Me.Captiion = 班級(jí)信息息 Me.Captiion = Me.Caaptionn & - & Trim(Labell2(I

41、nddex).CCaptioon) Forr i = 0 To 2 Labeel2(i).BackkColorr = &HHE0E0EE0 Pictture1(i).Viisiblee = Faalse Nexxt Labbel2(IIndex).BackkColorr = &HHFFFFFFF Piccture11(Indeex).Viisiblee = Trrue Forr i = 0 To 11 Textt1(i) = Nexxt Commmand33.Enabbled = Falsse Commmand55.Enabbled = FalsseEnd SubbPrivatee Sub S

42、howDData() Dimm txSQQL As Strinng Dimm mrccc As AADODB.Recorrdset txSSQL = seleect * from classs_Formm Sett mrccc = ExxecuteeSQL(ttxSQL, MsgTText) Withh MSFllexGriid1 .CollWidthh(0) = 12000 .CollWidthh(1) = 12000 .CollWidthh(2) = 12000 .CollWidthh(3) = 60000 .TexxtMatrrix(0, 0) = 班級(jí)編編號(hào) .TexxtMatrrix

43、(0, 1) = 班級(jí)名名稱 .TexxtMatrrix(0, 2) = 導(dǎo)員姓姓名 .TexxtMatrrix(0, 3) = 備注信信息 .Rowws = 11 Do WWhile Not mmrcc.EEOF .Rowss = .RRows + 1 For ii = 0 To mrccc.Fieelds.CCount - 1 .TextMMatrixx(.Rowws - 11, i) = mrccc.Fieelds(ii) & Next i mrcc.MoveNNext Loopp Endd Withh mrccc.ClooseEnd SubbPrivatee Sub MSFleexGr

44、idd1_Cliick() If Pictuure1(11).Vissible = Truue Theen Textt1(4) = Triim(MSFFlexGrrid1.TTextMaatrix(MSFleexGridd1.Roww, 0) Textt1(5) = Triim(MSFFlexGrrid1.TTextMaatrix(MSFleexGridd1.Roww, 1) Textt1(6) = Triim(MSFFlexGrrid1.TTextMaatrix(MSFleexGridd1.Roww, 2) Textt1(7) = Triim(MSFFlexGrrid1.TTextMaatr

45、ix(MSFleexGridd1.Roww, 3) Commmand3.Enablled = True Endd If If Pictuure1(22).Vissible = Truue Theen Textt1(8) = Triim(MSFFlexGrrid1.TTextMaatrix(MSFleexGridd1.Roww, 0) Textt1(9) = Triim(MSFFlexGrrid1.TTextMaatrix(MSFleexGridd1.Roww, 1) Textt1(10) = Trrim(MSSFlexGGrid1.TextMMatrixx(MSFllexGriid1.Roow

46、, 2) Textt1(11) = Trrim(MSSFlexGGrid1.TextMMatrixx(MSFllexGriid1.Roow, 3) Commmand5.Enablled = True Endd IfEnd SubbPrivatee Sub Text11_Channge(Inndex AAs Intteger) If Indexx = 4 Then tSQLL = sselectt * frrom cllass_FForm wwhere classs_NO= & TTrim(TText1(Indexx) & Set mrc = ExeccuteSQQL(tSQQL, MssgTe

47、xtt) If mmrc.EOOF = FFalse Then Text11(5) = mrc.Fieldds(1) Text11(6) = mrc.Fieldds(2) Text11(7) = mrc.Fieldds(3) Commaand3.EEnableed = TTrue Exit Sub Elsee Text11(5) = Text11(6) = Text11(7) = Commaand3.EEnableed = FFalse End If mrc.Closee Endd If If Indexx = 8 Then tSQLL = sselectt * frrom cllass_FF

48、orm wwhere classs_NO= & TTrim(TText1(Indexx) & Set mrc = ExeccuteSQQL(tSQQL, MssgTextt) If mmrc.EOOF = FFalse Then Text11(9) = mrc.Fieldds(1) Text11(10) = mrcc.Fiellds(2) Text11(11) = mrcc.Fiellds(3) Commaand5.EEnableed = TTrue Exit Sub Elsee Text11(9) = Text11(10) = Text11(11) = Commaand5.EEnableed

49、 = FFalse End If mrc.Closee Endd IfEnd SubbPrivatee Sub Text11_GotFFocus(Indexx As IIntegeer) Texxt1(Inndex).SelSttart = 0 Texxt1(Inndex).SelLeength = Lenn(Textt1(Inddex)End SubbPrivatee Sub Text11_KeyDDown(IIndex As Inntegerr, KeyyCode As Inntegerr, Shiift Ass Inteeger) EntterToTTab KeeyCodeeEnd Su

50、bb4.5課程信息息窗體的設(shè)計(jì)計(jì)4.5.1在工工程中添加一一個(gè)窗體，命命名為“frrmcouii”。整個(gè)窗體界面如如下所示。Frmcouii窗體的主要要控件和屬性性設(shè)置如下對(duì)象名屬性屬性值ComcolTextCombolList1(名稱)密碼TxtUserrTextList1FrmcouiiCaptionn課程信息StartUppPosittion0 手動(dòng)Commandd1Captionn添加Commandd2Captionn刪除4.5.2添加加窗體代碼Privatee Sub Comboo1_Cliick() Lisst1TexxtEnd SubbPrivatee Sub Commaand1

51、_CClick() Dimm txtSSQL Ass Striing If Text11(0) = TThen MsgBBox 課程名稱不不能為空, vbOKKOnly, 提示 Textt1(0).SetFoocus Exitt Sub Endd If txttSQL = sellect * fromm courrse_Foorm whhere ccoursee_Namee= & Trimm(Textt1(0) & Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) If mrc.EEOF = Falsee Thenn MsgBBox 此此課程名稱已已經(jīng)存在！

52、, vbOOKOnlyy, 警告告 Textt1(0).SetFoocus Exitt Sub Endd If mrcc.Closse txttSQL = sellect * fromm courrse_Foorm Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) mrcc.AddNNew mrcc.Fiellds(0) = Trrim(Teext1(00) mrcc.Fiellds(1) = Trrim(Teext1(11) mrcc.Updaate mrcc.Closse Texxt1(0) = Texxt1(1) = MsggBox 課程信息添添加成功

53、！, vbOOKOnlyy, 提示示 Lisst2TexxtEnd SubbPrivatee Sub Commaand2_CClick() Dimm txtSSQL Ass Striing If List22.Textt Theen txtSSQL = deleete frrom coourse_Form wheree courrse_Naame= & Trrim(Liist2.TText) & Set mrc = ExeccuteSQQL(txttSQL, MsgTeext) MsgBBox 課課程信息已經(jīng)經(jīng)刪除！, vbOKKOnly, 提示 Listt2Textt Endd IfEnd

54、SubbPrivatee Sub Form_Load() Dimm txtSSQL Ass Striing Me.Captiion = 課程信息息-設(shè) 置 txttSQL = sellect * fromm classs_Forrm Sett mrc = ExeecuteSSQL(txxtSQL, MsgTText) If mrc.EEOF = True Then MsgBBox 請(qǐng)請(qǐng)先進(jìn)行班級(jí)級(jí)設(shè)置, vbOKOOnly, 提示 Elsse Withh Combbo1 Do Whhile NNot mrrc.EOFF .AddIttem Trrim(mrrc!claass_NOO) mmrc

55、.MooveNexxt Loop Combbo1.LiistInddex = 0 End With Endd If Lisst2TexxtEnd SubbPrivatee Sub Form_MouseeMove(Buttoon As Integger, SShift As Inntegerr, X AAs Sinngle, Y As Singlle) Labbel3(00).BacckColoor = &HC0C00C0 Labbel3(11).BacckColoor = &HC0C00C0 Labbel3(22).BacckColoor = &HC0C00C0 Labbel3(33).Bac

56、ckColoor = &HC0C00C0End SubbPrivatee Sub Form_Resizze() dCoolor.ZZOrderr 1End SubbPrivatee Sub Labell3_Cliick(Inndex AAs Intteger) Dimm txtSSQL Ass Striing Dimm tSQLL As SStringg Dimm mmrcc As AADODB.Recorrdset If Indexx = 0 Then If CCombo11.Textt Andd Listt2.Texxt Thhen txtSQQL = delette froom claa

57、ss_Coour whhere cclass_NO= & Trrim(Coombo1.Text) & and coursse_Namme= & Triim(Lisst2.Teext) & Set mmrc = ExecuuteSQLL(txtSSQL, MMsgTexxt) txtSQQL = selecct * ffrom cclass_Cour Set mmrc = ExecuuteSQLL(txtSSQL, MMsgTexxt) mrc.AAddNeww mrc.FFieldss(0) = Trimm(Combbo1.Teext) mrc.FFieldss(1) = Trimm(List

58、t2.Texxt) mrc.UUpdatee mrc.CClose End If Endd If If Indexx = 1 Then If CCombo11.Textt Theen txtSQQL = delette froom claass_Coour whhere cclass_NO= & Trrim(Coombo1.Text) & Set mmrc = ExecuuteSQLL(txtSSQL, MMsgTexxt) tSQL = sellect * fromm courrse_Foorm txtSQQL = selecct * ffrom cclass_Cour Set mmmrc

59、= ExeccuteSQQL(tSQQL, MssgTextt) If mmmrc.EOOF = TTrue TThen MMsgBoxx 請(qǐng)先進(jìn)進(jìn)行班級(jí)設(shè)置置!, vvbOKOnnly, 提示 Else DDo Whiile Noot mmrrc.EOFF Seet mrcc = ExxecuteeSQL(ttxtSQLL, MsggText) mrrc.AdddNew mrrc.Fieelds(00) = TTrim(CCombo11.Textt) mrrc.Fieelds(11) = mmmrc.FFieldss(0) mrrc.Upddate mrrc.Cloose mmmrc.Moo

60、veNexxt LLoop End IIf End If Endd If If Indexx = 2 Then If CCombo11.Textt Andd Listt1.Texxt Thhen txtSQQL = delette froom claass_Coour whhere cclass_NO= & Trrim(Coombo1.Text) & and coursse_Namme= & Triim(Lisst1.Teext) & Set mmrc = ExecuuteSQLL(txtSSQL, MMsgTexxt) End If Endd If If Indexx = 3 Then If