(4)、打印:打印学生基本信息、已办证表单、已领证表单
(5)、用户管理:更改用户密码、添加用户密码
(6)、退出
主菜单用来控制系统中的各项操作。系统主菜单的设计如下:
调用命令方法:
************************
domain.mpr**调用主程序**
*******************************************
(四)、浏览
浏览只是对表的记录进行查看,不能在浏览表里面直接修改记录,只能在后面讲到地编辑菜单里面去修改,本浏览菜单只起到查看有哪能些字段组成,及其里面的内容很多时,不像后面讲到的编辑菜单下面的办领证基本表和办证管理上等,本浏览能一目了然的看完,与后面的编辑菜单有着相应的区别。本浏览菜单包括两个子菜单,分别是学生办领证管理基本表和学生基本信息表。
(五)、编辑
编辑菜单主要是为了方面用查看、浏览。
(一)、学生办证管理基本表见图:
(1)、为了方便用户逐条的显示:分别做了几个按钮:
其中每个按钮的代码都在相应的click事件中输入。
第一条:
*******************
gotop**到表单的顶部**
thisform.refresh**释放表单**
**********************
上一条:
*******************
if!eof()**判断记录指针是否到了最后**
skip-1**指针上移一条**
else
gotop**到顶部**
endif
thisform.refresh
********************************
下一条:
*****************************
if!eof()**判断记录指针是否到了最后**
skip**下移一条**
else
gobottom**到表尾**
endif
thisform.refresh
**********************************************************
退出:
*****************
thisform.release**退出当前表单**
*****************************************
(2)、为了用户在工作时,别忘了时间观念,所以本系统编辑者专为用户做了一下时,能让用户在工作能劳逸结合,定义了一下时钟(timer1),和一个标签(label2)
分别高置了temer1属性:
******************
Interval=1000
对temer1的temer事件编写代码如下:
ifthisform.label2.caption!=time()**判断temer的时间,是否等于当前系统的时间**
thisform.label2.caption=time()**经过判断,如果不等,就把当前系统的时间赋给temer**
endif
***********************************************************************
(二)、办证管理上做了以下几个按钮:
其中每个按的的代码都在相应的click事件中输入
第一条:
*******************
gotop**到表单的顶部**
thisform.refresh**释放表单**
*********************************
上一条:
*******************
if!eof()**判断记录指针是否到了最后**
skip-1**指针上移一条**
else
gotop**到顶部**
endif
thisform.refresh
**************************************************
下一条:
*****************
if!eof()**判断记录指针是否到了最后**
skip**下移一条**
else
gobottom**到表尾**
endif
thisform.refresh
*******************************************************
最后一条:
******************
gobottom**到表记录的尾**
thisform.refresh
退出:
thisform.release**退出当前表单**
**************************************
(三)、查找按钮(如下图)
(1)、当用户在面对记录较多时,或者用户输入记录过久时,可能会导致搞忘,本编辑人员考虑到一个一个的去查看,这样既浪费时间,又容易出错,所有为了既准确、又快,特为用户编写了一个查询按钮,通过学号来对学生是否办领证进行查询。在学号处输入你要查找的学生的学号即可,然后单击查询按钮。
查询按钮代码如下:
分别在click事件中输入以下代码
***********************************
select1
usedate\bzgl.dbf**调用bzgl.dbf**
iflen(alltrim(thisform.text1.value))<>0**判断所学号是否为空**
locateforbzgl.学号=thisform.text1.value**查找当前输入的学号是否完全等于bzgl.dbf里面的学号**
iffound()**如果找到**
thisform.text2.value=班代码**显示班代码**
thisform.text3.value=姓名**显示姓名**
thisform.text4.value=bzgl.性别**显示性别**
thisform.text5.value=bzgl.身份证号码**显示身份证号码*
thisform.text6.value=bzgl.金额**显示金额**
ifthisform.text7.value**查看是否办证**
repl是否办证with.t.
else
repl是否办证with.f.
endif
ifthisform.text8.value
repl是否领证with.t.**查看是否领证**
else
repl是否领证with.f.
endif
else
=messagebox("?该学生的基本信息不存在",48,"警告!")**如果没有找到,就显示"该学生的基本信息不存在"**
thisform.text1.value=""
endif
else
=messagebox("学号不能为空!",48,"警告!")**当你没有输入学号时,直接单击查询按钮时,就会出现"学号不能为空"**
endif
thisform.text1.value=''
this.refresh
*********************************************************************
(3)、退出
用户添加后,要进入下一个操作时,就需要退出本系统,进行下一步操作。
退出按钮代码如下:
*************
thisform.release**释放并退出此表单**
******************************************************************************
(四)、查看学员基基本本信息
其中包括四个按钮,第一条、上一条、下一条和一个退出按钮
相应的代码都是在click事件在写入。
第一条:
*******************
gotop**到表单的顶部**
thisform.refresh**释放表单**
*********************************
上一条:
*******************
if!eof()**判断记录指针是否到了最后**
skip-1**指针上移一条**
else
gotop**到顶部**
endif
thisform.refresh
**************************************************
下一条:
*****************
if!eof()**判断记录指针是否到了最后**
skip**下移一条**
else
gobottom**到表尾**
endif
thisform.refresh
*******************************************************
最后一条:
******************
gobottom**到表记录的尾**
thisform.refresh
退出:
thisform.release**退出当前表单**
**************************************
(五)、打印表单
有时,用户太累时,为了放松一下显示器对眼睛的辐射,可以通过打印机来对某个表进行核对、查看。打印包括打印基本表单、打印已办证表单、已领证表单。
已办证表单打报:(见下图)
已领证表单报表(图略):
(六)、用户管理
用户管理包括两菜单选项,一个是更改用户密码,另一个是添国用户。
(1)、用户更改密码:如下图
本界面包括三个按钮,分别是添加、确定、取消。
添加按钮代码:
在相应按钮的click事件中输入代码
***********************************************
closeall
sele1
usedate\bzglgly
locaforbzglgly.2操作员姓名=thisform.combo1.value
ifbzglgly.操作员密码=alltrim(thisform.text1.value)
ifallt(thisform.text3.value)=allt(thisform.text2.value)
replbzglgly.操作员密码withallt(thisform.text2.value)
wait"口令更改成功!"windowtimeout3
else
wait"两次新口令输入不一致"windowtimeout3
endif
else
wait"原口令输入不成功
上一篇:
VFP基于VFP职员信息管理系统(论文和程序)
下一篇:
“红牛饮料”在中国地区的品牌营销策划研究