VBBSQL学生信息管理开发论文整理

《VBBSQL学生信息管理开发论文整理》由会员分享，可在线阅读，更多相关《VBBSQL学生信息管理开发论文整理（26页珍藏版）》请在装配图网上搜索。

1、、八 、-前言学生信息管理系统是一个教育单位不可缺少的部分 , 它的内 容对于学校的决策者和管理者来说都至关重要 , 所以学生档案管 理系统应该能够为用户提供充足的信息和快捷的查询手段。但一 直以来人们使用传统人工的方式管理文件档案，这种管理方式存 在着许多缺点,如:效率低、保密性差 ,另外时间一长 ,将产生大量 的文件和数据 , 这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 , 其强大的功能已 为人们深刻认识 , 它已进入人类社会的各个领域并发挥着越来越 重要的作用。作为计算机应用的一部分 , 使用计算机对学生档案 信息进行管理 ,具有着手工管理所

2、无法比拟的优点 . 例如:检索迅 速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本 低等。这些优点能够极大地提高学生档案管理的效率 , 也是企业 的科学化、正规化管理 , 与世界接轨的重要条件。因此，开发这 样一套管理软件成为很有必要的事情 , 在下面的各章中我将以开 发学生档案管理系统为例 , 谈谈其开发过程和所涉及到的问题及 解决方法。管理信息系统( MIS )是进行信息的采集、存储、加工、维 护和使用的系统。它是随着管理科学和技术科学的发展而形成 的。学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提

3、供充足的信息和快捷的查询手段。但一 直以来人们使用传统人工的方式管理文件档案，这种管理方式存 在着许多缺点 ,如 :效率低、保密性差 ,另外时间一长 ,将产生大量 的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。学生信息管理系统是我个人根据所学开发的信息管理系统 (MIS), 其开发主要包括后台数据库的建立和维护以及前端应用程 序的开发两个方面。对于前者要求建立起数据一致性和完整性 强、数据安全性好的库。而对于后者则要求应用程序功能完备 易使用等特点。从语言角度出发，相比 Visual C+庞大的MFC函数库和复 杂的编程技术， Visual Basic 一直是最易上手和工作效率较高

4、 的Windows开发工具。它拥有直观的开发环境，而且随时提供弹 出式信息以及自动编码帮助功能。在数据库功能方面十分强大， 能够利用多种数据来源来创建可重用的数据集合，这些集合可被 看成是集合的对象，即使是当低级数据集合驻留于不同的机器， 并且使用不同的数据库服务器平台也是如此。采用更完善的 32 位的API (应用程序)，所以能更快地生成表单。它 提 供 可 视 化 数 据 环 境 设 计 器 ( Data Environment Designer )为用户提供了包括数据表关系、表查询设计、自动生 成的 SQL 代码以及生动的预览结果等等的联合视图。其中“SQL窗格显示当前查询的 SQL语句

5、。当建立了自己的查询， 并对其重新格式化以便于读取时它将自动更新。经过分析 ,我使用 MICROSOFT 公司的 VISUAL BASIC 开发 工具 ,利用其提供的各种面向对象的开发工具 ,尤其是数据窗口这 一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立 系统应用原型 ,然后 ,对初始原型系统进行需求迭代 ,不断修正和改 进,直到形成用户满意的可行系统。本系统内容包括：登陆系统信息、输入学生信息、查询用 户所需的信息、浏览本系统所涉及到的学生信息情况 ,帮助信息 等。它大体上可以分为以下三个功能模块：输入模块、查询模块 和修改模块等，涉及到：(1)控件有：标签(Label)、文本

6、框 (TextBox)、命令按钮(CommandButton)、框架(Frame)、组合框 (ComboBox)、 ADO Data 控件、 DataGrid 控件； (2)控件数组； ( 3)菜单编辑器；( 4) Access 数据库(可在 Visual Basic 6.0 工程界面中的“外接程序”菜单下的“可视化数据环境设计器” 下的VisData建立数据库；也可直接在 Access下建立数据库)。第一章 学生信息管理系统开发的可行性规则1 1 学生信息系统开发过程 管理信息系统的开发是一个复杂的系统工程。开发过程可划分为 下列六个阶段，每个阶段有明确的开发任务。( 1 ) 软件计划 确定

7、系统的总目标、功能、性能、可靠性以及接口等方面。 对系统使用的资源、成本、可取得的效益进行分析，探讨解决问 题的方案，最终完成系统的可行性研究。( 2 ) 需求分析 应确定哪些需求是可以满足的，并对此进行描述，写出软件 需求说明书以及初步制系统的草稿。（3） 软件设计 应把已确定的各项需求转换成相应的体系结构。其中包括根 据数据需求抽象为系统 概念模式，并进面定义成相应的数年据库；把已确定的各项功能 划分为相应的模块，使每个模块和特定的功能需求相对应。然 后，对模块完成的工作进行具体的描述。（ 4） 编程 编写程序是将软件设计转换为程序代码的过程，完成软件设 计中每功能模块程序设计。（5） 测

8、试 将编程完成的程序代码通过测试检查软件的各个组成部分的 正确性，确定是达了要求。12 学生信息管理系统设计 设计管信息系统，需要运用窗体和控件、过程代码、数据库设 计等许多知识。学生信息包括学生基本信息、班级信息、成绩信息等。 学生信息管理就是将上述信息转变为计算机能接受的数据送入 计算机，系统包括学生数据输入、信息查询、信息浏览及报表输 出等功能。（1）数据输入 对学生信息的管理，包括学生信息的输入、添加、删除和修 改。（2）信息查询 通过查询，将满足查询条件的信息显示在窗体上。（3）信息浏览 将满足分析条件的数据在报表中显示出来。1 3 系统设计系统设计包括登陆界面设计、数据库设计、主界

9、面设计、 菜单设计和功能设计。功能设计包括输入设计、查询设计。数据库设计数据库采用 Access数据库，使用 VisData或在Access环境中创建通过数环境设计器的查询设计窗口，将学生信息表 （perso nal）中的字段添加到设计器中。1. 4数据库概念结构E-R图设计这一阶段是集成来自不同用户对现实世界描述所构成的外部视图形成全局的概念模型，进而可以转换成数据库的模式登陆界面是用户进入系统前必须要验证身份的一个必要步骤。 此界面由两个标签、两个文本框和两个按钮组成。登陆界面运行如下：16主界面设计总体界面设计是软件的外貌，一个实用、美观的界面是一个 优秀软件的重要组成部分。首先，界面力

10、求简洁和实用。面向用 户是软件设计的宗旨，以用户为开发核心，要让用户使用方便， 不感到界面烦乱和冗余。避免不必要的操作在界面上，并使用户 直观上感到舒服。其次，要从审美观点出发，使用户使用软件成 为一种享受。特别面对长期使用的数据管理软件，更使用户在长 时间使用中感到清新和轻松，这是不容易做到的。选择兰色背景为软件序幕色；灰色不夸张，气质淡雅，长时 观察仍感自然清晰，对眼刺激小。进入主界面以最大化窗体出 现，各功能设置为菜单项软件运行操作均在此界面中进行。软件 运行期间，主界面永不消失，各子窗体颜色均为灰色。主界面是用户打开系统首先见到的界面，也是进入其他模块的 入口。主界面将常用菜单项设计为

11、工具栏，在工具栏上有输入用户 信息管理，班级信息管理，学籍信息管理，课程信息管理，成绩 信息管理，奖惩信息管理，个人信息管理和帮助等主界面运行如下：17 功能设计171 输入模块输入模块可以用来输入班级信息，学籍信息，课程信息，成 绩信息，由主界面中的输入菜单进入输入学生息窗体。输入学生信息窗体是由四个标签（Label）、两个框架（Frame）、 两个按钮（CommandButton）和一个Adodc控件.班级信息界面如下图所示：功能要求； 在窗体上通过不同的按钮可以显示数据库中的各条信 息。 “添加”按钮用于新增班级编号，班级名称，导员姓名 和备注信息。从而数据表中的记录数目会自动增加。 “

12、删除”按钮用于删除数据表中的某些记录，从而数据 表中的记录也相应地被删除。 “修改”按钮用于修改某些学生的基本信息情况，从而 数据表中的记录相应地也被修改。 “ 取消”按钮用于返回到主界面。 下面是学生学籍的输入界面：功能要求； 在窗体上通过不同的按钮可以显示数据库中的各条信 息。 “添加”按钮用于新增学生学号，姓名，性别，出生日 期，学生编号，联系电话，入学日期，家庭住址等等。 如还有其他信息的需要还可以随时在菜单中增加。从而 数据表中的记录数目会自动增加。 “删除”按钮用于删除数据表中的某些记录，从而数据 表中的记录也相应地被删除。“查询”按钮可以用与查找所需要的学生信息，只要输 入一条信

13、息，和此学生相对应的信息都会显示出来。“取消”按钮用于返回到主界面面是课程信息的输入界面：学生成绩录入界面窗体结构（1） 1 计算机系成绩录入界面此窗体主要是由一个“ datagrid ”控件、一个 “ adodc ”控件和两个命令按钮组成。（ 2） 主要控件属性、事件、方法的设置及源代码的解释说明a.右击adodcl控件将选择“ adodc properties ”属性， 选择“提供者”选项卡选择“ Microsoft Jet4.0 DB Provider ” ， 选 择 “ 下 一 步 ”。 然 后 选 择“ general ”选项卡中的“ use connection string ”

14、的“ build ”按钮 , 在“ 1 .选择或输入数据库名称” 文本框中输入要连接的数据库路径，然后按“测试连 接 ” 如 果 连 接 成 功 按 “ 确 定 ”。 选 择“recordsource ” 选项卡, 在“ comma nd type” 歹U表 框中选择“ 2-adcmdtable ”、在“ Table or Stored Procedure Name”列表框选择“计算机系”，然后单 击“确定”，这样就建立了 adoac1 与数据库中计算 机系的连接。为了能够直接录入信息将其mode属性设置为“ 3-admodereadwrite ”。B. 将 “ datagrid1 ” 的 “

15、 datasource ” 属 性 设 为 “adodc1” ，右击“ datagrid1 ”控件在弹出菜单上 选择“字段索引”，再弹出的消息框中选择“是”则 对“datagridl ”的设置完成。两个命令按钮的 caption 属性分别设为“添加空 行”和“返回”。此段程序为用户添加一条空记录。（ 3） 主要功能 用户可直接在窗体中表格的最后一空行中输入数据，便可直接 保存到数据库中，如果要输入多行可按“添加空行”按钮添加空 白行。输入完数据按“取消”按钮可回到主界面。 下面是学生成绩信息输入：面是学生奖励惩罚信息的输入：功能要求； 在窗体上通过不同的按钮可以显示数据库中的各条信 息。 “添

16、加”按钮用于新增备学生学号，奖惩的时间，备注 信息。从而数据表中的记录数目会自动增加。 “删除”按钮用于删除数据表中的某些记录，从而数据 表中的记录也相应地被删除。172 查询模块 通过主界面进入查询窗体，查询模块用于查询显示满足不 同条件学生的基本情况。可以在学籍管理中对某个学生进行查询，可以得到学号，姓 名，性别，出生日期，班级编号，联系电话和家庭住址等信 息。 在 窗 体 中 有 四 个 标 签 (Label) 、 两 个 组 合 框 (ComboBox)、四个按钮(Frame) 窗体运行如下：功能设计： 可以在组合框中任意选择所需要查询的条件，从下拉列表中直接 选择即可。 单击“查询”

17、按钮，直接进入到查询结果窗体界面 frmresult 中 去。在 frmresult 窗体中可以显示出所要查询信息结果。 单击“取消”按钮，即可返回到主界面窗体中去。 另外如要查询个人的信息可以直接到“个人信息管理”中去查询。 窗体运行如下：功能设计： 可以在组合框中的学号输入要查询的学生学号就可得到其相对应 的个人信息，包括姓名，性别，生日，班号，入学日期，联系电 话。 另外还可得出个人的奖惩情况第二章 学生档案管理系统程序及内容2 1 登陆界面 代码如下：If mrc.EOF = True ThenMsgBox 没有这个用户，请重新输入用 名!, vbOKOnly + vbExclamat

18、ion, 警告 txtUserName.SetFocusElseIf Trim(mrc.Fields(1) Trim(txtPassword.Text) ThenOK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else, vbOKOnly +MsgBox 输入密码不正确，请重新输入！ vbExclamation, txtPassword.SetFocus txtPassword.Text = End IfEnd IfEnd IfmiCount = miCount + 1If miCount = 3 ThenMe.Hid

19、eEnd IfExit SubEnd SubPrivate Sub Label1_Click()End Sub22 主界面代码Private Sub addcinfoMenu_Click() frmAddclassinfo.ShowEnd SubPrivate Sub addcourseMenu_Click() frmAddcourseinfo.ShowEnd SubPrivate Sub addresultMenu_Click() frmAddresult.ShowEnd SubPrivate Sub addsinfoMenu_Click()frmAddsinfo.ShowEnd SubPr

20、ivate Sub adduserMenu_Click()frmAdduser.Show sbStatusBar.Panels(1).Text = 添 加用户 End SubPrivate Sub exitMenu_Click()EndEnd SubPrivate Sub exitsinfoMenu_Click()Unload frminquireinfoEnd SubPrivate Sub gradecourseMenu_Click() frmSetcourseinfo.ShowEnd SubPrivate Sub inquireresultMenu_Click()frmInquireres

21、ult.ShowEnd SubPrivate Sub inquiresinfoMenu_Click()frmInquiresinfo.ShowEnd SubPrivate Sub MDIForm_Load()Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000)Me.Top = GetSetting(App.Title, Settings, MainTop, 1000)Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500)Me.Height = GetSetting(Ap

22、p.Title, Settings, MainHeight, 6500) End SubPrivate Sub MDIForm_Unload(Cancel As Integer)If Me.WindowState vbMinimized ThenSaveSetting App.Title, Settings, MainLeft, Me.LeftSaveSetting App.Title, Settings, MainTop, Me.TopSaveSetting App.Title, Settings, MainWidth, Me.WidthSaveSetting App.Title, Sett

23、ings, MainHeight, Me.HeightEnd IfPrivate Sub modifycinfoMenu_Click() frmModifyclassinfo.ShowEnd SubPrivate Sub modifycourseMenu_Click() frmModifycourseinfo.ShowEnd SubPrivate Sub modifypwdMenu_Click() frmModifyuserinfo.ShowEnd SubPrivate Sub modifyresultMenu_Click() frmModifyresult.ShowEnd SubfrmMod

24、ifysinfo.ShowEnd Sub23 学生信息输入(1)班级信息输入代码：Dim mrc As ADODB.RecordsetDim MsgText As StringDim tSQL As StringPrivate Sub Command1_Click()If Text1(0) = ThenMsgBox 班级编号不能为空 !, vbOKOnly, 提示 Text1(0).SetFocusExit SubEnd IfIf Text1(1) = ThenMsgBox 班级名称不能为空 !, vbOKOnly, 提示 Text1(1).SetFocusExit SubEnd IfIf T

25、ext1(2) = ThenMsgBox 导员姓名不能为空 !, vbOKOnly, 提示 Text1(2).SetFocusExit SubEnd IftxtSQL = select * from class_Form where class_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox 此班级编号已存在 !, vbOKOnly, 警告 Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = select * from

26、class_FormSet mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Trim(Text1(2) mrc.Fields(3) = Trim(Text1(3) mrc.Update mrc.CloseFor i = 0 To 3Text1(i) = NextMsgBox 班级信息添加成功 !, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command2_Clic

27、k()For i = 0 To 3Text1(i) = NextEnd SubPrivate Sub Command3_Click()If Text1(5) = ThenMsgBox 班级名称不能为空 !, vbOKOnly, 提示 Text1(5).SetFocusExit SubEnd IfIf Text1(6) = ThenMsgBox 导员姓名不能为空 !, vbOKOnly, 提示 Text1(6).SetFocusExit SubEnd IftxtSQL = delete from class_Form where class_NO= &Trim(Text1(4) & Set mr

28、c = ExecuteSQL(txtSQL, MsgText) txtSQL = select * from class_FormSet mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(4) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Trim(Text1(6) mrc.Fields(3) = Trim(Text1(7) mrc.Update mrc.CloseFor i = 4 To 7Text1(i) = NextMsgBox 班级信息修改成功 !

29、, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command4_Click()For i = 4 To 7Text1(i) = NextEnd SubPrivate Sub Command5_Click()txtSQL = delete from class_Form where class_NO= & Trim(Text1(8) & Set mrc = ExecuteSQL(txtSQL, MsgText)For i = 8 To 11Text1(i) = NextMsgBox 班级信息以经删除 !, vbOKOnly, 警告ShowDataEnd Su

30、bPrivate Sub Command6_Click()For i = 8 To 11Text1(i) = NextEnd SubPrivate Sub Form_Load()Me.Caption = 班级信息 -添 加 Picture1(1).Top = Picture1(0).TopPicture1(1).Left = Picture1(0).LeftPicture1(2).Top = Picture1(0).TopPicture1(2).Left = Picture1(0).Left ShowDataFor i = 0 To 2Label2(i).BackColor = &HE0E0E

31、0Picture1(i).Visible = FalseNextLabel2(0).BackColor = &HFFFFFFPicture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Label1_Click()End SubPrivate Sub Label2_Click(Index As Integer)Me.Caption = 班级信息 Me.Caption = Me.Caption & - &For i = 0 To 2Label2(i).BackColor =

32、 &HE0E0E0Picture1(i).Visible = FalseNextLabel2(Index).BackColor = &HFFFFFFPicture1(Index).Visible = TrueFor i = 0 To 11Text1(i) = NextCommand3.Enabled = FalseCommand5.Enabled = False End Sub Private Sub ShowData()Dim txSQL As StringDim mrcc As ADODB.RecordsettxSQL = select * from class_FormSet mrcc

33、= ExecuteSQL(txSQL, MsgText)With MSFlexGrid1ColWidth(0) = 1200ColWidth(1) = 1200ColWidth(2) = 1200ColWidth(3) = 6000TextMatrix(0, 0) = 班级编号 TextMatrix(0, 1) = 班级名称 TextMatrix(0, 2) = 导员姓名 TextMatrix(0, 3) = 备注信息 Rows = 1Do While Not mrcc.EOFRows = .Rows + 1For i = 0 To mrcc.Fields.Count - 1TextMatri

34、x(.Rows - 1, i) = mrcc.Fields(i) & Next imrcc.MoveNextLoopEnd Withmrcc.CloseEnd SubPrivate Sub MSFlexGrid1_Click()If Picture1(1).Visible = True ThenText1(4) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)Text1(5) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)Text1(6) = Trim(MSFlexGrid1.TextMatr

35、ix(MSFlexGrid1.Row, 2)Text1(7) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command3.Enabled = TrueEnd IfIf Picture1(2).Visible = True ThenText1(8) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text1(9) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1)Text1(10) = Trim(MSFlexGrid1.TextMatrix

36、(MSFlexGrid1.Row, 2) Text1(11) = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) Command5.Enabled = TrueEnd IfEnd SubPrivate Sub Text1_Change(Index As Integer)If Index = 4 ThentSQL = select * from class_Form where class_NO= & Trim(Text1(Index) & Set mrc = ExecuteSQL(tSQL, MsgText)If mrc.EOF = False

37、ThenText1(5) = mrc.Fields(1)Text1(6) = mrc.Fields(2)Text1(7) = mrc.Fields(3)Command3.Enabled = TrueExit SubElseText1(5) = Text1(6) = Text1(7) = Command3.Enabled = FalseEnd Ifmrc.CloseEnd IfIf Index = 8 ThentSQL = select * from class_Form where class_NO= & Trim(Text1(Index) & Set mrc = ExecuteSQL(tSQ

38、L, MsgText)If mrc.EOF = False ThenText1(9) = mrc.Fields(1)Text1(10) = mrc.Fields(2)Text1(11) = mrc.Fields(3)Command5.Enabled = TrueExit SubElseText1(9) = Text1(10) = Text1(11) = Command5.Enabled = FalseEnd Ifmrc.CloseEnd IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0

39、 Text1(Index).SelLength = Len(Text1(Index)End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd Sub 2)课程信息输入代码：Dim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub Combo1_Click()List1TextEnd SubPrivate Sub Command1_Click()Dim txtSQL As St

40、ringIf Text1(0) = ThenMsgBox 课程名称不能为空 !, vbOKOnly, 提示 Text1(0).SetFocusExit SubEnd IftxtSQL = select * from course_Form where course_Name= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenMsgBox 此课程名称已经存在 !, vbOKOnly, 警告 Text1(0).SetFocusExit SubEnd Ifmrc.ClosetxtSQL = s

41、elect * from course_FormSet mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1)mrc.Update mrc.Close Text1(0) = Text1(1) = MsgBox 课程信息添加成功 !, vbOKOnly, 提示 List2TextEnd SubPrivate Sub Command2_Click()Dim txtSQL As StringIf List2.Text ThentxtSQL = de

42、lete from course_Form where course_Name= & Trim(List2.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)MsgBox 课程信息已经删除 !, vbOKOnly, 提示 List2TextEnd IfEnd SubPrivate Sub Form_Load()Dim txtSQL As StringMe.Caption = 课程信息 -设 置 txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EO

43、F = True ThenMsgBox 请先进行班级设置 !, vbOKOnly, 提示 ElseWith Combo1Do While Not mrc.EOFAddItem Trim(mrc!class_NO) mrc.MoveNextLoopCombo1.ListIndex = 0End WithEnd IfList2TextEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label3(0).BackColor = &HC0C0C0Label3(1

44、).BackColor = &HC0C0C0Label3(2).BackColor = &HC0C0C0Label3(3).BackColor = &HC0C0C0End SubPrivate Sub Form_Resize()dColor.ZOrder 1End SubPrivate Sub Label3_Click(Index As Integer)Dim txtSQL As StringDim tSQL As StringDim mmrc As ADODB.RecordsetIf Index = 0 ThenIf Combo1.Text And List2.Text ThentxtSQL

45、 = delete from class_Cour where class_NO= & Trim(Combo1.Text) & and course_Name= & Trim(List2.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = select * from class_CourSet mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Combo1.Text)mrc.Fields(1) = Trim(List2.Text)mrc.Updatemrc.Cl

46、oseEnd IfEnd IfIf Index = 1 ThenIf Combo1.Text ThentxtSQL = delete from class_Cour where class_NO= & Trim(Combo1.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)tSQL = select * from course_FormtxtSQL = select * from class_CourSet mmrc = ExecuteSQL(tSQL, MsgText)If mmrc.EOF = True ThenMsgBox 请先进行班级设置 !,

47、 vbOKOnly, 提示 ElseDo While Not mmrc.EOFSet mrc = ExecuteSQL(txtSQL, MsgText)mrc.AddNewmrc.Fields(0) = Trim(Combo1.Text)mrc.Fields(1) = mmrc.Fields(0)mrc.Updatemrc.Closemmrc.MoveNextLoopEnd IfEnd IfEnd IfIf Index = 2 ThenIf Combo1.Text And List1.Text ThentxtSQL = delete from class_Cour where class_NO

48、= & Trim(Combo1.Text) & and course_Name= & Trim(List1.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)End IfEnd IfIf Index = 3 ThenIf Combo1.Text ThentxtSQL = delete from class_Cour where class_NO= & Trim(Combo1.Text) & Set mrc = ExecuteSQL(txtSQL, MsgText)End IfEnd IftxtSQL = select * from class_CourS

49、et mrc = ExecuteSQL(txtSQL, MsgText)List1TextEnd SubPrivate Sub Label3_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label3(Index).BackColor = &HFFFFFFEnd SubPrivate Sub Label7_Click(Index As Integer)End SubPrivate Sub List2_Click()Text1(0) = List2.TextEn

50、d SubPrivate Sub Text1_Change(Index As Integer)Dim txSQL As StringIf Index = 0 ThentxtSQL = select * from course_Form where course_Name= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = False ThenText1(1) = mrc.Fields(1)Text1(1).Locked = TrueElseText1(1) = Text1(1).Locked = FalseE

51、nd IfEnd IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer)Text1(Index).SelStart = 0Text1(Index).SelLength = Len(Text1(Index)End SubPrivate Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)EnterToTab KeyCodeEnd SubPrivate Sub List1Text()Dim txSQL As StringDim mrcc As ADODB

52、.RecordsettxSQL = select * from class_Cour where class_NO= & Trim(Combo1.Text) & Set mrcc = ExecuteSQL(txSQL, MsgText)List1.ClearDo While Not mrcc.EOFList1.AddItem Trim(mrcc!course_Name)mrcc.MoveNextLoop mrcc.CloseEnd Sub Private Sub List2Text()Dim txSQL As StringDim mrcc As ADODB.Recordset txSQL =

53、select * from course_Form Set mrcc = ExecuteSQL(txSQL, MsgText)List2.ClearDo While Not mrcc.EOFList2.AddItem Trim(mrcc!course_Name) mrcc.MoveNextLoop mrcc.CloseEnd Sub ( 3)成绩信息输入代码：Private Sub Label3_Click() End SubPrivate Sub MSFlexGrid1_Click()Dim txtSQL As StringIf MSFlexGrid1.Row 0 ThenText3(0) = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) Text3(1) = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) Combo3(0).Clear