大学毕设论文__vb oracle学生学籍管理系统论文课程设计报告

课程设计报告册

课程设计报告

毕业设计（论文）原创性声明和使用授权说明

原创性声明

本人郑重承诺：所呈交的毕业设计（论文），是我个人在指导教师的指导下进行的研究工作及取得的成果。尽我所知，除文中特别加以标注和致谢的地方外，不包含其他人或组织已经发表或公布过的研究成果，也不包含我为获得及其它教育机构的学位或学历而使用过的材料。对本研究提供过帮助和做出过贡献的个人或集体，均已在文中作了明确的说明并表示了谢意。

作者签名：日期：

指导教师签名：日期：

使用授权说明

本人完全了解大学关于收集、保存、使用毕业设计（论文）的规定，即：按照学校要求提交毕业设计（论文）的印刷本和电子版本；学校有权保存毕业设计（论文）的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的前提下，学校可以公布论文的部分或全部内容。

作者签名：日期：

学位论文原创性声明

本人郑重声明：所呈交的论文是本人在导师的指导下独立进行研究所取得的研究成果。除了文中特别加以标注引用的内容外，本论文不包含任何其他个人或集体已经发表或撰写的成果作品。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本人承担。

作者签名：日期：年月日

学位论文版权使用授权书

本学位论文作者完全了解学校有关保留、使用学位论文的规定，同意学校保留并向国家有关部门或机构送交论文的复印件和电子版，允许论文被查阅和借阅。本人授权大学可以将本学位论文的全部或部分内容编入有关数据库进行检索，可以采用影印、缩印或扫描等复制手段保存和汇编本学位论文。

涉密论文按学校规定处理。

作者签名：日期：年月日

导师签名：日期：年月日

目录

第一章、系统机构及主要功能 (4)

1.1学生信息管理系统的主要功能 (4)

1.2系统的功能模块结构 (4)

第二章、数据库设计 (5)

2.1 创建数据库用户 (5)

2.2数据库逻辑结构设计 (5)

2.3 创建表的脚本语言 (6)

第三章、数据库连接 (8)

3.1创建数据源 (8)

3.2 数据库连接 (9)

第四章、系统的实现 (10)

4.1主窗体的设计 (10)

4.2 登录窗体的设计 (12)

4.3背景窗体的设计 (14)

4.4班级管理窗体的设计 (15)

4.5课程信息窗体的设计 (20)

4.6用户信息管理窗体的设计 (26)

4.7奖惩信息管理窗体的设计 (27)

4.8成绩查询窗口的设计 (29)

4.9学籍信息管理窗口的设计 (31)

4.10个人信息查询窗口的设计 (25)

第五章、运行截图 (41)

课程设计总结 (46)

一系统结构及主要功能1.1学生信息管理系统的主要功能有：

（1）、用户信息管理

可以修改、删除、添加用户；

（2）、班级信息管理

可以添加、修改、删除班级；

（3）、学籍信息管理

可以添加、查询、修改、删除学籍；

（4）、课程信息管理

可以查看各班的课程信息；

（5）、成绩信息管理

可以用一个或几个条件查询、添加、删除，修改成绩；（6）、奖惩信息管理

可以添加、查询、删除奖惩信息

（7）、个人信息管理

可以查询学生的个人信息。

1.2、系统的功能模块结构如下：

二数据库设计

2.1创建数据库用户

在设计数据库表结构之前，首先要创建一个学生信息管理的数据库用户，这里定义为zengym,所有相关的表都属于这个用户。

创建用户的脚本为：

CREATE user zengym

identified by zengym

default tablespace users

temporary tablespace temp

quota 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）表。

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 https://www.360docs.net/doc/d115580778.html,er_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 String

ConnectString = "Driver={Microsoft ODBC for

oracle};server=gntc;UID=zengym;PWD=zengym;"

End Function

Public 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 ConnectString

If 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 If

ExecuteSQL_Exit:

Set rst = Nothing

Set cnn = Nothing

Exit Function

ExecuteSQL_Error:

MsgString = "查询错误: " & Err.Description

Resume ExecuteSQL_Exit

End Function

四、系统的实现

4.1主窗体的设计

4.1.1主界面是学生信息管理系统的主要窗口，担任着调动程序其他模块的功能，是整个应程序的核心。

在工程中添加一个窗体，命名为“frmMain”。

主界面如下图所示：

4.1.2窗口代码如下：

Private Sub claiMenu_Click()

frmclai.Show

End Sub

Private Sub couiMenu_Click()

frmcoui.Show

End Sub

Private Sub cusiMenu_Click()

frmcusi.Show

End Sub

Private Sub MDIForm_Load()

dColor.Show

End Sub

Private 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 If

End Sub

Private Sub prpiMenu_Click()

frmprpi.Show

End Sub

Private Sub scoiMenu_Click()

frmscoi.Show

End Sub

Private Sub stsiMenu_Click()

frmstsi.Show

End Sub

Private Sub sumiMenu_Click()

frmsumi.Show

End Sub

4.2、登录窗体的设计

4.2.1在工程中添加一个窗体，命名为“frmLogin”。

整个窗体界面的示意图如图所示。

用户要使用本系统，首先要通过系统的身份认证，即需要登录。登录过程需要完成一下任务：（1）根据用户名和密码来判断是否能进入系统；（2）根据用户类型决定用户拥有的权限。

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 = 0

End Sub

Private Sub cmdCancel_Click()

OK = False

Me.Hide

End Sub

Private 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