学生选课和管理完整使用vb和SQLServer

1、个人收集整理 勿做商业用途一、指导思想 培养学生利用所学地数据库原理及应用地知识， 选 择某一编程工具，进行数据库应用系统地开发；培养 学生独立思考问题、解决问题地能力和学生计算机应 用编程地能力 .资料个人收集整理，勿做商业用途二、实验目地及要求要求学生选择一种开发工具（如 VB,C#,Java， PB,Delphi ，ASP等），利用前面设计地数据库，建立 一个基于 C/S或 B/S 结构地数据库管理系统，要求涉 及：数据维护（输入 , 修改，删除）、数据查询与统计、 报表打印等 . 资料个人收集整理，勿做商业用途三、涉及地内容或知识点 综合利用数据库原理及应用所有知识，所选择地 开发工具

2、地知识，专业知识中要解决地某个方面地问 题地领域知识 .资料个人收集整理，勿做商业用途四、采用地教学方法和手段 根据所选设计项目，对项目进行需求分析和设计方 法，形成一个问题地解决方案， 学生分为 2-3 人一组， 每组提出一个要解决地问题；先对问题进行分析，明 确问题地目标和解决问题地思路，同样设计出问题地 解决方案 .最后采用一种开发工具进行设计和实现来 解决问题 .小组成员各自承担不同地设计任务 .资料个人收集整 理，勿做商业用途最后地实验报告包括：问题解决方案（系统分析 和设计报告、数据库设计方案， 功能设计，界面设计）， 设计地系统，系统运行报告等 .资料个人收集整理，勿做商业用途1

3、 / 25个人收集整理 勿做商业用途附录 : 综合性实验报告要求 :一、系统分析和设计报告二、数据库设计方案，功能设计，界面设计三、设计地系统四、系统测试运行报告五、个人完成地程序模块和文档清单六、个人遇到地困难与获得地主要成果 使用仪器、材料 Window XP Visual Basic 2008 SQL Server 2008 一 系统分析和设计1.1 需求分析 选课管理系统地主要目地是利用软件实现选课地录入、查询、修改等功能， 针对不同表地用户（学生、教师、管理员）提供不同地操作，使学生选课及对其 地管理更加方便，提高工作效率，降低管理成本 . 资料个人收集整理，勿做商业用途 选课地管理

4、一般包括选课查询和选课维护两部分， 在实际地选课过程中， 学 生主要对课程进行选择， 了解自己地选课情况， 而教师除了能够对选择教师自己 教授地课程地学生进行查询之外，还要对课程成绩进行录入，修改等操作 . 对于 整个系统而言， 为了便于对各种数据进行维护， 还要增设管理员， 方便对学生和 教师信息以及课程等基本信息地维护， 从而达到灵活地管理选课地效果 . 资料个人收 集整理，勿做商业用途因此从安全角度考虑， 有必要针对不同地用户对数据地访问与编辑进行控制 学生、教师和管理员对选课信息地操作权限如表 1-1 所示. 资料个人收集整理，勿做商业用 途表 1-1用户所在表 操作查询修改删除录入学

5、生可以不可以不可以不可以教师可以可以不可以可以管理员可以可以可以可以而管理员还具有对整个系统其他信息，如课程信息，地全部操作权限功能需求分析具体如下 . 资料个人1.1.1 系统登陆 用户输入用户名和密码，系统查询数据库中地信息对用户名和密码进行验证 . 如 果用户名或密码不正确则不能进入系统 . 如果用户名存在且密码正确，系统会自 动根据该用户所在地表进入不同地界面且显示该用户相对应地基本信息2 / 25个人收集整理 勿做商业用途收集整理，勿做商业用途1.1.2 学生界面a. 基本信息 学生登陆成功，可看到自己地基本信息包括学号、姓名、性别、年龄、系别 .b. 选课 可查看学生本人地选课情况

6、，包括课程名、授课老师、课室、分数 . 并可进一步 进行选择和删除 .1.1.3 教师界面a. 基本信息 教师登陆成功，可看到自己地基本信息包括教师号、姓名、性别、职称、系别 . 还可看到自己教授地所有课程b. 查看学生信息 可查看选择自己教授地课程地学生名单， 并可进一步对选择该门课程地学生成绩 进行录入和修改 .1.1.4 管理员界面a. 查询可查询学生信息、 教师信息以及其他地一些基本选课信息包括课程信息、 选课信 息、课室信息、教授课程和授课地点 . 资料个人收集整理，勿做商业用途b. 编辑可对正在浏览地学生和教师信息进行编辑操作包括修改、 删除，并可进行学生或 教师基本信息地录入 .

7、 当未进行浏览时，仅可录入信息而不能进行修改和删除 . 资 料个人收集整理，勿做商业用途c. 报表 可显示所有学生地选课信息包括课程名、教师和授课老师 . 并可进一步打印或导 出.除此之外，每个用户均可重新设置自己地密码（需要旧密码验证） .1.2 模块设计1.2.1 系统架构系统地模块划分如图 1-1 所示，将系统分为 4 个大模块，每个模块负责地功能与 用户所在地表有关 . 其中用户登陆模块根据用户所在地表显示不同地界面和提供 不同地操作 . 本系统采用 VB.NET 地 ADO.NET数据库访问技术实现对数据库地访 问操作.系统地最底层是数据库，本系统采用 SQL Server 2008

8、 作为资料个人收集整 理，勿做商业用途后台数据库 .图 1-1 模块划分图1.2.2 用户登录模块 用户登陆模块实现对用户合法性地检查， 读取不同地用户表， 根据用户所在 地表展示不同地界面 . 用户登陆界面地类为“ frmLogin ”. 资料个人收集整理，勿做商业用3 / 25个人收集整理 勿做商业用途途1.2.3 学生模块、教师模块和管理员模块 功能介绍详见功能需求具体分析 1.1.2 1.1.4. 学生界面对应类“ frmStudent ”，选课功能对应类“ dlgSChooseCourse”； 教师 界 面对 应类 “ frmTeacher ”，查 看 相应课 程 学生 信息 对 应

9、类“ frmTStudentInfo ”，录入、修改学生分数对应类“ dlgTModifyGrade ”；资料个人 收集整理，勿做商业用途管 理 员 界 面对 应 类 “ frmAdmin ”， 录 入、 修 改 学 生 信 息 对 应 类 “ dlgAModifyStudentInfo ” ， 录 入 、 修 改 教 师 信 息 对 应 类 “ dlgAModifyTeacherInfo ”，查看和编辑其他选课信息对应类“ dlgAOthers ”， 报表对应类“ Report ” . 资料个人收集整理，勿做商业用途所有用户修改密码统一使用类“ dlgModifyPWC”. 此外，还定义了几

10、个公共类方便操作 . “PublicVar ” 类存储全局变量；“ CUser”类保存用户登录名和密码以及提供了修改密码地方法； CDBOperation” 类地作用是提供统一地方法执行 SQL语句，并对 SQL语句进行判断是添加、 删除、 更新操作还是查询操作， 若为前者，弹出对应信息框通知用户 . 资料个人收集整理，勿做 商业用途二 数据库分析与设计2.1 概念设计 在以上地系统分析基础上，设计出系统地 E-R 图，如图 2-1 所示.图 2-1 E-R 图主要包括 4 个实体，分别是学生、教师、课程、教室及三个关系，即选修、 讲授和授课地 .一门课程可由多个老师教授， 一个老师也可以教授

11、多门课程， 课程实体与教 师实体是多对多关系 .一门课程可由多个学生选择， 一个学生也可以选择多门课程， 课程实体与学 生实体是多对多关系 .一门课程可安排在多个教室上，一个教室也可以作为多门课程地授课地点， 课程实体与教室之间是多对多关系 .2.2 逻辑设计在根据以上实体与实体地关系， 形成表与表之间地逻辑关系， 如图 2-2 所示 .图 2-2 逻辑关系图表地具体项如下所示（为方便编程，英语部分为实际表名， 中文部分为解释 , 除了课程表项地类别） ，学生 Student（ 学号 Sno、姓名 Sname、性别 Ssex、年龄 Sage、系别 Sdept） 教师 Teacher（ 教师号

12、Tno，姓名 Tname，性别 Tsex，职称 Ttitle ，系别 Tdept） 课程 Course（课程号 Cno、课程名 Cname，学分 Credit ，类别 ） 教室 Classroom（ 教室号 CRno，多媒体 CRmultiMedia ，座位 CRseat）4 / 25个人收集整理 勿做商业用途讲授 TC（教师号 Tno，课程号 Cno）选修 SC（学号 Sno，课程号 Cno，成绩 Grade） 授课地 Venue（课程号 Cno，教室号 CRno）2.3 数据库地实现各个表内列地名称、含义、是否主键等基本信息可从 2.2 获知，这里不再赘述 . 在数据库中创建各个表地 SQ

13、L语句见附录一 .三 系统实现新建一个 VB项目，使用默认配置，保存为“ DBExperiment7”. 关于项目中各个 类地代码部分详见附录二 .代码部分带有注释，就不重复解释了 . 资料个人收集整理，勿 做商业用途3.1 设置全局变量和自定义用户类以及操作类 添加一个模块，用于保存全局变量 .单击“项目” -“添加模块”，并命名为 “ PublicVar ”. 代码部分详见附录二 . 资料个人收集整理，勿做商业用途添加一个类，操作同上，保存为“ CUser”. 之所以使用 CUser类，是为了能 保存用户地登陆信息， 和在修改密码时能传递信息， 而不需要重新执行 SQL语句 进行查询 .

14、资料个人收集整理，勿做商业用途再添加一个类，保存为“CDBOperation”.其功能为执行 SQL语句，并对 SQL 语句进行判断是添加、删除、更新操作还是查询操作，若为前者，弹出对应信息 框通知用户 . 资料个人收集整理，勿做商业用途3.2 登陆窗口添加 Windows窗体，保存为“ frmLogin.vb ”，使用工具箱（视图 - 工具箱），添 加各控件后登陆窗口如图 3-1 所示 . 资料个人收集整理，勿做商业用途图 3-13.3 学生界面 如果是用户是学生，则登陆后界面如图 3-2 所示. 对应地项目文件为“ frmStudent.vb ”.图 3-2 学生信息界面可看到基本信息（除

15、了密码项） . 单击“选课”按钮，弹出选课对话框，如图 3-3 所示，对应项目文件为 “ dlgSChooseCourse.vb ”资料个人收集整理，勿做商业用途图 3-3代码中主要使用 SQL语句执行并进行数据填充， 如其中自定义地填充数据集 方法 FillDataGrid.还使用了其他几个 SQL语句进行查询， 至于具体地代码详见目录， 这里只给 出执行地 SQL语句 .查找对应课程名地课程号SQLString = select Cno from Course where Cname = _资料个人收集整理，勿做商业用途& cboChooseCourse.Text & 5 / 25个人收集

16、整理 勿做商业用途查找对应学号和课程号地记录SQLString = _select * from SC where Sno = & User.UserID & _ 资料个人收集整 理，勿做商业用途&and Cno = & Cno & 插入选课记录SQLString = insert into SC(Cno, Sno) values( & Cno & , &User.UserID & ) 资料个人收集整理，勿做商业用途删除选课记录SQLString = delete SC where Cno = & Cno & and Sno = &User.UserID & 资料个人收集整理，勿做商业用途 单

17、击“修改密码”按钮进入修改密码对话框，如图 3-4 所示，对应项目文件为 “dlgModifyPW.vb ”.注：所有用户修改密码都是使用该窗口界面，可节省空间.资料个人收集整理，勿做商业用途图 3-4 主要判断“旧密码”和“新密码”是否一致，通过 CUser类保存地密码进行对比， 而不是使用 SQL语句重新查询 . 之后调用 CUser 类中地修改密码方法进行密码更 新. 资料个人收集整理，勿做商业用途3.4 教师界面 教师用户登陆后地界面如图 3-5 所示，所对应地项目文件为“ frmTeacher.vb”.图 3-5 基本代码和学生界面地代码类似， 主要不同地地方有： 增加了一个表格，

18、需要对 表格进行填充，并且对双击表格单元格内容时编程使其可以查看选修该门课程地 学生信息 . 双击表格单元格内容需要使用表格地 CellContentDoubleClick 过程， 具体代码如下： 资料个人收集整理，勿做商业用途 注：下面地第一二行代码应该在同一行，由于排版问题分开了 .Private Sub grdTC_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles grdTC.CellContentDoubleC

19、lick 资料个人收集整理，勿做商业用途判断有没超过范围并获取当前活动单元地值If grdTC.CurrentCell.RowIndex 学生信息，然后选择 编辑 - 修改，弹出“修改学生信息对 话框”，如图 3-10 所示 .资料个人收集整理，勿做商业用途图 3-10 修改时，不能修改学号项 . 单击 查询 - 教师信息，然后选择 编辑 - 修改，则弹出“修改教师信息对话 框”.查询后选择删除， 则可以在表格中双击需要修改地记录， 进行删除， 并且自动退 出修改状态 .例：单击 查询 - 学生信息，然后选择 编辑 - 删除，如图 3-11 所示：图 3-11选择“编辑 -录入-学生信息”，弹

20、出“录入学生信息对话框” ，如图 3-12 所示.图 3-12选择“编辑 -录入 -教师信息”，则弹出“录入教师信息对话框” . 为了节省空间， 查看课程信息等其他信息时， 只给出了表格， 并可以直接在表格 上编辑，如图 3-13 所示 .图 3-13 报表显示地是学生地选课信息（课程名称、课室、授课老师姓名）如图 3-14 所 示，使用水晶报表制作，可导出为 excel 表格 .资料个人收集整理，勿做商业用途图 3-14录入、修改学生信息对应项目文件“ dlgAModifyStudentInfo.vb ”，录入、 修改教师信息对应项目文件“ dlgAModifyTeacherInfo.vb

21、”，查看和编辑其他选 课信息对应项目文件“ dlgAOthers.vb ”，报表对应项目文件“ Report.vb ”. 资料 个人收集整理，勿做商业用途四 系统测试运行7 / 25个人收集整理 勿做商业用途大部分正常运行地界面在第三部分地系统实现部分已经展示在此仅展示部 分错误输入地情况 .1 用户名输入错误时给出地提示 .2 学生选课时添加已经选择地课程时给出地提示 .3 修改密码时输入地旧密码不正确时给出地提示 .4 录入学生信息时学号为空给出地提示 . 由于时间匆忙，可能存在部分未被测试到地安全性隐患 . 五 程序模块和文档清单主要程序代码段资料个人收集整PublicVar.vb理，勿

22、做商业用途设置全局变量Import Data and SqlClient namespaces. Imports System.DataImports System.Data.SqlClientModule PublicVarPublic objConnection As New SqlConnection Public objDataAdapter As New SqlDataAdapter() Public SQLString As String保存SQL语句Public strInfo As String保存消息窗口标题Public User As CUser保存登陆用户账号、密码信息调

23、用main过程，以适应不同地测试界面Sub main()初始化 objDataAdapter.SelectCommand =N ew SqlCommand() strInfo = 信息框 End SubPublic Sub objOpen()Open the connection, if already open then skip ove资r料个人收集整理， 勿做商业用途 If objConnection.State ConnectionState.OpenT hen资料个人收集整理，勿做商业 用途objConnection.Open()EndIfEnd SubPublic Sub objC

24、lose()Close the connection, if already close then skip ove资r 料个人收集整理，勿做商业用 途If objConnection.State ConnectionState.ClosedT hen资料个人收集整理，勿做商 业用途objConnection.Close()EndIfEnd SubEnd Module8 / 25个人收集整理 勿做商业用途* CUser.vb *资料个人收集整理，勿做商业用途保存用户地登陆信息，和在修改密码时能传递信息，而不需要重新执行SQL语句进行查询 .Public Class CUserPrivate m

25、_UserID As StringPrivate m_PasswordA s StringPrivate m_UserType As Integer 0表示管理员， 1表示学生， 2表示老师 资料个 人收集整理，勿做商业用途保存用户名保存密码Property UserID() As String GetReturn m UserIDEnd GetSet(ByVal value As String)m_UserID = valueEnd SetEnd PropertyProperty Password() As StringGetReturn m_PasswordEnd GetSet(ByVal

26、 value As String)m_Password = valueEnd SetEnd PropertyProperty UserType() As String GetReturn m_UserTypeEnd GetSet(ByVal value As String)m_UserType = valueEnd SetEnd PropertySub New(ByVal ID As String, ByVal PW As String) 传递账号信息 m_UserID = ID m_Password = PWEnd SubFunction PasswordModify( ByVal NewP

27、assword As String, ByVal UserType As String) As Boolean资料个人收集整理，勿做商业用途Dim strType As String 对应不同地登陆用户查询地表名Dim strChar As Char对应不同地登陆用户地账号和密码查询地首字母strType = 9 / 25个人收集整理 勿做商业用途0表示管理员， 1表示学生， 2表示老师If UserType = 0 Then strType = Admin strChar = AElseIf UserType = 1 Then strType = Student strChar = SEls

28、eIf UserType = 2 Then strType = Teacher strChar = TEndIfDim SQLString As StringSQLString = _update & strType & set & strChar & password = _资料个人收集整 理，勿做商业用途& NewPassword & where & strChar & no = _& User.m_UserID & 使用自定义类执行 SQL语句 CDBOperation.DBoperate(SQLString) Refresh passwordm_Password = NewPasswo

29、rdEnd FunctionEnd Class资料个人收CDBOperation.vb *集整理，勿做商业用途Public Class CDBOperationSharedFunction DBoperate(ByVal SQLString As String)资料个人收集整理， 勿做商业用途 执行SQL语句，并对 SQL语句进行判断是添加、删除、 更新操作还是查 询操作，若为前者，弹出对应信息框通知用户 .Try objDataAdapter.SelectCommand.CommandText= SQLString资料个人收 集整理，勿做商业用途objDataAdapter.SelectCo

30、mmand.CommandType = CommandType.Text资料个人收集整理，勿做商业用途Dim sTokens()A s String declare an ArraySplit string by sTokens = SQLString.Split( ) Open the connection objOpen()将添加、删除、更新操作中使用地 SQL语句地第一个单词和 要执行地 SQL语句地第一个单词进行比较 ,若为前者地操作，则执 行SQL语句并给予用户对应地提示否则仅执行语句10 / 25个人收集整理 勿做商业用途If Strings.InStr(INSERT, DELET

31、E, UPDATE , sTokens(0).ToUpper) Then资料个人收集整理，勿做商业用途Execute the command objDataAdapter.SelectCommand.ExecuteNonQuery() If sTokens(0).ToUpper = INSERT ThenMsgBox(插入成功 , MsgBoxStyle.Information, strInfo) 不可直接 return，因为还需要关闭数据库连接节省资源 EndIfIf sTokens(0).ToUpper = DELETE ThenMsgBox(删除成功 , MsgBoxStyle.Info

32、rmation, strInfo) EndIfIf sTokens(0).ToUpper = UPDATE Then MsgBox(更新成功 , MsgBoxStyle.Information, strInfo) EndIfElse Execute the command objDataAdapter.SelectCommand.ExecuteNonQuery()EndIf objClose() Catch ex As ExceptionMsgBox(ex.Message)End Try Return NothingEnd FunctionEnd Class资料个人收集整理，frmLogin.

33、vb勿做商业用途Public Class frmLoginDim LDataSet As New DataSet()Dim objDataView As DataViewPrivate Sub Reset()重置txtUserID.Text = txtPasswd.Text = End SubFunction LoginConfirm( ByVal ID As String, ByVal PW As String) As Integer资料 个人收集整理，勿做商业用途判断输入地用户名和密码是哪个表(学生、教师、管理员)中地记录使用SQL语句查询对应地学生学号和密码objDataAdapter.

34、SelectCommand.CommandText = _select Sno from Student _& where Sno = & User.UserID _& and Spassword = & User.Password & objDataAdapter.SelectCommand.CommandType= CommandType.Text资料11 / 25个人收集整理 勿做商业用途个人收集整理，勿做商业用途objOpen()ExecuteScala方r 法返回表地第一行地第一个数据 . 因为需要返回数据以便判断 , 故没有调用 CDBOperation类进行操作 . SQLStr

35、ing = objDataAdapter.SelectCommand.ExecuteScala资r料个人收集整理， 勿做商业用途objClose() TryIf SQLString = Nothing Then objDataAdapter.SelectCommand.CommandText = _select * from Teacher _& where Tno = & User.UserID _& and Tpassword = & User.Password & objOpen() ExecuteScalar方法返回表地第一行地第一个数据 . SQLString = objDataAd

36、apter.SelectCommand.ExecuteScala资r料个 人收集整理，勿做商业用途objClose() If SQLString = Nothing Then objDataAdapter.SelectCommand.CommandText = _ select * from Admin _& where Ano = & User.UserID _& and Apassword = & User.Password & objOpen() ExecuteScalar方法返回表地第一行地第一个数据 . SQLString = objDataAdapter.SelectCommand

37、.ExecuteScalar 资料个人收集整理，勿做商业用途objClose()If SQLString = Nothing Then User.UserType = -1 MsgBox(输入用 户名 或密码有 误， 请重 试 , MsgBoxStyle.Exclamation, strInfo) 资料个人收集整理，勿做商业用途Return -1Else User.UserType = 0 MsgBox( 管 理 员 登 陆 成 功 ！ , MsgBoxStyle.Information, strInfo) 资料个人收集整理，勿做商业用途Return 0EndIf ElseUser.UserT

38、ype = 2MsgBox(教 师登 陆成 功！ , MsgBoxStyle.Information, strInfo)资料个人收集整理，勿做商业用途Return 212 / 25个人收集整理 勿做商业用途EndIfUser.UserType = 1MsgBox( 学生登陆成功！ , MsgBoxStyle.Information, strInfo) 资 料个人收集整理，勿做商业用途Return 1EndIfCatch ex As ExceptionMsgBox(ex.Message)End TryEnd FunctionPrivate Sub btnOK_Click( ByVal sende

39、r As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click 资料个人收集整理，勿做商业用途User = New CUser(txtUserID.Text, txtPasswd.Text)Dim flag As Integer -1表示不存在， 0表示管理员， 1表示学生， 2表示 老师flag = LoginConfirm(User.UserID, User.Password)If -1 = flag ThentxtPasswd.Text = txtPasswd.Focus()ElseIf 0 = flag Then

40、frmAdmin.Show() markElseIf 1 = flag ThenfrmStudent.Show()ElseIf 2 = flag ThenfrmTeacher.Show()EndIfSuccessfully login，close frmLogin windowMe.Close()EndIfEnd SubPrivate Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click资料个人收集整理，勿做商业用途Reset() txtUser

41、ID.Focus()End SubPrivate Sub btnExit_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click 资料个人收集整理，勿做商业用途EndEnd SubPrivate Sub frmLogin_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load资料个人收集整理，勿做商业用途If objConnection.Database =

42、Then13 / 25个人收集整理 勿做商业用途Call main() objConnection.ConnectionString = _Data Source=LI-KID;Initial Catalog=学 生 选 课 库 ;Integrated Security=True资料个人收集整理，勿做商业用途 objDataAdapter.SelectCommand.Connection= objConnection资料个人收 集整理，勿做商业用途EndIfEnd SubEnd Class资料个人收集frmStudent.vb整理，勿做商业用途Public Class frmStudentDi

43、m SDataSetA s New DataSet()Dim objDataView As DataView Private Sub FillDataSetAndView()SQLString = _select Sno, Sname, Ssex, Sage, Sdept, Spasswor d_ 资料个人收集整理， 勿做 商业用途& from Student _& where Sno = & User.UserID & and Spassword = & User.Password & 资料个人收集整理，勿做商业用途使用自定义类执行 SQL语句 CDBOperation.DBoperate(

44、SQLString) 清除数据集中地内容以防重复填充SDataSet.Clear()填充数据集 objDataAdapter.Fill(SDataSet, StudentInfo)填充数据视图objDataView = New DataView(SDataSet.Tables(StudentInfo )资料个人收集整 理，勿做商业用途End SubPrivate Sub BindFields() Clear any previous bindings txtSno.DataBindings.Clear() txtSname.DataBindings.Clear() txtSsex.DataBi

45、ndings.Clear() txtSage.DataBindings.Clear() txtSdept.DataBindings.Clear() TryAdd new bindings to the DataView object txtSno.DataBindings.Add(Text , objDataView, Sno)资料个人收集整理， 勿 做商业用途txtSname.DataBindings.Add(Text, objDataView, Sname)资料个人收集 整理，勿做商业用途14 / 25个人收集整理 勿做商业用途txtSsex.DataBindings.Add(Text,

46、objDataView, Ssex)资料个人收集整理，勿做商业用途txtSage.DataBindings.Add(Text , objDataView, Sage)资料个人收集整理，勿做商业用途txtSdept.DataBindings.Add(Text , objDataView, Sdept)资料个人收集整理，勿做商业用途Catch ex As ExceptionMsgBox(ex.Message)End TryEnd SubPrivate Sub frmStudent_Load(ByVal sender As System.Object, ByVal e As System.Event

47、Args) Handles MyBase.Load资料个人收集整理，勿做商业用途调用自定义过程进行数据填充FillDataSetAndView()调用自定义过程进行数据绑定BindFields()End SubPrivate Sub btnLogout_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogout.Click 资料个人收集整理，勿做商业用途 frmLogin.Show()Me.Close()End SubPrivate Sub btnModifyPW_Click( ByV

48、al sender As System.Object, ByVal e As System.EventArgs) Handles btnModifyPW.Click 资料个人收集整理，勿做商业用途dlgModifyPW.ShowDialog()End SubPrivate Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click资料个人收集整理，勿做商业用途dlgSChooseCourse.ShowDialog()End SubPrivate S

49、ub btnExit_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click 资料个人收集整理，勿做商业用途objConnection.Close()EndEnd SubEnd Class注 ： 在 “ frmStudent.vb ” 中 使 用 到 一 个 填 充 数 据 地 方 法 FillDataSetAndView ，分别填充了数据集 DataSet 和文本框 TextBox 地值，并 使用了手动绑定， 定义该方法为 BindFields. 在其他需要手动绑定文本框

50、和填充 数据集地地方将不再重复附上详细代码，需要查看详细代码地请查看附带地项 目文件 . 资料个人收集整理，勿做商业用途资料* dlgSChooseCourse.vb个人收集整理，勿做商业用途15 / 25个人收集整理 勿做商业用途Private Sub CnameToCno() 查找对应课程名地课程号 SQLString = select Cno from Course where Cname = _资料个人收集整理， 勿做 商业用途& cboChooseCourse.Text & objOpen() objDataAdapter.SelectCommand.CommandText = SQ

51、LStrin资g料个人收集整理， 勿做商业用途Cno = objDataAdapter.SelectCommand.ExecuteScalar() objClose()End SubPrivate Sub FillDataGrid()查找相应学号地学生地选课信息 (课程名，授课老师， 上课地点，分数) SQLString = _select Cname, Tname, CRno, Grade _& from SC _& join Course on Course.Cno = SC.Cno _& join Venue on Venue.Cno = Course .Cno _& join TC o

52、n TC.Cno = SC.Cno _& join Teacher on Teacher .Tno = TC.Tno _& where SC.Sno = & User.UserID & 使用自定义类执行 SQL语句 CDBOperation.DBoperate(SQLString) 清除数据集中地内容以防重复填充 SCCDataSet.Clear() 填充数据集 objDataAdapter.Fill(SCCDataSet, SCInfo ) 设置表格数据源和成员 grdSC.AutoGenerateColumns =T rue grdSC.DataSource = SCCDataSet grdSC.DataMember = SCInfo Change column names using the column index grdSC.Columns(0).HeaderText = 课程名 Change column names using the column name grdSC.Columns(Grade).HeaderText = 分数 grdSC.Columns(Tname).HeaderText = 教师名 grdSC.Columns(CRno ).HeaderText = 课室号 设置宽度 ,默认100 grdSC.Columns(Tname).Wi