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

$PBExportHeader$w_sys_init_guide.srw
forward
global type w_sys_init_guide from w_publ_base
end type
type cb_next from uo_imflatbutton within w_sys_init_guide
end type
type st_title from statictext within w_sys_init_guide
end type
type st_info from multilineedit within w_sys_init_guide
end type
type p_1 from picture within w_sys_init_guide
end type
type r_bar from rectangle within w_sys_init_guide
end type
type ln_bar from line within w_sys_init_guide
end type
type ln_bar2 from line within w_sys_init_guide
end type
end forward

global type w_sys_init_guide from w_publ_base
integer width = 2670
integer height = 1868
string title = "初始化设置向导"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 16777215
cb_next cb_next
st_title st_title
st_info st_info
p_1 p_1
r_bar r_bar
ln_bar ln_bar
ln_bar2 ln_bar2
end type
global w_sys_init_guide w_sys_init_guide

type variables
boolean ib_End = false
boolean ib_Begin = true

int CurPage = 0 //当前页数
int PageCnt = 3 //总页数
end variables

forward prototypes
public subroutine wf_setface (integer arg_add)
public subroutine wf_setinfo (string arg_title, string arg_info)
end prototypes

public subroutine wf_setface (integer arg_add);CurPage += arg_add

IF CurPage = 1 THEN
	cb_func.Enabled = False
	cb_next.Enabled = True
	cb_next.Text = "下一步>(&N)"
ELSEIF CurPage >= PageCnt THEN
	cb_func.Enabled = True
	cb_next.Enabled = True
	
	cb_next.Text = "完成"
ELSE
	cb_func.Enabled = True
	cb_next.Enabled = True
	cb_next.Text = "下一步>(&N)"
END IF

cb_next.TriggerEvent('ue_textchange')

CHOOSE CASE CurPage
	CASE 1
		IF IsValid(w_sys_init_guide_zt) THEN
			w_sys_init_guide_zt.BringToTop = True
		ELSE
			Open(w_sys_init_guide_zt)
		END IF
		
		//w_sys_init_guide_zt.x = 133
		w_sys_init_guide_zt.Y = ln_bar.BeginY + 50
		
		w_sys_init_guide_zt.X = (This.Width - w_sys_init_guide_zt.Width ) /2
		
		wf_SetInfo('帐套/版本选择','不同帐套包含不同的系统方案,可以更快捷方便高效处理企业日常业务')
		
	CASE 2
		IF IsValid(w_sys_init_guide_zlsz) THEN
			w_sys_init_guide_zlsz.BringToTop = True
		ELSE
			Open(w_sys_init_guide_zlsz)
		END IF
		
		w_sys_init_guide_zlsz.X = w_sys_init_guide_zt.X
		w_sys_init_guide_zlsz.Y = w_sys_init_guide_zt.Y
		w_sys_init_guide_zlsz.Width = w_sys_init_guide_zt.Width
		w_sys_init_guide_zlsz.Height = w_sys_init_guide_zt.Height
		
		IF IsValid(w_sys_init_guide_zl) THEN
			w_sys_init_guide_zl.Width = w_sys_init_guide_zl.Width - 100
		END IF
		
		wf_SetInfo('基础资料设置','初始化预先设置以下基础资料')
	CASE 3
		IF IsValid(w_sys_init_guide_zl) THEN
			w_sys_init_guide_zl.BringToTop = True
		ELSE
			Open(w_sys_init_guide_zl)
		END IF
		
		w_sys_init_guide_zl.X = w_sys_init_guide_zt.X
		w_sys_init_guide_zl.Y = w_sys_init_guide_zt.Y
		w_sys_init_guide_zl.Width = w_sys_init_guide_zt.Width + 100
		w_sys_init_guide_zl.Height = w_sys_init_guide_zt.Height
		
		IF IsValid(w_sys_init_guide_zl) THEN
			w_sys_init_guide_zl.Width = w_sys_init_guide_zl.Width - 100
		END IF
		wf_SetInfo('基础资料设置','系统需要设置以下基础资料就能马上启动帐套,录入日常业务数据')
		
	CASE ELSE //完成
		Close(This)
END CHOOSE












end subroutine

public subroutine wf_setinfo (string arg_title, string arg_info);//wf_SetInfo()
st_title.text = arg_title
st_info.text = arg_info
end subroutine

on w_sys_init_guide.create
int iCurrent
call super::create
this.cb_next=create cb_next
this.st_title=create st_title
this.st_info=create st_info
this.p_1=create p_1
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_next
this.Control[iCurrent+2]=this.st_title
this.Control[iCurrent+3]=this.st_info
this.Control[iCurrent+4]=this.p_1
this.Control[iCurrent+5]=this.r_bar
this.Control[iCurrent+6]=this.ln_bar
this.Control[iCurrent+7]=this.ln_bar2
end on

on w_sys_init_guide.destroy
call super::destroy
destroy(this.cb_next)
destroy(this.st_title)
destroy(this.st_info)
destroy(this.p_1)
destroy(this.r_bar)
destroy(this.ln_bar)
destroy(this.ln_bar2)
end on

event close;//f_set_sysmessage()
end event

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
//ln_1.EndX = THIS.Width
//ln_2.EndX = THIS.Width
r_bar.Width = THIS.Width
end event

event open;call super::open;wf_setface(1)
end event

type cb_func from w_publ_base`cb_func within w_sys_init_guide
integer x = 1458
integer y = 1664
integer width = 357
integer height = 96
string text = "<上一步(&B)"
string normalpicname = ""
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_func::clicked;if  w_sys_init_guide_zt.ddlb_sysplan.text="标准材料商业" then
w_sys_init_guide_zt.sle_printbill.text=sys_cur_path + '标准材料商业\ew_printbill.pbl'
elseif w_sys_init_guide_zt.ddlb_sysplan.text="皮布商业" then
	w_sys_init_guide_zt.sle_printbill.text=sys_cur_path + '皮布商业\ew_printbill.pbl'
end if
wf_setface(-1)


end event

type cb_exit from w_publ_base`cb_exit within w_sys_init_guide
integer x = 2171
integer y = 1664
integer width = 357
integer taborder = 30
string text = "取消(&C)"
string normalpicname = ""
end type

type cb_next from uo_imflatbutton within w_sys_init_guide
integer x = 1815
integer y = 1664
integer width = 357
integer height = 96
integer taborder = 30
boolean bringtotop = true
string text = "下一步>(&N)"
end type

event clicked;call super::clicked;Int rslt = 1
String arg_msg

IF CurPage = 1 THEN
	IF IsValid(w_sys_init_guide_zt) THEN
		IF w_sys_init_guide_zt.wf_system_import(arg_msg) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
		IF w_sys_init_guide_zt.wf_copyfile(arg_msg) <> 1 THEN
			rslt = 0
			GOTO ext
		END IF
	END IF
END IF
IF CurPage = 2 THEN
	
END IF
IF CurPage = 3 THEN
	String cur_path
	cur_path = sys_cur_path + "ewiserp.exe"
	
	IF  w_sys_init_guide_zlsz.cbx_1.Checked = True THEN
		IF MessageBox('询问','导入基础资料会删除现在所有的基础数据，是否继续?',question!,yesno!) = 2 THEN
			
			GOTO ext
			
			
		END IF
		
	END IF
	w_sys_init_guide_zlsz.wf_insert() //里面有选项删除基础数据
	IF MessageBox('询问','初始化重启软件生效,是否退出?',question!,yesno!) = 1 THEN
		Run(cur_path)
		HALT
	END IF
END IF

ext:
IF rslt = 1 THEN
	wf_setface(1)
ELSE
	MessageBox('提示', arg_msg)
END IF
















end event

type st_title from statictext within w_sys_init_guide
integer x = 37
integer y = 16
integer width = 1129
integer height = 56
boolean bringtotop = true
integer textsize = -10
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "标题内容"
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type st_info from multilineedit within w_sys_init_guide
integer x = 96
integer y = 88
integer width = 2290
integer height = 136
integer taborder = 10
boolean bringtotop = true
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "简单介绍"
boolean border = false
boolean displayonly = true
end type

event constructor;this.backcolor = 14215660
end event

type p_1 from picture within w_sys_init_guide
integer x = 2414
integer y = 16
integer width = 229
integer height = 196
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\cshxd.jpg"
boolean focusrectangle = false
end type

type r_bar from rectangle within w_sys_init_guide
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer width = 1312
integer height = 156
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type ln_bar from line within w_sys_init_guide
long linecolor = 268435456
integer linethickness = 4
integer beginy = 224
integer endx = 3200
integer endy = 224
end type

type ln_bar2 from line within w_sys_init_guide
long linecolor = 16777215
integer linethickness = 4
integer beginx = 9
integer beginy = 228
integer endx = 3273
integer endy = 228
end type