main.prg

来自「VFP 在SQL 2000中的应用」· PRG 代码 · 共 39 行

 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