Q5/ws_objects/longjoe_report.pbl.src/w_dwprint_dynamic_imexport.srw

$PBExportHeader$w_dwprint_dynamic_imexport.srw
forward
global type w_dwprint_dynamic_imexport from w_publ_base
end type
type sle_filename from singlelineedit within w_dwprint_dynamic_imexport
end type
type cb_1 from uo_imflatbutton within w_dwprint_dynamic_imexport
end type
type cb_import from uo_imflatbutton within w_dwprint_dynamic_imexport
end type
type cb_export from uo_imflatbutton within w_dwprint_dynamic_imexport
end type
type sle_filename1 from singlelineedit within w_dwprint_dynamic_imexport
end type
type cb_2 from uo_imflatbutton within w_dwprint_dynamic_imexport
end type
type gb_1 from groupbox within w_dwprint_dynamic_imexport
end type
type gb_2 from groupbox within w_dwprint_dynamic_imexport
end type
end forward

global type w_dwprint_dynamic_imexport from w_publ_base
integer width = 2235
integer height = 760
string title = "导入导出单据格式设置列表"
boolean minbox = false
windowtype windowtype = response!
long backcolor = 67108864
sle_filename sle_filename
cb_1 cb_1
cb_import cb_import
cb_export cb_export
sle_filename1 sle_filename1
cb_2 cb_2
gb_1 gb_1
gb_2 gb_2
end type
global w_dwprint_dynamic_imexport w_dwprint_dynamic_imexport

type variables

end variables

on w_dwprint_dynamic_imexport.create
int iCurrent
call super::create
this.sle_filename=create sle_filename
this.cb_1=create cb_1
this.cb_import=create cb_import
this.cb_export=create cb_export
this.sle_filename1=create sle_filename1
this.cb_2=create cb_2
this.gb_1=create gb_1
this.gb_2=create gb_2
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.sle_filename
this.Control[iCurrent+2]=this.cb_1
this.Control[iCurrent+3]=this.cb_import
this.Control[iCurrent+4]=this.cb_export
this.Control[iCurrent+5]=this.sle_filename1
this.Control[iCurrent+6]=this.cb_2
this.Control[iCurrent+7]=this.gb_1
this.Control[iCurrent+8]=this.gb_2
end on

on w_dwprint_dynamic_imexport.destroy
call super::destroy
destroy(this.sle_filename)
destroy(this.cb_1)
destroy(this.cb_import)
destroy(this.cb_export)
destroy(this.sle_filename1)
destroy(this.cb_2)
destroy(this.gb_1)
destroy(this.gb_2)
end on

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

type cb_exit from w_publ_base`cb_exit within w_dwprint_dynamic_imexport
integer x = 1815
integer y = 556
integer width = 325
end type

type sle_filename from singlelineedit within w_dwprint_dynamic_imexport
integer x = 91
integer y = 116
integer width = 1586
integer height = 92
integer taborder = 30
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

type cb_1 from uo_imflatbutton within w_dwprint_dynamic_imexport
integer x = 1691
integer y = 116
integer width = 114
integer height = 96
integer taborder = 40
boolean bringtotop = true
string text = "..."
end type

event clicked;call super::clicked;
integer i
string pathname
string filename


i = getfilesavename("选择文件",pathname,filename,"Dbf","数据文件Dbf,*.Dbf")

if i = 1 and trim(pathname) <> "" and trim(filename) <> "" then
	parent.sle_filename.text = pathname
end if

return
end event

type cb_import from uo_imflatbutton within w_dwprint_dynamic_imexport
integer x = 1806
integer y = 116
integer width = 325
integer height = 96
integer taborder = 40
boolean bringtotop = true
string text = "导入"
end type

event clicked;call super::clicked;Long ll_i

IF NOT sys_power_issuper THEN
	MessageBox('提示','你没有使用权限!',information!,ok!)
	RETURN
END IF

datastore ds_dynamic
String arg_filename
arg_filename = Trim(sle_filename.Text)
IF arg_filename = '' THEN
	MessageBox('提示','请输入文件名称',information!,ok!)
	RETURN
END IF

ds_dynamic = CREATE datastore
ds_dynamic.DataObject = 'dw_dwprint_dynamic'
ds_dynamic.SetTransObject(sqlca)

ds_dynamic.ImportFile(arg_filename)

ds_dynamic.AcceptText()
IF ds_dynamic.RowCount() <= 0 THEN
	MessageBox('提示','你导入的数据库表文件没有数据',information!,ok!)
	RETURN
END IF
 

String chnname
String dft_new_dwname
String pblname
Long prownum
String dwtype
Long powerid
Long auditprint
Long ptype
Long dwprintid
String dft_old_dwname
Long ifuse
String ls_find
Long ifdefault
datastore ds_dynamic_cur
ds_dynamic_cur = CREATE datastore
ds_dynamic_cur.DataObject = 'dw_dwprint_dynamic'
ds_dynamic_cur.SetTransObject(sqlca)
ds_dynamic_cur.Retrieve('全部')



FOR ll_i = 1 TO ds_dynamic.RowCount()
	chnname = 	ds_dynamic.Object.chnname[ll_i]
	dft_new_dwname = 			 ds_dynamic.Object.dft_new_dwname[ll_i]
	pblname			 = ds_dynamic.Object.pblname[ll_i]
	prownum    =   ds_dynamic.Object.prownum[ll_i]
	dwtype   =  ds_dynamic.Object.dwtype[ll_i]
	powerid	 = ds_dynamic.Object.powerid[ll_i]
	auditprint	 = ds_dynamic.Object.auditprint[ll_i]
	ptype		 = ds_dynamic.Object.ptype[ll_i]
	dwprintid	 = ds_dynamic.Object.dwprintid[ll_i]
	dft_old_dwname	 = ds_dynamic.Object.dft_old_dwname[ll_i]
	ifuse	 = ds_dynamic.Object.ifuse[ll_i]
	ifdefault = ds_dynamic.Object.ifdefault[ll_i]
	ls_find = ' dwprintid = '+String(dwprintid)
	
	IF ds_dynamic_cur.Find(ls_find,1,ds_dynamic_cur.RowCount()) > 0 THEN
		UPDATE sys_dft_dwprint_dynamic
			SET	sys_dft_dwprint_dynamic.chnname = :chnname,
			sys_dft_dwprint_dynamic.dft_new_dwname = :dft_new_dwname,
			sys_dft_dwprint_dynamic.pblname = :pblname,
			sys_dft_dwprint_dynamic.prownum = :prownum,
			sys_dft_dwprint_dynamic.dwtype  = :dwtype,
			sys_dft_dwprint_dynamic.powerid = :powerid,
			sys_dft_dwprint_dynamic.auditprint = :auditprint,
			sys_dft_dwprint_dynamic.ptype = :ptype,
			sys_dft_dwprint_dynamic.dft_old_dwname = :dft_old_dwname,
			sys_dft_dwprint_dynamic.ifuse = :ifuse,
			sys_dft_dwprint_dynamic.ifdefault = :ifdefault
			Where sys_dft_dwprint_dynamic.dwprintid = :dwprintid;
		IF sqlca.SQLCode <> 0 THEN
			MessageBox(publ_operator,'更新数据库表的数据失败,'+sqlca.SQLErrText)
			rollback;
			RETURN
		END IF
		
	ELSEIF ds_dynamic_cur.Find(ls_find,1,ds_dynamic_cur.RowCount()) = 0 THEN
		
		INSERT INTO sys_dft_dwprint_dynamic(
			sys_dft_dwprint_dynamic.chnname,
			sys_dft_dwprint_dynamic.dft_new_dwname,
			sys_dft_dwprint_dynamic.pblname,
			sys_dft_dwprint_dynamic.prownum,
			sys_dft_dwprint_dynamic.dwtype  ,
			sys_dft_dwprint_dynamic.powerid  ,
			sys_dft_dwprint_dynamic.auditprint,
			sys_dft_dwprint_dynamic.ptype,
			sys_dft_dwprint_dynamic.dwprintid,
			sys_dft_dwprint_dynamic.dft_old_dwname,
			sys_dft_dwprint_dynamic.ifuse,
			sys_dft_dwprint_dynamic.ifdefault)
			VALUES(
			:chnname,
			:dft_new_dwname,
			:pblname,
			:prownum,
			:dwtype  ,
			:powerid  ,
			:auditprint,
			:ptype,
			:dwprintid,
			:dft_old_dwname,
			:ifuse,
			:ifdefault);
		IF sqlca.SQLCode <> 0 THEN
			MessageBox('提示','插入数据库表的数据失败,'+sqlca.SQLErrText,information!,ok!)
			rollback;
			RETURN
		END IF
	END IF
NEXT

COMMIT;
MessageBox('提示','导入数据库表的数据成功',information!,ok!)










end event

type cb_export from uo_imflatbutton within w_dwprint_dynamic_imexport
integer x = 1810
integer y = 376
integer width = 325
integer height = 96
integer taborder = 40
boolean bringtotop = true
string text = "导出"
end type

event clicked;call super::clicked;
string arg_filename,arg_msg
blob arg_blob

arg_filename = trim(sle_filename1.text)
if arg_filename = '' then
	messagebox('提示','请输入文件名称',information!,ok!)
	return
end if

if messagebox("询问","是否确定要将打印格式设置导出成文件",question!,yesno!,1) = 2 then
	return
end if

datastore ds_dynamic

ds_dynamic = create datastore
ds_dynamic.dataobject = 'dw_dwprint_dynamic'
ds_dynamic.settransobject(sqlca)
ds_dynamic.retrieve('全部')

if fileexists(arg_filename) then
	if messagebox("询问","指定文件已经存在，是否覆盖该文件?",question!,yesno!,2) = 2 then
		return
	end if
end if

if ds_dynamic.saveas(arg_filename,dbase2!,false) = 1 then
	arg_msg = '数据导出成功!'
else
	arg_msg = '数据导出失败，如果该文件已打开请先关闭此文件再试!'
end if

messagebox('提示',arg_msg,information!,ok!)






end event

type sle_filename1 from singlelineedit within w_dwprint_dynamic_imexport
integer x = 96
integer y = 376
integer width = 1586
integer height = 92
integer taborder = 40
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

type cb_2 from uo_imflatbutton within w_dwprint_dynamic_imexport
integer x = 1696
integer y = 376
integer width = 114
integer height = 96
integer taborder = 50
boolean bringtotop = true
string text = "..."
end type

event clicked;call super::clicked;
Integer i
String Pathname
String Filename


i = GetFileSaveName("选择文件",Pathname,Filename,"Dbf","数据文件Dbf,*.Dbf")

IF i = 1 AND Trim(Pathname) <> "" AND Trim(Filename) <> "" THEN
	PARENT.sle_filename1.Text = Pathname
END IF

RETURN

end event

type gb_1 from groupbox within w_dwprint_dynamic_imexport
integer x = 55
integer y = 48
integer width = 2107
integer height = 216
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 79741120
string text = "导入文件路径"
end type

type gb_2 from groupbox within w_dwprint_dynamic_imexport
integer x = 59
integer y = 308
integer width = 2107
integer height = 216
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 79741120
string text = "导出文件路径"
end type