*——系統(tǒng)環(huán)境設(shè)置
CLEAR
CLEAR ALL
SET ESCAPE OFF			&&  禁止運行的程序在按ESC鍵被中斷
SET TALK OFF			&&  關(guān)閉命令顯示
SET SAFETY OFF          &&  覆蓋時不要確認
SET STAT BAR OFF        &&  將狀態(tài)欄關(guān)閉
SET SYSMENU OFF         &&  可關(guān)掉VFP系統(tǒng)菜單區(qū)域
SET SYSMENU TO          &&  關(guān)閉系統(tǒng)菜單
SET CENTURY ON          &&  顯示四位年代
SET DATE ANSI			&&  指定日期表達式的顯示格式為yy.mm.dd
*——避免多次運行程序
*——聲明API函數(shù)“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="資料管理系統(tǒng)"
IF .NOT. FindWindow(0,lpWindowName)==0 &&尋找窗口標題
   =MESSAGEBOX("程序已經(jīng)運行了",48,"資料管理系統(tǒng)")
   QUIT 
ENDIF
_Screen.Caption=lpWindowName
*——聲明全局變量
PUBLIC cCurUser	&&  聲明全局變量，用來保存系統(tǒng)中的登錄用戶
PUBLIC bDataAdmin,bDataBrow,bUserAdmin,bUserBrow,bLendAdmin,bLendBrow,bSysUser,bUserPurv,bAct
*——調(diào)用登錄表單
DO FORM Logon			&&  顯示登錄表單
*——進入事物處理
READ EVENTS				&&  進入事務(wù)處理