w_zkcllu.srw

某 房 产 公 司 售 楼 管 理 系 统

$PBExportHeader$w_zkcllu.srw
$PBExportComments$暂扣车辆录入
forward
global type w_zkcllu from window
end type
type dw_1 from datawindow within w_zkcllu
end type
type p_1 from picture within w_zkcllu
end type
type cb_6 from commandbutton within w_zkcllu
end type
type cb_chaxun from commandbutton within w_zkcllu
end type
type cb_save from commandbutton within w_zkcllu
end type
type cb_delete from commandbutton within w_zkcllu
end type
type cb_change from commandbutton within w_zkcllu
end type
type cb_insert from commandbutton within w_zkcllu
end type
end forward

global type w_zkcllu from window
integer x = 814
integer y = 48
integer width = 1984
integer height = 2208
boolean titlebar = true
string title = "暂口车辆通知书"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
dw_1 dw_1
p_1 p_1
cb_6 cb_6
cb_chaxun cb_chaxun
cb_save cb_save
cb_delete cb_delete
cb_change cb_change
cb_insert cb_insert
end type
global w_zkcllu w_zkcllu

type variables
boolean insert_zkcl=true
end variables

on w_zkcllu.create
this.dw_1=create dw_1
this.p_1=create p_1
this.cb_6=create cb_6
this.cb_chaxun=create cb_chaxun
this.cb_save=create cb_save
this.cb_delete=create cb_delete
this.cb_change=create cb_change
this.cb_insert=create cb_insert
this.Control[]={this.dw_1,&
this.p_1,&
this.cb_6,&
this.cb_chaxun,&
this.cb_save,&
this.cb_delete,&
this.cb_change,&
this.cb_insert}
end on

on w_zkcllu.destroy
destroy(this.dw_1)
destroy(this.p_1)
destroy(this.cb_6)
destroy(this.cb_chaxun)
destroy(this.cb_save)
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 dw_1 from datawindow within w_zkcllu
integer x = 59
integer y = 228
integer width = 1490
integer height = 1832
integer taborder = 10
string dataobject = "dw_zkcl"
boolean border = false
boolean livescroll = true
end type

type p_1 from picture within w_zkcllu
integer width = 1600
integer height = 2124
string picturename = "c:\zak\notbook1.bmp"
boolean focusrectangle = false
end type

type cb_6 from commandbutton within w_zkcllu
integer x = 1632
integer y = 1736
integer width = 311
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;//integer i_return
//if cb_save.enabled=true then
//	i_return=messagebox("提示","当前记录是否保存?",question!,yesnocancel!,1)
//	if i_return=1 then
//		cb_save.triggerevent(clicked!)
//		halt;
//		close(w_zkcllu)
//		return
//	elseif i_return=2 then
//		halt;
//		close(w_zkcllu)
//		return
//	elseif i_return=3 then
//		return
//	end if
//end if
//
//halt;
close(w_zkcllu)
end event

type cb_chaxun from commandbutton within w_zkcllu
integer x = 1632
integer y = 880
integer width = 311
integer height = 108
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "查询"
end type

event clicked;//change_zkcl=true
open(w_xugai)
cb_save.enabled=false
end event

type cb_save from commandbutton within w_zkcllu
integer x = 1632
integer y = 716
integer width = 311
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;
long l_wzretrieve
stru_zkcl zkcl[]
integer i_save


dw_1.accepttext()
if insert_zkcl=true then
	zkcl=dw_1.object.data
if isvalid(luo_jcremote) then 
	i_save=luo_jcremote.uf_zkclsave(zkcl)
if i_save=1 then
	messagebox("提示","此记录已经保存，可以继续增加数据")
	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_zkcl=false then
	zkcl=dw_1.object.data
	i_save=luo_jcremote.uf_zkclsave(zkcl)
	if i_save=1 then 
		messagebox("提示","数据以修改完毕!")
	else 
		messagebox("提示","数据修改失败!")
	end if 
end if 
end event

type cb_delete from commandbutton within w_zkcllu
integer x = 1632
integer y = 552
integer width = 311
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;//string str_dihao
//integer i_result
//integer i_delete
//   
//i_result=messagebox("提示","是否真的删除?",question!,yesno!,2)
//if i_result=1 then
//	str_dihao=dw_1.getitemstring(1,'dihao')
//	if isnull(str_dihao) or str_dihao="" then
//		messagebox("提示","记录有错误!",stopsign!)
//		return
//	end if
//	i_delete=dw_1.deleterow(1)
//	if i_delete=1 then
//	if dw_1.update()=1 then
//		dw_1.resetupdate()
//		dw_1.reset()
//		dw_1.insertrow(0)
//		messagebox("提示","删除完毕!")
//		//cb_insert.enabled=false
//		cb_delete.enabled=false
//	else
//			rollback;
//			messagebox("提示","删除失败!")
//			return
//		end if
//	else 
//		rollback;
//	end if 
//	end if
// 
end event

type cb_change from commandbutton within w_zkcllu
integer x = 1632
integer y = 388
integer width = 311
integer height = 108
integer taborder = 30
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;open(w_xugai)
cb_save.enabled=true
insert_zkcl=false
cb_insert.enabled=false
//cb_delete.enabled=true
end event

type cb_insert from commandbutton within w_zkcllu
integer x = 1632
integer y = 224
integer width = 311
integer height = 108
integer taborder = 20
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_zkcl=true
cb_insert.enabled=false

end event