VB学生成绩管理系统(1).pdf

《VB学生成绩管理系统(1).pdf》由会员分享，可在线阅读，更多相关《VB学生成绩管理系统(1).pdf（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 VB 学生成绩管理系统 1.VB 操作数据库简介 本章节主要介绍 VB 中操作数据库的一般方法，有 ADO Data 控件的连接、ADODB 对象的使用，当然在可视化的开发系统中用控件是的方法是比 较简单的，但不是很灵 活，相比较 ADODB 对象的方法比较灵活，但使用相对麻烦；这里读者 会问，那这两 个又是怎么去访问到数据库的呢？其实他们是通过一些接口去 访问不同数据库的，而 这些接口会屏蔽掉数据库访问协议和各个数据库之间的差别，这里最常用的有两种接 口，一种就是 ODBC、还有一种是 OLE DB，下面我们介绍他们的结构：(a)数据库访问接口：(1)ODBC：ODBC 其实是开放式数据库

2、互连（Open Database Connectivity），是 微软公 司 推出的一种实现应用程序和关系数据库之间通讯的方法标准，是一个接口标准。所 以它实际上是一种标准，符合标准的数据库就可以通过 SQL 语言编写的命令对数 据库进行操作，但只能针对关系数据库进行操作（如 SQL Server，Oracle，Access，Excel 等），目前所有的关系数据库都符合该标准。ODBC 本质上是一组数据库访 问 API（应用程序编程接口），由 一组函数调用组成，核心是 SQL 语句，他的结 构 图如下图 1：图 1.1 在具体操作时，首先必须用 ODBC 管理器注册一个数据源，管理器根据数据源

3、 提 供的数据库位置、数据库类型及 ODBC 驱动程序等信息，建立起 ODBC 与具体 数据库的联系。这样，只要应用程序将数据源名提供给 ODBC，ODBC 就能建 立 起与相应数据库的连接。(2)OLE DB：OLE DB：数据库链接和嵌入对象（Object Linking and Embedding DataBase）。OLE DB 是微软提出的基于 COM 思想且面向对象的一种技术标准，目的是提供一种统一的数据访问接口访问各种数据源，这里所 说的数据除了标 准 的关系型数据库中的数据之外，还包括邮件数据、Web 上的文本或图形、目录服 务(Directory Services)、以及主机

4、系统中的文件和地理数据以及自定义业务对 象等。OLE DB 标准的核心内容就是要求对以上这些各种各样的数据存储(Data Store)都提供一种相同的访问接口，使得数据的使用者(应用程序)可以使用同样 的方法访问各种数据，而不用考虑数据的具体存储地点、格式 或类型，他的结构 图如下图 2：图 1.2(b)VB 中数据库访问对象：(1)ADO Data 控件：ADO Data 控件使用 Microsoft ActiveX 数据对象(ADO)来快速建立数据绑 定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控 件。数据提供者可以是任何符合 OLEDB 规范的数据源,这里可能是

5、对 ADO 的一 个封装，他访问数据库的接口可以使用 ODBC、也可以使用 OLEDB，但 OLEDB 灵活，不用在系统中配置数据源，而且效率高，所以现在使用 OLEDB 更多点，下 面程序中也是用 OLEDB 来介绍的，下面简单介绍一下 ADODC 控件的使用层次 图。ADODC 在 VB 数据库程序设计中起了一个桥梁的作用，可 以方便 VB 中的一些 控 件直接和数据库关联，他的使用示意图如下：图 1.3(2)ADODB 对象 ADO 是 ActiveX Data Objects 的缩写,是一项新的数据库的存取技术,他最主 要包含三个对象，Connection、Recordset、Comm

6、and，Connection 对象：连接对象，负责通过 OLEDB 或 ODBC 建立与数据库之间的连 接。Recordset 对象：记录集对象，存放从数据库中得到的记录，这些可能是执行某条 SQL 语句的结果。Command 对象：执行 SQL 语句返回 Recordset 类型的结果。基本的用法：(1)连接数据源 (2)打开记录集对象 (3)使用记录集 (4)断开连接 具体的应用后面在学生成绩录入中会介绍到。2.VB 连接 SQL Server 数据库 a)用可视 ADODC 控件连接数据库，如图将控件选择到工具栏。（1）设置 ADODC 的 ConnectionString 属性。选择控

7、件 选择控件 图 2.1 点击打开 属性页 图 2.2（2）生成连接字符串。点击数据 连接属性 页 图 2.3 图 2.4（3）设置 ADODC 的 RecordSource 属性。命令类型 图 2.5 命令类型：adCmdText：值 1，表示命令为 SQL 语句。adCmdTable：值 2，表示命令为一表名。b)adCmdStoredProc：值 4，表示命令是一存储过程名。adCmdUnknown：值 8，表示不确定命令类型。（4）此时数据源控件已连接好数据库，可以直接访问它，或者可以充当数据表格 控件的数据源使用。用 ADODB.CONNECTION 对象连接数据库（1）创建 ADO

8、DB.CONNECTION 对象 Private SqlCon As New ADODB.Connection SqlCon.Provider=SQLOLEDB SqlCon.Open Server=microsof-cee903dcr;DataBase=XSCJ;UID=wmx;PWD=1234;（2）使用 ADODB.CONNECTION 对象 Private SqlCmd As New ADODB.Command 指定 Command 对象所使用的连接 SqlCmd.ActiveConnection=SqlCon SqlCmd.CommandText =select*from XS 执行

9、命令 Set SqlRes=SqlCmd.Execute 3.学生成绩管理系统 本演示系统是一个用 VB 实现的简单的学生成绩管理系统，使用用可视 ADODC 控件和 ADODB 对象来访问后台数据库服务器的，包含学生信息的查询、学生休息的 录入修改删除、学生成绩的录入修改，下面就分别说明各模块 的具体实现。4.系统主界面 菜单 工具条 图 4.1 主要功能：主界面，导航作用，点击可进入操作窗口。创建过程：（1）创建菜单：图 4.2 分别起名为：学生信息查询(msStuSearch)、学生信息修改（msStuInfo）、学生成绩修改（msStuScore）、退 出系统（msQuitSys）（2

10、）创建工具条：学生信息查询、学生信息修改、学生成绩修改 退出系统 图 4.3 创建工具条，创建 ImageList 控件，导入图标，与菜单关联；退 出系统、学生信息查询、学生信息修改、学生成绩修改的 index 分别为 3、6，7，8。主要代码：菜单 Click 的处理过程 退出系统菜单 Private Sub msQuitSys_Click()End End Sub 学生信息修改菜单 Private Sub msStuInfo_Click()AddStu.Show End Sub 学生成绩录入菜单 Private Sub msStuScore_Click()AddStuScore.Show

11、End Sub 学生信息查询菜单 Private Sub msStuSearch_Click()StuSearch.Show 工具条 Click 的处理，分别对应调用菜单中的处理过程 5.学生信息查询 目的与要求：了解使用控件怎么去显示数据库中的数据，同时了解查询的基本方法。程序界面：DataGrid 控件 学生选 课表 ADODC 控件 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)学生信息查询图标 If Button.Index=6 Then msStuSearch_Click End

12、 If 学生信息修改图标 If Button.Index=7 Then msStuInfo_Click End If 学生成绩修改图标 If Button.Index=8 Then msStuScore_Click End If 退出系统图标 If Button.Index=3 Then msQuitSys_Click End If End Sub 图 5.1 主要功能：可以满足简单查询的需要，什么条件 也不输则分页显示所有记录，可以 输入条件进行简单的模糊查询，各条件之间为与的关系，在查 询的结果 中移动记录指针可以查看这个学生的具体选课信息 创建过程：（1）在窗体上放入两个学生信息查询的

13、ADODC 和学生选课信息的 ADODC、创建两个学生信息显示的 DataGrid 和学生选课信息显示的 DataGrid，并 分别起名为 StuADO,StuKCADO,StuDG，StuKCDG。放入学号 Edit、姓 名 Edit 和专业下拉列表框,为了美观 StuKCADO 隐藏在 StuKCDG 这个后 面。（2）设置 StuADO 的 ConnectionString 属性为 Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ

14、;Data Source=microsof-cee903dcr（3）设置 StuADO 的 RecordSource 属性为 select*from XS,CXB where XS.XB=CXB.XB（4）设置 StuDG 的 DataSource 属性为 StuADO。（5）设置 StuKCADO 的 ConnectionString 属性为 Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-

15、cee903dcr（6）设置 StuKCADO 的 RecordSource 属性为 select*from XS,KC,XS_KC where XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH （7）设置 StuKCDG 的 DataSource 属性为 StuKCADO。实现过程：直接打开时由于控件属性的设置，所 以显示所有记录，当输入查询条件 时点击查询按钮则调用 MakeSqlStr 函数产生查询字符串，然后重新设置 控件的属性，打开控件显示查询结果集。当专业改变时调用 StuZY_Click 函数来分别显示所选的专业学生记录，当查询结果学生信息记 录集中移 动记

16、录指针时，可以在下面的选课表中看到学生选课的信息。主要代码：根据学号、姓名的输入信息和专业的选择生成模糊查询的 SQL 字符串 Dim SqlStr As String 保存查询字符串的 Public Sub MakeSqlStr()产生查询字符串的 SqlStr=If Trim(StuXH)Then SqlStr=and XH like%+Trim(StuXH.Text)+%End If If Trim(StuXM)Then SqlStr=SqlStr+and XM like%+Trim(StuXM.Text)+%End If If Trim(StuZY)所有专业 Then SqlStr=S

17、qlStr+and ZY=+Trim(StuZY.Text)+“专业”列表 Click 事件处理，显示选择当前专 业，并且符合学号、姓名查询条件的学生的 信息 “查询”Click 事件处理，用生成的模糊查询的 SQL 字符串，来刷新 StuADO，并显示到 关联的 DataGrid 中 学生信息显示的 DataGrid 的 Click 事件处理，以当前学生信息的学号作为查询条件，从 XS_KC 表中查找当前学生的选课记录，并显示到 学生课程显示的 StuKCDG 中 注：为了方便控件显示学生性别，这里建立了一个表 CXB（XB bit,XBM varchar(4)）存放 数据 1，男；0，女，

18、这样把要显示的表与其连接便可 以显示中文的性别，如有类似情 况可参照此方法。6.学生信息修改 目的与要求：了解对数据库操作的基本方法（增、删、改）。程序界 面：End If End Sub Private Sub StuZY_Click()当专业改变时从新从数据库中提取数据 MakeSqlStr StuADO.RecordSource =select*from XS,CXB where XS.XB=CXB.XB _&SqlStr+and ZY=+Trim(StuZY.Text)+StuADO.Refresh End Sub Private Sub StuSch_Click()点击查询按钮从数据

19、库中提取数据 MakeSqlStr StuADO.RecordSource =select*from XS,CXB where XS.XB=CXB.XB _&SqlStr StuADO.Refresh End Sub Private Sub StuDG_Click()单击 DataGrid 中学生记录在下面显示学生课程成绩 StuKCADO.RecordSource =select*from XS,KC,XS_KC _&Where XS.XH=XS_KC.XH And KC.KCH=XS_KC.KCH _&and XS.XH=+StuADO.Recordset(XH)+StuKCADO.Ref

20、resh End Sub 图 6.1 主要功能：用户可以点击下面的表格，用户资料 便反映到上面的控件中去，这时可以 修改控件中的信息，点击更新实现修改。如输入一个新的学号 点击更新实 现记录的添加当选中当前记录点删除时则可以删除此学生记录，双击照片 可以选择学生照片，用于更新学生照片信息。创建过程：(1)在窗体上放入 ADODC、DataGrid 并起名为 StuADO,StuDG。(2)设置 StuADO 的 ConnectionString 属性为 Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=Fals

21、e;User ID=sa;Initial Catalog=XSCJ;Data Source=microsof-cee903dcr（3）置 StuADO 的 RecordSource 属性为 select*from XS,CXB where XS.XB=CXB.XB（4）置 StuDG 的 DataSource 属性为 StuADO。（5）在窗体上放入 Image 控件并起名为 StuPic，用来显示学生照片，选择 Image 控件的 DataSource 属性为 StuADO，设置 DataField 属性为 ZP,这就 完成了 Image 控件和数据库的绑定，记录集移动时 Image 里面会

22、显示当前 学生的照片。（6）并在窗体上放入如图所需控件。实现过程：当点击 DataGrid 中的记录时记录集游标也跟着移 动，在 StuADO_MoveComplete 事件中取出本条记录显示在上面的控件中，我们 可以在控件中修改学生信息，双击选择学生照片，按更新调用 StuUpd_Click 更新到数据库中，当输入新的学生记录时按更新调用 StuUpd_Click 添加到数据库中，也可以按删除调用 StuDel_Click 函数删除 此记录，系统会调用 CheckXs 触发器来保持数据的参照完整性。主要代码：General 中定义的全局变量 Form 加载时打开数据库连接 Form 卸载时关

23、闭数据库连接 学生信息记录集记录指针移动完成事件，当点击 StuADO 控件记录移动图标时产生，在这 个过程中取出当前记录中的学生信息，更新到学号、姓名等显 示控件中去，实现显示和 StuADO 控件记录移动连动 “删除”Click 事件处理，从 StuADO 记录集中取出当前记录的学号，然后通过 commad 对 象执行 delete 语句来删除当前的学生记录，delete 语句的调用会引起 CheckXs 触发器的动 作 Private FileName As String Private SqlCon As New ADODB.Connection Private SqlRes As N

24、ew ADODB.Recordset Private SqlCmd As New ADODB.Command Private Sub Form_Load()SqlCon.Provider=SQLOLEDB SqlCon.Open Server=microsof-cee903dcr;DataBase=XSCJ;UID=wmx;PWD=1234;End Sub Private Sub Form_Unload(Cancel As Integer)SqlCon.Close End Sub Private Sub StuADO_MoveComplete(ByVal adReason As ADODB.E

25、ventReasonEnum,ByVal pError As ADODB.Error,adStatus As ADODB.EventStatusEnum,ByVal pRecordset As ADODB.Recordset)If Not pRecordset.EOF And Not pRecordset.BOF Then StuXH.Text =pRecordset(XH)StuXM.Text=pRecordset(XM)StuCSSJ.Text=pRecordset(CSSJ)StuZY.Text=pRecordset(ZY)StuZXF.Text =pRecordset(ZXF)StuB

26、Z.Text=CStr(pRecordset(BZ)&)If pRecordset(XB)=0 Then StuXBF.Value =True Else StuXBM.Value=True End If End If End Sub Private Sub StuDel_Click(Index As Integer)Ret=MsgBox(是否要删除+StuADO.Recordset(XH)+号学生的记录！,vbYesNo,提示)If Ret=vbYes Then “照片”Double Click 事件的处理，打开对话框，给用户选 择照片，并显示在 StuPic 控件 中，同时记录下选择的文件名

27、和路径到全局 FileName 变量中，给后面的更新学生信息使用 读取照片数据的函数，根据输入的照片的文件名，打开文件读 入照片数据到数组中，然后 通过 AppendChunk 函数把照片数据写入到 Field 对象中去 SqlCmd.ActiveConnection=SqlCon SqlCmd.CommandText=delete from XS where XH=+StuADO.Recordset(XH)+SqlCmd.Execute StuADO.RecordSource =select*from XS,CXB where XS.XB=CXB.XB StuADO.Refresh End

28、If End Sub Private Sub StuPic_DblClick()显示打开文件的公用对话框，选择需要加入数据库的图 片 CDlg.Filter=位图(*.bmp)|*.bmp|图像(*.jpg)|*.jpg CDlg.ShowOpen FileName=CDlg.FileName StuPic.Picture=LoadPicture(FileName)预览图片 End Sub Private Sub PicSaveToDB(ByRef Fld As ADODB.Field,DiskFile As String)保存到图片到 ADODB.Field 对象中去 Const BLOCK

29、SIZE=4096 Dim byteData()As Byte 定义数据块数组 Dim NumBlocks As Long 定义数据块个数 Dim FileLength As Long 标识文件长度 Dim LeftOver As Long 定义剩余字节长度 Dim SourceFile As Long 定义自由文件号 Dim i As Long 定义循环变量 SourceFile=FreeFile 提供一个尚未使用的文件号 Open DiskFile For Binary Access Read As SourceFile 打开文件 FileLength=LOF(SourceFile)得到文

30、件长度 If FileLength=0 Then 判断文件是否存在 Close SourceFile MsgBox DiskFile&无 内 容 或 不 存 在!Else NumBlocks=FileLength BLOCKSIZE 得到数据块的个数 LeftOver=FileLength Mod BLOCKSIZE 得到剩余字节数 Fld.Value=Null ReDim byteData(BLOCKSIZE)重新定义数据块的大小 For i=1 To NumBlocks Get SourceFile,byteData()读到内存块中 Fld.AppendChunk byteData()写入

31、 FLD Next i ReDim byteData(LeftOver)重新定义数据块的大小 “更新”Click 事件处理，先查询当前学号的学生信息，有当前学生的信息则修改 相应的记 录字段，调用 PicSaveToDB 保存选择的照片到记录集中的“ZP”字段，更新记录集到数据 库中去；没有则通过 AddNew 新增一条记录，然后修改相应的记录字段，并更新记 录集到 数据库中去，这里在调用 PicSaveToDB 前先要判断 FileName 中是否选择了照片，有才保 存到数据库中去 Get SourceFile,byteData()读到内存块中 Fld.AppendChunk byteDat

32、a()写入 FLD Close SourceFile 关闭源文件 End If End Sub Private Sub StuUpd_Click(Index As Integer)看是否有此学生记录，有就修改，没则添加 Dim SqlStr As String Dim byteData()As Byte Dim ADOFld As ADODB.Field SqlStr=select*from XS where XH=+Trim(StuXH.Text)+SqlRes.Open SqlStr,SqlCon,adOpenDynamic,adLockPessimistic If Not SqlRes.

33、EOF Then 修改 SqlRes(XM)=StuXM.Text If StuXBM.Value=True Then SqlRes(XB)=1 Else SqlRes(XB)=0 End If SqlRes(ZY)=StuZY.Text SqlRes(CSSJ)=CDate(StuCSSJ.Text)SqlRes(ZXF)=CInt(StuZXF.Text)SqlRes(BZ)=StuBZ.Text 保存到图片到 ADODB.Field 对象中去 Set ADOFld=SqlRes(ZP)If FileName Then Call PicSaveToDB(ADOFld,FileName)En

34、d If SqlRes.Update Else 添加 SqlRes.AddNew SqlRes(XH)=StuXH.Text SqlRes(XM)=StuXM.Text If StuXBM.Value=True Then SqlRes(XB)=1 Else 为了保证数据的参照完整性在删除学生时要检查成就表中此学 生的记录，有就删除。此过程放在触发器中完成的 7.学生成绩的录入 目的与要求：了解 VB 中调用 SQL Server 中存储过程的基本方法。Parameter 参数对 象 的使用，视图的更新使用，触发器的使用。程序界面：SqlRes(XB)=0 End If SqlRes(ZY)=S

35、tuZY.Text SqlRes(CSSJ)=CDate(StuCSSJ.Text)If Trim(StuZXF.Text)Then SqlRes(ZXF)=CInt(StuZXF.Text)End If SqlRes(BZ)=StuBZ.Text 保存到图片到 ADODB.Field 对象中去 Set ADOFld=SqlRes(ZP)If FileName Then Call PicSaveToDB(ADOFld,FileName)End If SqlRes.Update End If FileName=SqlRes.Close StuADO.RecordSource =select*fr

36、om XS,CXB where XS.XB=CXB.XB StuADO.Refresh End Sub CREATE TRIGGER CheckXs ON dbo.XS FOR DELETE AS delete from XS_KC where XH in(select XH from deleted)图 7.1 主要功能：用户可以选择专业，这是会列出本专 业所有的学生学号，选择课程，这时 下面的 DataGrid 中会显示相应课程的学生的成绩和学分，可以在 DataGrid 中输入学生成绩，上面修改单个学生成绩，学分不允许修改，输入成绩，触发器会自动添加相应的学分。创建过程：(1)参照上面学

37、生信息修改窗口界面，姓名和学分 Enable=FALSE。(2)置 StuADO 的 RecordSource 属性为 select*from XS_KC_CJ，XS_KC_CJ 为视图名称(3)DataGrid 窗口属性中 AllowUpdate =Enable 图 7.2,这样 DataGrid 修改才允许 更新到视图中去，从而更新到数据库相应的表中。添加四列，分别选择 DataField 为 XH、XM、CJ、XF,如图 7.3。图 7.2 图 7.3 实现过程：在 Form_Load 事件中编写专业、课程列表项的添加，各专业通过调用 GetStuZY 存储过程来得到，同时检索试图中这个

38、专业、选择这 门课程的学 生，显示在下面的 DataGrid 中，输入成绩，触发器会自动添入学分，可以 选择学号，添加一个学生的某门课程的成绩和选课到学生选课 表中去，删 除 XS_KC 表中删除此学生此门课程的成绩记录。主要代码：(1)SQL Server 中定义的存储过程。创建 GetStuZY 的存储过程，从学生表中查询专业信息 创建显示学生成绩 ShowScore 存储过程，查看此学生的这门课成绩是否存在，在 返回成绩 记录，否则返回学号、姓名、专业、课程名信息 CREATE PROCEDURE GetStuZY AS select DISTINCT ZY from XS 加 DIST

39、INCT，以返回不重复的专业 GO CREATE PROCEDURE ShowScore(XH varchar(6),KCM varchar(16)AS declare KCH varchar(3),count int begin select KCH=KCH from KC where KCM=KCM select count=count(*)from XS_KC where XH=XH and KCH=KCH if count=0 select XH,XM,ZY,KCM=KCM from XS where XH=XH else select XS.XH,XS.XM,CJ,XS_KC.XF,

40、XS.ZY,KCM from XS,KC,XS_KC where XS.XH=XH and KC.KCH=KCH and XS.XH=XS_KC.XH and KC.KCH=XS_KC.KCH 创建插入学生成绩的 AddStuScore 存储过程，学生此门课程成绩记录如存在则修改成绩，如不存在则添加这条记录 创建 XS_KC_CJ 视图，用来在 DataGrid 中显示学生、课程、成绩的信息 创建 XS_KC 的 INSERT,UPDATE 触发器，当添加和修改成绩后，根据当前的成绩自动 为 该学生该课程增加学分，当成绩小于 60 分时，学分为 0；当大于等于 60 分时，从该门课 程表中取出

41、当前课程的学分来更新当前学生在 XS_KC 表中这门课程的学分 end GO CREATE PROCEDURE AddStuScore(XH varchar(6),KCM varchar(16),CJ int,XF int)AS begin declare KCH varchar(3)select KCH=KCH from KC where KCM=KCM select*from XS_KC where XH=XH and KCH=KCH if RowCount =1 update XS_KC set CJ=CJ,XF=XF where XH=XH and KCH=KCH else inser

42、t into XS_KC values(XH,KCH,CJ,XF)end GO CREATE VIEW dbo.XS_KC_CJ AS SELECT dbo.XS_KC.XH,dbo.KC.KCM,dbo.XS_KC.CJ,dbo.XS_KC.XF,dbo.XS.XM,dbo.XS.ZY FROM dbo.KC INNER JOIN dbo.XS_KC ON dbo.KC.KCH=dbo.XS_KC.KCH INNER JOIN dbo.XS ON dbo.XS_KC.XH=dbo.XS.XH GO CREATE TRIGGER CHECKXF ON XS_KC INSERT,UPDATE A

43、S BEGIN SET NOCOUNT ON;update XS_KC set XF=0 where CJ=60 END GO (2)VB 中的主要代码。General 中定义的全局变量 Form 加载时打开数据库连接，并且通过执行 select 语句从数据库中提取课程名添加到课程 下拉列表中去，执行 GetStuZy 存储过程，把返回的专业添加到专业下拉列表中去，在 DataGrid 中显示当前专业，当前课程的的学生、成绩信息，方便修改 Form 卸载时关闭数据库连接 Private SqlCon As New ADODB.Connection Private SqlRes As ADODB

44、.Recordset Private SqlCmd As New ADODB.Command Private Sub Form_Load()SqlCon.Provider=SQLOLEDB SqlCon.Open Server=microsof-cee903dcr;DataBase=XSCJ;UID=wmx;PWD=1234;SqlCmd.ActiveConnection=SqlCon 添加课程 SqlCmd.CommandText =Select*from KC SqlCmd.CommandType =adCmdText Set SqlRes=SqlCmd.Execute StuKCM.Te

45、xt=SqlRes(KCM)While Not SqlRes.EOF StuKCM.AddItem(Trim(SqlRes(KCM)SqlRes.MoveNext Wend 添加专业 SqlCmd.CommandText =GetStuZy SqlCmd.CommandType =adCmdStoredProc Set SqlRes=SqlCmd.Execute StuZY.Text=SqlRes(ZY)While Not SqlRes.EOF StuZY.AddItem (SqlRes(ZY)SqlRes.MoveNext Wend StuZY_Click StuXH_Click StuAD

46、O.RecordSource =select XH,XM,KCM,CJ,XH,ZY,XF from XS_KC_CJ where KCM=+Trim(StuKCM.Text)+and ZY=+Trim(StuZY.Text)+StuADO.Refresh End Sub Private Sub Form_Unload(Cancel As Integer)StuADO 移动记录完成的时候，在学号、姓名、成绩、学分等显示控件中 显示当前学生的 当前课程的成绩信息 “删除”Click 事件处理，调用 Command 执行 delete 删除当前学号，当前课程名的成绩记 录 “课程”下拉列表 Clic

47、k 事件处理，从视图中查询当前专业、当前课程的学生成绩信息，同时调用 ShowScore 在姓名、成绩等 Edit 中来显示当前学生的姓名、成绩等信息 SqlRes.Close SqlCon.Close End Sub Private Sub StuADO_MoveComplete(ByVal adReason As ADODB.EventReasonEnum,ByVal pError As ADODB.Error,adStatus As ADODB.EventStatusEnum,ByVal pRecordset As ADODB.Recordset)If Not pRecordset.EO

48、F And Not pRecordset.BOF Then StuXH.Text =pRecordset(XH)StuXM.Text=pRecordset(XM)StuCJ.Text=pRecordset(CJ)StuXF.Text=CStr(pRecordset(XF)&)End If End Sub Private Sub StuDel_Click()Ret=MsgBox(是否要删除+StuXH.Text+号学生的+Trim(StuKCM.Text)+课的成绩记录！,vbYesNo,提示)If Ret=vbYes Then SqlCmd.ActiveConnection=SqlCon Sq

49、lCmd.CommandText=delete from XS_KC where XH=+StuXH.Text +and KCH in(select KCH from KC where KCM=+StuKCM.Text+)SqlCmd.CommandType =adCmdText SqlCmd.Execute StuADO.RecordSource =select XH,XM,KCM,CJ,XH,ZY,XF from XS_KC_CJ where KCM=+Trim(StuKCM.Text)+and ZY=+Trim(StuZY.Text)+StuADO.Refresh End If End

50、Sub Private Sub StuKCM_Click()Dim StXH,StKCM 选者当前课程的学生选课信息 StuADO.RecordSource =select XH,XM,KCM,CJ,XH,ZY,XF from XS_KC_CJ where KCM=+Trim(StuKCM.Text)+and ZY=+Trim(StuZY.Text)+StuADO.Refresh 没有学生选者该门课程 If StuADO.Recordset.RecordCount=0 Then “更新”Click 事件处理,通过调用 AddStuScore，来添加当前课程，当前学生的成绩信息 if no re