init_var.prg

foxpro连接sqlserver的例子

*-- 系统环境
set sysmenu to default
set class to
set Talk	off
set Near 	off
set Echo	off
set Cursor	on
set Debug	off
set Safe	off
set Notify	off
set Escape	off
set Delete	on
set Confirm	off
set Multilocks	on
set Exclusive	off
set Exact	on
set BrowseImeControl	off
set Date		ansi
Set mark to '.'
set Century		on
set Hour 		to 24
set Reprocess	to 3	&& 尝试锁定的次数
set refresh		to 1,5	&& 数据刷新时间
set Decimals	to 4
SET OPTIMIZE ON

set path to MyPubPrg\prg,MyPubPrg\lib,MyPubPrg\frm,MyPubPrg\dat,MyPubPrg\pic,MyPubPrg\inc,;
	dat,dbf,forms,pic,prg,rpt,lib,ocx

set Classlib	to BaseClass	addi
set Classlib	to ToolsBar		addi
set Classlib	to FormClass	addi
set Classlib	to Myclasslib	addi

set Procedure	to Sys_Menu		addi
set Procedure	to MyPubProc	addi
set Procedure	to MyDefineProc	addi
set Procedure	to MySqlTools	addi

on error ErrorHand ( error(),message(),message(2),program(),program(1),lineno(2) )
on shutdown do shutdown

*-- 文件信息
IF TYPE("gcVersion") # "C"
	PUBLIC gcVersion
	gcVersion	= "<未知版本>"
ENDIF

*-- 全局变量
public gcTempPath,gcUser,gnID
gcTempPath = getenv("temp")
gcUser	= sys(0)
gnID	= 0
gcUser	= right(gcUser,len(gcUser)-at("#",gcUser)-1)	&& 当前注册用户

PUBLIC gdSystemDate				&& 系统日期

public gcRightsList
gcRightsList	= REPLICATE(chr(1),100)			&& 权限

*-- 系统配色方案
PUBLIC gnSysBgColor,gcBackGround
PUBLIC gnGotFocusForeColor,gnGotFocusBackColor
PUBLIC gnNormalForeColor,gnNormalBackColor
PUBLIC gnBorderColor,gnSpecialEffect
gnSysBgColor	= RGB(244,243,238) &&RGB(250,250,245)	&& 表单背景色
gcBackGround	= "BackGround.gif"
gnGotFocusForeColor	= RGB(0,0,128)	&& 当获得焦点时的前景色
gnGotFocusBackColor	= RGB(233,233,150)		&& 当获得焦点时的背景色
gnNormalForeColor	= RGB(0,0,0) 		&& 正常时的前景色
gnNormalBackColor	= RGB(238,241,214) 	&& 正常时的背景色
gnBorderColor		= RGB(128,128,128)	&& 边框颜色
gnSpecialEffect		= 1

PUBLIC glConfirmToQuit,glShowStatus,glDisableWindowMenu,glisPrintPrice
PUBLIC glShowTimer,glNeedLogin,glCanDirectLogin,isOperating
glDisableWindowMenu =.F.
glConfirmToQuit	= .T.	&& 是否提示再退出
glShowTimer	= .T.
glShowStatus = .T.		&& 状态栏
glNeedLogin	= .T.
glCanDirectLogin = .F.

*-- 对象变量
public oFuncToolsBar,oMyTimer
PUBLIC oItemmast,oInvoiceOrder

*-- system.ini 文件初始化
public gcSystemIni
gcSystemIni	= GETENV("windir") + "\invoice.ini"

DO UserDefine