VF学生管理系统设计过程和代码1

综合练习

学生管理系统说明书

(1)4个表

学生信息

字段

表：类型宽度小数位索引排序Nulls

名

字段

1学号C8升序否

2姓名C6否

3性别C2否

4出生年月D8否

5家庭住址C20否

6备注M10否

学生成绩

表：字段名类型宽度小数位索引排序Nulls

字段

1学号C8升序否

2姓名C6否

3数据库N51否

4高等数学N51否

5英语N51否

6总分B51升序否

口令表:

字段

字段类型宽度小数位索引排序Nulls

名

1IdC8升序否

2PsC12否

日志表

字段字段名类型宽度小数位索引排序Nulls

1学号C10否

2登陆时间D8否

3离开时间D8否

（2）4个报表（打印按钮）

学生信息表：学生成绩表；口令表：日志表

(3)1个菜单

数据查询数据浏览系统维护系统管理

信息表维护口令设置

成绩表维护帐户管理

系统日志

数据备份

数据恢复

退出系统

数据库系统的具体情况:

欢迎界面表单

要求：“欢迎使用”计时器控冲

“学生管理系统”标签

“进入系统”按钮和“退出系统”按钮

点击“退出系统”按钮,返回到Windows界面

点击“进入系统”按钮进入系统登陆表单

要求：“学生管理系统登陆”，“请输入用户”和“请输入密码”3个标签

2个文本框

“确认”和“退出”两个按钮

当输入帐户和密码正确时，点击”确认”按钮，进入主菜单

如果输入密码错误时，显示

当输入三次以后，显示

点击确定后，显示

点击“是"后，退出系统，返回Windows界面。

数据查询菜单

点击该菜单后，显示页面

要求：“数据查询”、“数据查询”、"查询方式”、”输入查询值”标签

“确定”、“退出”按钮

1个文本框

1个编辑框

2个选项按钮组

在“学生信息式”“学生成绩式"''按学号查询”“按姓名查询”四个选择2项后，在文本框中输入查

询值，点击“确定”按钮后，在文本框中显示查询结果：点击“退出”按钮，返回主菜单

数据浏览菜单

点击该菜单后，显示页面

要求：”学生数据浏览”、“今日的日期是”、“当前时间是“标签

1个页框（包含2个页面）

“退出”按钮

2个标签

1个timer控件（显示系统时间）

当点击“退出”按钮后，返回到主菜单。

在“学生成绩衣”页面中

i........................至生成话袤..............1•1I学生信息费

学号|200ED10）

姓名|张山

数据库|------

彦等数字|------

英语|—―

的I---------

首记录|上一会|下T|展巴|

在这个页面中，包含：

“学号”、“姓名”、“数据库”、“高等数学”、“英语”、“总分”标签以及对应文本框

“首记录”、“上一条”、“下一条”、“尾记录”4个按钮

点击按钮时候，显示相应的学生成绩表中的记录。

在“学生信息表”页面中

学生成僦学生信密

鳄姓名㈱出生年月家鼬备注▲

2006010：何兰女12/01/81解neno

2。就戏张山女01/05/81j原neno

2008020：季明另05/01/81阖neno

20080202翁女09/15/81邮neno

2000301好男04/20/82酸neno

//neno

▼

1r

在这个页面中.包含一个表格.

系统维护菜单

(1)子菜单：成绩表维护表单

要求：I个表格（显示学生成绩表）

“学号”、“姓名”、“数据库”、“高等数学”、“英语”、"总分”标签以及对应文本框

1个组合按钮（“首记录"，“上一个”，“下一个”，“尾记录”，“添加”，“编辑”，“删除"，“打

印“，“退出”）

当点击“首记录”，“上一个”，“下一个”，“尾记录”按钮时，在文本框中显示相应的记录；

当点击“添加”按钮后.显示

nJ■以输入记录，点击“保存”按钮后，返回界面。

当点击“编辑”按钮后，显示

可以修改已经存在的记录，并点击“保存”返回。

当点击“删除”按钮后，显示

示>(

该记录学号为：20080101

79）真的要删除吗？

是9IlEZglEJl

选择“是”后，对删除的记录作删除标记，当点击“退出”按钮后，删除作标记的记录。

当点击“打印”按钮后，显示（报表）

当点击“退出”按钮后，返回主菜单，同时删除已经做删除标记的记录。

（2）子菜单：信息表维护表单（和成绩表维护表单相同）

系统管理菜单

(1)口令设置表单

要求：“修改密码”、“输入原密码”、“输出新密码”、“重输新密码”标签

3个文本框

“确定”、“退出”按钮

当点击“确定”按钮后改变当前用户的密码,点击“退出”按钮返回主菜单

（2）帐户管理表单

要求：1个表格（帐户表）

“姓名”、“密码”标签和文本框

一个命令按钮组（和前面相同）

（3）系统H志表单

点击“打印”按钮后，打印日志报表

点击“清除”按钮后，清除日志记录

点击“退出”按钮后，返回主菜单

（4）系统备份表单

救根缶份

谓通推备份“系[I

课比弹0份目标日录

开U8*■份|

要求：“请选择备份目录”“请选择备份目标目录”标签以及文本框

“开始备份”和“退出”按钮

2个“…”选择路径按钮

ActiveX控件中的进度条控件ProgressBar

通过路径的选择把一个文件反制到另一个路径下面后，点击“开始备份”按钮，使用进度条控件显示过程,

当复制成功后，弹出“复制完成对话框”，

点击“确定”按钮后返回该表单。

点击“退出”按钮，返回主表单

(3)数据恢良表单

要求：”选择需要恢复数据目录”“选择恢复数据的目标目录”标签和文本框

“开始恢复”“退出”按钮，以及2个“…”选择路径按钮

ActiveX控件中的进度条控件ProgressBar

(6)退出系统

提示

你确实要退出系统吗？

是9I

选择“否”返回主菜单

选择“是"退出至IJWindows

制作过程，代码:

明日志表CD1回_次」

I学号登陆时间离开时间

240409022610/11/1310/11/13

240409020110/11/1210/11/12

240409020210/11/1210/11/12

240409020310/11/1310/11/13

240409022510/11/1310/11/13

kJ

S学生信息表三回［

徉号I2404090226

姓名白小慧

性别女

土生年月08/12/91

庄庭住址山西省

备注memo

学号

2404090

刘

达

伟

姓

名

性

别

里

出

的

/I

西3/9

省

家

囹07

山

备

注

memo

号

04090

健

翔

名24

赵

别

男

生

年

月

〃

庭

住

址

龙5/9

08江

黑

注

memo

号

2404090203

名

李子凯

别

里

进入系统一退出系统

进入系统中写入:DOFORM学生管理系统登陆.sex

(hisform.release

退出系统中写入：

ask=messagebox（"确定要退出系统吗？”,4+32+256,”学生管理系统”）

ifask=6

closeall

quit

else

endif

目表单设计器-学生合理盂统登陆.sc<

VFormlIR_l匡

学生管理系统登陆

数据环境中加入新口令表（存密码和账号的）

F0RM1.INIT中写入：

Publicerrornumber,Ps

Errornumbei=0

退出中写入

ask=messagebox（"确定要退出吗？”,4+32+256,”学生管理系统”）

ifask=6

thisform.release

else

endif

确定中写入：

use新口令表

a=Thisform.（ex（Lvalue

b=Thisform.text2.value

ifa==""

n=messagebox（”请输入用户名”,4+32,”学生管理系统登陆・）

docase

casen=6

thisfonn.tcxtI.value=,'"

thisform.textI.setfocus

casen=7

thisform.release

endcase

else

ifb==""

产1］心§28g网”请输入密码”,4+32,”学生管理系统登陆”）

docase

casen=6

thisform.text2.value=""

thisform.text2.setfocus

casen=7

thisform.release

cndcasc

endif

endif

locateforalllrim（新口令表.ld）==allirim（a）

iffound（）

ifalltrim（新口令表.Ps）==alllrim（b）

do学生管理系统.mpr

（hisfonn.release

else

messagebox（"密码错误，请重新输入”,64,”学生管理系统登陆”）

erromumber=errornumber+1

endif

else

messagebox（"用户”+a+”不存在!”,64,”学生管理系统登陆”）

errornumber=errornumbcr+1

endif

iferrornunibcr=3

MESSAGEBOX（“您已经输入3次错误，请按确定退出",64,”学生管理系统”）

ask:messagebox（"确定要退出吗？”,4+32+256,”学生管理系统“）

ifask=6

closeall

quit

else

endif

endif

数据查询中代码：

确定中写入：

no=alltriin（thisform.Text1.value）

ifthisfbrm.optiongroup1.value=1

ifthisfonn.optiongroup2.vaiue=1

ifempty（no）

messagebox（"对不起，学号不能为空。",16,"错误"）

Ihisform.TextI.setfocus

return

endif

select学生信息表

locateforalltrim（学生信息表.学号）=no

ifnotfound（）

messagebox（"没有找到你输入的学号。",16,"错误"）

Ihisform.TextI.setfocus

return

endif

thisform.Editl.value="学号学号

thisfom】.Edit2.valuc="姓名"+””+学生信息表.姓名

thisform.Edit3.value="性别学生信息表.性别

thisform.Edit4.value="出生年月“+dtoc（学生信息表.出生年月）

〔hisform.edi5value="家庭住址学生信息表.家庭住址

thisform.Edit6.value="备注+学生信息表洛注

return

endif

select学生信息表

locateforalllrim（学生信息表.姓名）=no

ifnotfound（）

messagebox（"没有找到您输入的姓名!”,16,“错误"）

Ihisform.Text1.setfocus

return

endif

thisfomi.Editl.value=”学号”+学号

thisform.EdilZvalue=“姓名学生信息表.姓名

thisform.Edit3.value="性别"+学生信息表.性别

thisform.Edil4.value=K生年月"+""+dloc（学生信息表.出生年月）

thisform.edit5.value="家庭住址学生信息表.家庭住址

thisform.Edil6.value="备注+学生信息表.备注

else

ifthisfbrm.optiongroup2.valuc=1

ifempty（no）

messagebox（"对不起，学号不能为空!”,16,"错误"）

（hisform.Text1.setfbcus

return

endif

select学生成绩表

locateforalkrim（学生信息表.学号）=no

ifnotfound（）

messagebox（"没有找到你输入的学号!”』6,“错误”）

（hisform.Text1.setfbcus

return

endif

thisfbmi.EditLvalue“学号“+””+学生成绩表.学号

thisform.Edil2.value="姓名"+"”+学生成绩表.性名

thisform.Edit3.value="数据库"+””+str（学生成绩表.数据库）

thisform.Edit4.valuc="高等数学"+””+str（学生成绩表,高等数学）

thisform.cdit5.valus“英语"+""+str（学生成绩表.英语）

thisform.Edit6.value="总分"+""+str（学生成绩表.总分）

else

ifempty（no）

messagebox（"对不起，姓名不能为空!",16,"错误"）

thisfomi.Text1.setfocus

return

endif

select学生成绩表

locateforalhrim（学生成绩表.性名尸no

ifnotfound（）

messagebox（"没有找到您输入的姓名!*16,"错误"）

thisfomi.Text1.setfocus

return

endif

thisform.Editl.value="学号学生成绩表.学号

thisform.Edil2.value="姓名学生成绩表.性名

thisform.Edit3.vaE6”数据库"+””+str（学生成绩表.数据库）

lhisfonn.Edit4.value="高等数学“+"”+str（学生成绩表.高等数学）

thisform.edit5.value="英语"+""+str（学生成绩表.英语）

thisform.Edit6.value="总分”+"”+str（学生成绩表.总分）

endif

endif

退出中写入：thisform.release

数据浏览中代码：

首记录:gotop

Thisform.refresh

上一条：skip-I

Gotop

IfbofQ

Thisform.refresh

下一条：

SkipI

Ifeof()

Gotop

Thisform.refresh

尾记录：

Gobottom

Thisform.refresh

计时器中TIMERI.TIMER中写入：

Thisform.Iabcl5.caption=dtoc(date())

Thisform.Iabel6.caplion=time()

退出中写入：

Thisform.release

数据环境中加入学生成绩表和学生信息表

学生信息表维护代码：

首记录，上一个，下一个，尾记录同上

添加中写入:appendblank

Thisfbrm,refresh

编辑中定入：thisform.txt学号.setfocus。

保存：messagebox(“已存入”，48,“警告”)

Thisfbrm.refresh

删除中写入：deletefrom学生信息表where学^=thisform.txt学号.value

Thisform,grid1.recordsource='"'

Pack

Thisfonn.gridl.recordsource="学生信息表”

Thisfbrm.refresh

打印中写入:listtoprinterprompt

数据环境中加入学生信息表

学生成绩表维护同上的代码，数据环境中加入学生成绩表

学生账户管理中浏览学生密码的代码也同上，数据环境中加入口令表

口令表设置用于改密码，代码如下：

确定中写入:LOCALjj

fori=Ito3

s="text"+alltrim(str(i))

d="label"+alltrim(str(i))

ifempty(thisform.&s..value)

messagcbox(ihisfon]].&d.caption+"不能为空",64,"系统提示")

thisfonn.&s..setfocus

ELSE

IFs="text3"

jj=l

ENDIF

ENDIF

ENDFOR

IFjj=l

select新口令表

GOtop

locatefor