学生档案管理系统实现步骤.docx

学生档案管理系统实现步骤.docx

《学生档案管理系统实现步骤.docx》由会员分享，可在线阅读，更多相关《学生档案管理系统实现步骤.docx（28页珍藏版）》请在冰豆网上搜索。

学生档案管理系统实现步骤

《学生档案管理系统》课题指导资料

一、系统功能要求

（1）系统安全设计

用户进入系统，必须先进行登录，不同的用户具有不同的使用权限。

管理员可使用该系统全部功能，而一般人员对信息只有浏览、查询权。

（2）系统维护设计

对学生信息可以进行添加、修改、删除和浏览操作。

（3）相关查询设计

对学校学生信息实现按姓名和按学号两种方式进行相关查询。

二、总体结构设计

1、总体结构框架图

2、总结构说明

序号

窗体标题（caption）

窗体标识（name）

窗体功能

备注

1

登录

Form1

启动

2

学生名册

Form4

显示学生名单

非管理员登录“系统维护”按钮不可用

3

基本信息查询

Form2

浏览、查询学生基本信息

所有用户都有使用权限

4

系统维护

Form3

基本信息浏览、添加、修改、删除、查询等操作

仅管理员有使用权限

5

成绩查询维护

Form5

成绩信息浏览、添加、修改、删除、查询等操作

仅管理员有使用权限

6

成绩信息查询

Form6

浏览、查询学生成绩信息

所有用户都有使用权限

3.数据库设计

根据系统功能要求，数据库应包括“学生信息”和“学生成绩”这两个表。

3．1数据结构设计

（1）“jiben”（学生基本信息表）表结构

字段名称

类型

大小

是否必要字段

索引

允许零字长

学号

文本

10

是

否

否

姓名

文本

10

否

否

是

性别

文本

2

否

否

是

生日

文本

20

否

否

是

系别

文本

10

否

否

是

专业

文本

10

否

否

是

班级

文本

20

否

否

是

家庭住址

文本

50

否

否

是

入学日期

文本

20

否

否

是

奖惩情况

文本

Memo

否

否

是

（2）“gz”（学生成绩）表结构

字段名称

类型

大小

是否必要字段

索引

允许零字长

学号

文本

10

是

否

否

姓名

文本

10

否

否

是

数学

文本

20

否

否

是

语文

文本

20

否

否

是

英语

文本

20

否

否

是

计算机基础

文本

20

否

否

是

3.2数据表的建立（参见VB教科书）

1）启动VB

2）选择“外接程序/可视化数据管理器”菜单命令。

三、详细设计

1.“登录”窗体（Form1）

1.1界面设计

1.放放大窗体范围

WindowsState属性为Z

（最大化）

2.修改窗体底色

Backcolor属性为浅红

1.2控件对象属性列表

对象名称

属性

设置值

功能

Lable1

Caption

Font

学生档案管理系统

字体：

楷体字号：

小初

标题

Lable2

Caption

Font

请输入用户名和密码

字体：

宋体字号：

小二

提示

Lable3

Caption

Font

用户名

字体：

宋体字号：

三号

标题

Lable4

Caption

Font

密码

字体：

宋体字号：

三号

标题

Text1

默认

接收输入用户名

Tent2

passwordchar

*

接收密码

Command1

Caption

Font

确定

宋体、四号

用户名和密码

密码确认

Command2

Caption

Font

取消

宋体、四号

取消操作

Command3

Caption

Font

退出

宋体、四号

退出系统

1.3编写代码

PrivateSubCommand1_Click（）

IfText1.Text="people"AndText2.Text="people"OrText1.Text="guanli"AndText2.Text="guanli"Then

Form1.Hide

Form4.Show

IfText1.Text="guanli"AndText2.Text="guanli"Then

Form4.Command2.Enabled=True

EndIf

IfText1.Text="people"AndText2.Text="people"Then

Form4.Command2.Enabled=False

EndIf

Else

MsgBox"输入的密码和用户名不符，请重新输入！

",vbOKOnly

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndIf

EndSub

PrivateSubCommand2_Click（）

Text1.Text=""

Text2.Text=""

Text1.SetFocus

EndSub

PrivateSubCommand3_Click（）

End

EndSub

PrivateSubForm_Load（）

Text1.Text=""

Text2.Text=""

EndSub

PrivateSubText2_Change（）

IfText2.Text="guanli"OrText2.Text="people"Then

Command1.SetFocus

EndIf

EndSub

2.“学生名册”窗体（Form4）

2.1界面设计

2.2控件属性列表

对象名称

属性

设置值

功能

DBGrid1

Visible

Datasource

True

Data1

列表显示学生名单

Data1

Connect

DataBaseName

RecordSouce

Visible

Access

C:

\Users\liu\Desktop\学生档案\学生档案管理系统.mdb

Jiben

False

连接“jiben”表（基本信息表）

Command1

Caption

Font

学生名册

宋体、四号

单击，列表显示全部学生名单

Command2

Caption

Font

系统维护

宋体、四号

单击，进入系统维护窗体

Command3

Caption

Font

信息查询

宋体、四号

单击，进入信息查询窗体

Command4

Caption

Font

返回

宋体、四号

返回登录窗体（Form1）

Command5

Caption

Font

退出

宋体、四号

退出系统

2.3编写代码

PrivateSubCommand1_Click（）

DBGrid1.Visible=True

EndSub

PrivateSubCommand2_Click（）

Form3.Show

Form4.Hide

EndSub

PrivateSubCommand3_Click（）

Form2.Show

Form4.Hide

EndSub

PrivateSubCommand4_Click（）

Form1.Show

Form4.Hide

EndSub

PrivateSubCommand5_Click（）

End

EndSub

PrivateSubForm_Load（）

Data1.RecordSource="select学号,姓名,性别,专业fromjiben"

Data1.Visible=False

DBGrid1.Visible=False

EndSub

3.“信息查询”窗体（Form2）

3.1界面设计

3.2控件属性列表

对象名称

属性

设置值

功能

Frame1

Caption

个人信息

将同类信息放在框架中

Forme2

Caption

其他信息

将同类信息放在框架中

Forme3

Caption

请选择

将同类信息放在框架中

Option1

Caption

基本信息

单击，选择一项

Option2

Caption

成绩信息

单击，选择一项

Data1

Connect

DataBaseName

RecordSouce

Visible

Access

C:

\Users\liu\Desktop\学生档案\学生档案管理系统.mdb

Jiben

False

连接“jiben”表（学生基本信息表）

Label1~Label10

Caption

依次分别为：

学号、姓名、性别······奖惩情况

提示

Text1~Text10

DataSouce

DataField

Data1

依次分别为：

学号、姓名、性别······奖惩情况

显示相应字段内容

Command1

Caption

Font

上一个

宋体、四号

单击，显示上一个记录

Command2

Caption

Font

下一个

宋体、四号

单击，显示下一个记录

Command3

Caption

Font

按姓名查询

宋体、四号

输入姓名查询

Command4

Caption

Font

按学号查询

宋体、四号

输入学号查询

Command5

Caption

Font

返回

宋体、四号

返回学生名册窗体（Form4）

Command6

Caption

Font

退出

宋体、四号

退出系统

3.3编写代码

PrivateSubCommand1_Click（）

Data1.Recordset.MovePrevious

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

Command1.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

EndSub

PrivateSubCommand2_Click（）

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

Command2.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

EndSub

PrivateSubCommand3_Click（）

ss="请输入要查询学生姓名：

"

instring$=InputBox$（ss,"输入提示"）

Data1.Recordset.FindFirst"姓名='"&instring$&"'"

IfData1.Recordset.NoMatchThen

msg="没有该学生的信息!

"

MsgBoxmsg,vbOKOnly,"提示"

EndIf

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

Command1.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

Command2.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

EndSub

PrivateSubCommand4_Click（）

ss="请输入要查询学生的学号"

instring$=InputBox$（ss,"输入提示","0000"）

Data1.Recordset.FindFirst"学号='"&instring$&"'"

IfData1.Recordset.NoMatchThen

msg="没有该学生的信息!

"

MsgBoxmsg,vbOKOnly,"提示"

EndIf

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

Command1.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

Command2.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

IfData1.Recordset.BOFThen

Data1.Recordset.MoveFirst

Command1.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

Command2.Enabled=False

Else

Command1.Enabled=True

Command2.Enabled=True

EndIf

EndSub

PrivateSubCommand5_Click（）

IfForm1.Text1.Text<>"guanli"Then

Form4.Command2.Enabled=False

EndIf

Form4.Show

Form2.Hide

EndSub

PrivateSubCommand6_Click（）

End

EndSub

PrivateSubForm_Activate（）

Frame1.Visible=False

Frame2.Visible=False

Label1.Visible=False

Label2.Visible=False

Label3.Visible=False

Label4.Visible=False

Label5.Visible=False

Label6.Visible=False

Label7.Visible=False

Label8.Visible=False

Label9.Visible=False

Label10.Visible=False

Text1.Visible=False

Text2.Visible=False

Text3.Visible=False

Text4.Visible=False

Text5.Visible=False

Text6.Visible=False

Text7.Visible=False

Text8.Visible=False

Text9.Visible=False

Text10.Visible=False

EndSub

PrivateSubOption1_Click（）

Frame1.Visible=True

Frame2.Visible=True

Label1.Visible=True

Label2.Visible=True

Label3.Visible=True

Label4.Visible=True

Label5.Visible=True

Label6.Visible=True

Label7.Visible=True

Label8.Visible=True

Label9.Visible=True

Label10.Visible=True

Text1.Visible=True

Text2.Visible=True

Text3.Visible=True

Text4.Visible=True

Text5.Visible=True

Text6.Visible=True

Text7.Visible=True

Text8.Visible=True

Text9.Visible=True

Text10.Visible=True

EndSub

PrivateSubOption2_Click（）

Option1.Value=False

Option2.Value=False

Form2.Hide

Form6.Show

EndSub

4.“基本信息录入”窗体（Form3）

4.1界面设计

4.2控件属性列表

对象名称

属性

设置值

功能

Frame1

Caption

请选择

将同类信息放在框架中

Option1

Caption

基本信息

单击，选择一项

Option2

Caption

成绩信息

单击，选择一项

Data1

Connect

DataBaseName

RecordSouce

Visible

Access

C:

\Users\liu\Desktop\学生档案\学生档案管理系统.mdb

Jiben

False

连接“jiben”表（基本信息表）

DBGrid1

DataSource

Data1

列表显示所有学生的基本信息

Label1~Label10

Caption

依次分别为：

学号、姓名、性别······奖惩情况

提示

Text1~Text10

DataSouce

DataField

Data1

依次分别为：

学号、姓名、性别······奖惩情况

显示相应字段内容

Command1

Caption

Font

信息浏览

宋体、四号

单击，显示列表所有学生基本信息

Command2

Caption

Font

信息录入

宋体、四号

单击，添加某个学生基本信息

Command3

Caption

Font

信息修改

宋体、四号

单击，修改当前学生基本信息

Command4

Caption

Font

信息删除

宋体、四号

单击，删除当前学生基本信息

Command5

Caption

Font

确定

宋体、四号

单击，保存钢材所作的录入或修改

Command6

Caption

Font

取消

宋体、四号

单击，取消刚才的录入或修改

Command7

Caption

Font

信息查询

宋体、四号

单击，按学号查询某个学生的基本信息

Command8

Caption

Font

返回

宋体、四号

单击，返回学生名册窗体

（Form4）

Command9

Caption

Font

退出

宋体、四号

退出系统

4.3编写代码

PrivateSubCommand1_Click（）

DBGrid1.Visible=True

EndSub

PrivateSubCommand2_Click（）

srxg=True

Data1.Recordset.AddNew

Text1.SetFocus

EndSub

PrivateSubCommand3_Click（）

srxg=True

Data1.Recordset.Edit

Text1.SetFocus

EndSub

PrivateSubCommand4_Click（）

DimnumAsInteger

num=Val（Text1.Text）

ss=MsgBox（"真的要删除这个记录吗？

",vbYesNo+vbInformation,"删除记录"）

If（ss=vbYes）Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

IfData1.Recordset.EOFThen

Data1.Recordset.MoveLast

EndIf

EndIf

EndSub

PrivateSubCommand5_Click（）

srxg=True

Data1.Recordset.Update

EndSub

PrivateSubCommand6_Click（）

srxg=True

Data1.Recordset.CancelUpdate

EndSub

PrivateSubCommand7_Click（）

srxg=True

ss="请输入要查询学生的学号"

instring$=InputBox$（ss,"输入提示","0000"）

Data1.Recordset.FindFirst"学号='"&instring$&"'"

IfData1.Recordset.NoMatchThen

msg="没有记录!

"

MsgBoxmsg,vbOKOnly,"提示"

EndIf

EndSub

PrivateSubCommand8_Click（）

Form4.Show

Form3.Hide

EndSub

PrivateSubCommand9_Click（）

End

EndSub

PrivateSubForm_Activate（）

DBGrid1.Visible=False

Label1.Visible=False

Label2.Visible=False

Label3.Visible=False

Label4.Visible=False

Label5.Visible=False

Label6.Visible=False

Label7.Visible=False

Label8.Visible=False

Label9.Visible=False

Label10.Visible=False

Text1.Visible=False

Text2.Visible=False

Text3.Visible=False

Text4.Visible=False

Text5.Visible=False

Text6.Visible=False

Text7.Visible=False

Text8.Visible=False

Text9.Visible=False

Text10.Visible=False

EndSub

PrivateSubOptio