main.prg

VFP 在SQL 2000中的应用

 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