FXApp/ws_objects/app_cust_fx.pbl.src/w_model_erp.srw

$PBExportHeader$w_model_erp.srw
forward
global type w_model_erp from w_publ_base_style
end type
type cb_retrieve from uo_imflatbutton within w_model_erp
end type
type cb_toppage from uo_imflatbutton within w_model_erp
end type
type cb_page_ch from uo_imflatbutton within w_model_erp
end type
type em_pagesize from editmask within w_model_erp
end type
type cb_1 from uo_imflatbutton within w_model_erp
end type
type st_1 from statictext within w_model_erp
end type
type em_datea from editmask within w_model_erp
end type
type st_2 from statictext within w_model_erp
end type
type st_3 from statictext within w_model_erp
end type
type em_datez from editmask within w_model_erp
end type
type sle_likestr from singlelineedit within w_model_erp
end type
end forward

global type w_model_erp from w_publ_base_style
integer width = 4686
integer height = 2220
string title = "供应商询价单"
long backcolor = 16777215
event ue_page_next ( )
event ue_page_before ( )
event ue_page_end ( )
cb_retrieve cb_retrieve
cb_toppage cb_toppage
cb_page_ch cb_page_ch
em_pagesize em_pagesize
cb_1 cb_1
st_1 st_1
em_datea em_datea
st_2 st_2
st_3 st_3
em_datez em_datez
sle_likestr sle_likestr
end type
global w_model_erp w_model_erp

type variables
long ins_cur_pageNum = 1 // 用于记录当前页码
long ins_totalPages = 1 // 用于记录总页数
end variables

event ue_page_next();// 下页
if (ins_cur_pageNum = ins_totalPages) then return

ins_cur_pageNum ++
end event

event ue_page_before();// 上页
if (ins_cur_pageNum = 1) then return

ins_cur_pageNum --
end event

event ue_page_end();// 末页
if (ins_cur_pageNum = ins_totalPages) then return

ins_cur_pageNum = ins_totalPages
end event

on w_model_erp.create
int iCurrent
call super::create
this.cb_retrieve=create cb_retrieve
this.cb_toppage=create cb_toppage
this.cb_page_ch=create cb_page_ch
this.em_pagesize=create em_pagesize
this.cb_1=create cb_1
this.st_1=create st_1
this.em_datea=create em_datea
this.st_2=create st_2
this.st_3=create st_3
this.em_datez=create em_datez
this.sle_likestr=create sle_likestr
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_retrieve
this.Control[iCurrent+2]=this.cb_toppage
this.Control[iCurrent+3]=this.cb_page_ch
this.Control[iCurrent+4]=this.em_pagesize
this.Control[iCurrent+5]=this.cb_1
this.Control[iCurrent+6]=this.st_1
this.Control[iCurrent+7]=this.em_datea
this.Control[iCurrent+8]=this.st_2
this.Control[iCurrent+9]=this.st_3
this.Control[iCurrent+10]=this.em_datez
this.Control[iCurrent+11]=this.sle_likestr
end on

on w_model_erp.destroy
call super::destroy
destroy(this.cb_retrieve)
destroy(this.cb_toppage)
destroy(this.cb_page_ch)
destroy(this.em_pagesize)
destroy(this.cb_1)
destroy(this.st_1)
destroy(this.em_datea)
destroy(this.st_2)
destroy(this.st_3)
destroy(this.em_datez)
destroy(this.sle_likestr)
end on

type cb_func from w_publ_base_style`cb_func within w_model_erp
boolean visible = false
integer x = 3113
boolean enabled = false
end type

type cb_exit from w_publ_base_style`cb_exit within w_model_erp
integer x = 155
end type

type ln_bar from w_publ_base_style`ln_bar within w_model_erp
end type

type ln_bar2 from w_publ_base_style`ln_bar2 within w_model_erp
end type

type r_bar from w_publ_base_style`r_bar within w_model_erp
end type

type cb_retrieve from uo_imflatbutton within w_model_erp
integer width = 151
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "刷新"
end type

type cb_toppage from uo_imflatbutton within w_model_erp
integer x = 626
integer width = 151
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "首页"
end type

event clicked;call super::clicked;ins_cur_pageNum = 1
end event

type cb_page_ch from uo_imflatbutton within w_model_erp
integer x = 782
integer width = 82
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "▼"
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr

menustr="Text=下页~tEvent=ue_page_next"
menustr = menustr + "|" + "Text=上页~tEvent=ue_page_before"
menustr = menustr + "|" + "Text=末页~tEvent=ue_page_end"
	
if len(trim(menustr))<>0 then
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
end if
end event

type em_pagesize from editmask within w_model_erp
integer x = 315
integer y = 44
integer width = 302
integer height = 84
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "100"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#####"
boolean spin = true
double increment = 1
string minmax = "1~~"
end type

type cb_1 from uo_imflatbutton within w_model_erp
boolean visible = false
integer x = 2496
integer width = 151
integer height = 164
integer taborder = 20
boolean bringtotop = true
boolean enabled = false
string text = "打印"
end type

type st_1 from statictext within w_model_erp
integer x = 14
integer y = 200
integer width = 183
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 = 16777215
string text = "日期从"
boolean focusrectangle = false
end type

type em_datea from editmask within w_model_erp
integer x = 192
integer y = 184
integer width = 389
integer height = 84
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "0000-00-00"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type st_2 from statictext within w_model_erp
integer x = 599
integer y = 200
integer width = 87
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 = 16777215
string text = "到"
boolean focusrectangle = false
end type

type st_3 from statictext within w_model_erp
integer x = 1138
integer y = 200
integer width = 178
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 = 16777215
string text = "单号含"
boolean focusrectangle = false
end type

type em_datez from editmask within w_model_erp
integer x = 672
integer y = 184
integer width = 389
integer height = 84
integer taborder = 50
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "0000-00-00"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

type sle_likestr from singlelineedit within w_model_erp
integer x = 1317
integer y = 184
integer width = 503
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
borderstyle borderstyle = stylelowered!
end type