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