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
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