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