VB+oracle学生学籍管理系统.docx

1、VB+oracle学生学籍管理系统课程设计报告册课程设计报告设计项目编 号1名 称 学生信息管理系统主要仪器设备PC附属设备主要使用软件Oracle、Visual 起止时间2010年 12月 10 日12月30日 同组人无课程设计任务书1. 本课程设计的目的掌握Oracle基本内容，了解备份和恢复数据库的方法；基本的Oracle语句，如添加、查询、修改、删除记录语句；VB中数据绑定控件的方法，熟悉数据库连接技术。2课程设计的任务及要求1）基本要求：要求掌握Oracle的基本概念，了解备份和恢复数据库的方法,基本的Oracle语句，如添加、查询、修改、删除记录语句, 熟悉数据库连接技术。2）课程

2、设计论文编写要求（1）理论设计部分以课程设计论文的形式提交，格式必须按照课程设计论文标准格式进行书写和装订。（2）课程设计报告（论文）包括中文摘要、目录、绪论、正文、设计小结、参考文献、附录等；（3）正文部分应包含系统功能流程图、系统结构框图、模块流程图、设计目的、实现思路、实现步骤、调试运行等。第一章、系统机构及主要功能4 学生信息管理系统的主要功能 4 系统的功能模块结构4第二章、数据库设计5 创建数据库用户 5 数据库逻辑结构设计5 创建表的脚本语言 6第三章、数据库连接8创建数据源 8 数据库连接 9第四章、系统的实现 10 主窗体的设计 10 登录窗体的设计 12 背景窗体的设计 1

3、4 班级管理窗体的设计15课程信息窗体的设计 20用户信息管理窗体的设计 26奖惩信息管理窗体的设计 27成绩查询窗口的设计 29学籍信息管理窗口的设计 31个人信息查询窗口的设计25第五章、运行截图 41一 系统结构及主要功能学生信息管理系统的主要功能有：（1）、用户信息管理 可以修改、删除、添加用户；（2）、班级信息管理可以添加、修改、删除班级；（3）、学籍信息管理可以添加、查询、修改、删除学籍；（4）、课程信息管理可以查看各班的课程信息；（5）、成绩信息管理可以用一个或几个条件查询、添加、删除，修改成绩；（6）、奖惩信息管理可以添加、查询、删除奖惩信息（7）、个人信息管理可以查询学生的个

4、人信息。、系统的功能模块结构如下：二 数据库设计创建数据库用户在设计数据库表结构之前，首先要创建一个学生信息管理的数据库用户，这里定义为zengym,所有相关的表都属于这个用户。创建用户的脚本为： CREATE user zengymidentified by zengymdefault tablespace userstemporary tablespace tempquota 10m on users;grant create session,resource to zengym;这样在设置ODBC时，使用户zengym登录，就可以直接在程序中调用用户zengym的表和视图等数据库对象了。

5、数据库逻辑结构设计根据学生信息管理系统的功能要求，选取Oracle为后台数据库，数据库前台控制界面使用Visual Basic 来实现。该数据库由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_NameV

6、archar2(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) 奖惩名称 Pri

7、ze_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) 课程名称 S

8、core_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

9、）表字段名称字段类型说明user_ID Varchar2(50) 用户名 user_PWD Varchar2(50) 用户密码 user_DATE date 登录日期创建表的脚本语言（1）班级课程信息(class_cour)表CREATE TABLE (class_NO number Primary Key,course_Name varchar2(50) )TABLESPACE USERS;（2）班级信息(class_Form)表CREATE TABLE (class_No number Primary Key,class_Name varchar2(50),class_Teacher va

10、rchar2(50),class_Remarks varchar2(50) )TABLESPACE USERS;（3）课程信息(course_Form)表CREATE TABLE (course_Name Varchar2(50) Primary Key,course_Rem Varchar2(50) )TABLESPACE USERS;（4）奖惩信息(prize_Form)表CREATE TABLE (prize_name varchar2(50) Primary Key,prize_Rem Varchar2(50)TABLESPACE USERS;（5）奖惩学生信息(Prize_Stud)

11、表CREATE TABLE (prize_NO number Primary Key,prize_Stu number,prize_Dat date,prize_Nam Varchar2(50)TABLESPACE USERS;（6）学生成绩信息(score_Form)表CREATE TABLE (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;（

12、7）学生信息(student_Form)表CREATE TABLE (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 (user_ID

13、Varchar2(50) Primary Key,user_PWD Varchar2(50),user_DATE date )TABLESPACE USERS;三 数据库连接、创建数据源为了能够在程序中访问到数据库House，需要创建系统数据源。选择“控制面板”“管理工具”“数据源”“系统DSN”标签“添加”选择“Oracle in OraHome92”数据库驱动程序进入数据库Oracle ODBC Driver Configuration配置。 将“Data Source Name”设置为Status，“TNS Service Name”设置为Oracle创建的数据库 ，“User”设置为z

14、engym,然后点击“Test Conncetion”进入测试数据库连接是否连接成功。测试连接数据库是否成功： 输入密码zengym后显示连接结果 “Password”输入zengym，点击OK测试连接是否成功。最后就可以在VB中使用“外接程序”“可视化数据管理”连接数据库。、数据库连接（在模块中）Public Function ConnectString() As StringConnectString = Driver=Microsoft ODBC for oracle;server=gntc;UID=zengym;PWD=zengym;End FunctionPublic Functio

15、n ExecuteSQL(ByVal SQL As String, MsgString As String) As Dim cnn As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set cnn = New ConnectStringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0) Then SQL MsgString = sTokens(0) & query successful Else Set rst = Ne

16、w Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = 查询到 & & 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查询错误: & Resume ExecuteSQL_ExitEnd Function四、系统的实现主窗体的设计主界面是学生信息管理系统的主要窗口，担任着调动程序其他模块的功能，是整个应程序的核心。在工程中添

17、加一个窗体，命名为“frmMain”。主界面的主要属性如下：窗体属性设置值具体说明 名称 FrmMain设置窗体名称Appearance1 3D外观效果 Caption 学生信息管理系统窗体的标题条文本 Enable True窗体可用 Moveable True窗体可以移动negotiateToolbarsTrueMDIForm 对象在 MDIForm 的顶部或底部显示活动对象的工具栏 StartUpPosition 0 手动设置窗体弹出时，位置在屏幕中心选择“工具”菜单项中的“菜单编辑器”，编辑菜单内容，如下图所示。菜单项的属性如下：标题 名称用户信息管理cusiMenu班级信息管理clai

18、Menu学籍信息管理stsiMenu课程信息管理couiMenu成绩信息管理scoiMenu奖惩信息管理prpiMenu个人信息管理sumiMenu帮助help主界面如下图所示：窗口代码如下：Private Sub claiMenu_Click() End SubPrivate Sub couiMenu_Click() End SubPrivate Sub cusiMenu_Click() End SubPrivate Sub MDIForm_Load() End SubPrivate Sub MDIForm_Resize() If 1100 Then = - 1100 End If If 1

19、80 Then = - 180 End IfEnd SubPrivate Sub prpiMenu_Click() End SubPrivate Sub scoiMenu_Click() End SubPrivate Sub stsiMenu_Click() End SubPrivate Sub sumiMenu_Click() End Sub、登录窗体的设计在工程中添加一个窗体，命名为“frmLogin”。整个窗体界面的示意图如图所示。用户要使用本系统，首先要通过系统的身份认证，即需要登录。登录过程需要完成一下任务：（1）根据用户名和密码来判断是否能进入系统；（2）根据用户类型决定用户拥有的

20、权限。登录界面窗体的主要属性如下。窗体属性 设置值 具体说明 名称Label1设置窗体名称BorderStyle1-Fixed Single设置窗体的边框属性Caption登录窗体的标题条文本ControlBoxFalse取消控制按钮在登录窗体中添加控件，并设置控件的属性如下表所示：对象名属性属性值txtPassword（名称）txtPasswordtxtUserNameStyle0Dropdown ComboTexttxtUserNameCmd_OkCaption确定Cmd_CancelCaption取消编写窗体代码：Private Sub Form_Load() Dim i As Inte

21、ger i = 0 txtSQL = select * from user_Form With txtUserName Set mrc = ExecuteSQL(txtSQL, MsgText) Do While Not i = i + 1 Trim(mrc!user_ID) Loop .ListIndex = i - 1 End With OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() txtSQL = select * from us

22、er_Form where user_ID = & & Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 没有这个用户，请重新输入用户名, vbOKOnly + vbExclamation, 警告 Else If Trim(1) = Trim Then OK = True UserName = Trim Else MsgBox 输入的密码不对，请重新输入, vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 The

23、n 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() = End SubP

24、rivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub背景窗体的设计在工程中添加一个窗体，命名为“dColor”。整个窗体的界面设计示意图如下. dColor窗体上的空间及其属性如下表所示。窗体属性 设置值 具体说明 名称dColor设置窗体名称MaxButtonTrue激活最大化按钮MinButtonTrue激活最小化按钮ControlBoxTrue控制按钮在登录窗体中添加控件，并设置控件的属性如下表所示：对象名属性属性值Image1Picture（Bitma

25、p）Image2Picture（Bitmap）StretchFalseLabel1Caption欢迎进去学生管理系统BackColor0 Transparent编写窗体代码Private Sub Form_Load() = &H8000000E = 12 = True i = End SubPrivate Sub Form_Resize() = 0 = 0 = = = - = - = - - 100End SubPrivate Sub Label1_Click()End SubPrivate Sub Timer1_Timer() i = i + 50 = - i If i + Then i =

26、 End IfEnd Sub班级管理窗体的设计在工程中添加一个窗体，命名为“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备注编写窗体代码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).Set