企业人事档案管理系统设计说明书.docVIP

具体操作步骤 （一）表 建立如下各表 基本数据表如下 （二）表单的建立 启动表单 进入界面 登录界面 主界面 维护界面 查询界面1 查询界面2 浏览界面1 浏览界面2 （三）命令代码 启动的登录按钮： do form 登录.scx release thisform 启动的退出按钮： quit 3、进入的登录按钮： logcount=logcount+1 locate for alltrim(用户.用户名)==alltrim(bo1.value) if found() and alltrim(用户.密码)==alltrim(thisform.text1.value) do form 主界面.scx release thisform else if logcount3 then =messagebox(操作员或密码错误请重新输入！！！,48,严重警告) thisform.text1.setfocus else =messagebox(对不起，您是非法用户，系统将会退出！！！,48,严重警告) quit endif endif 4、进入的退出按钮： release thisform 5、第一个： go top thisform.refresh this.enabled=.F. mand3.enabled=.f. mand4.enabled=.t. mand5.enabled=.t. 6、上一个： skip -1 mand4.enabled=.t. mand5.enabled=.t. if bof() then go top this.enabled=.f. mand2.enabled=.f. endif thisform.refresh 7、下一个： skip +1 mand4.enabled=.t. mand5.enabled=.t. if bof() then go top this.enabled=.f. mand2.enabled=.f. endif thisform.refresh 8、末一个： go bottom this.enabled=.F. mand4.enabled=.f. mand2.enabled=.t. mand3.enabled=.t. thisform.refresh 9、查询按钮： bo1.setfocus locate all for bo1.value=员工工作档案表.员工号 thisform.text1.value=员工工作档案表.现工作单位 thisform.text2.value=员工工作档案表.现担任职务 thisform.text3.value=员工工作档案表.所属部门 thisform.text4.value=员工工作档案表.工资级别 thisform.text5.value=员工工作档案表.基本工资 thisform.refresh bo1.refresh 10、关闭按钮： release thisform （四）程序设计： SET TALK OFF SET SAFE OFF SET DATE ANSI SET EXCLU OFF CLEA ALL CLOS ALL set sysmenu off do form 启动.scx read events （五）菜单设计： （六）项目设计： 将程序设置为主程序，进行连编。