main.prg

用vfp语言设计的人事管理系统源码

 

 
 clear
 local lclear
 local lcsys16,mypath
 lcsys16=sys(16)
 mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
 set defa to (mypath)
 set path to form,data,frx

 set clear on
 set sysmenu off
 set talk off
 set notify off
 set clock status
 set bell on 
 set escape on
 set keycomp to windows
 set exact on
 set exclusive off
 set multilocks on
 set century on
 set message on
 set safety off
 set deleted on
 
  DD = CDOW(DATE())
 DO CASE 
 CASE DD = 'Monday'
    DDD = '星期一'
 CASE DD = 'Tuesday'
    DDD = '星期二'
 CASE DD = 'Wednesday'
    DDD = '星期三'
 CASE DD = 'Thursday'
    DDD = '星期四'
 CASE DD = 'Friday'
    DDD = '星期五'
 CASE DD = 'Saturday'
    DDD = '星期六'
 CASE DD = 'Sunday'
    DDD = '星期日'
 ENDCASE 

 

 rele wind "standard"
 release windows "常用"
 deactivate windows "项目管理器 - 项目1"
 zoom window screen max
 modify window screen title "人事管理系统"+space(30)+"今天是 ";
    +str(year(date()),4)+"年"+str(month(date()),2)+"月"+str(day(date()),2)+"日 "+DDD
  do form jm1
 open database 人事管理系统
 use 个人信息表
 
 read events