w_wztzd.srw

某 房 产 公 司 售 楼 管 理 系 统

$PBExportHeader$w_wztzd.srw
$PBExportComments$违章通知单
forward
global type w_wztzd from window
end type
type sle_2 from singlelineedit within w_wztzd
end type
type sle_1 from singlelineedit within w_wztzd
end type
type dw_1 from datawindow within w_wztzd
end type
type p_1 from picture within w_wztzd
end type
type ddlb_1 from dropdownlistbox within w_wztzd
end type
type st_1 from statictext within w_wztzd
end type
type cb_save from commandbutton within w_wztzd
end type
type cb_5 from commandbutton within w_wztzd
end type
type cb_4 from commandbutton within w_wztzd
end type
type cb_delete from commandbutton within w_wztzd
end type
type cb_change from commandbutton within w_wztzd
end type
type cb_insert from commandbutton within w_wztzd
end type
end forward

global type w_wztzd from window
integer x = 864
integer y = 4
integer width = 2167
integer height = 2396
boolean titlebar = true
string title = "违章通知单"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
sle_2 sle_2
sle_1 sle_1
dw_1 dw_1
p_1 p_1
ddlb_1 ddlb_1
st_1 st_1
cb_save cb_save
cb_5 cb_5
cb_4 cb_4
cb_delete cb_delete
cb_change cb_change
cb_insert cb_insert
end type
global w_wztzd w_wztzd

type variables
boolean insert_wztzd=TRUE
end variables

on w_wztzd.create
this.sle_2=create sle_2
this.sle_1=create sle_1
this.dw_1=create dw_1
this.p_1=create p_1
this.ddlb_1=create ddlb_1
this.st_1=create st_1
this.cb_save=create cb_save
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_delete=create cb_delete
this.cb_change=create cb_change
this.cb_insert=create cb_insert
this.Control[]={this.sle_2,&
this.sle_1,&
this.dw_1,&
this.p_1,&
this.ddlb_1,&
this.st_1,&
this.cb_save,&
this.cb_5,&
this.cb_4,&
this.cb_delete,&
this.cb_change,&
this.cb_insert}
end on

on w_wztzd.destroy
destroy(this.sle_2)
destroy(this.sle_1)
destroy(this.dw_1)
destroy(this.p_1)
destroy(this.ddlb_1)
destroy(this.st_1)
destroy(this.cb_save)
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_delete)
destroy(this.cb_change)
destroy(this.cb_insert)
end on

event open;dw_1.settransobject(sqlca)
dw_1.insertrow(0)
end event

type sle_2 from singlelineedit within w_wztzd
integer x = 1321
integer y = 1016
integer width = 325
integer height = 84
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean border = false
boolean hideselection = false
end type

type sle_1 from singlelineedit within w_wztzd
integer x = 471
integer y = 1044
integer width = 425
integer height = 84
integer textsize = -9
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean border = false
boolean autohscroll = false
end type

type dw_1 from datawindow within w_wztzd
integer x = 64
integer y = 252
integer width = 1595
integer height = 1820
integer taborder = 10
string dataobject = "dw_wztzd"
boolean border = false
boolean livescroll = true
end type

event itemfocuschanged;string str_name,str_unit
str_name=dw_1.getitemstring(1,'name')
sle_1.text=str_name
str_unit=dw_1.getitemstring(1,'uint')
sle_2.text=str_unit

end event

type p_1 from picture within w_wztzd
integer width = 1719
integer height = 2148
string picturename = "c:\zak\notbook1.bmp"
boolean focusrectangle = false
end type

type ddlb_1 from dropdownlistbox within w_wztzd
integer x = 805
integer y = 2180
integer width = 667
integer height = 256
integer taborder = 30
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 33554432
boolean enabled = false
boolean vscrollbar = true
string item[] = {"已经接受处罚","尚未接受处罚",""}
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_wztzd
integer x = 27
integer y = 2184
integer width = 827
integer height = 76
integer taborder = 20
integer textsize = -14
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "隶书"
long textcolor = 16711680
long backcolor = 67108864
boolean enabled = false
string text = "是否已经接受处罚："
boolean focusrectangle = false
end type

type cb_save from commandbutton within w_wztzd
integer x = 1765
integer y = 736
integer width = 352
integer height = 108
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "保存"
end type

event clicked;string str_zkcl_dihao,str_pzh
string str_page, str_year1,str_cxjpzh
string str_notyes
long l_wzretrieve
stru_wztzd wztzd[]
integer i_save

str_notyes=ddlb_1.text
if isnull(str_notyes) then 
	messagebox("提示","此数据项不能为空!")
	return 
end if 
dw_1.accepttext()
if insert_wztzd=true then
//	str_pzh=dw_1.getitemstring(1,'pzh')
//	l_wzretrieve=luo_jcremote.uf_wzretrieve(str_pzh)
//	if l_wzretrieve=1 then
//		messagebox("警告","此人已经被处罚过!")
//		dw_1.setitem(1,'number',2)
//		return
//end if
	dw_1.setitem(1,'number1',1)
	dw_1.setitem(1,'notyes',str_notyes)
	wztzd=dw_1.object.data
if isvalid(luo_jcremote) then 
	i_save=luo_jcremote.uf_wztzdsave(wztzd)
if i_save=1 then
	messagebox("提示","此记录已经保存，可以继续增加数据")
	ddlb_1.text=""
	dw_1.reset()
	dw_1.insertrow(0)
	cb_save.enabled=false
	cb_insert.enabled=true
	dw_1.enabled=false
else 
	messagebox("警告","保存失败!")
end if 
else 
	return 
end if 
end if 
 

//处理 dw_1 修改操作
if insert_wztzd=false then
	dw_1.setitem(1,'notyes',str_notyes)
	wztzd=dw_1.object.data
	i_save=luo_jcremote.uf_wztzdsave(wztzd)
	if i_save=1 then 
		messagebox("提示","数据以修改完毕!")
	else 
		messagebox("提示","数据修改失败!")
	end if 
end if 
end event

type cb_5 from commandbutton within w_wztzd
integer x = 1765
integer y = 1868
integer width = 352
integer height = 108
integer taborder = 90
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "退出"
end type

event clicked;
close(w_wztzd)
end event

type cb_4 from commandbutton within w_wztzd
integer x = 1765
integer y = 920
integer width = 352
integer height = 108
integer taborder = 80
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = " 查询"
end type

event clicked;cb_save.enabled=false
cb_delete.enabled=false
open(w_chang1)
end event

type cb_delete from commandbutton within w_wztzd
integer x = 1765
integer y = 552
integer width = 352
integer height = 108
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean enabled = false
string text = "删除"
end type

event clicked;string str_pzh
integer i_result
integer i_delete
   
i_result=messagebox("提示","是否真的删除?",question!,yesno!,2)
if i_result=1 then
	str_pzh=dw_1.getitemstring(1,'pzh')
	if isnull(str_pzh) or str_pzh="" then
		messagebox("提示","记录有错误!",stopsign!)
		return
	end if
end if 
str_pzh=dw_1.getitemstring(1,'pzh')
	i_delete=luo_jcremote.uf_jcdelete("dw_wztzd",str_pzh)
	if i_delete=1 then 
		dw_1.reset()
		dw_1.insertrow(0)
		messagebox("提示","删除成功")
	else 
		messagebox("提示","删除失败")
	end if 
	
			
end event

type cb_change from commandbutton within w_wztzd
integer x = 1765
integer y = 368
integer width = 352
integer height = 108
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "修改"
end type

event clicked;cb_save.enabled=true
insert_wztzd=false
cb_insert.enabled=false
//cb_delete.enabled=true
cb_4.enabled=false

open(w_chang1)
end event

type cb_insert from commandbutton within w_wztzd
integer x = 1765
integer y = 184
integer width = 352
integer height = 108
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean enabled = false
string text = "增加"
end type

event clicked;dw_1.enabled=true
cb_save.enabled=true
insert_wztzd=true 	
cb_insert.enabled=false
end event