jxc.prg

vfp的进销存系统

set escape off
*
*主程序
*程序名：JXC
*开发日期：2003.1.19
*最后修改日期：
*修改记录

*变量说明
*cxlj: 本程序所在的路径
*cxzf: 本程序所包含的字符
*dqml: 当前目录
*p_cxlj:全局程序路径
*p_gzrrdm:工作人员代码
*p_gzrrxm:工作人员姓名
*mmtg:密码通过
*xtzzyx:系统正在运行

*设置功能键
set talk off
set century on
set sysm off
set date ansi
set safety off
set message to ''
SET FUNCTION '1' TO ''
SET FUNCTION '2' TO ''
SET FUNCTION '3' TO ''
SET FUNCTION '4' TO ''
SET FUNCTION '5' TO ''
SET FUNCTION '6' TO ''
SET FUNCTION '7' TO ''
SET FUNCTION '8' TO ''
SET FUNCTION '9' TO ''
SET FUNCTION '10' TO ''
close table all

*设置屏幕
Declare integer Fblz In "fBL.dll" integer x,integer y
x=800
y=600
xx=Fblz(x,y)  &&调用成功XX=0。
clos all
 WITH _SCREEN  
 .BACKCOLOR = RGB(0,128,64)
 .caption='医药进销存系统'
 .BORDERSTYLE = 2
 .CLOSABLE = .F.
 .CONTROLBOX = .T.
 .MAXBUTTON = .F.
 .MINBUTTON = .T.
 .MOVABLE = .F.
 .WINDOWSTATE = 2
 .icon='jfz3.ico'
 .LOCKSCREEN = .F.
 ENDWITH 
set curs off
@ 5.069,19.000 SAY (LOCFILE("JXCFM.BMP","BMP|ICO", "JXCFM.BMP文件在哪里?")) BITMAP ;
SIZE 29.049,112.000 ;
STYLE "T"                &&显示启动封面
set curs on


*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
  CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
  IF CXZF='\'
    CXLJ=STUFF(CXLJ,LEN(CXLJ)-JSQ+1,JSQ,'')
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO &CXLJ
p_cxlj=cxlj



*do form logo name logo linked

if .not. file('xtzcgb.mem')
  *故障恢复
  dhxx='    上次系统为非正常退出，为安全起见，系统现在需'+chr(13)+'要进行故障恢复！'
  do form dhk
  do zlsj
  dhxx=' 故障恢复完毕，如仍有问题，请与软件开发商联系。'
  do form dhk
 else
  erase xtzcgb.mem
endif

*记日志
do dksjk with 'rzk','rzk'
append blank
replace 日期 with date(),;
  时间 with time(),;
  操作 with '进入系统。'

*密码确认
mmtg=.t.
p_gzrrdm=''
p_gzrrxm=''
do dksjk with 'gzrr','gzrr'
do form gzrrmm
if .not. mmtg
  select rzk
  replace 日期 with date(),;
    时间 with time(),;
    操作 with '有人试图进入系统，但未成功。'
  do tcxt
endif

select rzk
replace 操作员 with p_gzrrxm

*确认日期、时间
dhxx='今天的日期是：'+dtoc(date())+chr(13)+'现在的时间是：'+time()+chr(13)+chr(13)+;
  '    请确认是否正确。如不正确，请用WINDOWS功能'+chr(13)+'重新设置，否则系统可能不能正常运行。'
do form dhk
do title.mpr
do form main
read events