📄 main.prg
字号:
SET NULL on
SET TALK OFF
SET SYSMENU OFF
SET SYSMENU TO
SET NOTIFY OFF
SET SAFETY OFF
SET CENTURY ON
SET DATE ansi
SET STATUS BAR OFF
SET DELETED ON
SET CARRY ON
SET EXACT ON
SET ECHO off
cCaption="光美汽车卡消费查询"
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
IF FindWindow(0,cCaption)#0
_SCREEN.CAPTION=cCaption
=MESSAGEBOX("程序已经运行,请注意任务栏!",16,"")
QUIT
RETURN .F.
ENDIF
_SCREEN.CAPTION=cCaption
public lnHandle
bz=0
*lnHandle=SQLConnect("mcs","sa","")
*If lnHandle>0 &&连接成功
* = SQLSETPROP(lnHandle, 'Transactions',2)
*Else &&连接失败
* MessageBox("连接SERVER失败")
*EndIf
DO form main
read event
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -