mainpath.prg

来自「太平洋保险保单统计系统」· PRG 代码 · 共 42 行

SET TALK OFF
SET SAFE OFF
SET HOURS TO 24
SET DELETED on
*******************************************
= SQLSETPROP(0,'displogin',3)			&&永不显示登际框
= SQLSETPROP(0,"ConnectTimeOut",5)		&&连接超时５秒

PUBLIC mainpath	,form_name	&&公用路径变量
mainpath=LEFT(SYS(16),RAT("\",SYS(16)))
mainpath=STRTRAN(mainpath,'PROGS\','')
SET DEFA TO (mainpath)
SET PATH TO DATA;FORMS;GRAPHICS;HELP;libs;MENUS;progs;REPORTS
***************************************************************************************
PUBL Pusername , Puserop
Pusername='操作员'
Puserop=1
**************************************************************************************读取INI
SET PROCEDURE TO common  &&指向自定义函数
lcBuffer=Read_Ini('server.ini','ip','serverip')
Port=','+Read_Ini('server.ini','ip','port')
********************************************
PUBLIC baodan,safetykind,f_netpoint,F_NPrate,Top_main,f_getview,f_Payview,f_getmoney,f_paymoney,f_cashout
PUBLIC sql_server,SQL_uID,sql_idpass,sql_sqlbase
P_agent=''

sql_server=lcBuffer+Port	&&Server IP
SQL_uID='sa'				&&SQL ID
sql_idpass='admin'		    &&SQL PASS
sql_sqlbase='pacific'		&&SQL DATABASE NAME

=SYS(3055 , 2040)			&&允许SQL传递最大字符数量

*WAIT ' 正在和服务器建立连接，请稍等... ... '  WINDOW AT SYSMETRIC(1)/2,SYSMETRIC(2)/2 NOWAIT NOCLEAR

*********************************************
PUBLIC REG_ok
REG_ok=1

IF !DIRECTORY(mainpath+'\数据备份')
	MD '数据备份'
ENDIF