Q5/ws_objects/Ew_define.pbl.src/w_cbformula_set.srw

$PBExportHeader$w_cbformula_set.srw
forward
global type w_cbformula_set from w_publ_base
end type
type cb_1 from uo_imflatbutton within w_cbformula_set
end type
type st_3 from statictext within w_cbformula_set
end type
type em_1 from editmask within w_cbformula_set
end type
type cb_2 from commandbutton within w_cbformula_set
end type
type cb_3 from commandbutton within w_cbformula_set
end type
type cb_4 from commandbutton within w_cbformula_set
end type
type cb_5 from commandbutton within w_cbformula_set
end type
type cb_6 from commandbutton within w_cbformula_set
end type
type cb_7 from commandbutton within w_cbformula_set
end type
type cb_8 from commandbutton within w_cbformula_set
end type
type cb_9 from commandbutton within w_cbformula_set
end type
type cb_10 from commandbutton within w_cbformula_set
end type
type cb_11 from commandbutton within w_cbformula_set
end type
type cb_13 from commandbutton within w_cbformula_set
end type
type cb_14 from commandbutton within w_cbformula_set
end type
type cb_15 from commandbutton within w_cbformula_set
end type
type cb_16 from commandbutton within w_cbformula_set
end type
type cb_17 from commandbutton within w_cbformula_set
end type
type cb_12 from commandbutton within w_cbformula_set
end type
type st_1 from statictext within w_cbformula_set
end type
type cb_18 from commandbutton within w_cbformula_set
end type
type cb_19 from commandbutton within w_cbformula_set
end type
type cb_20 from commandbutton within w_cbformula_set
end type
type cb_21 from commandbutton within w_cbformula_set
end type
type sle_2 from editmask within w_cbformula_set
end type
type rb_1 from radiobutton within w_cbformula_set
end type
type rb_2 from radiobutton within w_cbformula_set
end type
type em_2 from editmask within w_cbformula_set
end type
type st_2 from statictext within w_cbformula_set
end type
type sle_1 from u_sleedit within w_cbformula_set
end type
type cb_25 from commandbutton within w_cbformula_set
end type
type cb_26 from commandbutton within w_cbformula_set
end type
type st_4 from statictext within w_cbformula_set
end type
type st_5 from statictext within w_cbformula_set
end type
type cb_22 from commandbutton within w_cbformula_set
end type
end forward

global type w_cbformula_set from w_publ_base
integer width = 1824
integer height = 1140
string title = "公式设定"
boolean minbox = false
windowtype windowtype = response!
cb_1 cb_1
st_3 st_3
em_1 em_1
cb_2 cb_2
cb_3 cb_3
cb_4 cb_4
cb_5 cb_5
cb_6 cb_6
cb_7 cb_7
cb_8 cb_8
cb_9 cb_9
cb_10 cb_10
cb_11 cb_11
cb_13 cb_13
cb_14 cb_14
cb_15 cb_15
cb_16 cb_16
cb_17 cb_17
cb_12 cb_12
st_1 st_1
cb_18 cb_18
cb_19 cb_19
cb_20 cb_20
cb_21 cb_21
sle_2 sle_2
rb_1 rb_1
rb_2 rb_2
em_2 em_2
st_2 st_2
sle_1 sle_1
cb_25 cb_25
cb_26 cb_26
st_4 st_4
st_5 st_5
cb_22 cb_22
end type
global w_cbformula_set w_cbformula_set

type variables
s_cmpl_qty s_cmpl
string ls_value
decimal Nprice
end variables

forward prototypes
public subroutine wf_cmp ()
end prototypes

public subroutine wf_cmp ();
String ls_msg
s_cmpl_qty arg_cmpl
decimal ld_qty
arg_cmpl = s_cmpl
arg_cmpl.formula = sle_1.Text 
arg_cmpl.num = dec(em_1.Text)
arg_cmpl.flag = rb_1.Checked  
arg_cmpl.addvalue = Dec(em_2.Text)
ld_qty = 0 
if f_cmpl_qty(arg_cmpl,ld_qty,ls_msg) = 0 then
	MessageBox('提示',ls_msg, Information!, OK! )
	RETURN
END IF
	
sle_2.Text = String(ld_qty,'###,####,###0.######')


end subroutine

on w_cbformula_set.create
int iCurrent
call super::create
this.cb_1=create cb_1
this.st_3=create st_3
this.em_1=create em_1
this.cb_2=create cb_2
this.cb_3=create cb_3
this.cb_4=create cb_4
this.cb_5=create cb_5
this.cb_6=create cb_6
this.cb_7=create cb_7
this.cb_8=create cb_8
this.cb_9=create cb_9
this.cb_10=create cb_10
this.cb_11=create cb_11
this.cb_13=create cb_13
this.cb_14=create cb_14
this.cb_15=create cb_15
this.cb_16=create cb_16
this.cb_17=create cb_17
this.cb_12=create cb_12
this.st_1=create st_1
this.cb_18=create cb_18
this.cb_19=create cb_19
this.cb_20=create cb_20
this.cb_21=create cb_21
this.sle_2=create sle_2
this.rb_1=create rb_1
this.rb_2=create rb_2
this.em_2=create em_2
this.st_2=create st_2
this.sle_1=create sle_1
this.cb_25=create cb_25
this.cb_26=create cb_26
this.st_4=create st_4
this.st_5=create st_5
this.cb_22=create cb_22
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_1
this.Control[iCurrent+2]=this.st_3
this.Control[iCurrent+3]=this.em_1
this.Control[iCurrent+4]=this.cb_2
this.Control[iCurrent+5]=this.cb_3
this.Control[iCurrent+6]=this.cb_4
this.Control[iCurrent+7]=this.cb_5
this.Control[iCurrent+8]=this.cb_6
this.Control[iCurrent+9]=this.cb_7
this.Control[iCurrent+10]=this.cb_8
this.Control[iCurrent+11]=this.cb_9
this.Control[iCurrent+12]=this.cb_10
this.Control[iCurrent+13]=this.cb_11
this.Control[iCurrent+14]=this.cb_13
this.Control[iCurrent+15]=this.cb_14
this.Control[iCurrent+16]=this.cb_15
this.Control[iCurrent+17]=this.cb_16
this.Control[iCurrent+18]=this.cb_17
this.Control[iCurrent+19]=this.cb_12
this.Control[iCurrent+20]=this.st_1
this.Control[iCurrent+21]=this.cb_18
this.Control[iCurrent+22]=this.cb_19
this.Control[iCurrent+23]=this.cb_20
this.Control[iCurrent+24]=this.cb_21
this.Control[iCurrent+25]=this.sle_2
this.Control[iCurrent+26]=this.rb_1
this.Control[iCurrent+27]=this.rb_2
this.Control[iCurrent+28]=this.em_2
this.Control[iCurrent+29]=this.st_2
this.Control[iCurrent+30]=this.sle_1
this.Control[iCurrent+31]=this.cb_25
this.Control[iCurrent+32]=this.cb_26
this.Control[iCurrent+33]=this.st_4
this.Control[iCurrent+34]=this.st_5
this.Control[iCurrent+35]=this.cb_22
end on

on w_cbformula_set.destroy
call super::destroy
destroy(this.cb_1)
destroy(this.st_3)
destroy(this.em_1)
destroy(this.cb_2)
destroy(this.cb_3)
destroy(this.cb_4)
destroy(this.cb_5)
destroy(this.cb_6)
destroy(this.cb_7)
destroy(this.cb_8)
destroy(this.cb_9)
destroy(this.cb_10)
destroy(this.cb_11)
destroy(this.cb_13)
destroy(this.cb_14)
destroy(this.cb_15)
destroy(this.cb_16)
destroy(this.cb_17)
destroy(this.cb_12)
destroy(this.st_1)
destroy(this.cb_18)
destroy(this.cb_19)
destroy(this.cb_20)
destroy(this.cb_21)
destroy(this.sle_2)
destroy(this.rb_1)
destroy(this.rb_2)
destroy(this.em_2)
destroy(this.st_2)
destroy(this.sle_1)
destroy(this.cb_25)
destroy(this.cb_26)
destroy(this.st_4)
destroy(this.st_5)
destroy(this.cb_22)
end on

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

event open;call super::open;String ls_num

//cb_status.Text = sys_option_change_status
//cb_woodcode.Text = sys_option_change_woodcode
//cb_pcode.Text = sys_option_change_pcode
//
//cb_mtrlsectype.Text = sys_option_change_mtrlsectype
//cb_zxmtrlmode.Text = sys_option_change_zxmtrlmode
//
//IF Len(sys_option_change_status) > 5 THEN
//	cb_status.Width = 33 * Len(sys_option_change_status)
//END IF
//
//IF Len(sys_option_change_woodcode) > 5 THEN
//	cb_woodcode.Width = 33 * Len(sys_option_change_woodcode)
//END IF
//
//IF Len(sys_option_change_pcode) > 5 THEN
//	cb_pcode.Width = 33 * Len(sys_option_change_pcode)
//END IF
//
//IF Len(sys_option_change_mtrlsectype) > 5 THEN
//	cb_mtrlsectype.Width = 33 * Len(sys_option_change_mtrlsectype)
//END IF
//
//IF Len(sys_option_change_zxmtrlmode) > 5 THEN
//	cb_zxmtrlmode.Width = 33 * Len(sys_option_change_zxmtrlmode)
//END IF
//
//cb_woodcode.x = cb_status.x + cb_status.width + 57
//cb_pcode.x = cb_woodcode.x + cb_woodcode.width + 57
//cb_mtrlsectype.x = cb_pcode.x + cb_pcode.width + 57
//cb_zxmtrlmode.x = cb_mtrlsectype.x + cb_mtrlsectype.width + 57

s_cmpl = Message.PowerObjectParm



ls_value = f_ProfileString (sys_empid,this.classname(), "value",'1')
ls_num  =  f_ProfileString (sys_empid,this.classname(), "num",'5')
IF ls_num > '5' THEN
	ls_num = '5'
END IF

//addqty = s_cmpl.addqty
//price = s_cmpl.price
//IF s_cmpl.ifnorebate = 0 THEN
//	rebate = s_cmpl.rebate
//ELSE
//	cb_24.Visible = FALSE
//END IF

em_1.Text = ls_num
sle_1.Text = s_cmpl.formula
sle_2.Text = String(s_cmpl.qty,'####,###,###0.#######')
em_2.Text = ls_value

sle_1.SetFocus()




end event

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

type cb_exit from w_publ_base`cb_exit within w_cbformula_set
integer x = 1275
integer y = 832
integer width = 343
integer taborder = 50
end type

type cb_1 from uo_imflatbutton within w_cbformula_set
integer x = 1275
integer y = 696
integer width = 343
integer height = 96
integer taborder = 40
boolean bringtotop = true
string normalpicname = "ok.bmp"
end type

event clicked;call super::clicked;string ls_num
wf_cmp()

ls_num =  em_1.text
ls_value = em_2.text

f_SetProfileString (sys_empid,"w_cmpl_qty_ch", "num", ls_num)
f_SetProfileString (sys_empid,"w_cmpl_qty_ch", "value", ls_value)

s_cmpl.formula = sle_1.text
s_cmpl.qty = dec(sle_2.text)

close(parent)
end event

type st_3 from statictext within w_cbformula_set
integer x = 709
integer y = 296
integer width = 201
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217738
string text = "小数位:"
alignment alignment = right!
boolean focusrectangle = false
end type

type em_1 from editmask within w_cbformula_set
integer x = 928
integer y = 288
integer width = 165
integer height = 84
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "###0"
boolean spin = true
double increment = 1
string minmax = "0~~5"
end type

event modified;cb_12.SetFocus()
end event

type cb_2 from commandbutton within w_cbformula_set
integer x = 41
integer y = 416
integer width = 165
integer height = 104
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "7"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_3 from commandbutton within w_cbformula_set
integer x = 261
integer y = 416
integer width = 165
integer height = 104
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "8"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_4 from commandbutton within w_cbformula_set
integer x = 261
integer y = 556
integer width = 165
integer height = 104
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "5"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_5 from commandbutton within w_cbformula_set
integer x = 41
integer y = 556
integer width = 165
integer height = 104
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "4"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_6 from commandbutton within w_cbformula_set
integer x = 480
integer y = 416
integer width = 165
integer height = 104
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "9"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_7 from commandbutton within w_cbformula_set
integer x = 704
integer y = 416
integer width = 165
integer height = 104
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "/"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_8 from commandbutton within w_cbformula_set
integer x = 704
integer y = 556
integer width = 165
integer height = 104
integer taborder = 200
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "*"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_9 from commandbutton within w_cbformula_set
integer x = 480
integer y = 556
integer width = 165
integer height = 104
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "6"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_10 from commandbutton within w_cbformula_set
integer x = 41
integer y = 692
integer width = 165
integer height = 104
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "1"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_11 from commandbutton within w_cbformula_set
integer x = 261
integer y = 692
integer width = 165
integer height = 104
integer taborder = 160
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "2"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_13 from commandbutton within w_cbformula_set
integer x = 41
integer y = 832
integer width = 165
integer height = 104
integer taborder = 170
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "0"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_14 from commandbutton within w_cbformula_set
integer x = 480
integer y = 692
integer width = 165
integer height = 104
integer taborder = 180
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "3"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_15 from commandbutton within w_cbformula_set
integer x = 704
integer y = 692
integer width = 165
integer height = 104
integer taborder = 210
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "-"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_16 from commandbutton within w_cbformula_set
integer x = 704
integer y = 832
integer width = 165
integer height = 104
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;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_17 from commandbutton within w_cbformula_set
integer x = 261
integer y = 832
integer width = 165
integer height = 104
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;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_12 from commandbutton within w_cbformula_set
integer x = 933
integer y = 832
integer width = 165
integer height = 104
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "="
end type

event clicked;wf_cmp()
cb_1.SetFocus()


end event

type st_1 from statictext within w_cbformula_set
integer x = 1134
integer y = 580
integer width = 206
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217738
string text = "结  果:"
alignment alignment = right!
boolean focusrectangle = false
end type

type cb_18 from commandbutton within w_cbformula_set
integer x = 933
integer y = 556
integer width = 165
integer height = 104
integer taborder = 260
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "("
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_19 from commandbutton within w_cbformula_set
integer x = 933
integer y = 692
integer width = 165
integer height = 104
integer taborder = 290
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = ")"
end type

event clicked;string ls_temp
ls_temp = this.text
sle_1.replacetext(ls_temp)
sle_1.setfocus()
end event

type cb_20 from commandbutton within w_cbformula_set
integer x = 933
integer y = 416
integer width = 165
integer height = 104
integer taborder = 230
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "C"
end type

event clicked;sle_1.text = ''
end event

type cb_21 from commandbutton within w_cbformula_set
integer x = 480
integer y = 832
integer width = 165
integer height = 104
integer taborder = 270
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "BS"
end type

event clicked;sle_1.text = mid(sle_1.text,1,len(sle_1.text) - 1)

end event

type sle_2 from editmask within w_cbformula_set
integer x = 1358
integer y = 564
integer width = 421
integer height = 84
integer taborder = 280
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
boolean displayonly = true
borderstyle borderstyle = stylelowered!
string mask = "#########0.##########"
end type

type rb_1 from radiobutton within w_cbformula_set
integer x = 1175
integer y = 400
integer width = 155
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 = 134217738
string text = "*"
boolean checked = true
end type

type rb_2 from radiobutton within w_cbformula_set
integer x = 1175
integer y = 480
integer width = 160
integer height = 56
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217738
string text = "/"
end type

type em_2 from editmask within w_cbformula_set
integer x = 1358
integer y = 428
integer width = 421
integer height = 84
integer taborder = 300
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#########0.##########"
end type

event modified;cb_12.SetFocus()
end event

type st_2 from statictext within w_cbformula_set
integer x = 1175
integer y = 300
integer width = 535
integer height = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 134217739
string text = "说明:C-清除,BS-退格"
boolean focusrectangle = false
end type

type sle_1 from u_sleedit within w_cbformula_set
integer x = 41
integer y = 180
integer width = 1755
integer taborder = 20
boolean bringtotop = true
end type

type cb_25 from commandbutton within w_cbformula_set
integer x = 41
integer width = 165
integer height = 88
integer taborder = 140
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "选择"
end type

event clicked;Open(w_formula_edit)

String ls_temp
ls_temp = Message.StringParm
IF ls_temp <> '' THEN
	sle_1.Text = ls_temp
END IF


end event

type cb_26 from commandbutton within w_cbformula_set
integer x = 206
integer width = 165
integer height = 88
integer taborder = 150
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存"
end type

event clicked;Long ll_newid
String ls_formula,errmsg
Long rslt = 1
ls_formula = Trim(sle_1.Text)
ll_newid = f_sys_scidentity(0,"u_formula_def","formulaid",errmsg,FALSE,sqlca)
IF ll_newid <= 0 THEN
	rslt = 0
	GOTO ext
ELSE
	INSERT INTO u_formula_def
		( formulaid,
		content )
		VALUES ( :ll_newid,
		:ls_formula )  ;
	IF sqlca.SQLCode <> 0 THEN
		errmsg = '插入公式失败'
		rslt = 0
		GOTO ext
	END IF
END IF

ext:
IF rslt = 0 THEN
	ROLLBACK;
	MessageBox('错误',errmsg,stopsign!,OK!)
ELSE
	COMMIT;
	MessageBox('提示',"保存成功!", Information!, OK! )
END IF

end event

type st_4 from statictext within w_cbformula_set
integer x = 50
integer y = 976
integer width = 2318
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
string text = "行情成本=材料成本+人力成本+设备成本+加工成本+费用成本"
boolean focusrectangle = false
end type

type st_5 from statictext within w_cbformula_set
integer x = 50
integer y = 112
integer width = 425
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
string text = "材料成本公式 = "
boolean focusrectangle = false
end type

type cb_22 from commandbutton within w_cbformula_set
integer x = 41
integer y = 284
integer width = 439
integer height = 88
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "主行情材料成本"
end type

event clicked;string ls_temp
ls_temp = "[" + this.text + "]"
sle_1.replacetext(ls_temp)
sle_1.setfocus()

end event