Q5/ws_objects/Ew_mainface.pbl.src/w_sys_begin.srw

$PBExportHeader$w_sys_begin.srw
forward
global type w_sys_begin from w_publ_base
end type
type p_1 from picture within w_sys_begin
end type
end forward

global type w_sys_begin from w_publ_base
integer x = 379
integer y = 288
integer width = 2235
integer height = 1092
boolean titlebar = false
string title = ""
boolean controlmenu = false
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
event connectdb pbm_custom01
p_1 p_1
end type
global w_sys_begin w_sys_begin

event connectdb;environment    lenv_env
If ( GetEnvironment(lenv_env) <> 1 ) THEN
	MessageBox( "Application: Open", &
		"Unable to get environment information.~nHalting ..." )
	HALT
END IF


CHOOSE CASE lenv_env.OSType
	CASE windows!, windowsnt!
		
	CASE ELSE
		MessageBox( "Application: Open", &
			"Unrecognized operating system.~nHalting ..." )
		HALT
END CHOOSE


IF sys_if_network = 0 THEN

	sqlca.DBMS       = "SNC SQL Native Client(OLE DB)"
	sqlca.Database   = sys_Database
	sqlca.UserID     = sys_userid //ProfileString (sys_inifilename, "database", "userid",     "")
	sqlca.DBPass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
	sqlca.LogID      = ProfileString (sys_inifilename, "database", "logid",      "")
	sqlca.LogPass    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
	sqlca.ServerName = ProfileString (sys_inifilename, "database", "servername", "")
	sqlca.Lock = "RU"
	sqlca.AutoCommit = False
	
	sqlca.DBParm   =   "Database= '" + sys_Database + "',PBTrimCharColumns='YES',CommitOnDisconnect='No'"
	
ELSE

	sqlca.DBMS       = "SNC SQL Native Client(OLE DB)"
	sqlca.Database   = sys_Database
	sqlca.UserID     = sys_userid
	sqlca.DBPass     = f_psw_bczh(sys_dbpass,1,sys_power_key)
	sqlca.LogID      = sys_LoginID
	sqlca.LogPass    = f_psw_bczh(sys_LoginPwd,1,sys_power_key)
	sqlca.ServerName = sys_ServerName
	sqlca.Lock = "RU"
	sqlca.AutoCommit = False
	
	sqlca.DBParm   =   "Database= '" + sys_Database + "',PBTrimCharColumns='YES',CommitOnDisconnect='No'"
END IF

sys_pblname = 'ljpb_' + sys_DataBase  + '.pbl' 


IF sqlca.Database = '' OR sqlca.ServerName = '' THEN 
	IF sys_if_network = 0  THEN
		MessageBox("系统提示","连接帐套失败!数据库或服务器设置为空")
		OpenWithParm(w_set_sqlca_ecl,'01')
	ELSE
		MessageBox("系统提示","连接帐套失败!数据库或服务器设置为空")
		//OpenWithParm(w_set_sqlca_response,1) //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
	END IF 
	HALT
END IF

CONNECT USING sqlca;

IF sqlca.SQLCode < 0 THEN
	IF sys_if_network = 0  THEN
		MessageBox("系统提示","连接数据库失败!~r~n"+sqlca.sqlerrtext)
		OpenWithParm(w_set_sqlca_ecl,'01')
	ELSE
		MessageBox("系统提示","连接帐套失败!~r~n"+sqlca.sqlerrtext)
		//OpenWithParm(w_set_sqlca_response,1) //0 只设连接信息  1 并允许自动新建数据库（启动首次调用）
	END IF
	HALT
END IF

String strkey
strkey = 'I~'m LongJoe'
EXECUTE Immediate :strkey  USING sqlca; // 验证语句


EXECUTE IMMEDIATE "set transaction isolation level READ UNCOMMITTED";
EXECUTE IMMEDIATE  'SET   DEADLOCK_PRIORITY   low'  ;

//IF sqlca.SQLCode <> 0 THEN
//	MessageBox("系统提示","设置SQL服务器系统属性失败!"+sqlca.SQLErrText)
//	HALT;
//END IF
	

Close(THIS)

end event

on w_sys_begin.create
int iCurrent
call super::create
this.p_1=create p_1
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.p_1
end on

on w_sys_begin.destroy
call super::destroy
destroy(this.p_1)
end on

event timer;CLOSE(THIS)
end event

event clicked;close(w_sys_begin)
end event

event key;CLOSE(THIS)
end event

event open;call super::open;THIS.Title = '正在连接数据库......'
THIS.PostEvent('connectdb')





end event

event ue_before_open;//p_1.PictureName=sys_flashbmpname //开始窗口的图片名称
//this.height=p_1.height
//this.width=p_1.width
end event

type cb_func from w_publ_base`cb_func within w_sys_begin
boolean visible = false
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_sys_begin
boolean visible = false
boolean enabled = false
end type

type p_1 from picture within w_sys_begin
integer width = 2235
integer height = 1088
boolean bringtotop = true
string pointer = "Select.cur"
boolean originalsize = true
string picturename = "graphics\connect_q6.bmp"
boolean focusrectangle = false
end type

event clicked;close(w_sys_begin)
end event