FXApp/ws_objects/plugins_publ.pbl.src/w_set_sqlca_fj.srw

$PBExportHeader$w_set_sqlca_fj.srw
$PBExportComments$数据库连接窗口
forward
global type w_set_sqlca_fj from w_publ_base
end type
type cb_ok from uo_imflatbutton within w_set_sqlca_fj
end type
type sle_logpass from singlelineedit within w_set_sqlca_fj
end type
type sle_logid from singlelineedit within w_set_sqlca_fj
end type
type sle_server from singlelineedit within w_set_sqlca_fj
end type
type sle_database from singlelineedit within w_set_sqlca_fj
end type
type sle_dbpass from singlelineedit within w_set_sqlca_fj
end type
type sle_userid from singlelineedit within w_set_sqlca_fj
end type
type sle_dbparm from singlelineedit within w_set_sqlca_fj
end type
type st_9 from statictext within w_set_sqlca_fj
end type
type st_6 from statictext within w_set_sqlca_fj
end type
type st_5 from statictext within w_set_sqlca_fj
end type
type st_4 from statictext within w_set_sqlca_fj
end type
type st_3 from statictext within w_set_sqlca_fj
end type
type st_2 from statictext within w_set_sqlca_fj
end type
type st_00 from statictext within w_set_sqlca_fj
end type
type st_7 from statictext within w_set_sqlca_fj
end type
type sle_dbms from dropdownlistbox within w_set_sqlca_fj
end type
end forward

global type w_set_sqlca_fj from w_publ_base
integer x = 283
integer y = 12
integer width = 2331
integer height = 492
string title = "附件数据库连接设置"
boolean minbox = false
windowtype windowtype = response!
cb_ok cb_ok
sle_logpass sle_logpass
sle_logid sle_logid
sle_server sle_server
sle_database sle_database
sle_dbpass sle_dbpass
sle_userid sle_userid
sle_dbparm sle_dbparm
st_9 st_9
st_6 st_6
st_5 st_5
st_4 st_4
st_3 st_3
st_2 st_2
st_00 st_00
st_7 st_7
sle_dbms sle_dbms
end type
global w_set_sqlca_fj w_set_sqlca_fj

type prototypes
Subroutine Sleep(ulong dwMilliseconds) LIBRARY "kernel32.dll"
Function long ShellExecuteA (long hwnd, string lpOperation ,String lpFile, String lpParameters, String lpDirectory, Long nShowCmd) Library "shell32.dll" alias for "ShellExecuteA;Ansi" 
end prototypes

type variables

end variables

event open;call super::open;// Open script for W_SET_SQLCA
sle_dbms.Text = sys_fileDB_sqlca.DBMS
sle_database.Text = sys_fileDB_sqlca.database
sle_userid.Text	= sys_fileDB_sqlca.userid
sle_dbpass.Text	= sys_fileDB_sqlca.dbpass
sle_logid.Text		= sys_fileDB_sqlca.logid
sle_logpass.Text	= sys_fileDB_sqlca.logpass
sle_server.Text	= sys_fileDB_sqlca.servername	
sle_dbparm.Text	= sys_fileDB_sqlca.dbparm


end event

on w_set_sqlca_fj.create
int iCurrent
call super::create
this.cb_ok=create cb_ok
this.sle_logpass=create sle_logpass
this.sle_logid=create sle_logid
this.sle_server=create sle_server
this.sle_database=create sle_database
this.sle_dbpass=create sle_dbpass
this.sle_userid=create sle_userid
this.sle_dbparm=create sle_dbparm
this.st_9=create st_9
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.st_00=create st_00
this.st_7=create st_7
this.sle_dbms=create sle_dbms
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ok
this.Control[iCurrent+2]=this.sle_logpass
this.Control[iCurrent+3]=this.sle_logid
this.Control[iCurrent+4]=this.sle_server
this.Control[iCurrent+5]=this.sle_database
this.Control[iCurrent+6]=this.sle_dbpass
this.Control[iCurrent+7]=this.sle_userid
this.Control[iCurrent+8]=this.sle_dbparm
this.Control[iCurrent+9]=this.st_9
this.Control[iCurrent+10]=this.st_6
this.Control[iCurrent+11]=this.st_5
this.Control[iCurrent+12]=this.st_4
this.Control[iCurrent+13]=this.st_3
this.Control[iCurrent+14]=this.st_2
this.Control[iCurrent+15]=this.st_00
this.Control[iCurrent+16]=this.st_7
this.Control[iCurrent+17]=this.sle_dbms
end on

on w_set_sqlca_fj.destroy
call super::destroy
destroy(this.cb_ok)
destroy(this.sle_logpass)
destroy(this.sle_logid)
destroy(this.sle_server)
destroy(this.sle_database)
destroy(this.sle_dbpass)
destroy(this.sle_userid)
destroy(this.sle_dbparm)
destroy(this.st_9)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.st_00)
destroy(this.st_7)
destroy(this.sle_dbms)
end on

type cb_func from w_publ_base`cb_func within w_set_sqlca_fj
boolean visible = false
integer x = 1934
integer y = 644
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_set_sqlca_fj
integer x = 1938
integer y = 168
integer width = 315
string text = "取消"
end type

type cb_ok from uo_imflatbutton within w_set_sqlca_fj
integer x = 1938
integer y = 48
integer width = 315
integer height = 96
integer taborder = 60
end type

event clicked;call super::clicked;IF Trim(sle_database.Text) = '' THEN
	MessageBox('系统提示','请输入database!')
	RETURN
END IF

IF Trim(sle_server.Text) = '' THEN
	MessageBox('系统提示','请输入server name!')
	RETURN
END IF


SetProfileString (sys_inifilename, "fjdatabase", "dbms",       sle_dbms.Text)
SetProfileString (sys_inifilename, "fjdatabase", "database",   sle_database.Text)
SetProfileString (sys_inifilename, "fjdatabase", "userid",     sle_userid.Text)
SetProfileString (sys_inifilename, "fjdatabase", "dbpass",     f_psw_bczh(sle_dbpass.Text,0,sys_power_key))
SetProfileString (sys_inifilename, "fjdatabase", "logid",      sle_logid.Text)
SetProfileString (sys_inifilename, "fjdatabase", "LogPassWord", f_psw_bczh(sle_logpass.Text,0,sys_power_key))
SetProfileString (sys_inifilename, "fjdatabase", "servername", sle_server.Text)
SetProfileString (sys_inifilename, "fjdatabase", "dbparm",     f_psw_bczh(sle_dbparm.Text,0,sys_power_key))

MessageBox('','设置保存完成!系统必须重起!')
CloseWithReturn (PARENT,1)

Restart()


end event

type sle_logpass from singlelineedit within w_set_sqlca_fj
integer x = 443
integer y = 288
integer width = 1422
integer height = 80
integer taborder = 140
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean autohscroll = false
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type sle_logid from singlelineedit within w_set_sqlca_fj
integer x = 443
integer y = 200
integer width = 1422
integer height = 80
integer taborder = 130
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_server from singlelineedit within w_set_sqlca_fj
integer x = 443
integer y = 112
integer width = 1422
integer height = 80
integer taborder = 120
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_database from singlelineedit within w_set_sqlca_fj
integer x = 443
integer y = 24
integer width = 1422
integer height = 80
integer taborder = 50
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_dbpass from singlelineedit within w_set_sqlca_fj
boolean visible = false
integer x = 443
integer y = 204
integer width = 1422
integer height = 80
integer taborder = 20
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean enabled = false
boolean autohscroll = false
boolean password = true
borderstyle borderstyle = stylelowered!
end type

type sle_userid from singlelineedit within w_set_sqlca_fj
boolean visible = false
integer x = 443
integer y = 116
integer width = 1422
integer height = 80
integer taborder = 10
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
boolean enabled = false
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_dbparm from singlelineedit within w_set_sqlca_fj
boolean visible = false
integer x = 443
integer y = 644
integer width = 1422
integer height = 80
integer taborder = 150
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
borderstyle borderstyle = stylelowered!
end type

type st_9 from statictext within w_set_sqlca_fj
boolean visible = false
integer x = 192
integer y = 656
integer width = 233
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 74481808
boolean enabled = false
string text = "DBPARM:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_6 from statictext within w_set_sqlca_fj
integer x = 18
integer y = 296
integer width = 407
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "登录 口令:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_5 from statictext within w_set_sqlca_fj
integer x = 155
integer y = 212
integer width = 270
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "登录 ID:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within w_set_sqlca_fj
boolean visible = false
integer x = 151
integer y = 216
integer width = 274
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "口令:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_3 from statictext within w_set_sqlca_fj
boolean visible = false
integer x = 187
integer y = 128
integer width = 238
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "用户ID:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2 from statictext within w_set_sqlca_fj
integer x = 128
integer y = 36
integer width = 297
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "附件数据库:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_00 from statictext within w_set_sqlca_fj
boolean visible = false
integer x = 82
integer y = 40
integer width = 343
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long backcolor = 134217739
boolean enabled = false
string text = "DBMS:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_7 from statictext within w_set_sqlca_fj
integer x = 64
integer y = 120
integer width = 361
integer height = 60
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "服务器:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_dbms from dropdownlistbox within w_set_sqlca_fj
boolean visible = false
integer x = 443
integer y = 28
integer width = 1422
integer height = 156
integer taborder = 210
boolean bringtotop = true
integer textsize = -8
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 33554432
boolean allowedit = true
boolean sorted = false
boolean vscrollbar = true
string item[] = {"ODBC","MSS Microsoft SQL Server 6.x"}
borderstyle borderstyle = stylelowered!
end type

event modified;sle_dbms.postevent(selectionchanged!)
end event