?? main.prg
字號:
*——系統(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ù)處理
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -