1、PAGEXXXPAGE 77 課程設計報報告冊代碼及程序序，如有需需要，可以以百度上聯聯系我，便便宜出售 課程設計名稱：大型數據據庫Oraacle 專 業：班 級: 學 號： 姓 名： 指 導 老老 師 ： 課程設計報報告設計項目編 號1名 稱 學生信信息管理系系統主要儀器設備PC附屬設備主要使用軟件Oraclle、Viisuall Bassic6.0起止時間2010年年 12月 10 日12月30日 同組人無課程設計任任務書本課程設計計的目的掌握Oraacle基基本內容，了了解備份和和恢復數據據庫的方法法；基本的的Oraccle語句句，如添加加、查詢、修改、刪刪除記錄語語句；VBB中數據綁綁

2、定控件的的方法，熟熟悉數據庫庫連接技術術。2課程設設計的任務務及要求1）基本要要求：要求掌握OOraclle的基本本概念，了了解備份和和恢復數據據庫的方法法,基本的OOraclle語句，如如添加、查查詢、修改改、刪除記記錄語句, 熟悉數數據庫連接接技術。2）課程設設計論文編編寫要求（1）理論論設計部分分以課程設設計論文的的形式提交交，格式必必須按照課課程設計論論文標準格式進行書書寫和裝訂訂。（2）課程程設計報告告（論文）包包括中文摘摘要、目錄錄、緒論、正文、設設計小結、參考文獻獻、附錄等等；（3）正文文部分應包包含系統功功能流程圖圖、系統結結構框圖、模塊流程程圖、設計計目的、實實現思路、實現步

3、驟驟、調試運運行等。目錄第一章、系系統機構及及主要功能能4 1.1學生信信息管理系系統的主要要功能 4 1.2系統的的功能模塊塊結構4第二章、數數據庫設計計5 2.1 創建建數據庫用用戶 55 2.2數據庫庫邏輯結構構設計5 2.3 創建建表的腳本本語言 6第三章、數數據庫連接接83.1創建建數據源 8 3.2 數據庫連連接 99第四章、系系統的實現現 110 44.1主窗窗體的設計計 104.2 登登錄窗體的的設計 12 44.3背景景窗體的設設計 114 44.4班級管理理窗體的設設計 1154.5課程程信息窗體體的設計 2204.6用戶戶信息管理理窗體的設設計 2264.7獎懲懲信息管理

4、理窗體的設設計 2274.8成績績查詢窗口口的設計 294.9學籍籍信息管理理窗口的設設計 314.10個個人信息查查詢窗口的的設計 25第五章、運運行截圖 441課程設計總總結 HYPERLINK l _Toc19788 46一 系統結結構及主要要功能1.1學生生信息管理理系統的主主要功能有有：（1）、用用戶信息管管理 可以修修改、刪除除、添加用用戶；（2）、班班級信息管管理可以添加、修改、刪刪除班級；（3）、學學籍信息管管理可以添加、查詢、修修改、刪除除學籍；（4）、課課程信息管管理可以查看各各班的課程程信息；（5）、成成績信息管管理可以用一個個或幾個條條件查詢、添加、刪刪除，修改改成績；

5、（6）、獎獎懲信息管管理可以添加、查詢、刪刪除獎懲信信息（7）、個個人信息管管理可以查詢學學生的個人人信息。1.2、系系統的功能能模塊結構構如下：二 數據庫庫設計2.1創建建數據庫用用戶在設計數據據庫表結構構之前，首首先要創建建一個學生生信息管理理的數據庫庫用戶，這這里定義為為zenggym,所所有相關的的表都屬于于這個用戶戶。創建用戶的的腳本為： CREATTE usser zzengyymidenttifieed byy zenngymdefauult ttableespacce usserstempooraryy tabblesppace temppquotaa 10mm on user

6、rs;grantt creeate sesssion,resoourcee to zenggym;這樣在設置置ODBCC時，使用用戶zenngym登登錄，就可可以直接在在程序中調調用用戶zzengyym的表和和視圖等數數據庫對象象了。2.2數據據庫邏輯結結構設計根據學生信信息管理系系統的功能能要求，選選取Oraacle為為后臺數據據庫，數據據庫前臺控控制界面使使用Vissual Basiic 6.0來實現現。該數據庫由由8個表組成。這8個表表包括班級級課程信息息(claass_ccour)表、班級級信息(cclasss_Forrm)表、課程信息息(couurse_Formm)表、獲獲獎信息(p

7、rizze_Foorm)表表、獲獎學學生信息(Prizze_Sttud)表表、學生成成績信息(scorre_Foorm)表表、學生信信息(sttudennt_Foorm)表表、用戶（user_Form）表。（1）班級級課程信息息(claass_ccour)表字段名稱字段類型說明classs_No nummber 班級編號號 Cooursee_NammeVarchhar2(50)課程名稱 （22）班級信信息(classs_Foorm)表表字段名稱字段類型說明Classs_No nummber班級編號 Cllass_NameeVarchhar2(50)班級名稱 Cllass_teaccherVar

8、chhar2(50)導員名字 Cllass_RemaarksVarchhar2(50)班級主課程程（3）課程程信息(ccoursse_Foorm)表表字段名稱字段類型說明Coursse_naame Varrcharr2(50)課程名稱 Cooursee_RemmVarchhar2(50)主課程（4）獎懲懲信息(prrize_Formm)表字段名稱字段類型說明Prizee_namme Varcchar22(50) 獎懲名稱 Prizee_Remm VVarchhar2(50) 備注（5）獎懲懲學生信息息(Prizze_Sttud)表字段名稱字段類型說明Prizee_NO numbber 獎懲編號

9、 Prizze_Sttu numbber 獎懲學生生學號 Prizze_Daat Datee 獎懲日期 Prizze_Naam Varcchar22(50) 獎懲名稱（6）學生生成績信息息(scorre_Foorm)表字段名稱字段類型說明Scoree_No numbber 成績編號號 Scorre_peer Varcchar22(50) 成績類型型 Scorre_Clla numbber 班級編號號 Scorre_Sttu numbber 學生學號號 Scorre_Coou Varcchar22(50) 課程名稱稱 Scorre_Scco Varcchar22(50) 成績（7）學生生信息(s

10、tuddent_Formm)表字段名稱字段類型說明Studeent_NNO numbber 學號 studdent_Namee Vaarchaar2(550) 姓名 studdent_Sex Vaarchaar2(55) 性別 studdent_Bir Datee 出生日期期 studdent_Cla numbber 班級編號號 studdent_Tel Vaarchaar2(550) 聯系電話話 studdent_Esd Datee 報名日期期studeent_AAddVarchhar2(50)家庭地址 studdent_Rem Varrcharr2(500) 備注（8）用戶戶（useer_

11、Foorm）表表字段名稱字段類型說明user_ID VVarchhar2(50) 用戶名 userr_PWD VVarchhar2(50) 用戶密碼碼 userr_DATTE datee 登錄日期期2.3創建建表的腳本本語言（1）班級級課程信息息(claass_ccour)表CREATTE TAABLE zenggym.cclasss_Couur (cllass_NO nnumbeer PPrimaary KKey,coursse_Naame vvarchhar2(50) )TABLEESPACCE USSERS;（2）班級級信息(cclasss_Forrm)表CREATTE TAABLE z

12、enggym.cclasss_Forrm (cllass_No nnumbeer Prrimarry Keey,classs_Namme vaarchaar2(550),classs_Teaacherr varrcharr2(500),classs_Remmarkss varrcharr2(500) )TABLEESPACCE USSERS;（3）課程程信息(ccoursse_Foorm)表表CREATTE TAABLE zenggym.ccoursse_Foorm (cooursee_Namme Vaarchaar2(550) PPrimaary KKey,coursse_Reem Vaar

13、chaar2(550) )TABLEESPACCE USSERS;（4）獎懲懲信息(pprizee_Forrm)表CREATTE TAABLE zenggym.pprizee_Forrm (prrize_namee varrcharr2(500) Prrimarry Keey,prizee_Remm Varrcharr2(500)TABLEESPACCE USSERS;（5）獎懲懲學生信息息(Priize_SStud)表CREATTE TAABLE zenggym.pprizee_Stuud (prrize_NO nnumbeer PPrimaary KKey,prizee_Stuu numm

14、ber,prizee_Datt datte,prizee_Namm Varrcharr2(500)TABLEESPACCE USSERS;（6）學生生成績信息息(scoore_FForm)表CREATTE TAABLE zenggym.sscoree_Forrm (sccore_NO nnumbeer PPrimaary KKey,scoree_perr Varrcharr2(500),scoree_Claa nummber,scoree_Stuu nummber,scoree_Couu Varrcharr2(500),scoree_Scoo Varrcharr2(500) )TABLEESP

15、ACCE USSERS;（7）學生生信息(sstudeent_FForm)表CREATTE TAABLE zenggym.sstudeent_FForm (sttudennt_NOO nummber Priimaryy Keyy,studeent_NName Varcchar22(50),studeent_SSex VVarchhar2(5),studeent_BBir DDate,studeent_CCla nnumbeer,studeent_TTel VVarchhar2(50),studeent_EEsd DDate,studeent_AAdd VVarchhar2(50),studee

16、nt_RRem VVarchhar2(50) )TABLEESPACCE USSERS;（8）用戶戶（useer_Foorm）表表CREATTE TAABLE zenggym.uuser_Formm (usser_IID Vaarchaar2(550) Primmary Key,user_PWD Varcchar22(50),user_DATEE datte )TABLEESPACCE USSERS;三 數據庫庫連接3.1、創創建數據源源為了能夠在在程序中訪訪問到數據據庫Houuse，需需要創建系系統數據源源。選擇“控制制面板”“管理工工具”“數據源”“系統統DSN”標簽“添加”選擇“OOra

17、clle inn OraaHomee92”數據據庫驅動程程序進入數數據庫Orraclee ODBBC Drriverr Connfiguuratiion配置置。 將“Daata SSourcce Naame”設設置為Sttatuss，“TNNS Seervicce Naame”設設置為Orraclee創建的數數據庫 ，“Userr”設置為為zenggym,然然后點擊“Testt Connncettion”進入測試試數據庫連連接是否連連接成功。測試連接數數據庫是否否成功： 輸輸入密碼zzengyym后顯示示連接結果果 “Passswordd”輸入zeengymm，點擊OOK測試連連接是否成成功。

18、最后后就可以在在VB中使使用“外接接程序”“可視化化數據管理理”連接數數據庫。3.2、數數據庫連接接（在模塊塊moduulel.bas中中）Publiic Fuunctiion CConneectSttringg() AAs SttringgConneectSttringg = Drivver=Micrrosofft ODDBC ffor ooraclle;sserveer=gnntc;UUID=zzengyym;PWWD=zeengymm;End FFuncttionPubliic Fuunctiion EExecuuteSQQL(ByyVal SQL As SStrinng, MMsgSt

19、tringg As Striing) As AADODBB.Reccordsset Diim cnnn Ass ADOODB.CConneectioon Diim rsst Ass ADOODB.RRecorrdsett Diim sTTokenns() As SStrinng Onn Errror GGoTo ExeccuteSSQL_EErrorr sTTokenns = Spliit(SQQL) Seet cnnn = New ADODDB.Coonnecctionn cnnn.Oppen CConneectSttringgIf InnStr(INSSERT,DELEETE,UUPDAT

20、TE, UCasse$(ssTokeens(00) Thenn cnnn.Exeecutee SQLL MsggStriing = sTookenss(0) & querry suuccesssfull Ellse Sett rstt = NNew AADODBB.Reccordsset rstt.Opeen Trrim$(SQL), cnnn, aadOpeenKeyyset, adLLockOOptimmistiic Sett ExeecuteeSQL = rsst MsggStriing = 查詢詢到 & rstt.ReccordCCountt & 條記錄錄 Ennd IffExecuu

21、teSQQL_Exxit: Seet rsst = Nothhing Seet cnnn = Nothhing Exxit FFuncttionExecuuteSQQL_Errror: MssgStrring = 查查詢錯誤: & Errr.Desscripptionn Reesumee ExeecuteeSQL_ExittEnd FFuncttion四、系統的的實現4.1主窗窗體的設計計4.1.11主界面是是學生信息息管理系統統的主要窗窗口，擔任任著調動程程序其他模模塊的功能能，是整個個應程序的核核心。在工程中添添加一個窗窗體，命名名為“frrmMaiin”。主界面的主主要屬性如如下：窗體屬

22、性設置值具體說明 名稱 FrmmMainn設置窗體名名稱Appeaarancce1 33D外觀效果 Capttion 學生信信息管理系系統窗體的標題題條文本 Ennablee Truue窗體可用 Mooveabble Truue窗體可以移移動negottiateeToollbarssTrueMDIFoorm 對象在 MDIFForm 的頂部或或底部顯示示活動對象象的工具欄欄 SttartUUpPossitioon 0 手動設置窗體彈彈出時，位位置在屏幕幕中心選擇“工具具”菜單項項中的“菜菜單編輯器器”，編輯輯菜單內容容，如下圖圖所示。菜單項的屬屬性如下：標題 名稱用戶信息管管理cusiMMen

23、u班級信息管管理claiMMenu學籍信息管管理stsiMMenu課程信息管管理couiMMenu成績信息管管理scoiMMenu獎懲信息管管理prpiMMenu個人信息管管理sumiMMenu幫助help主界面如下下圖所示：4.1.22窗口代碼碼如下：Privaate SSub cclaiMMenu_Clicck() ffrmcllai.SShowEnd SSubPrivaate SSub ccouiMMenu_Clicck() ffrmcooui.SShowEnd SSubPrivaate SSub ccusiMMenu_Clicck() ffrmcuusi.SShowEnd SSubPr

24、ivaate SSub MMDIFoorm_LLoad() ddColoor.ShhowEnd SSubPrivaate SSub MMDIFoorm_RResizze() IIf Mee.Heiight 11100 TThen ddColoor.Heeightt = MMe.Heeightt - 11100 EEnd IIf IIf Mee.Widdth 1800 Theen ddColoor.Wiidth = Mee.Widdth - 1800 EEnd IIfEnd SSubPrivaate SSub pprpiMMenu_Clicck() ffrmprrpi.SShowEnd SSub

25、Privaate SSub sscoiMMenu_Clicck() ffrmsccoi.SShowEnd SSubPrivaate SSub sstsiMMenu_Clicck() ffrmsttsi.SShowEnd SSubPrivaate SSub ssumiMMenu_Clicck() ffrmsuumi.SShowEnd SSub4.2、登登錄窗體的設計計4.2.11在工程中中添加一個個窗體，命命名為“ffrmLoogin”。整個窗體界界面的示意意圖如圖所所示。用戶要使用用本系統，首首先要通過過系統的身身份認證，即即需要登錄錄。登錄過過程需要完完成一下任任務：（11）根據用用戶名和密

26、密碼來判斷斷是否能進進入系統；（2）根根據用戶類類型決定用用戶擁有的的權限。登錄界面窗窗體的主要要屬性如下。窗體屬性 設置值值 具體說明明 名名稱Labell1設置窗體名名稱BordeerStyyle1-Fixxed SSinglle設置窗體的的邊框屬性性Captiion登錄窗體的標題題條文本ContrrolBooxFalsee取消控制按按鈕在登錄窗體體中添加控控件，并設設置控件的的屬性如下下表所示：對象名屬性屬性值txtPaasswoord（名稱）txtPaasswoordtxtUsserNaameStylee0Droopdowwn CoomboTexttxtUsserNaameCmd_OO

27、kCaptiion確定Cmd_CCanceelCaptiion取消4.2.22編寫窗體體代碼：Privaate SSub FForm_Loadd() DDim ii As Inntegeer ii = 00 ttxtSQQL = sellect * frrom uuser_Formm WWith txtUUserNName SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) DDo Whhile Not mrc.EOF ii = ii + 11 ttxtUsserNaame.AAddIttem TTrim(mrc!userr_ID) mmrc.MMoveNN

28、ext LLoop .ListtIndeex = i - 1 EEnd WWith mmrc.CClosee OOK = Falsse mmiCouunt = 0End SSubPrivaate SSub ccmdCaancell_Cliick() OOK = Falsse MMe.HiideEnd SSubPrivaate SSub ccmdOKK_Cliick() ttxtSQQL = sellect * frrom uuser_Formm wheere uuser_ID = & txxtUseerNamme.Teext & SSet mmrc = ExeecuteeSQL(txtSSQL

29、, MsgTText) IIf mrrc.EOOF = Truee Theen MssgBoxx 沒有有這個用戶戶，請重新新輸入用戶戶名, vbOKKOnlyy + vvbExcclamaationn, 警警告 ttxtUsserNaame.SSetFoocus EElse IIf Trrim(mmrc.FFieldds(1) = Trimm(txttPassswordd.Texxt) TThen OOK = Truee mmrc.CClosee MMe.Hiide UUserNName = Trrim(ttxtUsserNaame.TText) EElse MssgBoxx 輸入入的密碼不不

30、對，請重重新輸入, vbbOKOnnly + vbEExclaamatiion, 警告 ttxtPaasswoord.SSetFoocus ttxtPaasswoord.TText = EEnd IIf EEnd IIf mmiCouunt = miCCountt + 11 IIf miiCounnt = 3 Thhen MMe.Hiide EEnd IIf EExit SubEnd SSubPrivaate SSub LLabell1_Cllick()End SSubPrivaate SSub ttxtPaasswoord_KKeyDoown(KKeyCoode AAs Inntegeer,

31、 SShiftt As Inteeger) EEnterrToTaab KeeyCoddeEnd SSubPrivaate SSub ttxtPaasswoord_KKeyPrress(KeyAAsciii As Inteeger) IIf KeeyAsccii = 13 Thenn CCall cmdOOK_Cllick EEnd IIfEnd SSubPrivaate SSub ttxtUsserNaame_CClickk() ttxtPaasswoord.TText = End SSubPrivaate SSub ttxtUsserNaame_KKeyDoown(KKeyCoode AA

32、s Inntegeer, SShiftt As Inteeger) EEnterrToTaab KeeyCoddeEnd SSub4.3背景景窗體的設設計4.3.11在工程中中添加一個個窗體，命命名為“ddColoor”。整個窗體的的界面設計計示意圖如如下. dColoor窗體上上的空間及及其屬性如如下表所示示。窗體屬性 設置值值 具體說明明 名名稱dColoor設置窗體名名稱MaxBuuttonnTrue激活最大化化按鈕MinBuuttonnTrue激活最小化化按鈕ContrrolBooxTrue控制按鈕在登錄窗體體中添加控控件，并設設置控件的的屬性如下下表所示：對象名屬性屬性值Imagee

33、1Pictuure（Bitmmap）Imagee2Pictuure（Bitmmap）StrettchFalseeLabell1Captiion歡迎進去學學生管理系系統BackCColorr0 TTransspareent4.3.22編寫窗體體代碼Privaate SSub FForm_Loadd() LLabell1.FooreCoolor = &HH80000000EE LLabell1.FoontSiize = 12 LLabell1.AuutoSiize = Truue ii = IImagee2.WiidthEnd SSubPrivaate SSub FForm_Resiize() I

34、Imagee1.Toop = 0 IImagee1.Leeft = 0 IImagee1.Heeightt = MMe.Heeightt IImagee1.Wiidth = Mee.Widdth IImagee2.Toop = Me.HHeighht - Imagge2.HHeighht IImagee2.Leeft = Me.Widtth - Imagge2.WWidthh LLabell1.Toop = Me.HHeighht - Labeel1.HHeighht - 100End SSubPrivaate SSub LLabell1_Cllick()End SSubPrivaate SS

35、ub TTimerr1_Tiimer() ii = ii + 550 LLabell1.Leeft = Me.Widtth - i IIf i Mee.Widdth + Labbel1.Widtth Thhen ii = IImagee2.Wiidth EEnd IIfEnd SSub4.4班級級管理窗體體的設計4.4.11在工程中中添加一個個窗體，命命名為“ffrmcllai”。整個窗體界界面示意圖圖如圖所示示。frmcllai窗體體上的的主要屬性性和控件設設置如下： 對象象名屬性屬性值 FrmcllaiCaptiion班級信息MinbuuttonnTrueLinkTTopiccForm11

36、HacDCCTrueMSFleexGriid1DragMMode0 vvbMannualLabell1Captiion班級信息列列表Labell2（0）Captiion添加Labell2（1）Captiion修改Labell2（2）Captiion刪除Labell3（0）Captiion班級編號Labell3（1）Captiion班級名稱Labell3（2）Captiion導員姓名Labell3（3）Captiion備注4.4.22編寫窗體體代碼Privaate SSub CCommaand1_Clicck() IIf Teext1(0) = Thenn MMsgBoox 班班級編號不不能為空

37、！, vvbOKOOnly, 提示示 TText11(0).SetFFocuss EExit Sub EEnd IIf IIf Teext1(1) = Thenn MMsgBoox 班班級名稱不不能為空！, vvbOKOOnly, 提示示 TText11(1).SetFFocuss EExit Sub EEnd IIf IIf Teext1(2) = Thenn MMsgBoox 導導員姓名不不能為空！, vvbOKOOnly, 提示示 TText11(2).SetFFocuss EExit Sub EEnd IIf ttxtSQQL = sellect * frrom cclasss_For

38、rm whhere classs_NOO= & Trrim(TText11(0) & SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) IIf mrrc.EOOF = Falsse Thhen MMsgBoox 此此班級編號號已經存在在！, vbOKKOnlyy, 警警告 TText11(0).SetFFocuss EExit Sub EEnd IIf mmrc.CClosee ttxtSQQL = sellect * frrom cclasss_Forrm SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) mmrc.

39、AAddNeew mmrc.FFieldds(0) = TTrim(Textt1(0) mmrc.FFieldds(1) = TTrim(Textt1(1) mmrc.FFieldds(2) = TTrim(Textt1(2) mmrc.FFieldds(3) = TTrim(Textt1(3) mmrc.UUpdatte mmrc.CClosee FFor ii = 00 To 3 TText11(i) = NNext MMsgBoox 班班級信息添添加成功！, vvbOKOOnly, 提示示 SShowDDataEnd SSubPrivaate SSub CCommaand2_Clicck

40、() FFor ii = 00 To 3 TText11(i) = NNextEnd SSubPrivaate SSub CCommaand5_Clicck() ttxtSQQL = dellete fromm claass_FForm wherre cllass_NO= & Trimm(Texxt1(88) & SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) FFor ii = 88 To 11 TText11(i) = NNext MMsgBoox 班班級已經刪刪除！, vbOOKOnlly, 警告 SShowDDataEnd SSubPrivaat

41、e SSub CCommaand6_Clicck() FFor ii = 88 To 11 TText11(i) = NNextEnd SSubPrivaate SSub FForm_Loadd() MMe.Caaptioon = 班級信信息添 加 PPictuure1(1).TTop = Piccturee1(0).Topp PPictuure1(1).LLeft = Piicturre1(00).Leeft PPictuure1(2).TTop = Piccturee1(0).Topp PPictuure1(2).LLeft = Piicturre1(00).Leeft SShowDDat

42、a FFor ii = 00 To 2 LLabell2(i).BacckCollor = &HEE0E0EE0 PPictuure1(i).VVisibble = Fallse NNext LLabell2(0).BacckCollor = &HFFFFFFFF PPictuure1(0).VVisibble = TruueEnd SSubPrivaate SSub FForm_Resiize() ddColoor.ZOOrderr 1End SSubPrivaate SSub LLabell2_Cllick(Indeex Ass Inttegerr) MMe.Caaptioon = 班級信

43、信息 MMe.Caaptioon = Me.CCaptiion & - & Trimm(Labbel2(Indeex).CCaptiion) FFor ii = 00 To 2 LLabell2(i).BacckCollor = &HEE0E0EE0 PPictuure1(i).VVisibble = Fallse NNext LLabell2(Inndex).BacckCollor = &HFFFFFFFF PPictuure1(Indeex).VVisibble = Truue FFor ii = 00 To 11 TText11(i) = NNext CCommaand3.Enabble

44、d = Faalse CCommaand5.Enabbled = FaalseEnd SSubPrivaate SSub SShowDData() DDim ttxSQLL As Striing DDim mmrcc As AADODBB.Reccordsset ttxSQLL = seleect * froom cllass_Formm SSet mmrcc = ExxecutteSQLL(txSSQL, MsgTText) WWith MSFllexGrrid1 .ColWWidthh(0) = 12200 .ColWWidthh(1) = 12200 .ColWWidthh(2) = 1

45、2200 .ColWWidthh(3) = 60000 .TexttMatrrix(00, 0) = 班級編號號 .TexttMatrrix(00, 1) = 班級名稱稱 .TexttMatrrix(00, 2) = 導員姓名名 .TexttMatrrix(00, 3) = 備注信息息 .Rowss = 11 DDo Whhile Not mrccc.EOFF .Rowss = .Rowss + 11 FFor ii = 00 To mrrcc.FFieldds.Coount - 1 .TexttMatrrix(.Rowss - 11, i) = mmrcc.Fiellds(ii) & NNe

46、xt i mmrcc.MoveeNextt LLoop EEnd WWith mmrcc.ClosseEnd SSubPrivaate SSub MMSFleexGriid1_CClickk() IIf Piicturre1(11).Viisiblle = Truee Theen TText11(4) = Trrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 00) TText11(5) = Trrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 11) TText11(6) =

47、Trrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 22) TText11(7) = Trrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 33) CCommaand3.Enabbled = Trrue EEnd IIf IIf Piicturre1(22).Viisiblle = Truee Theen TText11(8) = Trrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 00) TText11(9) = T

48、rrim(MMSFleexGriid1.TTextMMatriix(MSSFlexxGridd1.Roow, 11) TText11(10) = TTrim(MSFllexGrrid1.TexttMatrrix(MMSFleexGriid1.RRow, 2) TText11(11) = TTrim(MSFllexGrrid1.TexttMatrrix(MMSFleexGriid1.RRow, 3) CCommaand5.Enabbled = Trrue EEnd IIfEnd SSubPrivaate SSub TText11_Chaange(Indeex Ass Inttegerr) IIf

49、 Inndex = 4 Thenn ttSQL = sselecct * fromm claass_FForm wherre cllass_NO= & Trimm(Texxt1(IIndexx) & SSet mmrc = ExeecuteeSQL(tSQLL, MssgTexxt) IIf mrrc.EOOF = Falsse Thhen TText11(5) = mrrc.Fiieldss(1) TText11(6) = mrrc.Fiieldss(2) TText11(7) = mrrc.Fiieldss(3) CCommaand3.Enabbled = Trrue EExit Sub

50、EElse TText11(5) = TText11(6) = TText11(7) = CCommaand3.Enabbled = Faalse EEnd IIf mmrc.CClosee EEnd IIf IIf Inndex = 8 Thenn ttSQL = sselecct * fromm claass_FForm wherre cllass_NO= & Trimm(Texxt1(IIndexx) & SSet mmrc = ExeecuteeSQL(tSQLL, MssgTexxt) IIf mrrc.EOOF = Falsse Thhen TText11(9) = mrrc.Fi

51、ieldss(1) TText11(10) = mmrc.FFieldds(2) TText11(11) = mmrc.FFieldds(3) CCommaand5.Enabbled = Trrue EExit Sub EElse TText11(9) = TText11(10) = TText11(11) = CCommaand5.Enabbled = Faalse EEnd IIf mmrc.CClosee EEnd IIfEnd SSubPrivaate SSub TText11_GottFocuus(Inndex As IIntegger) TText11(Inddex).SelSSt

52、artt = 00 TText11(Inddex).SelLLengtth = Len(Textt1(Inndex)End SSubPrivaate SSub TText11_KeyyDownn(Inddex AAs Inntegeer, KKeyCoode AAs Inntegeer, SShiftt As Inteeger) EEnterrToTaab KeeyCoddeEnd SSub4.5課程程信息窗體體的設計4.5.11在工程中中添加一個個窗體，命命名為“ffrmcooui”。整個窗體界界面如下所所示。Frmcooui窗體體的主要控控件和屬性性設置如下下對象名屬性屬性值Comcool

53、TextComboolList11(名稱)密碼TxtUsserTextList11FrmcoouiCaptiion課程信息StarttUpPoositiion0 手手動Commaand1Captiion添加Commaand2Captiion刪除4.5.22添加窗體體代碼Privaate SSub CComboo1_Cllick() LList11TexttEnd SSubPrivaate SSub CCommaand1_Clicck() DDim ttxtSQQL Ass Strring IIf Teext1(0) = Thenn MMsgBoox 課程名稱稱不能為空空, vvbOKOOnly

54、, 提示示 TText11(0).SetFFocuss EExit Sub EEnd IIf ttxtSQQL = sellect * frrom ccoursse_Foorm wwheree couurse_Namee= & Trrim(TText11(0) & SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) IIf mrrc.EOOF = Falsse Thhen MMsgBoox 此此課程名稱稱已經存在在！, vbOKKOnlyy, 警警告 TText11(0).SetFFocuss EExit Sub EEnd IIf mmrc.CClosee

55、ttxtSQQL = sellect * frrom ccoursse_Foorm SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) mmrc.AAddNeew mmrc.FFieldds(0) = TTrim(Textt1(0) mmrc.FFieldds(1) = TTrim(Textt1(1) mmrc.UUpdatte mmrc.CClosee TText11(0) = TText11(1) = MMsgBoox 課課程信息添添加成功！, vvbOKOOnly, 提示示 LList22TexttEnd SSubPrivaate SSub CComm

56、aand2_Clicck() DDim ttxtSQQL Ass Strring IIf Liist2.Textt TThen ttxtSQQL = dellete fromm couurse_Formm wheere ccoursse_Naame= & Trimm(Lisst2.TText) & SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) MMsgBoox 課課程信息已已經刪除！, vvbOKOOnly, 提示示 LList22Textt EEnd IIfEnd SSubPrivaate SSub FForm_Loadd() DDim ttxtSQ

57、QL Ass Strring MMe.Caaptioon = 課程信信息-設 置置 ttxtSQQL = sellect * frrom cclasss_Forrm SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) IIf mrrc.EOOF = Truee Theen MMsgBoox 請請先進行班班級設置, vbbOKOnnly, 提示 EElse WWith Combbo1 DDo Whhile Not mrc.EOF .AddIItem Trimm(mrcc!claass_NNO) mmrc.MMoveNNext LLoop CComboo1.Li

58、istInndex = 0 EEnd WWith EEnd IIf LList22TexttEnd SSubPrivaate SSub FForm_MousseMovve(Buuttonn As Inteeger, Shiift AAs Inntegeer, XX As Singgle, Y Ass Sinngle) LLabell3(0).BacckCollor = &HCC0C0CC0 LLabell3(1).BacckCollor = &HCC0C0CC0 LLabell3(2).BacckCollor = &HCC0C0CC0 LLabell3(3).BacckCollor = &HC

59、C0C0CC0End SSubPrivaate SSub FForm_Resiize() ddColoor.ZOOrderr 1End SSubPrivaate SSub LLabell3_Cllick(Indeex Ass Inttegerr) DDim ttxtSQQL Ass Strring DDim ttSQL As SStrinng DDim mmmrc As AADODBB.Reccordsset IIf Inndex = 0 Thenn IIf Coombo11.Texxt And Listt2.Teext Theen ttxtSQQL = dellete fromm claas

60、s_CCour wherre cllass_NO= & Trimm(Commbo1.Textt) & aand ccoursse_Naame= & Trimm(Lisst2.TText) & SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) ttxtSQQL = sellect * frrom cclasss_Couur SSet mmrc = ExeecuteeSQL(txtSSQL, MsgTText) mmrc.AAddNeew mmrc.FFieldds(0) = TTrim(Combbo1.TText) mmrc.FFieldds(1) = TT