w_comp_photo.srw

powerbuilder

f_get_comp_photo() //获取当前收货的照片信息

	
	
end event

type st_3 from statictext within w_comp_photo
integer x = 553
integer y = 680
integer width = 91
integer height = 80
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "无"
boolean focusrectangle = false
end type

type cb_3 from commandbutton within w_comp_photo
integer x = 64
integer y = 1404
integer width = 370
integer height = 92
integer taborder = 60
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "预览(&V)"
end type

event clicked;openwithparm(w_apply_buy_pic,is_path)
end event

type cb_2 from commandbutton within w_comp_photo
integer x = 2405
integer y = 1404
integer width = 370
integer height = 92
integer taborder = 50
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "退出(&Q)"
boolean cancel = true
end type

event clicked;close(parent)

end event

type cb_1 from commandbutton within w_comp_photo
integer x = 1925
integer y = 1404
integer width = 370
integer height = 92
integer taborder = 50
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "保存(&S)"
boolean default = true
end type

event clicked;blob lbl_data 
long i


this.enabled = false

if (isnull(is_comid) or is_comid = '') or (isnull(is_man) or is_man = '') then 
	messagebox(gs_tip,'所属单位及收货人信息不允许为空!')
	cb_4.setfocus()
	this.enabled = true
	return
end if

if FileExists(is_path) then FileDelete(is_path)
	
//保存摄像头数据为文件	
if f_comp_sava_image() = 1 then 
else
	messagebox(gs_tip,'保存摄像头文件失败!')
	return
end if

lbl_data = uf_wj_to_blob(is_path) //将图片转为大文本

select count(*) into :i from comp_photo where use_id = :gs_comid and p_co = :is_comid and pd_man1 = :is_man;

if isnull(i) or i = 0 then
  insert into comp_photo(use_id,p_co,pd_man1,photo_id) values(:gs_comid,:is_comid,:is_man,1);
    
  if sqlca.sqlcode <> 0 then 
	  messagebox(gs_tip,'保存图像信息失败!')
	  this.enabled = true
	  return
  end if
else
end if 

sqlca.autocommit = true
updateblob comp_photo set photo_data =:lbl_data where use_id = :gs_comid and p_co = :is_comid and pd_man1 = :is_man;
sqlca.autocommit = false

if sqlca.sqlnrows > 0 then
else
	messagebox(gs_tip,'保存图像信息失败!')
end if

//filedelete(is_path)
this.enabled = true
end event

type ole_1 from olecustomcontrol within w_comp_photo
event click ( )
event dblclick ( )
event keydown ( integer keycode,  integer shift )
event keypress ( integer keyascii )
event keyup ( integer keycode,  integer shift )
event mousedown ( integer button,  integer shift,  long ocx_x,  long ocx_y )
event mousemove ( integer button,  integer shift,  long ocx_x,  long ocx_y )
event mouseup ( integer button,  integer shift,  long ocx_x,  long ocx_y )
event resize ( )
event devicestatus ( long statuscode,  string statustext )
event deviceerror ( long errorcode,  string errortext )
event devicewarning ( long warningcode,  string warningtext )
event filterlistchanged ( string filtercategory,  integer changetype,  long lfilterindex,  string filtername )
integer x = 1289
integer y = 356
integer width = 1518
integer height = 1004
integer taborder = 40
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "w_comp_photo.win"
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
end type

type p_1 from picture within w_comp_photo
integer x = 73
integer y = 356
integer width = 1157
integer height = 988
boolean originalsize = true
boolean focusrectangle = false
end type

type sle_2 from singlelineedit within w_comp_photo
integer x = 2199
integer y = 112
integer width = 581
integer height = 92
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_comp_photo
integer x = 1902
integer y = 128
integer width = 288
integer height = 56
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "收 货 人:"
boolean focusrectangle = false
end type

type sle_1 from singlelineedit within w_comp_photo
integer x = 402
integer y = 112
integer width = 1445
integer height = 92
integer taborder = 20
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_comp_photo
integer x = 101
integer y = 128
integer width = 293
integer height = 72
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "单位名称:"
boolean focusrectangle = false
end type

type gb_1 from groupbox within w_comp_photo
integer x = 37
integer y = 28
integer width = 2784
integer height = 232
integer taborder = 10
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "收货人信息"
end type

type gb_2 from groupbox within w_comp_photo
integer x = 1262
integer y = 284
integer width = 1563
integer height = 1088
integer taborder = 30
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "摄像头信息"
end type

type gb_3 from groupbox within w_comp_photo
integer x = 37
integer y = 284
integer width = 1234
integer height = 1088
integer taborder = 40
integer textsize = -10
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "照片信息"
end type


Start of PowerBuilder Binary Data Section : Do NOT Edit
05w_comp_photo.bin 3076 
2000000c00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffd00000004fffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff0000000300000000000000000000000000000000000000000000000000000000de14b4c001c4b74200000003000001c00000000000500003004c004200430049004e0045004500530045004b000000590000000000000000000000000000000000000000000000000000000000000000000000000002001cffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000001e0000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000002001affffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000fffffffe0000000000000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000101001a000000020000000100000004cc34ceb311d15c10a0000fa4839c222400000000de14b4c001c4b742de14b4c001c4b742000000000000000000000000fffffffe0000000200000003000000040000000500000006fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
20ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff00650050006100670075007300200073006d004900670061006e0069000000670000000c0000000f0000000000000000000000000000000000000000d895ff9000420008004200000032003100390037003700300041003400320041003300420043004300370038003700330037004500450042003100340031004300420041004200410000003834107e0a0f8802260000030000002250000019f10001000b000100030008000000000002000b0000000900010be3520311ce8f91aa00e39d51b84b000000000138800190540600016d6f6861ff001361030000ff000008000100030003000000002b110000000b0000000b00000003000300000000000000000003000300000000000000000003000b0000000bffff0008000000000002000b000000080000000000020008000000000002000300000000001e00000003000300000000ea6000020008000000000000000b000f00030008000000000002000300000000000000000003000300000000002400200003000b0000000300000000000200000003000300000000006400000003000b0000000800010000000200030000000000000000000300ff000000ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00430074006e006e00650073007400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000010000016f000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000ffffffffffffffffffffffff00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
15w_comp_photo.bin 3076 
End of PowerBuilder Binary Data Section : No Source Expected After This Point