如果您无法下载资料,请参考说明:
1、部分资料下载需要金币,请确保您的账户上有足够的金币
2、已购买过的文档,再次下载不重复扣费
3、资料包下载后请先用软件解压,在使用对应软件打开
具体操作步骤(一)表建立如下各表基本数据表如下(二)表单的建立启动表单进入界面登录界面主界面维护界面查询界面1查询界面2浏览界面1浏览界面2(三)命令代码启动的登录按钮:doform登录.scxreleasethisform启动的退出按钮:quit3、进入的登录按钮:logcount=logcount+1locateforalltrim(用户.用户名)==alltrim(thisform.combo1.value)iffound()andalltrim(用户.密码)==alltrim(thisform.text1.value)doform主界面.scxreleasethisformelseiflogcount<3then=messagebox("操作员或密码错误请重新输入!!!",48,"严重警告")thisform.text1.setfocuselse=messagebox("对不起,您是非法用户,系统将会退出!!!",48,"严重警告")quitendifendif4、进入的退出按钮:releasethisform5、第一个:gotopthisform.refreshthis.enabled=.F.thisform.command3.enabled=.f.thisform.command4.enabled=.t.thisform.command5.enabled=.t.6、上一个:skip-1thisform.command4.enabled=.t.thisform.command5.enabled=.t.ifbof()thengotopthis.enabled=.f.thisform.command2.enabled=.f.endifthisform.refresh7、下一个:skip+1thisform.command4.enabled=.t.thisform.command5.enabled=.t.ifbof()thengotopthis.enabled=.f.thisform.command2.enabled=.f.endifthisform.refresh8、末一个:gobottomthis.enabled=.F.thisform.command4.enabled=.f.thisform.command2.enabled=.t.thisform.command3.enabled=.t.thisform.refresh9、查询按钮:thisform.combo1.setfocuslocateallforthisform.combo1.value=员工工作档案表.员工号thisform.text1.value=员工工作档案表.现工作单位thisform.text2.value=员工工作档案表.现担任职务thisform.text3.value=员工工作档案表.所属部门thisform.text4.value=员工工作档案表.工资级别thisform.text5.value=员工工作档案表.基本工资thisform.refreshthisform.combo1.refresh10、关闭按钮:releasethisform(四)程序设计:SETTALKOFFSETSAFEOFFSETDATEANSISETEXCLUOFFCLEAALLCLOSALLsetsysmenuoffdoform启动.scxreadevents(五)菜单设计:(六)项目设计:将程序设置为主程序,进行连编。