Oracle学生信息管理系统.docx

Oracle学生信息管理系统.docx

《Oracle学生信息管理系统.docx》由会员分享，可在线阅读，更多相关《Oracle学生信息管理系统.docx（54页珍藏版）》请在冰豆网上搜索。

Oracle学生信息管理系统

oracle数据库学生信息管理系统

数据库源码+实现

一结构及主要功能

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

（1）、用户信息管理

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

（2）、班级信息管理

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

（3）、学籍信息管理

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

（4）、课程信息管理

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

（5）、成绩信息管理

可以用一个或几个条件查询、添加、删除，修改成绩；

（6）、奖惩信息管理

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

（7）、个人信息管理

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

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

二数据库设计

2.1创建数据库用户

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

创建用户的脚本为：

CREATEuserzengym

identifiedbyzengym

defaulttablespaceusers

temporarytablespacetemp

quota10monusers;

grantcreatesession,resourcetozengym;

这样在设置ODBC时，使用户zengym登录，就可以直接在程序中调用用户zengym的表和视图等数据库对象了。

2.2数据库逻辑结构设计

根据学生信息管理系统的功能要求，选取Oracle为后台数据库，数据库前台控制界面使用VisualBasic6.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_Name

Varchar2（50）

课程名称

（2）班级信息（class_Form）表

字段名称

字段类型

说明

Class_No

number

班级编号

Class_Name

Varchar2（50）

班级名称

Class_teacher

Varchar2（50）

导员名字

Class_Remarks

Varchar2（50）

班级主课程

（3）课程信息（course_Form）表

字段名称

字段类型

说明

Course_name

Varchar2（50）

课程名称

Course_Rem

Varchar2（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_Add

Varchar2（50）

家庭地址

student_Rem

Varchar2（50）

备注

（8）用户（user_Form）表

字段名称

字段类型

说明

user_ID

Varchar2（50）

用户名

user_PWD

Varchar2（50）

用户密码

user_DATE

date

登录日期

2.3创建表的脚本语言

（1）班级课程信息（class_cour）表

CREATETABLEzengym.class_Cour

（class_NOnumberPrimaryKey,

course_Namevarchar2（50）

）

TABLESPACEUSERS;

（2）班级信息（class_Form）表

CREATETABLEzengym.class_Form

（class_NonumberPrimaryKey,

class_Namevarchar2（50）,

class_Teachervarchar2（50）,

class_Remarksvarchar2（50）

）

TABLESPACEUSERS;

（3）课程信息（course_Form）表

CREATETABLEzengym.course_Form

（course_NameVarchar2（50）PrimaryKey,

course_RemVarchar2（50）

）

TABLESPACEUSERS;

（4）奖惩信息（prize_Form）表

CREATETABLEzengym.prize_Form

（prize_namevarchar2（50）PrimaryKey,

prize_RemVarchar2（50）

）

TABLESPACEUSERS;

（5）奖惩学生信息（Prize_Stud）表

CREATETABLEzengym.prize_Stud

（prize_NOnumberPrimaryKey,

prize_Stunumber,

prize_Datdate,

prize_NamVarchar2（50）

）

TABLESPACEUSERS;

（6）学生成绩信息（score_Form）表

CREATETABLEzengym.score_Form

（score_NOnumberPrimaryKey,

score_perVarchar2（50）,

score_Clanumber,

score_Stunumber,

score_CouVarchar2（50）,

score_ScoVarchar2（50）

）

TABLESPACEUSERS;

（7）学生信息（student_Form）表

CREATETABLEzengym.student_Form

（student_NOnumberPrimaryKey,

student_NameVarchar2（50）,

student_SexVarchar2（5）,

student_BirDate,

student_Clanumber,

student_TelVarchar2（50）,

student_EsdDate,

student_AddVarchar2（50）,

student_RemVarchar2（50）

）

TABLESPACEUSERS;

（8）用户（user_Form）表

CREATETABLEzengym.user_Form

（user_IDVarchar2（50）PrimaryKey,

user_PWDVarchar2（50）,

user_DATEdate

）

TABLESPACEUSERS;

三数据库连接

3.1、创建数据源

为了能够在程序中访问到数据库House，需要创建系统数据源。

选择“控制面板”→“管理工具”→“数据源”→“系统DSN”标签→“添加”→选择“OracleinOraHome92”数据库驱动程序进入数据库OracleODBCDriverConfiguration配置。

将“DataSourceName”设置为Status，“TNSServiceName”设置为Oracle创建的数据库，“User”设置为zengym,然后点击“TestConncetion”进入测试数据库连接是否连接成功。

测试连接数据库是否成功：

输入密码zengym后显示连接结果

“Password”输入zengym，点击OK测试连接是否成功。

最后就可以在VB中使用“外接程序”→“可视化数据管理”连接数据库。

3.2、数据库连接（在模块modulel.bas中）

PublicFunctionConnectString（）AsString

ConnectString="Driver={MicrosoftODBCfororacle};server=gntc;UID=zengym;PWD=zengym;"

EndFunction

PublicFunctionExecuteSQL（ByValSQLAsString,MsgStringAsString）AsADODB.Recordset

DimcnnAsADODB.Connection

DimrstAsADODB.Recordset

DimsTokens（）AsString

OnErrorGoToExecuteSQL_Error

sTokens=Split（SQL）

Setcnn=NewADODB.Connection

cnn.OpenConnectString

IfInStr（"INSERT,DELETE,UPDATE",UCase$（sTokens（0）））Then

cnn.ExecuteSQL

MsgString=sTokens（0）&"querysuccessful"

Else

Setrst=NewADODB.Recordset

rst.OpenTrim$（SQL）,cnn,adOpenKeyset,adLockOptimistic

SetExecuteSQL=rst

MsgString="查询到"&rst.RecordCount&"条记录"

EndIf

ExecuteSQL_Exit:

Setrst=Nothing

Setcnn=Nothing

ExitFunction

ExecuteSQL_Error:

MsgString="查询错误:

"&Err.Description

ResumeExecuteSQL_Exit

EndFunction

四、系统的实现

4.1主窗体的设计

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

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

主界面的主要属性如下：

窗体属性

设置值

具体说明

名称

FrmMain

设置窗体名称

Appearance

1–3D

外观效果

Caption

学生信息管理系统

窗体的标题条文本

Enable

True

窗体可用

Moveable

True

窗体可以移动

negotiateToolbars

True

MDIForm对象在MDIForm的顶部或底部显示活动对象的工具栏

StartUpPosition

0–手动

设置窗体弹出时，位置在屏幕中心

选择“工具”菜单项中的“菜单编辑器”，编辑菜单内容，如下图所示。

菜单项的属性如下：

标题

名称

用户信息管理

cusiMenu

班级信息管理

claiMenu

学籍信息管理

stsiMenu

课程信息管理

couiMenu

成绩信息管理

scoiMenu

奖惩信息管理

prpiMenu

个人信息管理

sumiMenu

帮助

help

主界面如下图所示：

4.1.2窗口代码如下：

PrivateSubclaiMenu_Click（）

frmclai.Show

EndSub

PrivateSubcouiMenu_Click（）

frmcoui.Show

EndSub

PrivateSubcusiMenu_Click（）

frmcusi.Show

EndSub

PrivateSubMDIForm_Load（）

dColor.Show

EndSub

PrivateSubMDIForm_Resize（）

IfMe.Height>1100Then

dColor.Height=Me.Height-1100

EndIf

IfMe.Width>180Then

dColor.Width=Me.Width-180

EndIf

EndSub

PrivateSubprpiMenu_Click（）

frmprpi.Show

EndSub

PrivateSubscoiMenu_Click（）

frmscoi.Show

EndSub

PrivateSubstsiMenu_Click（）

frmstsi.Show

EndSub

PrivateSubsumiMenu_Click（）

frmsumi.Show

EndSub

4.2、登录窗体的设计

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

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

用户要使用本系统，首先要通过系统的身份认证，即需要登录。

登录过程需要完成一下任务：

（1）根据用户名和密码来判断是否能进入系统；

（2）根据用户类型决定用户拥有的权限。

登录界面窗体的主要属性如下。

窗体属性

设置值

具体说明

名称

Label1

设置窗体名称

BorderStyle

1-FixedSingle

设置窗体的边框属性

Caption

登录

窗体的标题条文本

ControlBox

False

取消控制按钮

在登录窗体中添加控件，并设置控件的属性如下表所示：

对象名

属性

属性值

txtPassword

（名称）

txtPassword

txtUserName

Style

0—DropdownCombo

Text

txtUserName

Cmd_Ok

Caption

确定

Cmd_Cancel

Caption

取消

4.2.2编写窗体代码：

PrivateSubForm_Load（）

DimiAsInteger

i=0

txtSQL="select*fromuser_Form"

WithtxtUserName

Setmrc=ExecuteSQL（txtSQL,MsgText）

DoWhileNotmrc.EOF

i=i+1

txtUserName.AddItemTrim（mrc!

user_ID）

mrc.MoveNext

Loop

.ListIndex=i-1

EndWith

mrc.Close

OK=False

miCount=0

EndSub

PrivateSubcmdCancel_Click（）

OK=False

Me.Hide

EndSub

PrivateSubcmdOK_Click（）

txtSQL="select*fromuser_Formwhereuser_ID='"&txtUserName.Text&"'"

Setmrc=ExecuteSQL（txtSQL,MsgText）

Ifmrc.EOF=TrueThen

MsgBox"没有这个用户，请重新输入用户名",vbOKOnly+vbExclamation,"警告"

txtUserName.SetFocus

Else

IfTrim（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=""

EndIf

EndIf

miCount=miCount+1

IfmiCount=3Then

Me.Hide

EndIf

ExitSub

EndSub

PrivateSubLabel1_Click（）

EndSub

PrivateSubtxtPassword_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

EnterToTabKeyCode

EndSub

PrivateSubtxtPassword_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

CallcmdOK_Click

EndIf

EndSub

PrivateSubtxtUserName_Click（）

txtPassword.Text=""

EndSub

PrivateSubtxtUserName_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

EnterToTabKeyCode

EndSub

4.3背景窗体的设计

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

整个窗体的界面设计示意图如下.

dColor窗体上的空间及其属性如下表所示。

窗体属性

设置值

具体说明

名称

dColor

设置窗体名称

MaxButton

True

激活最大化按钮

MinButton

True

激活最小化按钮

ControlBox

True

控制按钮

在登录窗体中添加控件，并设置控件的属性如下表所示：

对象名

属性

属性值

Image1

Picture

（Bitmap）

Image2

Picture

（Bitmap）

Stretch

False

Label1

Caption

欢迎进去学生管理系统

BackColor

0–Transparent

4.3.2编写窗体代码

PrivateSubForm_Load（）

Label1.ForeColor=&H8000000E

Label1.FontSize=12

Label1.AutoSize=True

i=Image2.Width

EndSub

PrivateSubForm_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-100

EndSub

PrivateSubLabel1_Click（）

EndSub

PrivateSubTimer1_Timer（）

i=i+50

Label1.Left=Me.Width-i

Ifi>Me.Width+Label1.WidthThen

i=Image2.Width

EndIf

EndSub

4.4班级管理窗体的设计

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

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

frmclai窗体上的的主要属性和控件设置如下：

对象名

属性

属性值

Frmclai

Caption

班级信息

Minbutton

True

LinkTopic

Form1

HacDC

True

MSFlexGrid1

DragMode

0–vbManual

Label1

Caption

班级信息列表

Label2（0）

Caption

添加

Label2

（1）

Caption

修改

Label2

（2）

Caption

删除

Label3（0）

Caption

班级编号

Label3

（1）

Caption

班级名称

Label3

（2）

Caption

导员姓名

Label3（3）

Caption

备注

4.4.2编写窗体代码

PrivateSubCommand1_Click（）

IfText1（0）=""Then

MsgBox"班级编号不能为空！

",vbOKOnly,"提示"

Text1（0）.SetFocus

ExitSub

EndIf

IfText1

（1）=""Then

MsgBox"班级名称不能为空！

",vbOKOnly,"提示"

Text1

（1）.SetFocus

ExitSub

EndIf

IfText1

（2）=""Then

MsgBox"导员姓名不能为空！

",vbOKOnly,"提示"

Text1

（2）.SetFocus

ExitSub

EndIf

txtSQL="select*fromclass_Formwhereclass_NO='"&Trim（Text1（0））&"'"

Setmrc=ExecuteSQL（txtSQL,MsgText）

Ifmrc.EOF=FalseThen

MsgBox"