Oracle+Visual Basic60学生信息管理系统

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