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

$PBExportHeader$w_set_book.srw
forward
global type w_set_book from w_publ_base
end type
type cb_ok from uo_imflatbutton within w_set_book
end type
type cb_connect from uo_imflatbutton within w_set_book
end type
type st_1 from statictext within w_set_book
end type
type sle_bookname from singlelineedit within w_set_book
end type
type st_2 from statictext within w_set_book
end type
type sle_database from singlelineedit within w_set_book
end type
type st_10 from statictext within w_set_book
end type
type rb_1 from radiobutton within w_set_book
end type
type rb_2 from radiobutton within w_set_book
end type
type cb_1 from commandbutton within w_set_book
end type
type st_11 from statictext within w_set_book
end type
type sle_fjname from singlelineedit within w_set_book
end type
type cb_ch3 from commandbutton within w_set_book
end type
type sle_filename from singlelineedit within w_set_book
end type
type cb_ch2 from commandbutton within w_set_book
end type
type st_13 from statictext within w_set_book
end type
type sle_folder from singlelineedit within w_set_book
end type
type cb_2 from commandbutton within w_set_book
end type
type st_8 from statictext within w_set_book
end type
type cbx_fj from checkbox within w_set_book
end type
type cbx_yj from checkbox within w_set_book
end type
type sle_yjname from singlelineedit within w_set_book
end type
type cb_ch4 from commandbutton within w_set_book
end type
type st_12 from statictext within w_set_book
end type
type ddlb_1 from dropdownlistbox within w_set_book
end type
type cbx_modify from checkbox within w_set_book
end type
type sle_sqldb_mdf_sor from singlelineedit within w_set_book
end type
type sle_sqldb_ldf_sor from singlelineedit within w_set_book
end type
type sle_bookcode from singlelineedit within w_set_book
end type
type gb_3 from groupbox within w_set_book
end type
type gb_1 from groupbox within w_set_book
end type
type gb_2 from groupbox within w_set_book
end type
end forward

global type w_set_book from w_publ_base
integer width = 2263
integer height = 1296
string title = "帐套设置"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
boolean center = true
cb_ok cb_ok
cb_connect cb_connect
st_1 st_1
sle_bookname sle_bookname
st_2 st_2
sle_database sle_database
st_10 st_10
rb_1 rb_1
rb_2 rb_2
cb_1 cb_1
st_11 st_11
sle_fjname sle_fjname
cb_ch3 cb_ch3
sle_filename sle_filename
cb_ch2 cb_ch2
st_13 st_13
sle_folder sle_folder
cb_2 cb_2
st_8 st_8
cbx_fj cbx_fj
cbx_yj cbx_yj
sle_yjname sle_yjname
cb_ch4 cb_ch4
st_12 st_12
ddlb_1 ddlb_1
cbx_modify cbx_modify
sle_sqldb_mdf_sor sle_sqldb_mdf_sor
sle_sqldb_ldf_sor sle_sqldb_ldf_sor
sle_bookcode sle_bookcode
gb_3 gb_3
gb_1 gb_1
gb_2 gb_2
end type
global w_set_book w_set_book

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" 
Function long GetFullPathName (String lpFileName ,Long nBufferLength,ref string lpBuffer,ref long lpFilePart) library "kernel32" ALIAS FOR "GetFullPathNameA;Ansi"
end prototypes

type variables
long ins_bookid = 0

string ins_servername
string ins_logid
string ins_logpass

string masterpath
//string mssqlpath

long ins_rslt = 0
long ins_ifguid = 0
end variables

forward prototypes
public subroutine wf_facechange ()
public function integer wf_buildsqldb (ref string arg_msg)
public function integer wf_chk_database (string arg_databasename, transaction arg_transaction)
public function integer wf_create_database (string arg_folder, string arg_databasename, string arg_filename, string arg_sqldb_mdf_sor, string arg_sqldb_ldf_sor, transaction arg_transaction, boolean arg_ifcommit, ref string arg_msg)
public function integer wf_drop_database (string arg_databasename, transaction arg_transaction, boolean arg_ifcommit, ref string arg_msg)
end prototypes

public subroutine wf_facechange ();IF rb_2.Checked THEN
	cb_1.Text = '︾'
	cb_1.Visible = false
	st_11.Visible = false
ELSE
	cb_1.Visible = true
	st_11.Visible = true
END IF

long ph
ph = 150

IF cb_1.Text = '︽' THEN
	This.Height = 1216 + ph
	
	gb_2.Visible = True
	st_12.Visible = True
	ddlb_1.Visible = True
	cbx_modify.Visible = True
	st_8.Visible = True
	sle_filename.Visible = true
	cb_ch2.Visible = true
	cbx_fj.Visible = true
	sle_fjname.visible = true
	cb_ch3.visible = true
	cbx_yj.visible = true
	sle_yjname.visible = true
	cb_ch4.visible = true
	st_13.visible = true
	sle_folder.visible = true
	cb_2.visible = true
	
	cb_ok.Y = 1084
	cb_exit.Y = 1084
	cb_connect.Y = 1084
ELSE
	This.Height =  596 + ph
	
	gb_2.Visible = false
	st_12.Visible = false
	ddlb_1.Visible = false
	cbx_modify.Visible = false
	st_8.Visible = false
	sle_filename.Visible = false
	cb_ch2.Visible = false
	cbx_fj.Visible = false
	sle_fjname.visible = false
	cb_ch3.visible = false
	cbx_yj.visible = false
	sle_yjname.visible = false
	cb_ch4.visible = false
	st_13.visible = false
	sle_folder.visible = false
	cb_2.visible = false
	
	cb_ok.Y = 472
	cb_exit.Y = 472
	cb_connect.Y = 472
END IF











end subroutine

public function integer wf_buildsqldb (ref string arg_msg);//wf_buildsqldb

Integer li_FileNum,rslt = 1
String comm,msg
Long i,j,lu_return
String ls_test
String ls_dat
String ls_databasename
String ls_filename

Transaction db_Transaction
db_Transaction = Create Transaction

Open(w_sys_wait)
IF Trim(sle_folder.Text) = '' THEN
	arg_msg = '请输入目标文件路径!'
	rslt = 0
	GOTO ext
END IF
Int ll_result
ll_result = createdirectory(sle_folder.Text)
//IF ll_result = -1 THEN
//	arg_msg = '目标文件路径创建失败!'
//	rslt = 0
//	GOTO ext
//END IF


ls_dat = sle_filename.Text
IF Not FileExists ( ls_dat ) THEN
	arg_msg = "主数据库文件不存在!"
	rslt = 0
	GOTO ext
END IF
IF rb_1.Checked THEN
	ls_dat = Trim(sle_fjname.Text)
	IF Not FileExists ( ls_dat ) THEN
		arg_msg = "附件数据库文件不存在!"
		rslt = 0
		GOTO ext
	END IF
END IF
IF cbx_yj.Checked THEN
	ls_dat = Trim(sle_yjname.Text)
	IF Not FileExists ( ls_dat ) THEN
		arg_msg = "邮件数据库文件不存在!"
		rslt = 0
		GOTO ext
	END IF
END IF



w_sys_wait.wf_set_msg("正在尝试新建数据库,此过程预计需要用时1分钟...")


db_Transaction.DBMS       = "SNC SQL Native Client(OLE DB)"
db_Transaction.Database   =  'master'
db_Transaction.UserID     = ins_logid
db_Transaction.DBPass     = ins_logpass
db_Transaction.LogID      = ins_logid
db_Transaction.LogPass    = ins_logpass
db_Transaction.ServerName =  ins_servername
db_Transaction.Lock = "RU"
db_Transaction.AutoCommit = False

db_Transaction.DBParm   =   "Database= 'master' ,PBTrimCharColumns='YES'"


IF db_Transaction.Database = '' Or db_Transaction.ServerName = '' THEN
	arg_msg = "连接数据库失败!"
	rslt = 0
	GOTO ext
END IF

CONNECT Using db_Transaction;
db_Transaction.AutoCommit = True
IF db_Transaction.SQLCode <> 0 THEN
	DISCONNECT Using db_Transaction;
	arg_msg = '服务器连接失败!!'
	rslt = 0
	GOTO ext
END IF

//检查主数据库
ls_databasename = Trim(sle_database.Text)
IF wf_chk_database(ls_databasename, db_Transaction) = 1 THEN
	IF MessageBox ("询问","主数据库已存在,是否确定要覆盖?",Question!,YesNo! ) = 2 THEN
		rslt = 2
		GOTO ext
	ELSE
		IF wf_drop_database(ls_databasename, db_Transaction, False, arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF
//检查附件数据库
ls_databasename = Trim(sle_database.Text)+ '_fj'
IF wf_chk_database(ls_databasename, db_Transaction) = 1 THEN
	IF MessageBox ("询问","附件数据库已存在,是否确定要覆盖?",Question!,YesNo! ) = 2 THEN
		rslt = 2
		GOTO ext
	ELSE
		IF wf_drop_database(ls_databasename, db_Transaction, False, arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF
//检查邮件数据库
ls_databasename = Trim(sle_database.Text) + '_yj'
IF wf_chk_database(ls_databasename, db_Transaction) = 1 THEN
	IF MessageBox ("询问","邮件数据库已存在,是否确定要覆盖?",Question!,YesNo! ) = 2 THEN
		rslt = 2
		GOTO ext
	ELSE
		IF wf_drop_database(ls_databasename, db_Transaction, False, arg_msg) = 0 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF

//新建主数据库
ls_databasename = Trim(sle_database.Text)
ls_filename = Trim(sle_filename.Text)

//st_jd.Text = '正在新建主数据库'

IF wf_create_database(sle_folder.Text, ls_databasename, ls_filename, sle_sqldb_mdf_sor.Text, sle_sqldb_ldf_sor.Text, db_Transaction, False, arg_msg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

comm = "DELETE FROM " + Trim(sle_database.Text) + ".dbo.U_OuterConnection"
EXECUTE Immediate :comm Using db_Transaction;

//新建附件数据库
IF   cbx_fj.Checked  THEN
	ls_databasename = Trim(sle_database.Text)+ '_fj'
	ls_filename = Trim(sle_fjname.Text)
	
	//	st_jd.Text = '正在新建附件数据库'
	
	IF wf_create_database(sle_folder.Text, ls_databasename, ls_filename, 'filemanage_Data', 'filemanage_Log', db_Transaction, False, arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	String ls_MDF,ls_ldf
	ls_MDF = ls_databasename + ".MDF"
	ls_ldf = ls_databasename + ".ldf"
	
	comm = "INSERT INTO " + Trim(sle_database.Text) + ".dbo.U_OuterConnection ("+&
		"ConnectionID	,"+&
		"DBMS	,"+&
		"ConnectionName	 ,"+&
		"ConnectionType	,"+&
		"DataBaseName	,"+&
		"ServerName	,"+&
		"LogId	,"+&
		"LogPass	,"+&
		"mdf_name	,"+&
		"ldf_name	 ,"+&
		"opdate"+&
		")"+&
		"VALUES"+&
		"("+&
		"11,"+&
		"'MSS Microsoft SQL Server 6.x',"+&
		"'附件数据库',"+&
		"0,"+&
		"'" + ls_databasename + "',"+&
		"'" + db_Transaction.ServerName+"',"+&
		"'" + db_Transaction.LogID + "',"+&
		"'" + db_Transaction.LogPass + "',"+&
		"'" + ls_MDF + "',"+&
		"'" + ls_ldf + "',"+&
		"getdate()"+&
		");"
	EXECUTE Immediate :comm Using db_Transaction;
	IF db_Transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '设置附件数据库连接失败,请手动设置,' + db_Transaction.SQLErrText
		GOTO ext
	END IF
END IF


//新建邮件数据库
IF cbx_yj.Checked THEN
	ls_databasename = Trim(sle_database.Text) + '_yj'
	ls_filename = Trim(sle_yjname.Text)
	
	//	st_jd.Text = '正在新建邮件数据库'
	
	IF wf_create_database(sle_folder.Text, ls_databasename, ls_filename, 'filemanage_Data', 'filemanage_Log', db_Transaction, False, arg_msg) = 0 THEN
		rslt = 0
		GOTO ext
	END IF
	
	
	ls_MDF = ls_databasename + ".MDF"
	ls_ldf = ls_databasename + ".ldf"
	
	comm = "INSERT INTO " + Trim(sle_database.Text) + ".dbo.U_OuterConnection ("+&
		"ConnectionID	,"+&
		"DBMS	,"+&
		"ConnectionName	 ,"+&
		"ConnectionType	,"+&
		"DataBaseName	,"+&
		"ServerName	,"+&
		"LogId	,"+&
		"LogPass	,"+&
		"mdf_name	,"+&
		"ldf_name	 ,"+&
		"opdate"+&
		")"+&
		"VALUES"+&
		"("+&
		"12,"+&
		"'MSS Microsoft SQL Server 6.x',"+&
		"'邮件数据库',"+&
		"2,"+&
		"'" + ls_databasename + "',"+&
		"'" + db_Transaction.ServerName+"',"+&
		"'" + db_Transaction.LogID + "',"+&
		"'" + db_Transaction.LogPass + "',"+&
		"'" + ls_MDF + "',"+&
		"'" + ls_ldf + "',"+&
		"getdate()"+&
		");"
	EXECUTE Immediate :comm Using db_Transaction;
	IF db_Transaction.SQLCode <> 0 THEN
		rslt = 0
		arg_msg = '设置邮件数据库连接失败,请手动设置,' + db_Transaction.SQLErrText
		GOTO ext
	END IF
	
END IF


ext:
w_sys_wait.Hide()
Close(w_sys_wait)
IF rslt = 1 THEN
	COMMIT Using db_Transaction;
ELSE
	ROLLBACK Using db_Transaction;
END IF
DISCONNECT Using db_Transaction;
Destroy db_Transaction
RETURN rslt






end function

public function integer wf_chk_database (string arg_databasename, transaction arg_transaction);String ls_test
ls_test = "if exists(select 1 from master..sysdatabases where name='" + arg_databasename + "') raiserror('Database existed',18,1) else raiserror('Database  not  existed',18,1) "
EXECUTE Immediate :ls_test Using arg_transaction;
IF pos(arg_transaction.SQLErrText  ,   'Database existed' ) > 0 THEN
	RETURN 1
ELSE
	RETURN 0
END IF



end function

public function integer wf_create_database (string arg_folder, string arg_databasename, string arg_filename, string arg_sqldb_mdf_sor, string arg_sqldb_ldf_sor, transaction arg_transaction, boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1
String comm

comm = ' create DATABASE '+arg_databasename+&
	" on(name='"+arg_sqldb_mdf_sor+"',FILENAME= '"+arg_folder + '\' + arg_databasename+'_data.ldf'+"') log on (name='"+arg_sqldb_ldf_sor+"',FILENAME= '"+arg_folder + '\' + arg_databasename+'_log.ldf'+"')"
EXECUTE Immediate :comm Using arg_transaction;
IF arg_transaction.SQLCode <> 0 THEN
	arg_msg =  '建立数据库['+arg_databasename+']失败,请手动建立及恢复>'+arg_transaction.SQLErrText
	rslt = 0
	GOTO ext
END IF

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

comm = 'RESTORE DATABASE '+arg_databasename+" from DISK= '"+arg_filename+"'"+&
	" WITH MOVE '"+arg_sqldb_mdf_sor+"' TO '"+arg_folder + '\' + arg_databasename+'_data.ldf'+"',"+&
	" MOVE '"+arg_sqldb_ldf_sor+"' TO '"+arg_folder + '\' + arg_databasename+'_log.ldf'+"',"+'REPLACE'

EXECUTE Immediate :comm Using arg_transaction;
IF arg_transaction.SQLCode <> 0 THEN
	arg_msg = '恢复数据库['+arg_databasename+']失败,请手动恢复>'+arg_transaction.SQLErrText
	rslt = 0
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK Using arg_transaction;
ELSEIF arg_ifcommit THEN
	COMMIT Using arg_transaction;
END IF
RETURN rslt

end function

public function integer wf_drop_database (string arg_databasename, transaction arg_transaction, boolean arg_ifcommit, ref string arg_msg);Integer rslt = 1
String comm

comm = " IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'" + arg_databasename + "') DROP DATABASE [" + arg_databasename + "]"
EXECUTE Immediate :comm Using arg_Transaction;
IF arg_Transaction.SQLCode <> 0 THEN
	arg_msg = '删除数据库失败,请手动删除['+arg_databasename+']>'+arg_Transaction.SQLErrText
	rslt = 0
ELSE
	rslt = 1
END IF

IF rslt = 0 THEN
	ROLLBACK Using arg_Transaction;
ELSEIF arg_ifcommit THEN
	COMMIT Using arg_Transaction;
END IF
RETURN rslt

end function

on w_set_book.create
int iCurrent
call super::create
this.cb_ok=create cb_ok
this.cb_connect=create cb_connect
this.st_1=create st_1
this.sle_bookname=create sle_bookname
this.st_2=create st_2
this.sle_database=create sle_database
this.st_10=create st_10
this.rb_1=create rb_1
this.rb_2=create rb_2
this.cb_1=create cb_1
this.st_11=create st_11
this.sle_fjname=create sle_fjname
this.cb_ch3=create cb_ch3
this.sle_filename=create sle_filename
this.cb_ch2=create cb_ch2
this.st_13=create st_13
this.sle_folder=create sle_folder
this.cb_2=create cb_2
this.st_8=create st_8
this.cbx_fj=create cbx_fj
this.cbx_yj=create cbx_yj
this.sle_yjname=create sle_yjname
this.cb_ch4=create cb_ch4
this.st_12=create st_12
this.ddlb_1=create ddlb_1
this.cbx_modify=create cbx_modify
this.sle_sqldb_mdf_sor=create sle_sqldb_mdf_sor
this.sle_sqldb_ldf_sor=create sle_sqldb_ldf_sor
this.sle_bookcode=create sle_bookcode
this.gb_3=create gb_3
this.gb_1=create gb_1
this.gb_2=create gb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_ok
this.Control[iCurrent+2]=this.cb_connect
this.Control[iCurrent+3]=this.st_1
this.Control[iCurrent+4]=this.sle_bookname
this.Control[iCurrent+5]=this.st_2
this.Control[iCurrent+6]=this.sle_database
this.Control[iCurrent+7]=this.st_10
this.Control[iCurrent+8]=this.rb_1
this.Control[iCurrent+9]=this.rb_2
this.Control[iCurrent+10]=this.cb_1
this.Control[iCurrent+11]=this.st_11
this.Control[iCurrent+12]=this.sle_fjname
this.Control[iCurrent+13]=this.cb_ch3
this.Control[iCurrent+14]=this.sle_filename
this.Control[iCurrent+15]=this.cb_ch2
this.Control[iCurrent+16]=this.st_13
this.Control[iCurrent+17]=this.sle_folder
this.Control[iCurrent+18]=this.cb_2
this.Control[iCurrent+19]=this.st_8
this.Control[iCurrent+20]=this.cbx_fj
this.Control[iCurrent+21]=this.cbx_yj
this.Control[iCurrent+22]=this.sle_yjname
this.Control[iCurrent+23]=this.cb_ch4
this.Control[iCurrent+24]=this.st_12
this.Control[iCurrent+25]=this.ddlb_1
this.Control[iCurrent+26]=this.cbx_modify
this.Control[iCurrent+27]=this.sle_sqldb_mdf_sor
this.Control[iCurrent+28]=this.sle_sqldb_ldf_sor
this.Control[iCurrent+29]=this.sle_bookcode
this.Control[iCurrent+30]=this.gb_3
this.Control[iCurrent+31]=this.gb_1
this.Control[iCurrent+32]=this.gb_2
end on

on w_set_book.destroy
call super::destroy
destroy(this.cb_ok)
destroy(this.cb_connect)
destroy(this.st_1)
destroy(this.sle_bookname)
destroy(this.st_2)
destroy(this.sle_database)
destroy(this.st_10)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.cb_1)
destroy(this.st_11)
destroy(this.sle_fjname)
destroy(this.cb_ch3)
destroy(this.sle_filename)
destroy(this.cb_ch2)
destroy(this.st_13)
destroy(this.sle_folder)
destroy(this.cb_2)
destroy(this.st_8)
destroy(this.cbx_fj)
destroy(this.cbx_yj)
destroy(this.sle_yjname)
destroy(this.cb_ch4)
destroy(this.st_12)
destroy(this.ddlb_1)
destroy(this.cbx_modify)
destroy(this.sle_sqldb_mdf_sor)
destroy(this.sle_sqldb_ldf_sor)
destroy(this.sle_bookcode)
destroy(this.gb_3)
destroy(this.gb_1)
destroy(this.gb_2)
end on

event open;call super::open;s_set_book_parm s_parm

s_parm = Message.PowerObjectParm

IF IsNull(s_parm) THEN
	ins_bookid = 0
	ins_ifguid = 0
ELSE
	ins_bookid = s_parm.bookid
	ins_ifguid = s_parm.ifguid
END IF

IF IsNull(ins_bookid) THEN
	ins_bookid = 0
END IF

IF ins_bookid <= 0 THEN
	ins_bookid = 1
END IF

IF ins_bookid > 20 THEN
	ins_bookid = 20
END IF

sle_bookcode.Text = String(ins_bookid, '00')

IF sys_cur_path = "" THEN
	Long rslt = 1
	String lpBuffer
	lpBuffer = Fill('',200)
	Long lpfilepart,li_FileNum
	
	rslt = GetFullPathName(sys_inifilename,196,lpBuffer,lpfilepart)
	sys_cur_path = Left(lpBuffer,Len(lpBuffer)-Len(sys_inifilename))
END IF

ins_servername = ProfileString (sys_inifilename, "database", "servername", "")
ins_logid = ProfileString (sys_inifilename, "database", "logid",      "SA")
ins_logpass = f_psw_bczh(ProfileString (sys_inifilename, "database", "LogPassWord", ""),1,sys_power_key)

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

String ls_fjname, ls_yjname
ls_fjname =  ProfileString (sys_inifilename, "database", "defaultfjdb",'' )
ls_yjname = ProfileString (sys_inifilename, "database", "defaultyjdb",'' )
IF ls_fjname = "" THEN
	ls_fjname = "企精灵附件数据库"
END IF
IF ls_yjname = "" THEN
	ls_yjname = "企精灵邮件数据库"
END IF

sle_fjname.Text = sys_cur_path + ls_fjname +'.dat'
sle_yjname.Text = sys_cur_path + ls_yjname +'.dat'

Long i
String ls_temp
FOR i = 1 To 3
	ls_temp = ProfileString (sys_inifilename, "database", "demodb" + String(i), '')
	IF ls_temp <> '' THEN
		ddlb_1.AddItem (ls_temp)
	END IF
	IF i = 1 THEN
		ddlb_1.Text = ls_temp
		sle_filename.Text = sys_cur_path + ddlb_1.Text + '.dat'
	END IF
NEXT

masterpath = sys_cur_path + 'database'
sle_folder.Text = masterpath

String ls_ini_book

String ins_bookcode
Long ins_ifuse

ls_ini_book = ProfileString (sys_inifilename_other,'sys_dl_book', String(ins_bookid), '')
IF ls_ini_book <> '' THEN
	sle_bookname.Text = Mid(ls_ini_book,1,Pos(ls_ini_book,':') -1 )
	ls_ini_book = Replace(ls_ini_book,1,Pos(ls_ini_book,':') ,'')
	sle_database.Text = Mid(ls_ini_book,1,Pos(ls_ini_book,':') -1 )
	ls_ini_book = Replace(ls_ini_book,1,Pos(ls_ini_book,':') ,'')
	ins_bookcode = Mid(ls_ini_book,1,Pos(ls_ini_book,':') -1 )
	ls_ini_book = Replace(ls_ini_book,1,Pos(ls_ini_book,':') ,'')
	ins_ifuse = Long(ls_ini_book)
	rb_2.Checked = True
ELSE
	sle_database.Text = "EW5_DB"
//	rb_1.Checked = True
END IF

cb_1.Text = '︾'

IF ins_ifguid = 1 THEN
	This.Title = '2.' + This.Title
	gb_1.Text = '2.' + gb_1.Text
	cb_ok.Text = '完成'
END IF

wf_facechange()

end event

event close;call super::close;closewithreturn(this, ins_rslt)
end event

type cb_func from w_publ_base`cb_func within w_set_book
boolean visible = false
end type

type cb_exit from w_publ_base`cb_exit within w_set_book
integer x = 1838
integer y = 1084
end type

type cb_ok from uo_imflatbutton within w_set_book
integer x = 1426
integer y = 1084
integer width = 311
integer height = 96
integer taborder = 20
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;IF Trim(sle_bookname.Text) = '' THEN
	MessageBox('系统提示','请输入帐套!',information!,OK!)
	RETURN
END IF

IF Trim(sle_database.Text) = '' THEN
	MessageBox('系统提示','请输入数据库!',information!,OK!)
	RETURN
END IF

IF rb_1.Checked THEN
	String ls_msg
	Int ll_rslt
	ll_rslt = wf_buildsqldb(ls_msg) //1-成功
	IF ll_rslt = 0 THEN //错误
		MessageBox("提示",ls_msg,information!,OK!)
		RETURN
	ELSEIF ll_rslt = 2 THEN //取消
		RETURN
	END IF
END IF

SetProfileString (sys_inifilename, "database", "bookname",  sle_bookname.Text )
SetProfileString (sys_inifilename, "database", "database",   sle_database.Text)

SetProfileString (sys_inifilename, "database", "sqldb_mdf_sor", sle_sqldb_mdf_sor.Text)
SetProfileString (sys_inifilename, "database", "sqldb_ldf_sor", sle_sqldb_ldf_sor.Text)

//增加一个帐套
String ls_ini_book
string is_bookcode
Long id
String ifuse
is_bookcode = string(ins_bookid, '00')
id = ins_bookid

String ls_temp
ls_temp = Trim(sle_bookname.Text) + ':'+&
	Trim(sle_database.Text)+ ':'+&
	is_bookcode+':'+&
	'1'
//SetProfileString (sys_inifilename_other,'sys_dl_book', '1', f_psw_bczh(ls_temp,0,sys_power_key))
SetProfileString (sys_inifilename_other,'sys_dl_book', String(id), ls_temp)
SetProfileString(sys_inifilename,'longjoews','LastAcount',Trim(sle_bookname.Text))
SetProfileString (sys_inifilename, "database", "firstrun","0")

ins_rslt = 1

close(parent)

//MessageBox('提示','设置保存完成!系统必须重启!')
//
//Restart()
end event

type cb_connect from uo_imflatbutton within w_set_book
integer x = 283
integer y = 1084
integer width = 315
integer height = 96
integer taborder = 90
boolean bringtotop = true
string text = "测试连接"
end type

event clicked;call super::clicked;String ls_database = "master"

IF rb_2.Checked THEN
	ls_database = sle_database.Text
END IF

Open(w_sys_wait)
w_sys_wait.wf_set_msg("正在尝试连接数据库,此过程预计需要用时1分钟...")
Transaction db_Transaction
db_Transaction = Create Transaction

db_Transaction.DBMS       = "SNC SQL Native Client(OLE DB)"
db_Transaction.Database   = ls_database
db_Transaction.UserID     = ins_logid
db_Transaction.DBPass     = ins_logpass
db_Transaction.LogID      = ins_logid
db_Transaction.LogPass    = ins_logpass
db_Transaction.ServerName = ins_servername
db_Transaction.Lock = "RU"
db_Transaction.AutoCommit = False

db_Transaction.DBParm   =   "Database= '" + ls_database + "',PBTrimCharColumns='YES'"

CONNECT Using db_Transaction;

Int rslt = 1
String arg_msg = ''

IF db_Transaction.SQLCode < 0 THEN
	rslt = 0
	arg_msg = "连接数据库失败!"
	IF Pos(db_Transaction.SQLErrText, "'"+ins_logid+"'") > 0 THEN
		arg_msg = arg_msg + "用户密码错误!"
	END IF
	
	IF Pos(db_Transaction.SQLErrText, "'"+ls_database+"'") > 0 THEN
		arg_msg = arg_msg + "数据库不存在!"
	END IF
	
ELSE
	rslt = 1
END IF

DISCONNECT Using db_Transaction;
Destroy db_Transaction;
Close(w_sys_wait)
IF rslt = 0 THEN
	MessageBox("系统提示",arg_msg)
ELSE
	MessageBox("系统提示","连接数据库成功!")
END IF






end event

type st_1 from statictext within w_set_book
integer x = 146
integer y = 128
integer width = 256
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 = 16777215
boolean enabled = false
string text = "帐套名称:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_bookname from singlelineedit within w_set_book
integer x = 416
integer y = 116
integer width = 1504
integer height = 80
integer taborder = 20
boolean bringtotop = true
integer textsize = -8
integer weight = 400
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "MS Sans Serif"
long textcolor = 41943040
string text = "演示帐套"
boolean autohscroll = false
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_set_book
integer x = 105
integer y = 228
integer width = 297
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 = 16777215
boolean enabled = false
string text = "数据库名称:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_database from singlelineedit within w_set_book
integer x = 416
integer y = 216
integer width = 1655
integer height = 80
integer taborder = 30
boolean bringtotop = true
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 st_10 from statictext within w_set_book
integer x = 78
integer y = 328
integer width = 325
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 = 16777215
boolean enabled = false
string text = "初始化类型:"
alignment alignment = right!
boolean focusrectangle = false
end type

type rb_1 from radiobutton within w_set_book
integer x = 457
integer y = 336
integer width = 402
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
boolean enabled = false
string text = "新建数据库"
end type

event clicked;wf_facechange()
end event

type rb_2 from radiobutton within w_set_book
integer x = 887
integer y = 336
integer width = 466
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "连接现有数据库"
boolean checked = true
end type

event clicked;wf_facechange()
end event

type cb_1 from commandbutton within w_set_book
integer x = 1742
integer y = 316
integer width = 82
integer height = 84
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "︾"
end type

event clicked;IF cb_1.Text = '︽' THEN
	cb_1.Text = '︾'
ELSE
	cb_1.Text = '︽'
END IF

wf_facechange()
end event

type st_11 from statictext within w_set_book
integer x = 1833
integer y = 332
integer width = 233
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 = 16777215
string text = "高级选项"
boolean focusrectangle = false
end type

type sle_fjname from singlelineedit within w_set_book
integer x = 416
integer y = 744
integer width = 1655
integer height = 80
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_ch3 from commandbutton within w_set_book
integer x = 2080
integer y = 744
integer width = 114
integer height = 84
integer taborder = 220
boolean bringtotop = true
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_fjname.Text = Pathname
END IF



end event

type sle_filename from singlelineedit within w_set_book
integer x = 416
integer y = 640
integer width = 1655
integer height = 80
integer taborder = 160
boolean bringtotop = true
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 cb_ch2 from commandbutton within w_set_book
integer x = 2080
integer y = 640
integer width = 114
integer height = 84
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
boolean enabled = false
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 st_13 from statictext within w_set_book
integer x = 32
integer y = 976
integer width = 370
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 = 16777215
boolean enabled = false
string text = "目标文件路径:"
alignment alignment = right!
boolean focusrectangle = false
end type

type sle_folder from singlelineedit within w_set_book
integer x = 416
integer y = 960
integer width = 1655
integer height = 80
integer taborder = 200
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_set_book
integer x = 2080
integer y = 960
integer width = 114
integer height = 84
integer taborder = 250
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;
//
//GetFolder() 
//功  能：显示文件夹选择对话框。 
//语  法：GetFolder (title , director ) 
//参  数：title：String类型，指定文件夹选择框的标题； 
//        directory：String类型，文件夹的路径，即指定显示哪个文件夹下的子文件夹，又用于保存用户最终选择的文件夹的路径。 
//返回值：Integer。函数执行成功时返回1，发生错误时返回-1。当用户选择了”取消”按钮或直接关闭对话框，函数返回0。 
//示  例：This example displays the folder contents of the Sybase directory in a folder selection dialog box. The string passed in the title argument displays above the tree view: 
string ls_path
integer li_result
ls_path = mid(sys_cur_path,1,len(sys_cur_path )- 1)
li_result = GetFolder( "目标文件路径", ls_path ) 
sle_folder.text=ls_path 
end event

type st_8 from statictext within w_set_book
integer x = 32
integer y = 652
integer width = 370
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 = 16777215
boolean enabled = false
string text = "主数据库:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cbx_fj from checkbox within w_set_book
integer x = 27
integer y = 756
integer width = 375
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "附件数据库:"
boolean checked = true
end type

event clicked;if rb_2.checked then return 

IF cbx_fj.Checked THEN
	sle_fjname.Enabled = TRUE
	cb_ch3.Enabled = TRUE
ELSE
	sle_fjname.Enabled = FALSE
	cb_ch3.Enabled = FALSE
END IF

end event

type cbx_yj from checkbox within w_set_book
integer x = 27
integer y = 864
integer width = 384
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "邮件数据库:"
boolean checked = true
end type

event clicked;IF rb_2.Checked THEN RETURN

IF cbx_yj.Checked THEN
	sle_yjname.Enabled = TRUE
	cb_ch4.Enabled = TRUE
ELSE
	sle_yjname.Enabled = FALSE
	cb_ch4.Enabled = FALSE
END IF


end event

type sle_yjname from singlelineedit within w_set_book
integer x = 416
integer y = 852
integer width = 1655
integer height = 80
integer taborder = 180
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_ch4 from commandbutton within w_set_book
integer x = 2080
integer y = 852
integer width = 114
integer height = 84
integer taborder = 240
boolean bringtotop = true
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_yjname.Text = Pathname
END IF



end event

type st_12 from statictext within w_set_book
integer x = 105
integer y = 540
integer width = 297
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 = 16777215
boolean enabled = false
string text = "数据库来源:"
alignment alignment = right!
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_set_book
integer x = 416
integer y = 532
integer width = 1166
integer height = 300
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

event selectionchanged;sle_filename.text = sys_cur_path + this.text + '.dat'
end event

type cbx_modify from checkbox within w_set_book
integer x = 1600
integer y = 540
integer width = 311
integer height = 60
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "手动修改"
end type

event clicked;IF THIS.Checked THEN
	ddlb_1.Enabled = FALSE
	cb_ch2.Enabled = TRUE
	sle_filename.Enabled = TRUE
	sle_filename.text = ''
ELSE
	ddlb_1.Enabled = TRUE
	cb_ch2.Enabled = FALSE
	sle_filename.Enabled = FALSE
	sle_filename.text = sys_cur_path + ddlb_1.text + '.dat'
END IF

end event

type sle_sqldb_mdf_sor from singlelineedit within w_set_book
boolean visible = false
integer x = 1582
integer y = 372
integer width = 1655
integer height = 80
integer taborder = 190
boolean bringtotop = true
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_sor from singlelineedit within w_set_book
boolean visible = false
integer x = 1582
integer y = 464
integer width = 1655
integer height = 80
integer taborder = 230
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type sle_bookcode from singlelineedit within w_set_book
integer x = 1934
integer y = 116
integer width = 137
integer height = 80
integer taborder = 30
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 = 41943040
boolean enabled = false
string text = "none"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type gb_3 from groupbox within w_set_book
integer x = 416
integer y = 296
integer width = 1051
integer height = 120
integer taborder = 300
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 16711680
long backcolor = 16777215
end type

type gb_1 from groupbox within w_set_book
integer x = 18
integer y = 48
integer width = 2217
integer height = 388
integer taborder = 270
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "帐套设置"
end type

type gb_2 from groupbox within w_set_book
integer x = 18
integer y = 452
integer width = 2217
integer height = 612
integer taborder = 280
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "高级选项"
end type