main.bak

一个功能较单一的企业工资管理系统。用FoxPro开发

set talk off
set esca off
set exact on
set excl off
set cons on
set safe off
set stat bar on
set sysmenu off
clear
clear all
public lpath
lpath=SYS(16)  &&获取当前运行的程序名及其所在路径
FOR JSQ=1 TO LEN(lpath)  &&用一个循环找出最右边一个反斜线，将其后的程序名去掉，只剩路径
  CXZF=LEFT(RIGHT(lpath,JSQ),1)  &&从 CXLJ 的右边依次取出每个字符
  IF CXZF='\'  &&查看这个字符是不是反斜线
    lpath=STUFF(lpath,LEN(lpath)-JSQ+1,JSQ,'')  &&如果是，就将反斜线之后的字符全删掉并退出循环
    EXIT
  ENDIF
ENDFOR
SET DEFAULT TO "&lpath"  &&用宏替换设置隐含路径，用引号是为了带空格的路径也能正确设置
set path to &lpath,report,bak

cCaption="泉州邮政局职工工资管理系统"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
_screen.caption=cCaption
=messagebox("此程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！ ^_^ ")
return .f.
endif
_screen.caption=cCaption

on shutdown do quit1.prg

&&欢迎界面
do form begin
read event

with _screen
  .windowstate=2 
  .visible=.F.
endwith
&&系统登录
do form login.scx name login
read events

with _screen      &&对主窗口进行再次设定
  .visible=.T.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=0
  .left=0
  .windowstate=2    &&将主窗口最大化
  .caption='泉州邮政局职工工资管理系统'
  .icon='sun.ico'  &&设定图标
  .picture='back.gif'
endwith
_screen.show
do mainmenu.mpr
read events

return