人才档案
管理系统 一.
设计目的:
1.练习VisualFoxpro系统开发的全过程。
2.巩固所学知识和设计技巧。
二.系统开发一般过程:
1.分析阶段
2.设计阶段
3.实施阶段
4.维护阶段
三.具体设计步骤:
1.建立数据库表:rcdacjdazytc.其中“rcda”和“cjda”两个表具有一对多的关系;“rcda”和“zytc”两个表具有一对一的关系,另外还有自由表“sysmn”
表rada制作:
在VFP主菜单下,文件---新建在新建窗口中选择“表”,再按“新建文件”进入“创建”窗口,输入表的名字“rcda”然后按“保存”按钮,进入“表设计器”窗口。根据表的结构逐一填入。
“rcda”表的结构
字段名字段类型字段宽度小数点索引否
编号字符型8---主索引
字符型8------
出生日期日期型8------
性别字符型2------
党员否逻辑型1------
工资现状数值型102---
工作简历备注型4------
照片字符型40------
“cjda”表的结构
字段名字段类型字段宽度小数点索引否
编号字符型8---普通索引
成果名称字符型30------
成果类别字符型10------
成果出处字符型30------
“zytc”表的结构
字段名字段类型字段宽度小数点索引否
编号字符型8---普通索引
专业字符型10------
专业年限数值型20------
职称字符型10---普通索引
英语水平字符型8------
“sysmz”数据表的结构
字段名字段类型字段宽度小数点索引否
S1(编码)字符型2------
S2(
程序员名称)字符型8------
S3(密码)字符型6------
2.主程序设计
专门人才档案管理系统”的主程序“main.prg”内容
*MAIN.PRG
clearall
closeall
setsysmenuoff
setsysmenuto
setclockon
setstatusbaroff
setnotifyoff
setpaletteoff
setbellon
setescapeon
setkeycomptowindows
setcarryon
setconfirmon
setexacton
setnearon
setansioff
setdeleteon
setoptimizeon
setrefreshto0,5
setodometerto100
setblocksizeto64
setcollateto‘stroke’
setsysformatsoff
setsecondson
setcenturyon
setcurrencyleft
setcurrencyto‘NT$’
sethoursto12
setdatetoansi
setdecimalsto2
setfdowto1
setfweekto1
setmarkto‘.’
Setseparatorto‘,’
Setpointto‘.’
Settalkoff
Setsafetyoff
Setdefatoc:\\exapmle
Publicp_login
Domain_cs
lcOnShutdown=”ShutDown()”
ONSHUTDOWN&;lcOnShutdown
lclib.vcx为系统类库
l“_screen”为VisualFoxPro系统变量,代表主窗口名称对象。
3.系统
登陆表单设计
系统登陆表单的主要任务是输入操作员名称及进入系统的操作密码。
系统登陆表单“hy_login.scx”
表单“系统登陆”的“unload”事件代码如下:
THISFORM.cUser=””
RETURNTHIS.cUser
表单“系统登陆”的“load”事件代码如下:
settalkoff
setsafetyoff
命令按钮“comok”的“click”事件代码如下:
privatesyspass
selesysmn
syspass=allt(THISFORM.txtPass
word.Value)
LOCATEFORallt(s1)==allt(THISFORM.txtUserName.Value)
IFfound()andallt(sysmn.s3)==syspass
THISFORM.cUser=ALLTRIM(sysmn.s1)
Thisform.visible=.f.
Dohy_main.mpr
Readevent
Thisform.visble=.t.
This.parent.txtpassword.value=””
Else
#DEFINEMISMATCH_LOC”用户号或口令不正确!请重新输入.”
WAITWINDOWMISMATCH_LOCTIMEOUT1
THISFORM.txtPassword.Value=””
THISFORM.txtPassword.SetFocus
Endif
命令按钮“cmdcancel”的“click”事件代码如下:
THISFORM.cUser=””
THISFORM.Release
在主程序中通过命令“DOFORMhy_loginTOcUser”调用系统登陆表单,
其中:cUser为表单返回值,shutdown()为系统退出函数,其内容如下:
FUNCTIONShutDown
Ifp_login=.t.
Onshutdown
Cleaevent
Closetableall
Closedatabase
Setsysmenutodefault
Setsysmenuon
Settalkon
Setclockoff
Setnot