《数据库课程设计》报告学生成绩管理系统设计

《《数据库课程设计》报告学生成绩管理系统设计》由会员分享，可在线阅读，更多相关《《数据库课程设计》报告学生成绩管理系统设计（50页珍藏版）》请在装配图网上搜索。

1、计算机科学与技术专业数据库课程设计 华科学院计算机科学与技术专业 《数据库课程设计》报告 （2007/2008学年 第一学期） 学生姓名： 学生班级： 学生学号： 指导教师： 2007年12月29日 目录 第一章 学生成绩管理系统概述 3 1.1 开发背景及意义 3 1.2 运行环境 3 第二章 需求分析 4 2.1 可行性分析 4 1设计思想 4 2技术可行性 4 3环境可行性

2、 4 2.2 系统需求 4 1功能需求 4 2性能要求 5 2.3 数据流程图 5 2.4 数据字典 6 第三章 概念结构设计 8 3.1 实体E-R图 8 3.2 实体之间关系E-R图 9 3.3 课程管理模块设计 11 3.4 学生资料管理模块 11 第四章 逻辑结构设计 13 第五章 物理设计及实施 15 5.1 系统数据库设计 15 5.2 相关模块数据库设计 15 第六章 系统设计及主要界面介绍 17 6.１各主要界面介绍 17 6.１.1 登陆界面 17 6.１.2 系统主要界面 17 6.2　编码实现： 22 6.２.1 连接数据库及网络函

3、数申明 22 6.２.2 登陆界面实现 24 6.２.3 主界面代码如下 25 6.２.４ 成绩录入界面代码 29 6.２.５ 成绩修改界面 32 6.２.６ 成绩查询 36 6.２.７ 用户注册 39 附录１ 使用说明 42 附录2 Db_score.sql 内容 42 参考文献 48 第一章 学生成绩管理系统概述 1.1 开发背景及意义 在教育普及日趋完善的今天，一个学校拥有上万人已经很普遍，上万个学生的数据汇集在一起，对学校信息的管理者而言其工作的庞杂和繁琐程度是相当巨大的，如果只靠人工管理往往

4、为了改一条数据就要翻查所有相关的资料，不仅容易产生错误，而且造成时间和人力很大的浪费，在网络普及的今天，无纸化办公已经成为一种新的趋势，在极短的时间内让学校变成无纸化办公的场所是不现实的，但我们可以一步一步向这个方向发展。 　　经过仔细分析以后，学校的学生成绩管理是学校庞大数据中的一角，编写个学生成绩管理系统来关学生的成绩有很大的意义。 1、 主要方便教师对学生成绩的管理：教师只需坐在计算机前即可完成对学生成绩、课程及学生资料的管理，不用在各个办公室来回取送文件了。 2、 减少数据出错：人工对数据的管理产生错误是无法避免的，一旦产生错误，更正起来十分困难，使用本系统后可以减少出错的几率，

5、修改错误也十分方便。 3、 节约资源：系统普及后可以节约大量用来纪录学生信息的纸张，可以减少以用来管理学生的人手，节约了物质资源和人力资源，从而节约了学校的开支。 1.2 运行环境 1、装有WIN98以上的操作系统的个人电脑 2、安装Access或 SQL Server其中一种数据库。 第二章 需求分析 2.1 可行性分析 1设计思想 当今社会的信息流量越来越大，信息交流的效率显得尤为重要。无纸化办公已经成为社会各工作场所必须具备的条件了。 一个有用几千人乃至上万人的学校，要对每个学生的资料、成绩、课程等数据进行管理，其信息量很大，如果通过人工管理的

6、话将是一项十分巨大的工作，而且容易出错。我们设计了这套系统为了能让教师更轻松地对学生的成绩、课程、学生资料进行管理，查询成绩，将大大简化学生资料、成绩和课程的添加、修改、查询等管理的手续和时间，从而减轻了教师的工作负担和繁琐。 2技术可行性 C/S 模式的客户端需要安本装软件通过对数据库的访问就可以得到所需信息，比其他方式更容易管理，符合使用者对使用系统的要求。为我们提供了系统设计的基本思想，为我们提供了系统设计的基本方向。 3环境可行性 现在学校教师已经普遍配有计算机，而且采用的是C/S模式，不需要为客户安装什么特殊的软件，甚至不要求计算机能上网的要求。 2.2 系统需

7、求 1功能需求 整个系统共划分为学生成绩管理、学生资料管理、课程管理、登陆信息管理和用户管理五大模块，其中课程管理模块提供用户对课程的基本管理功能，包括课程的添加、修改、删除和浏览。学生资料管理模块提供用户对学生资料的基本管理功能，包括学生资料的添加、修改、删除和查询。系统功能层次图如图2-1所示。 成绩管理系统 学生资料管理 用户管理 登陆信息管理 课程管理 学生成绩管理 图 2.1系统功能层次图 2性能要求 所开发的系统能在安装有WIN98以后的系统上正常运行，数据库文件的查询修改所需响应时间不能大于10秒。 要求系统能对数据库信息的基本保密，并对超级管理员提供

8、对数据库的直接修改功能，对不同的对象提供不同的权限资格，让使用者不能越权修改资料，并且要求数据的唯一，不能产生数据重复输入的情况。对于源代码能保密，出现问题后能及时的做出相应的调整。 要求客户机上有安装Access或 SQL Server等数据库。 2.3 数据流程图 如下图2.2所示 图 2.2 数据流程图 2.4 数据字典 数据字典是关于数据的信息集合，也就是对数据流图中包含的所有元素的定义的集合。数据字典的作用是在软件分析和设计的过程中给人提供关于数据的描述信息。本软件的相关数据字典如表2-1下： 表2-1 数据字典 名字：学生信息记录 别名：

9、描述：描述学生的具体信息的信息表 定义：学生信息记录 = 学号 + 姓名 + 性别 + 年龄 + 班级 位置：登陆用户信息表（tb_login） 学生信息表(tb_stuInfo) 名字：教师注册表 别名：系统登陆用户信息 描述：教师注册为本系统的合法用户时，所提供给用户的信息。 定义：教师注册表 = 系统ID + 教师号 + 姓名 + 性别 + 院系 位置：登陆用户信息表（tb_login） 教师信息表(tb_teacherInfo) 名字：课程安排表记录 别名： 描述：记录课程安排的信息表 定义：课程安排

10、表记录 = 科目号 + 科目名 + 上课时间　+　上课地点 位置：课程安排表（tb_claInfo） 数据项描述： 系统ID = 教师登陆用户名 | 管理员登陆用户名 | 学生登陆用户名 教师登陆用户名 = 0{字母或数字}12 管理员登陆用户名 = 0{字母或数字}12 学生登陆用户名 = 学号 学号 = 12{数字字符}12 第三章 概念结构设计 3.1 实体E-R图 E-R图（Entity-Relationship Diagran）是用来描述现实世界的概念模型。 本系统的主要E-R图3.1 ~ 图3.6所示： 管理员 姓名 性别

11、 系统ID 图3.1 管理员实体E-R图 教师 教师号 姓名 性别 系统ID 图3.2 教师实体E-R图 姓名 学号 性别 年龄 班级 学生 图3.3 学生教师实体E-R图 姓名 学号 课程名 表号 班级 成绩 图3.4 成绩实体E-R图 课程 课程号 课程名 图3.5 课程实体E-R图 院系 籍贯 入学时间 专业 班级 学生资料 政治面貌 最高学历 图3.6 学生资料实体E-R图 3.2 实体之间关系E-

12、R图 图 3.7实体之间关系E-R图 PS：管理员和学生、教师之间是管理的关系，由管理员管理学生和教师的权限。管理员具有最高权利，并管理课程安排；也可以对学生资料和学生成绩进行管理。 教师和成绩、学生资料之间是管理的关系，由教师对成绩、学生资料的添加、删除、修改等功能进行管理；与课程是查询关系，教师只能查询课程安排。 学生和课程、成绩、学生资料之间是查询的关系，学生在课程、成绩、学生资料的模块中查询信息。 3.3 课程管理模块设计 权限设计：权限为2的使用者为学生，权限为1的使用者为教师，权限为0的使用者为管理员。 课程管理模块：能提供基本的课程管理功能：添加课程

13、、修改课程、删除课程、浏览课程，每个功能的具体要求如下： 课程管理功能层次图如图3.2所示： 课程管理模块 课程添加 课程修改 课程查询 课程删除 图3.2 课程管理功能层次图 添加课程：为权限为0的用户提供课程添加功能，要求能添加课编号、课程名称。 修改课程：为权限达为0的用户提供课程修改功能，为了保证课程编号唯一，只能修改课程名称，不能对课程编号进行修改，如果要修改课程编号，请先删除课程，再添加对应课程的编号和名称。 删除课程：为权限为0的用户提供课程删除功能，选择要删除的课程编号，显示出该课程的相关信息，确认后删除课程。 浏览课程：为所有用户提供课程浏览功能，

14、将所有课程信息以表格的形式显示到新窗体上。 3.4 学生资料管理模块 学生信息管理模块：记录学生基本信息，包括学生的学号、姓名、性别、出生日期、所在院系、专业、联系方式以及备注信息，对学生的基本资料进行添加、修改、删除、查询等基本的管理操作。 学生资料管理功能层次图3.3所示 学生资料管理模块 学生资料添加 学生资料修改 学生资料查询 学生资料删除 图3.3 学生资料管理功能层次图 添加学生信息：为权限是1或0的用户提供学生信息添加功能，要求能添加学生资料的所有项，并且确保学生学号的唯一性。 修改学生信息：为权限是1或0的用户提供学生信息修改功能，输入要修改的学生

15、学号后生成修改学生资料的页面，并在上面进行修改操作，要求能修改学生资料。 删除学生信息：为权限是1或0的用户提供学生信息删除功能，要求在输入要删除的学生学号后生成删除学生资料的页面，使用者得到确认后，彻底的删除改学生的所有资料。 查询学生信息：为所有用户提供学生资料查询功能，能提供不同类型的查询，包括全部查询、所在专业、班级、学号、姓名的查询，在选择选项并输入相应的数值后，生成学生的资料。 第四章 逻辑结构设计 逻辑结构设计的任务就是把概念结构设计阶段设计好的基本E-R图转换为与选用DBMS产品所支持的数据模型相符合的逻辑结构。本系统的逻辑结构如下图4.1

16、~ 图4.4所示： 图4.1 tb_login 登陆用户基本信息表 图4.2 tb_score 学生成绩基本信息表 图4.3 tb_stuinfo 学生基本信息表 图4.4 tb_clas 课程基本信息表 第五章 物理设计及实施 5.1 系统数据库设计 数据库包括用户表、课程表、成绩表、学生资料表，在每个表中要求能纪录相应的基本信息，并做到分类和自动排序。在设计过程中，本机调试时采用了SQL数据库。 5.2 相关模块数据库设计 1 系统用户表记录的系统登陆用户的信息： 登陆用户资料表(tb_login) 如

17、图5.1所示：（以下所有图，为了方便截图，建立表语句后，加了个select 语句，所以有显示批查询完成） 图5.1 登陆用户表 2 学生成绩表记录了学生各科成绩 学生成绩表(tb_score)如图5.2所示： 图5.2 学生成绩表 3 课程表纪录了课程的基本信息： 课程资料表(tb_course)如图5.3所示 图5.3 课程资料表 4、学生资料表记录了学生的基本信息： 学生资料表如图5.4所示： 图5.4 学生资料表 第六章 系统设计及主要界面介绍 6.１各主要界面介绍 6.１.1 登陆界面 ――登陆界面Frm_login如图6.1

18、所示： 图6.1 登陆界面 6.１.2 系统主要界面 （本系统的主界面具体的实际功能只有修改密码，主要是起和后边各个窗体连接作用，相当于导航器，功能不可小视^ ^，界面设计全是自己用photoshop等软件自己设计的，所有素材保留在本程序目录下的skin文件夹中） 系统主要界面Frm_tmain －－系统简介如图6.2所示： 图6.2 系统简介 －－系统帮助如图6.３所示： （主要是连接了些网上关于vb6.0和sql server 2000的资料，没有自己设置窗体和文本） 图6.３ 帮助主题 －－更改密码界面如图6.４所示： 图6.４ 更改密码

19、 ――成绩查询界面如图6.5所示下：（查询中也还有其他按纽功能，大体相同，不一一介绍） 图6.5 成绩查询 ――成绩查询结果显示如下如图6.6所示 （注：为了方便检查我在数据库中加入了本班部分同学的信息，各个窗体的相关标签是相互关联的，如上边查询的是200522030109,点击查询得到以下表中的信息，下同） 图6.6 成绩查询结果 ――成绩录入界面如如图6.7所示 图6.7 录入成绩 ――选择相应的科目和班级提交后得到以下页面如图6.8所示 图6.8 录入成绩表格 ――信息修改界面如下如图6.9所示 图6.９ 修改信息

20、 ――选择相应的科目和班级提交后得到以下页面：在此录入修改信息，如下图6.10所示 图6.１０ 修改成绩表格 －－以下是注册信息表如图6.11所示 图6.１１ 注册界面（两个） 6.2　编码实现： 6.２.1 连接数据库及网络函数申明 这是两模块:modSql和toInternet的代码（为了方便后边的代码方便简单，就把这两个常用部分，定义了两个单独模块）如下：代码简单，不一一解释了 模块一：ModSql: Public Function ExecuteSql(ByVal strSql As String) As ADODB.Recordset O

21、n Error GoTo ExecuteSql_Error 处理错误 Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.Open "filedsn=db_score.dsn;uid=sa;pwd=" rst.Open Trim$(strSql), cnn, adOpenKeyset, adLockOptimistic Set

22、ExecuteSql = rst ExecuteSql_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSql_Error: Msgbox （"数据哭操作失败，请检查数据源配置！"）,vbokonly Resume ExecuteSql_Exit End Function 模块二：toInternet: Rem 连接网络^ ^.....................api函数～ Public Declare Function ShellExecute Lib

23、 "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Public Const SW_SHOWNORMAL = 1 Public Sub toWeb(ByVal URL As String) Dim Sus As Long Sus = She

24、llExecute(Handle, vbNullString, URL, vbNullString, nil, SW_SHOWNORMAL) End Sub 6.２.2 登陆界面实现 其中有关代码如下： Option Explicit Private Sub CmdAdmin_Click() MsgBox "I am sorry! You are not the admin....", vbOKOnly + vbExclamation, "HKjsj052201h" End Sub Private Sub CmdEnter_Click() Dim st

25、rSql As String sql查询语句 Dim rst As New ADODB.Recordset If Trim(TxtUser.Text) = "" Then MsgBox "请输入正确的用户名!", vbOKOnly + vbExclamation, "警告" TxtUser.SetFocus Else strSql = "select * from tb_login where userid =" & TxtUser.Text & " " Set r

26、st = ExecuteSql(strSql) If rst.EOF = True Then MsgBox "用户名不存在，请重新输入!", vbOKOnly + vbExclamation, "警告" Set rst = ExecuteSql(strSql) TxtUser.SetFocus Else If Trim(rst.Fields("userpwd")) = Trim(TxtPwd.Text) Then rst.C

27、lose Me.Hide Frm_tMain.Show Else MsgBox "密码不正确，请重新输入!", vbOKOnly + vbExclamation, "警告" TxtPwd.Text = "" TxtPwd.SetFocus End If End If End If End Sub Private Sub CmdNewuse

28、r_Click() Frm_Login.Hide Frm_Regester.Show End Sub 6.２.3 主界面代码如下 Private Sub CmdAddStu_Click() FmeAdd.Visible = True Frmcla04.Visible = False End Sub Private Sub CmdAlterScore04_Click() FmeAdd.Visible = False Frmcla04.Visible = True End Sub Private Sub CmdCan

29、01_Click() TxtYuanxi01 = "" TxtMajor01 = "" TxtClas01 = "" End Sub Private Sub CmdChaXun05_Click() Frm_tMain.Hide Frm_Stu_Score.Show End Sub Private Sub CmdCla_Click() FClaIn.Visible = True FSubIn.Visible = False End Sub Private Sub CmdCutStu_Click()

30、 FmeAdd.Visible = True Frmcla04.Visible = False End Sub Private Sub Cmdok01_Click() Frm_tMain.Hide Frm_InScores.Show End Sub Private Sub CmdOk03_Click() FrmSub04.Visible = True Frmcla04.Visible = False End Sub Private Sub CmdOk02_Click() FClaIn.Visible = True

31、 FSubIn.Visible = False End Sub Private Sub CmdOk05_Click() Me.Hide Frm_AlterScore.Show End Sub Private Sub CmdSelSCore05_Click() Fmeclas05.Visible = True FmeZdy05.Visible = False FmeCxStu05.Visible = False End Sub Private Sub CmdStu05_Click() FmeCxStu05

32、.Visible = True FmeZdy05.Visible = False Fmeclas05.Visible = False End Sub Private Sub CmdSub_Click() FClaIn.Visible = False FSubIn.Visible = True End Sub Private Sub CmdXcode_Click() If TxtNewcode01.Text <> TxtNewcode02.Text Then MsgBox "两次输入的密码不一样！", vbO

33、KOnly + vbExclamation, "错误" End If Dim rst As New ADODB.Recordset Dim strSql As String strSql = "update tb_login set userpwd = " & TxtNewcode01.Text & " where userid =" & Frm_Login.TxtUser.Text & " " Set rst = ExecuteSql(strSql) MsgBox "密码修改成功!", vbOKOnly + vbExclamatio

34、n, "HKJSJ052201H" End Sub Private Sub CmdZdy_Click() FmeZdy05.Visible = True Fmeclas05.Visible = False FmeCxStu05.Visible = False End Sub Private Sub Form_Load() CobSub04.AddItem ("软件工程") CobSub04.AddItem ("汇编语言") CobSub04.AddItem ("数据库设计") CobSub04.Add

35、Item ("计算机图形学") CobSub04.AddItem ("JAVA程序设计") CobSub04.AddItem ("计算机组成原理") End Sub Private Sub Form_Unload(Cancel As Integer) If MsgBox("真的要退出本系统吗?", vbOKCancel + vbDefaultButton2, "退出系统") = vbCancel Then Cancel = 1 End Sub Private Sub LblHelp01_Click() Me.Hide Frm_AD.Show

36、End Sub Private Sub LblHelp02_Click() Call toWeb(" End Sub Private Sub LblHelp03_Click() Call toWeb("") End Sub Private Sub LblHelp04_Click() Call toWeb(" End Sub Private Sub LblHelp05_Click() Me.Hide Frm_421.Show End Sub Private Sub Timer1_Timer() LblTime.

37、Caption = " 欢迎使用本系统! 祝学习工作愉快 ^ ^ " + Format(Now, "yyyy/mm/dd") _ + "　　　　　　　　　　" + Format(Now, "dddd") + " 　　　　　　　　　" + Format(Now, "hh:mm:ss AM/PM") End Sub 6.２.４ 成绩录入界面代码 Private Sub Form_Load() With MSFlexGrid1 固定表头 .FixedRows = 1 表头项居中

38、 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 25 .Cols = 5 End With 设置MSFlexGrid表格的列宽 MSFlexGrid1.ColWidth(0) = 1900 MSFlexGrid1.ColWidth(1) = 1800 MS

39、FlexGrid1.ColWidth(2) = 3200 MSFlexGrid1.ColWidth(3) = 1200 MSFlexGrid1.ColWidth(4) = 2600 表头 MSFlexGrid1.TextMatrix(0, 0) = " 学号" MSFlexGrid1.TextMatrix(0, 1) = " 姓名" MSFlexGrid1.TextMatrix(0, 2) = " 课程名" MSFlexGrid1.TextMatrix(0, 3) = "

40、 分数" MSFlexGrid1.TextMatrix(0, 4) = " 备注" ShowData no return 添写固定科目 For k = 1 To 17 MSFlexGrid1.TextMatrix(k, 2) = LblTitle.Caption Next k End Sub 读取数据库的函数/循环读入 Public Sub ShowData() Dim j As Integer Dim i As Integer strSq

41、l = "select 学号,姓名 from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Typ

42、e Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) & "" End Select Next i

43、 rst.MoveNext Loop End With End If rst.Close End Sub 6.２.５ 成绩修改界面 Option Explicit Dim rst As New ADODB.Recordset Dim strSql As String Dim k As Integer Dim j As Integer Dim i As Integer Public Sub ShowData() strSql = "select 学号,姓名," & Trim

44、(LblSub.Caption) & " from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).

45、Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.Rows - 1, i - 1) = rst.Fields(i - 1) End Select Next i

46、 rst.MoveNext Loop End With End If rst.Close End Sub Public Sub ShowScore() strSql = "select " & Trim(LblSub.Caption) & " from tb_score" Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Ro

47、ws = 1 Do While Not rst.EOF .Rows = .Rows + 1 For i = 1 To rst.Fields.Count .TextMatrix(.Rows - 1, i + 2) = rst.Fields(i - 1) & "" Next i rst.MoveNext Loop End With End If rst.Close End

48、Sub Private Sub Command1_Click() End Sub Private Sub CmdBack_Click() Me.Hide Frm_tMain.Show End Sub Private Sub CmdOk_Click() MsgBox "修改数据成功!单击“确定”返回", vbOKOnly + vbInformation, "计算机052201H" End Sub Private Sub CmdReTry_Click() Dim i As Integer For i = 0 T

49、o 16 Text1(i) = "" Next i End Sub Private Sub Form_Load() On Error Resume Next LblSub.Caption = Frm_tMain.CobSub04.Text 显示biao qian MSFlexGrid1.Rows = 24 MSFlexGrid1.Cols = 4 设置MSFlexGrid表格的列宽 MSFlexGrid1.ColWidth(0) = 2400 MSFlexGrid1.ColWidth(1) = 2400

50、 MSFlexGrid1.ColWidth(2) = 1800 MSFlexGrid1.ColWidth(3) = 1800 表头 MSFlexGrid1.TextMatrix(0, 0) = " 学号" MSFlexGrid1.TextMatrix(0, 1) = " 姓名" MSFlexGrid1.TextMatrix(0, 2) = " 成绩" MSFlexGrid1.TextMatrix(0, 3) = " 编辑" 填充第一列 For k = 1

51、To 23 MSFlexGrid1.TextMatrix(k, 0) = " 20052203010" & k Next k ShowScore ShowData End Sub 6.２.６ 成绩查询 Option Explicit Dim rst As New ADODB.Recordset Dim rstName As New ADODB.Recordset Dim strSql, strSqlName As String Public Sub ShowData() Dim j As Integer Dim i

52、As Integer strSql = "select 软件工程,汇编语言, 数据库设计,计算机图形学,JAVA程序设计,计算机组成原理 from tb_score where 学号 = " & LblStuNo.Caption & " " Set rst = ExecuteSql(strSql) If rst.EOF = False Then With MSFlexGrid1 .Rows = 1 Do While Not rst.EOF .Rows = .Rows + 1

53、 For i = 1 To rst.Fields.Count Select Case rst.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i - 1) = Format(rst.Fields(i - 1) & "", "yyyy-mm-dd") Case Else .TextMatrix(.R

54、ows - 1, i - 1) = rst.Fields(i - 1) & "" End Select Next i rst.MoveNext Loop End With End If rst.Close End Sub Public Sub ShowName() Dim i As Integer strSql = "select 姓名 from tb_score where 学号 = " & LblStuNo.Capti

55、on & " " Set rst = ExecuteSql(strSql) If rst.EOF = False Then LblStuName.Caption = rst.Fields("姓名") End If rst.Close End Sub Private Sub CmdOk_Click() Unload Me Frm_tMain.Show End Sub Private Sub Form_Load() LblStuNo.Caption = Frm_tMain.TxtStuNoC0

56、5.Text With MSFlexGrid1 固定表头 .FixedRows = 1 表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 .Rows = 2 .Cols = 6 End Wit

57、h guding liekuan MSFlexGrid1.ColWidth(0) = 1200 MSFlexGrid1.ColWidth(1) = 1200 MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.ColWidth(3) = 2000 MSFlexGrid1.ColWidth(4) = 2000 MSFlexGrid1.ColWidth(5) = 2400 MSFlexGrid1.TextMatrix(0, 0) = "软件工程" MSFlexGr

58、id1.TextMatrix(0, 1) = "汇编语言" MSFlexGrid1.TextMatrix(0, 2) = "数据库设计" MSFlexGrid1.TextMatrix(0, 3) = "计算机图形学" MSFlexGrid1.TextMatrix(0, 4) = "JAVA程序设计" MSFlexGrid1.TextMatrix(0, 5) = "计算机组成原理" ShowName 　　　　　　　　　　　　　　 函数调用 ShowData 　　　　　　　　　　　　　　　函数调用 End Sub 6.２

59、.７ 用户注册 Option Explicit Private Sub CmdOk_Click() On Error Resume Next Dim cn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim i As Long Dim strSqlReg, strSqlChk As String strSqlReg = "insert into tb_login (userid,userpwd) values (" & NewId.Text & "," & NewPwd1.

60、Text & " )" strSqlChk = "select userid from tb_login where userid =" & NewId.Text & " " Set rst = ExecuteSql(strSqlChk) If Trim(NewId.Text) = "" Then MsgBox "请输入正确的用户名!", vbOKOnly + vbExclamation, "警告" NewId.SetFocus ElseIf NewId.Text = rst.F

61、ields("userid") Then MsgBox "此用户名已经被注册!请重新输入新用户名！", vbOKOnly + vbExclamation, "警告" End If If NewPwd0.Text <> NewPwd1.Text Then MsgBox "对不起!你你两次输入的密码不一致!请仔细核对后重新输入！", vbOKOnly + vbExclamation, "警告" NewPwd0.Text = "" NewPw

62、d1.Text = "" NewPwd0.SetFocus End If Set rst = Nothing Set rst = ExecuteSql(strSqlReg) MsgBox "注册成功！祝使用学习工作愉快！", vbOKOnly + vbExclamation, "谢谢使用" End Sub Private Sub CmdToUp_Click() Frm_Regester.Hide Frm_Login.Show End Sub Private

63、Sub EnterEle_Click() Frm_Regester.Hide Frm_RegEle.Show End Sub 结束语 “ 一个软件产品或一项软件服务帮助客户改进了他们的业务，因此获得客户支付的报酬，软件产品和服务的付出终于取得了回报。” 通过本次课程设计，我终于明白学的理论和实际运用原来有这么多意想不到的差别，而只有通过自己反复动手才能发现这些微妙的细节。无论是在设计数据库还是在编程方面，我都收获颇多，而这些收获的的来，全来源于张老师对我们的严格和负责。我的报告修改了无数次了。我也从这无数次中巩固了许多原本没掌握好的知

64、识和一种严谨的做人道理，也许这次还不能达到老师的严格要求（为此，小女子在此表示深深的歉意=_=），不过在以后的学习生活中，无论是干什么我都会严格要求自己，都会想到这段难忘的数据库设计周。 首先，我想对张老师说：张老师，您辛苦了！ 其次，我要感谢我们的学校领导，给我们安排了这次课程设计，给了我们展示自己才能的舞确立了我们的这个作业方向，设立了我这个作业项目（本来我是用JSP写的，能力实在有限，就又用VB和SQL~~~所以部分界面有些网页化，就没修改了。见谅），不过没有他们的英明决策，我这个"产品"就不会在这个时候出现在这个美妙的地方。 其次，我要感谢我的朋友和同学，没有他们的支持，

65、就没有这么“出色的软件”啦；然后我还要感谢我的爸爸妈妈，亲戚朋友，没有他们哪儿有我呀，当然就没的这软件了.. 附录１ 使用说明 1 本程序采用vb 6.0 ,SQL

66、server 2000..................... 2 为了方便老师检验，里边配带了已经写好的数据库,在项目子目录里面的sql目录里，将db_score.sql的文件打开后，拷贝到SQL Server 2000的查询分析器里,然后执行将产生需要的数据库结构。 3 配置ODBC数据源，按照说明进行数据源的配置，程序对数据库的访问需要通过ODBC来实现。打开"控制面板"中"管理工具"的"ODBC（数据源）"，在弹出的对话框中创建文件DSN。需要创建的文件DSN，创建名为db_score.dsn，登录方式选择"使用用户输入登录ID和密码的SQL Server验证"，登录ID为sa，密码为空，选择连接数据库为db_score（就是在查询分析器里创建的数据库）。 4 运行