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

$PBExportHeader$w_set_sqlca.srw
$PBExportComments$数据库连接窗口
forward
global type w_set_sqlca from w_publ_base
end type
type cb_ok from uo_imflatbutton within w_set_sqlca
end type
type sle_logpass from singlelineedit within w_set_sqlca
end type
type sle_logid from singlelineedit within w_set_sqlca
end type
type sle_server from singlelineedit within w_set_sqlca
end type
type sle_database from singlelineedit within w_set_sqlca
end type
type sle_dbpass from singlelineedit within w_set_sqlca
end type
type sle_userid from singlelineedit within w_set_sqlca
end type
type sle_dbparm from singlelineedit within w_set_sqlca
end type
type st_9 from statictext within w_set_sqlca
end type
type st_6 from statictext within w_set_sqlca
end type
type st_5 from statictext within w_set_sqlca
end type
type st_4 from statictext within w_set_sqlca
end type
type st_3 from statictext within w_set_sqlca
end type
type st_2 from statictext within w_set_sqlca
end type
type st_00 from statictext within w_set_sqlca
end type
type st_7 from statictext within w_set_sqlca
end type
type cb_ch2 from commandbutton within w_set_sqlca
end type
type sle_filename from singlelineedit within w_set_sqlca
end type
type cbx_addnewdatabase from checkbox within w_set_sqlca
end type
type rb_server from radiobutton within w_set_sqlca
end type
type rb_2 from radiobutton within w_set_sqlca
end type
type sle_dbms from dropdownlistbox within w_set_sqlca
end type
type st_8 from statictext within w_set_sqlca
end type
type sle_sqldb_mdf from singlelineedit within w_set_sqlca
end type
type sle_sqldb_ldf from singlelineedit within w_set_sqlca
end type
type st_91 from statictext within w_set_sqlca
end type
type st_912 from statictext within w_set_sqlca
end type
type cb_sqldb_mdf from commandbutton within w_set_sqlca
end type
type cb_sqldb_ldf from commandbutton within w_set_sqlca
end type
type gb_1 from groupbox within w_set_sqlca
end type
type st_193 from statictext within w_set_sqlca
end type
type st_2334 from statictext within w_set_sqlca
end type
type st_345 from statictext within w_set_sqlca
end type
type sle_sqldb_mdf_sor from singlelineedit within w_set_sqlca
end type
type sle_sqldb_ldf_sor from singlelineedit within w_set_sqlca
end type
type cbx_db_h from checkbox within w_set_sqlca
end type
type gb_3 from groupbox within w_set_sqlca
end type
type st_jd from statictext within w_set_sqlca
end type
type st_1 from statictext within w_set_sqlca
end type
type sle_bookname from singlelineedit within w_set_sqlca
end type
end forward

global type w_set_sqlca from w_publ_base
integer x = 283
integer y = 12
integer width = 2331
integer height = 1580
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
cb_ch2 cb_ch2
sle_filename sle_filename
cbx_addnewdatabase cbx_addnewdatabase
rb_server rb_server
rb_2 rb_2
sle_dbms sle_dbms
st_8 st_8
sle_sqldb_mdf sle_sqldb_mdf
sle_sqldb_ldf sle_sqldb_ldf
st_91 st_91
st_912 st_912
cb_sqldb_mdf cb_sqldb_mdf
cb_sqldb_ldf cb_sqldb_ldf
gb_1 gb_1
st_193 st_193
st_2334 st_2334
st_345 st_345
sle_sqldb_mdf_sor sle_sqldb_mdf_sor
sle_sqldb_ldf_sor sle_sqldb_ldf_sor
cbx_db_h cbx_db_h
gb_3 gb_3
st_jd st_jd
st_1 st_1
sle_bookname sle_bookname
end type
global w_set_sqlca w_set_sqlca

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
INT ARROWADDNEW
string ls_bat_filename='_ls_cmd_run.bat'
string ls_txt_filename='_ls_cmd_rslt.txt'
string masterpath
end variables

forward prototypes
public function integer wf_autobuiltmdflogname ()
public function integer wf_buildsqldb ()
public function integer wf_findisql ()
public subroutine wf_face_change ()
end prototypes

public function integer wf_autobuiltmdflogname ();//wf_autobuiltmdflogname

sle_sqldb_ldf.text=masterpath+sle_database.text+'_log.ldf'
sle_sqldb_mdf.text=masterpath+sle_database.text+'_data.MDF'
return 1
end function

public function integer wf_buildsqldb ();//wf_buildsqldb

Integer li_FileNum,rslt = 1
String comm,msg
Long i,j,lu_return

comm = ' create DATABASE '+sle_database.Text+&
	" on(name='"+sle_sqldb_mdf_sor.Text+"',FILENAME= '"+sle_sqldb_mdf.Text+"') log on (name='"+sle_sqldb_ldf_sor.Text+"',FILENAME= '"+sle_sqldb_ldf.Text+"')"


//sqlca.DBMS       = ProfileString (sys_inifilename, "database", "dbms",       "")
sqlca.Database   = 'master'
//sqlca.userid     = ProfileString (sys_inifilename, "database", "userid",     "")
//sqlca.dbpass     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
sqlca.LogID      = sle_logid.Text
sqlca.LogPass    = sle_logpass.Text
sqlca.ServerName =  sle_server.Text
//sqlca.dbparm     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)

IF sqlca.Database = '' Or sqlca.ServerName = '' THEN
	MessageBox("系统提示","连接数据管理库失败!")
	RETURN 0
END IF

CONNECT Using sqlca;
sqlca.AutoCommit = True
st_jd.Text = '正在新建数据库...'
EXECUTE Immediate :comm Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	msg = '建立失败,请手动建立及恢复数据库>'+sqlca.SQLErrText
	ROLLBACK;
	MessageBox('系统提示',msg)
	rslt = 0
	GOTO ext
ELSE
	rslt = 1
	COMMIT;
END IF


st_jd.Text = '正在恢复数据库...'

comm = 'RESTORE DATABASE '+sle_database.Text+" from DISK= '"+sle_filename.Text+"'"+&
	" WITH MOVE '"+sle_sqldb_mdf_sor.Text+"' TO '"+sle_sqldb_mdf.Text+"',"+&
	" MOVE '"+sle_sqldb_ldf_sor.Text+"' TO '"+sle_sqldb_ldf.Text+"',"+'REPLACE'

EXECUTE Immediate :comm Using sqlca;
IF sqlca.SQLCode <> 0 THEN
	msg = '恢复失败,请手动恢复数据库>'+sqlca.SQLErrText
	ROLLBACK;
	MessageBox('系统提示',msg)
	rslt = 0
ELSE
	rslt = 1
	COMMIT;
END IF

ext:

RETURN rslt

end function

public function integer wf_findisql ();//wf_findisql


	IF FILEEXISTs('c:\mssql7\data\master.mdf') then
		masterpath='c:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('c:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='c:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF fileexists('c:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath="c:\Program Files\Microsoft SQL Server\MSSQL\data\"
		goto ext
	end if	
	
	IF FILEEXISTs('d:\mssql7\data\master.mdf') then
		masterpath='d:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('d:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='d:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF FILEEXISTs('d:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath='d:\Program Files\Microsoft SQL Server\MSSQL\data\'
		goto ext
	end if	
	
	IF FILEEXISTs('e:\mssql7\data\master.mdf') then
		masterpath='e:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('e:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='e:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF FILEEXISTs('e:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath='e:\Program Files\Microsoft SQL Server\MSSQL\data\'
		goto ext
	end if	

	IF FILEEXISTs('f:\mssql7\data\master.mdf') then
		masterpath='f:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('f:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='f:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF FILEEXISTs('f:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath='f:\Program Files\Microsoft SQL Server\MSSQL\data\'
		goto ext
	end if	

	IF FILEEXISTs('g:\mssql7\data\master.mdf') then
		masterpath='g:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('g:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='g:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF FILEEXISTs('g:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath='g:\Program Files\Microsoft SQL Server\MSSQL\data\'
		goto ext
	end if	

	IF FILEEXISTs('h:\mssql7\data\master.mdf') then
		masterpath='h:\mssql7\data\'
		goto ext
	end if
	IF FILEEXISTs('h:\Program Files\Microsoft SQL Server\80\data\master.mdf') then
		masterpath='h:\Program Files\Microsoft SQL Server\data\'
		goto ext
	end if

	IF FILEEXISTs('h:\Program Files\Microsoft SQL Server\MSSQL\data\master.mdf') then
		masterpath='h:\Program Files\Microsoft SQL Server\MSSQL\data\'
		goto ext
	end if	
	
ext:
if masterpath='' then masterpath="c:\Program Files\Microsoft SQL Server\MSSQL\data\"
wf_autobuiltmdflogname()

return  0


end function

public subroutine wf_face_change ();IF ARROWADDNEW = 0 THEN
	This.Height = 740
//	sle_filename.Enabled = False
//	cb_ch2.Enabled = False
//	sle_sqldb_mdf.Enabled = False
//	cb_sqldb_mdf.Enabled = False
//	sle_sqldb_ldf.Enabled = False
//	cb_sqldb_ldf.Enabled = False
//	
//	cbx_db_h.Enabled = False
//	
	st_193.Visible = False
	rb_server.Visible = False
	rb_2.Visible = False
	cbx_addnewdatabase.Visible = False
	
	cb_ok.Y = 496
	cb_exit.Y = 496
	
	RETURN
END IF

IF cbx_addnewdatabase.Checked THEN //新建数据库
	sle_userid.Text = 'SA'
	sle_dbpass.Text = ''
	
	This.Height = 1600
	
	gb_1.visible = true
	st_8.visible = true
	sle_filename.visible = true
	cb_ch2.visible = true
	
	gb_1.visible = true
	st_8.visible = true
	sle_filename.visible = true
	cb_ch2.visible = true
	st_91.visible = true
	sle_sqldb_mdf.visible = true
	cb_sqldb_mdf.visible = true
	st_912.visible = true
	sle_sqldb_ldf.visible = true
	cb_sqldb_ldf.visible = true
	
//	gb_1.Y = 620
//	st_8.Y = 708
//	sle_filename.Y = 692
//	cb_ch2.Y = 692
//	st_91.Y = 800
//	sle_sqldb_mdf.Y = 784
//	cb_sqldb_mdf.Y = 784
//	st_912.Y = 892
//	sle_sqldb_ldf.Y = 876
//	cb_sqldb_ldf.Y = 876
//	
//	cbx_db_h.Y = 988
//	gb_3.Y = 988
//	st_2334.Y = 1060
//	sle_sqldb_mdf_sor.Y = 1044
//	st_345.Y = 1152
//	sle_sqldb_ldf_sor.Y = 1136
	
	cb_ok.Y = 1360
	cb_exit.Y = 1360
ELSE
	This.Height = 860
	
	gb_1.visible = False
	st_8.visible = False
	sle_filename.visible = False
	cb_ch2.visible = False
//	st_91.visible = False
//	sle_sqldb_mdf.visible = False
//	cb_sqldb_mdf.visible = False
//	sle_sqldb_ldf.visible = False
//	cb_sqldb_ldf.visible = False
	
	cbx_db_h.Enabled = true
	st_193.Visible = true
	rb_server.Visible = true
	rb_2.Visible = true
	cbx_addnewdatabase.Visible = true
	
	cb_ok.Y = 616
	cb_exit.Y = 616
END IF

cbx_db_h.PostEvent(Clicked!)





end subroutine

event open;call super::open;// Open script for W_SET_SQLCA
ARROWADDNEW = Message.DoubleParm
IF ARROWADDNEW = 0 THEN
	cbx_addnewdatabase.Enabled = False
END IF


sle_dbms.Text     = ProfileString (sys_inifilename, "database", "dbms", "")
sle_database.Text   = sys_Database
sle_userid.Text     = ProfileString (sys_inifilename, "database", "userid",     "")
sle_dbpass.Text     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbpass",     ""),1,sys_power_key)
sle_logid.Text	      = ProfileString (sys_inifilename, "database", "logid",      "")
sle_logpass.Text    = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)
sle_server.Text = ProfileString (sys_inifilename, "database", "servername", "")
sle_dbparm.Text     = f_psw_bczh(ProfileString (sys_inifilename, "database", "dbparm",     ""),1,sys_power_key)
sle_bookname.Text     = sys_bookname


sle_sqldb_mdf_sor.Text = ProfileString (sys_inifilename, "database", "sqldb_mdf_sor", '')
sle_sqldb_ldf_sor.Text = ProfileString (sys_inifilename, "database", "sqldb_ldf_sor",'' )

IF Trim(ProfileString(sys_inifilename,'SERVER','SERVER','')) = '' THEN
	rb_2.Checked = True //客户机模式
ELSE
	rb_server.Checked = True //服务器模式
END IF

rb_server.PostEvent(Clicked!)
cbx_addnewdatabase.TriggerEvent(Clicked!)
wf_findisql()



end event

on w_set_sqlca.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.cb_ch2=create cb_ch2
this.sle_filename=create sle_filename
this.cbx_addnewdatabase=create cbx_addnewdatabase
this.rb_server=create rb_server
this.rb_2=create rb_2
this.sle_dbms=create sle_dbms
this.st_8=create st_8
this.sle_sqldb_mdf=create sle_sqldb_mdf
this.sle_sqldb_ldf=create sle_sqldb_ldf
this.st_91=create st_91
this.st_912=create st_912
this.cb_sqldb_mdf=create cb_sqldb_mdf
this.cb_sqldb_ldf=create cb_sqldb_ldf
this.gb_1=create gb_1
this.st_193=create st_193
this.st_2334=create st_2334
this.st_345=create st_345
this.sle_sqldb_mdf_sor=create sle_sqldb_mdf_sor
this.sle_sqldb_ldf_sor=create sle_sqldb_ldf_sor
this.cbx_db_h=create cbx_db_h
this.gb_3=create gb_3
this.st_jd=create st_jd
this.st_1=create st_1
this.sle_bookname=create sle_bookname
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.cb_ch2
this.Control[iCurrent+18]=this.sle_filename
this.Control[iCurrent+19]=this.cbx_addnewdatabase
this.Control[iCurrent+20]=this.rb_server
this.Control[iCurrent+21]=this.rb_2
this.Control[iCurrent+22]=this.sle_dbms
this.Control[iCurrent+23]=this.st_8
this.Control[iCurrent+24]=this.sle_sqldb_mdf
this.Control[iCurrent+25]=this.sle_sqldb_ldf
this.Control[iCurrent+26]=this.st_91
this.Control[iCurrent+27]=this.st_912
this.Control[iCurrent+28]=this.cb_sqldb_mdf
this.Control[iCurrent+29]=this.cb_sqldb_ldf
this.Control[iCurrent+30]=this.gb_1
this.Control[iCurrent+31]=this.st_193
this.Control[iCurrent+32]=this.st_2334
this.Control[iCurrent+33]=this.st_345
this.Control[iCurrent+34]=this.sle_sqldb_mdf_sor
this.Control[iCurrent+35]=this.sle_sqldb_ldf_sor
this.Control[iCurrent+36]=this.cbx_db_h
this.Control[iCurrent+37]=this.gb_3
this.Control[iCurrent+38]=this.st_jd
this.Control[iCurrent+39]=this.st_1
this.Control[iCurrent+40]=this.sle_bookname
end on

on w_set_sqlca.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.cb_ch2)
destroy(this.sle_filename)
destroy(this.cbx_addnewdatabase)
destroy(this.rb_server)
destroy(this.rb_2)
destroy(this.sle_dbms)
destroy(this.st_8)
destroy(this.sle_sqldb_mdf)
destroy(this.sle_sqldb_ldf)
destroy(this.st_91)
destroy(this.st_912)
destroy(this.cb_sqldb_mdf)
destroy(this.cb_sqldb_ldf)
destroy(this.gb_1)
destroy(this.st_193)
destroy(this.st_2334)
destroy(this.st_345)
destroy(this.sle_sqldb_mdf_sor)
destroy(this.sle_sqldb_ldf_sor)
destroy(this.cbx_db_h)
destroy(this.gb_3)
destroy(this.st_jd)
destroy(this.st_1)
destroy(this.sle_bookname)
end on

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

type cb_exit from w_publ_base`cb_exit within w_set_sqlca
integer x = 1344
integer y = 1360
integer width = 315
integer taborder = 200
string text = "取消"
end type

type cb_ok from uo_imflatbutton within w_set_sqlca
integer x = 704
integer y = 1360
integer width = 315
integer height = 96
integer taborder = 190
end type

event clicked;call super::clicked;IF rb_server.Checked THEN
	SetProfileString(sys_inifilename,'SERVER','SERVER','服务器模式')
ELSE
	SetProfileString(sys_inifilename,'SERVER','SERVER',' ')
END IF


String ls_str
ls_str = ProfileString(sys_inifilename,'SERVER','SERVER','')


IF cbx_addnewdatabase.Checked THEN
	
	IF NOT FileExists(sle_filename.Text) THEN
		MessageBox("操作错误","指定恢复数据文件不存在",stopsign!)
		RETURN
	END IF
	//	if messagebox("警告!","如果数据库已经存在,此操作可能将使当前数据库被覆盖,是否进行操作？",exclamation!,OKCancel!,2)=2 then
	//		RETURN
	//	end if
	IF Trim(sle_sqldb_mdf.Text) = '' OR Trim(sle_sqldb_ldf.Text) = '' THEN
		wf_autobuiltmdflogname()
	ELSE
		IF Pos(sle_sqldb_mdf.Text,':') = 0 OR Lower(Right(sle_sqldb_mdf.Text,4)) <> '.mdf' THEN
			MessageBox('','目标数据库文件名称错误!')
			RETURN
		END IF
		IF Pos(sle_sqldb_ldf.Text,':') = 0 OR Lower(Right(sle_sqldb_ldf.Text,4)) <> '.ldf' THEN
			MessageBox('','目标日志文件名称错误!')
			RETURN
		END IF
	END IF
END IF

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

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

//sys_bookno
string  ls_ini_book
ls_ini_book = f_psw_bczh(ProfileString (sys_inifilename_other,'sys_dl_book', String(sys_bookno), ''),1,sys_power_key)
ls_ini_book = Replace(ls_ini_book,pos(ls_ini_book,sys_database),len(sys_database),sle_database.Text)	
SetProfileString(sys_inifilename_other,'sys_dl_book', String(sys_bookno), f_psw_bczh(ls_ini_book,0,sys_power_key))

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

IF cbx_addnewdatabase.Checked THEN
	IF cbx_db_h.Checked THEN
		SetProfileString (sys_inifilename, "database", "sqldb_mdf_sor", sle_sqldb_mdf_sor.Text)
		SetProfileString (sys_inifilename, "database", "sqldb_ldf_sor", sle_sqldb_ldf_sor.Text)
	END IF
	
	IF wf_buildsqldb() = 0 THEN
		MessageBox("系统提示","生成数据库操作失败!")
		RETURN
	END IF
	
END IF
MessageBox('','设置保存完成!系统必须重起!')
CloseWithReturn (PARENT,1)

Restart()


end event

type sle_logpass from singlelineedit within w_set_sqlca
integer x = 443
integer y = 284
integer width = 1655
integer height = 80
integer taborder = 60
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
integer x = 443
integer y = 196
integer width = 1655
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_server from singlelineedit within w_set_sqlca
integer x = 443
integer y = 108
integer width = 1655
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 autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type sle_database from singlelineedit within w_set_sqlca
integer x = 443
integer y = 372
integer width = 1655
integer height = 80
integer taborder = 80
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

event modified;wf_autobuiltmdflogname()
end event

type sle_dbpass from singlelineedit within w_set_sqlca
boolean visible = false
integer x = 443
integer y = 204
integer width = 1422
integer height = 80
integer taborder = 70
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
boolean visible = false
integer x = 443
integer y = 116
integer width = 1422
integer height = 80
integer taborder = 30
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
boolean visible = false
integer x = 443
integer y = 644
integer width = 1422
integer height = 80
integer taborder = 210
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
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
integer x = 18
integer y = 284
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
integer x = 18
integer y = 200
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 = "登录 ID:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within w_set_sqlca
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
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
integer x = 18
integer y = 368
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_00 from statictext within w_set_sqlca
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
integer x = 18
integer y = 116
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 cb_ch2 from commandbutton within w_set_sqlca
integer x = 2112
integer y = 692
integer width = 114
integer height = 84
integer taborder = 110
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;
integer i
string pathname,filename
i=getfilesavename("选择备份文件",pathname,filename,"Dat","数据文件Dat,*.Dat")
IF i=1 AND TRIM(pathname)<>'' AND TRIM(FILENAME)<>"" THEN
 sle_filename.text=pathname
END IF


end event

type sle_filename from singlelineedit within w_set_sqlca
integer x = 457
integer y = 692
integer width = 1655
integer height = 80
integer taborder = 100
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cbx_addnewdatabase from checkbox within w_set_sqlca
integer x = 1353
integer y = 496
integer width = 503
integer height = 72
integer taborder = 90
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
boolean enabled = false
string text = "自动新建数据库"
end type

event clicked;wf_face_change()
//IF This.Checked THEN //新建数据库
//	sle_userid.Text = 'SA'
//	sle_dbpass.Text = ''
//	
//	Parent.Height = 1600
//	sle_filename.Enabled = True
//	cb_ch2.Enabled = True
//	sle_sqldb_mdf.Enabled = True
//	cb_sqldb_mdf.Enabled = True
//	sle_sqldb_ldf.Enabled = True
//	cb_sqldb_ldf.Enabled = True
//	
//	cbx_db_h.Enabled = True
//	
//	st_193.Visible = True
//	rb_server.Visible = True
//	rb_2.Visible = True
//	cbx_addnewdatabase.Visible = True
//	
//	cb_ok.Y = 1360
//	cb_exit.Y = 1360
//ELSE
//	Parent.Height = 740
//	sle_filename.Enabled = False
//	cb_ch2.Enabled = False
//	sle_sqldb_mdf.Enabled = False
//	cb_sqldb_mdf.Enabled = False
//	sle_sqldb_ldf.Enabled = False
//	cb_sqldb_ldf.Enabled = False
//	
//	cbx_db_h.Enabled = False
//	
//	st_193.Visible = False
//	rb_server.Visible = False
//	rb_2.Visible = False
//	cbx_addnewdatabase.Visible = False
//	
//	cb_ok.Y = 496
//	cb_exit.Y = 496
//END IF
//
//cbx_db_h.PostEvent(Clicked!)
//
//
end event

type rb_server from radiobutton within w_set_sqlca
integer x = 457
integer y = 496
integer width = 357
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "服务器模式"
end type

event clicked;
sle_dbms.triggerevent(selectionchanged!)
end event

type rb_2 from radiobutton within w_set_sqlca
integer x = 850
integer y = 496
integer width = 357
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "客户机模式"
end type

event clicked;
sle_dbms.postevent(selectionchanged!)

end event

type sle_dbms from dropdownlistbox within w_set_sqlca
boolean visible = false
integer x = 443
integer y = 28
integer width = 1422
integer height = 156
integer taborder = 240
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 selectionchanged;cbx_addnewdatabase.Enabled = (ARROWADDNEW <> 0 And rb_server.Checked And sle_dbms.Text = 'MSS Microsoft SQL Server 6.x')
IF Not rb_server.Checked THEN cbx_addnewdatabase.Checked = False
IF Not cbx_addnewdatabase.Checked THEN cbx_addnewdatabase.TriggerEvent(Clicked!)
wf_findisql()

end event

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

type st_8 from statictext within w_set_sqlca
integer x = 87
integer y = 708
integer width = 370
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "空数据库来自:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_sqldb_mdf from singlelineedit within w_set_sqlca
integer x = 457
integer y = 784
integer width = 1655
integer height = 80
integer taborder = 120
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_sqldb_ldf from singlelineedit within w_set_sqlca
integer x = 457
integer y = 876
integer width = 1655
integer height = 80
integer taborder = 140
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_91 from statictext within w_set_sqlca
integer x = 87
integer y = 800
integer width = 370
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "目标数据文件:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_912 from statictext within w_set_sqlca
integer x = 87
integer y = 892
integer width = 370
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "目标日志文件:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_sqldb_mdf from commandbutton within w_set_sqlca
integer x = 2112
integer y = 784
integer width = 114
integer height = 84
integer taborder = 130
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;integer i
string pathname,filename
i=getfilesavename("数据文件及路径",pathname,filename,"MDF","MDF,*.MDF")
IF i=1 AND TRIM(pathname)<>'' AND TRIM(FILENAME)<>""  THEN
	IF RIGHT(LOWER(pathname),4)<>'.mdf' THEN
		MESSAGEBOX('','请输入MDF文件!')
		return
	END IF
 sle_sqldb_mdf.text=pathname
END IF

end event

type cb_sqldb_ldf from commandbutton within w_set_sqlca
integer x = 2112
integer y = 876
integer width = 114
integer height = 84
integer taborder = 150
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;integer i
string pathname,filename
i=getfilesavename("数据日志文件及路径",pathname,filename,"ldf","MS SQL Server日志ldf,*.ldf")
IF i=1 AND TRIM(pathname)<>'' AND TRIM(FILENAME)<>""  THEN
	IF RIGHT(LOWER(pathname),4)<>'.ldf' THEN
		MESSAGEBOX('','请输入ldf文件!')
		return
	END IF
 sle_sqldb_ldf.text=pathname
END IF

end event

type gb_1 from groupbox within w_set_sqlca
integer x = 64
integer y = 620
integer width = 2194
integer height = 364
integer taborder = 230
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "自动新建数据库"
end type

type st_193 from statictext within w_set_sqlca
integer x = 142
integer y = 508
integer width = 293
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 41943040
long backcolor = 134217739
boolean enabled = false
string text = "工作模式:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_2334 from statictext within w_set_sqlca
integer x = 87
integer y = 1060
integer width = 370
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "源数据名称:"
alignment alignment = right!
boolean focusrectangle = false
end type

type st_345 from statictext within w_set_sqlca
integer x = 87
integer y = 1152
integer width = 370
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "源日志名称:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_sqldb_mdf_sor from singlelineedit within w_set_sqlca
integer x = 457
integer y = 1044
integer width = 1655
integer height = 80
integer taborder = 170
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type sle_sqldb_ldf_sor from singlelineedit within w_set_sqlca
integer x = 457
integer y = 1136
integer width = 1655
integer height = 80
integer taborder = 180
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean enabled = false
borderstyle borderstyle = stylelowered!
end type

type cbx_db_h from checkbox within w_set_sqlca
integer x = 101
integer y = 988
integer width = 201
integer height = 60
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "高级"
end type

event clicked;sle_sqldb_mdf_sor.enabled=this.checked
sle_sqldb_ldf_sor.enabled=this.checked
end event

type gb_3 from groupbox within w_set_sqlca
integer x = 64
integer y = 988
integer width = 2194
integer height = 268
integer taborder = 220
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
end type

type st_jd from statictext within w_set_sqlca
integer x = 50
integer y = 1280
integer width = 2226
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 134217739
boolean enabled = false
alignment alignment = right!
boolean focusrectangle = false
end type

type st_1 from statictext within w_set_sqlca
integer x = 18
integer y = 32
integer width = 407
integer height = 60
boolean bringtotop = true
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_bookname from singlelineedit within w_set_sqlca
integer x = 443
integer y = 20
integer width = 1655
integer height = 80
integer taborder = 10
boolean bringtotop = true
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
borderstyle borderstyle = stylelowered!
end type

event modified;wf_autobuiltmdflogname()
end event