毕业设计vb-oracle学生学籍管理系统论文课程设计报告.doc

课程设计报告册课程设计报告设计项目编 号1名 称 学生信息管理系统主要仪器设备PC附属设备主要使用软件Oracle、Visual Basic6.0起止时间2010年 12月 10 日12月30日 同组人无课程设计任务书1. 本课程设计的目的掌握Oracle基本内容，了解备份和恢复数据库的方法；基本的Oracle语句，如添加、查询、修改、删除记录语句；VB中数据绑定控件的方法，熟悉数据库连接技术。2课程设计的任务及要求1）基本要求：要求掌握Oracle的基本概念，了解备份和恢复数据库的方法,基本的Oracle语句，如添加、查询、修改、删除记录语句, 熟悉数据库连接技术。2）课程设计论文编写要求（1）理论设计部分以课程设计论文的形式提交，格式必须按照课程设计论文标准格式进行书写和装订。（2）课程设计报告（论文）包括中文摘要、目录、绪论、正文、设计小结、参考文献、附录等；（3）正文部分应包含系统功能流程图、系统结构框图、模块流程图、设计目的、实现思路、实现步骤、调试运行等。毕业设计（论文）原创性声明和使用授权说明原创性声明本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得 及其它教育机构的学位或学历而使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。作 者 签 名： 日 期： 指导教师签名： 日期： 使用授权说明本人完全了解 大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。作者签名： 日 期： 学位论文原创性声明本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本人承担。作者签名： 日期： 年 月 日学位论文版权使用授权书本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。本人授权 大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。涉密论文按学校规定处理。作者签名：日期： 年 月 日导师签名： 日期： 年 月 日目录第一章、系统机构及主要功能4 1.1学生信息管理系统的主要功能 4 1.2系统的功能模块结构4第二章、数据库设计5 2.1 创建数据库用户 5 2.2数据库逻辑结构设计5 2.3 创建表的脚本语言 6第三章、数据库连接83.1创建数据源 8 3.2 数据库连接 9第四章、系统的实现 10 4.1主窗体的设计 104.2 登录窗体的设计 12 4.3背景窗体的设计 14 4.4班级管理窗体的设计 154.5课程信息窗体的设计 204.6用户信息管理窗体的设计 264.7奖惩信息管理窗体的设计 274.8成绩查询窗口的设计 294.9学籍信息管理窗口的设计 314.10个人信息查询窗口的设计 25第五章、运行截图 41课程设计总结 46一 系统结构及主要功能1.1学生信息管理系统的主要功能有：（1）、用户信息管理 可以修改、删除、添加用户；（2）、班级信息管理可以添加、修改、删除班级；（3）、学籍信息管理可以添加、查询、修改、删除学籍；（4）、课程信息管理可以查看各班的课程信息；（5）、成绩信息管理可以用一个或几个条件查询、添加、删除，修改成绩；（6）、奖惩信息管理可以添加、查询、删除奖惩信息（7）、个人信息管理可以查询学生的个人信息。1.2、系统的功能模块结构如下：二 数据库设计2.1创建数据库用户在设计数据库表结构之前，首先要创建一个学生信息管理的数据库用户，这里定义为zengym,所有相关的表都属于这个用户。创建用户的脚本为： CREATE user zengymidentified by zengymdefault tablespace userstemporary tablespace tempquota 10m on users;grant create session,resource to zengym;这样在设置ODBC时，使用户zengym登录，就可以直接在程序中调用用户zengym的表和视图等数据库对象了。2.2数据库逻辑结构设计根据学生信息管理系统的功能要求，选取Oracle为后台数据库，数据库前台控制界面使用Visual Basic 6.0来实现。该数据库由8个表组成。这8个表包括班级课程信息(class_cour)表、班级信息(class_Form)表、课程信息(course_Form)表、获奖信息(prize_Form)表、获奖学生信息(Prize_Stud)表、学生成绩信息(score_Form)表、学生信息(student_Form)表、用户（user_Form）表。（1）班级课程信息(class_cour)表字段名称字段类型说明class_No number 班级编号 Course_NameVarchar2(50)课程名称 （2）班级信息(class_Form)表字段名称字段类型说明Class_No number班级编号 Class_NameVarchar2(50)班级名称 Class_teacherVarchar2(50)导员名字 Class_RemarksVarchar2(50)班级主课程（3）课程信息(course_Form)表字段名称字段类型说明Course_name Varchar2(50)课程名称 Course_RemVarchar2(50)主课程（4）奖惩信息(prize_Form)表字段名称字段类型说明Prize_name Varchar2(50) 奖惩名称 Prize_Rem Varchar2(50) 备注（5）奖惩学生信息(Prize_Stud)表字段名称字段类型说明Prize_NO number 奖惩编号 Prize_Stu number 奖惩学生学号 Prize_Dat Date 奖惩日期 Prize_Nam Varchar2(50) 奖惩名称（6）学生成绩信息(score_Form)表字段名称字段类型说明Score_No number 成绩编号 Score_per Varchar2(50) 成绩类型 Score_Cla number 班级编号 Score_Stu number 学生学号 Score_Cou Varchar2(50) 课程名称 Score_Sco Varchar2(50) 成绩（7）学生信息(student_Form)表字段名称字段类型说明Student_NO number 学号 student_Name Varchar2(50) 姓名 student_Sex Varchar2(5) 性别 student_Bir Date 出生日期 student_Cla number 班级编号 student_Tel Varchar2(50) 联系电话 student_Esd Date 报名日期student_AddVarchar2(50)家庭地址 student_Rem Varchar2(50) 备注（8）用户（user_Form）表字段名称字段类型说明user_ID Varchar2(50) 用户名 user_PWD Varchar2(50) 用户密码 user_DATE date 登录日期2.3创建表的脚本语言（1）班级课程信息(class_cour)表CREATE TABLE zengym.class_Cour (class_NO number Primary Key,course_Name varchar2(50) )TABLESPACE USERS;（2）班级信息(class_Form)表CREATE TABLE zengym.class_Form (class_No number Primary Key,class_Name varchar2(50),class_Teacher varchar2(50),class_Remarks varchar2(50) )TABLESPACE USERS;（3）课程信息(course_Form)表CREATE TABLE zengym.course_Form (course_Name Varchar2(50) Primary Key,course_Rem Varchar2(50) )TABLESPACE USERS;（4）奖惩信息(prize_Form)表CREATE TABLE zengym.prize_Form (prize_name varchar2(50) Primary Key,prize_Rem Varchar2(50)TABLESPACE USERS;（5）奖惩学生信息(Prize_Stud)表CREATE TABLE zengym.prize_Stud (prize_NO number Primary Key,prize_Stu number,prize_Dat date,prize_Nam Varchar2(50)TABLESPACE USERS;（6）学生成绩信息(score_Form)表CREATE TABLE zengym.score_Form (score_NO number Primary Key,score_per Varchar2(50),score_Cla number,score_Stu number,score_Cou Varchar2(50),score_Sco Varchar2(50) )TABLESPACE USERS;（7）学生信息(student_Form)表CREATE TABLE zengym.student_Form (student_NO number Primary Key,student_Name Varchar2(50),student_Sex Varchar2(5),student_Bir Date,student_Cla number,student_Tel Varchar2(50),student_Esd Date,student_Add Varchar2(50),student_Rem Varchar2(50) )TABLESPACE USERS;（8）用户（user_Form）表CREATE TABLE zengym.user_Form (user_ID Varchar2(50) Primary Key,user_PWD Varchar2(50),user_DATE date )TABLESPACE USERS;三 数据库连接3.1、创建数据源为了能够在程序中访问到数据库House，需要创建系统数据源。选择“控制面板”“管理工具”“数据源”“系统DSN”标签“添加”选择“Oracle in OraHome92”数据库驱动程序进入数据库Oracle ODBC Driver Configuration配置。 将“Data Source Name”设置为Status，“TNS Service Name”设置为Oracle创建的数据库 ，“User”设置为zengym,然后点击“Test Conncetion”进入测试数据库连接是否连接成功。测试连接数据库是否成功： 输入密码zengym后显示连接结果 “Password”输入zengym，点击OK测试连接是否成功。最后就可以在VB中使用“外接程序”“可视化数据管理”连接数据库。3.2、数据库连接（在模块modulel.bas中）Public Function ConnectString() As StringConnectString = Driver=Microsoft ODBC for oracle;server=gntc;UID=zengym;PWD=zengym;End FunctionPublic Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ADODB.Connection cnn.Open ConnectStringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0) Then cnn.Execute SQL MsgString = sTokens(0) & query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount & 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查询错误: & Err.Description Resume ExecuteSQL_ExitEnd Function四、系统的实现4.1主窗体的设计4.1.1主界面是学生信息管理系统的主要窗口，担任着调动程序其他模块的功能，是整个应程序的核心。在工程中添加一个窗体，命名为“frmMain”。主界面的主要属性如下：窗体属性设置值具体说明 名称 FrmMain设置窗体名称Appearance1 3D外观效果 Caption 学生信息管理系统窗体的标题条文本 Enable True窗体可用 Moveable True窗体可以移动negotiateToolbarsTrueMDIForm 对象在 MDIForm 的顶部或底部显示活动对象的工具栏 StartUpPosition 0 手动设置窗体弹出时，位置在屏幕中心选择“工具”菜单项中的“菜单编辑器”，编辑菜单内容，如下图所示。菜单项的属性如下：标题 名称用户信息管理cusiMenu班级信息管理claiMenu学籍信息管理stsiMenu课程信息管理couiMenu成绩信息管理scoiMenu奖惩信息管理prpiMenu个人信息管理sumiMenu帮助help主界面如下图所示：4.1.2窗口代码如下：Private Sub claiMenu_Click() frmclai.ShowEnd SubPrivate Sub couiMenu_Click() frmcoui.ShowEnd SubPrivate Sub cusiMenu_Click() frmcusi.ShowEnd SubPrivate Sub MDIForm_Load() dColor.ShowEnd SubPrivate Sub MDIForm_Resize() If Me.Height 1100 Then dColor.Height = Me.Height - 1100 End If If Me.Width 180 Then dColor.Width = Me.Width - 180 End IfEnd SubPrivate Sub prpiMenu_Click() frmprpi.ShowEnd SubPrivate Sub scoiMenu_Click() frmscoi.ShowEnd SubPrivate Sub stsiMenu_Click() frmstsi.ShowEnd SubPrivate Sub sumiMenu_Click() frmsumi.ShowEnd Sub4.2、登录窗体的设计4.2.1在工程中添加一个窗体，命名为“frmLogin”。整个窗体界面的示意图如图所示。用户要使用本系统，首先要通过系统的身份认证，即需要登录。登录过程需要完成一下任务：（1）根据用户名和密码来判断是否能进入系统；（2）根据用户类型决定用户拥有的权限。登录界面窗体的主要属性如下。窗体属性 设置值 具体说明 名称Label1设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption登录窗体的标题条文本ControlBoxFalse取消控制按钮在登录窗体中添加控件，并设置控件的属性如下表所示：对象名属性属性值txtPassword（名称）txtPasswordtxtUserNameStyle0Dropdown ComboTexttxtUserNameCmd_OkCaption确定Cmd_CancelCaption取消4.2.2编写窗体代码：Private Sub Form_Load() Dim i As Integer i = 0 txtSQL = select * from user_Form With txtUserName Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not mrc.EOF i = i + 1 txtUserName.AddItem Trim(mrc!user_ID) mrc.MoveNext Loop .ListIndex = i - 1 End With mrc.Close OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = select * from user_Form where user_ID = & txtUserName.Text & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox 没有这个用户，请重新输入用户名, vbOKOnly + vbExclamation, 警告 txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox 输入的密码不对，请重新输入, vbOKOnly + vbExclamation, 警告 txtPassword.SetFocus txtPassword.Text = End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd SubPrivate Sub Label1_Click()End SubPrivate Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() txtPassword.Text = End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub4.3背景窗体的设计4.3.1在工程中添加一个窗体，命名为“dColor”。整个窗体的界面设计示意图如下. dColor窗体上的空间及其属性如下表所示。窗体属性 设置值 具体说明 名称dColor设置窗体名称MaxButtonTrue激活最大化按钮MinButtonTrue激活最小化按钮ControlBoxTrue控制按钮在登录窗体中添加控件，并设置控件的属性如下表所示：对象名属性属性值Image1Picture（Bitmap）Image2Picture（Bitmap）StretchFalseLabel1Caption欢迎进去学生管理系统BackColor0 Transparent4.3.2编写窗体代码Private Sub Form_Load() Label1.ForeColor = &H8000000E Label1.FontSize = 12 Label1.AutoSize = True i = Image2.WidthEnd SubPrivate Sub Form_Resize() Image1.Top = 0 Image1.Left = 0 Image1.Height = Me.Height Image1.Width = Me.Width Image2.Top = Me.Height - Image2.Height Image2.Left = Me.Width - Image2.Width Label1.Top = Me.Height - Label1.Height - 100End SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer() i = i + 50 Label1.Left = Me.Width - i If i Me.Width + Label1.Width Then i = Image2.Width End IfEnd Sub4.4班级管理窗体的设计4.4.1在工程中添加一个窗体，命名为“frmclai”。整个窗体界面示意图如图所示。frmclai窗体上的的主要属性和控件设置如下： 对象名属性属性值 FrmclaiCaption班级信息MinbuttonTrueLinkTopicForm1HacDCTrueMSFlexGrid1DragMode0 vbManualLabel1Caption班级信息列表Label2（0）Caption添加Label2（1）Caption修改Label2（2）Caption删除Label3（0）Caption班级编号Label3（1）Caption班级名称Label3（2）Caption导员姓名Label3（3）Caption备注4.4.2编写窗体代码Private Sub Command1_Click() If Text1(0) = Then MsgBox 班级编号不能为空！, vbOKOnly, 提示 Text1(0).SetFocus Exit Sub End If If Text1(1) = Then MsgBox 班级名称不能为空！, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 导员姓名不能为空！, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub End If txtSQL = select * from class_Form where class_NO= & Trim(Text1(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 此班级编号已经存在！, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = select * from class_Form Set 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.Close For i = 0 To 3 Text1(i) = Next MsgBox 班级信息添加成功！, vbOKOnly, 提示 ShowDataEnd SubPrivate Sub Command2_Click() For i = 0 To 3 Text1(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 11 Text1(i) = Next MsgBox 班级已经删除！, vbOKOnly, 警告 ShowDataEnd SubPrivate Sub Command6_Click() For i = 8 To 11 Text1(i) = NextEnd SubPrivate Sub Form_Load() Me.Caption = 班级信息添 加 Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left ShowData For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).BackColor = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Form_Resize() dColor.ZOrder 1End SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = 班级信息 Me.Caption = Me.Caption & - & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(Index).BackColor = &HFFFFFF Picture1(Index).Visible = True