Q5/ws_objects/longjoe_report_uo.pbl.src/w_rpt_sentdataout.srw

$PBExportHeader$w_rpt_sentdataout.srw
$PBExportComments$数据发送窗口
forward
global type w_rpt_sentdataout from w_rpt_publ_base
end type
type cb_backup from uo_imflatbutton within w_rpt_sentdataout
end type
type st_1 from statictext within w_rpt_sentdataout
end type
type sle_filename from singlelineedit within w_rpt_sentdataout
end type
type cb_ch from commandbutton within w_rpt_sentdataout
end type
type gb_1 from groupbox within w_rpt_sentdataout
end type
type ddlb_dataformat from dropdownlistbox within w_rpt_sentdataout
end type
end forward

global type w_rpt_sentdataout from w_rpt_publ_base
integer width = 1883
integer height = 628
string title = "龙嘉数据发送"
boolean minbox = false
windowtype windowtype = response!
cb_backup cb_backup
st_1 st_1
sle_filename sle_filename
cb_ch cb_ch
gb_1 gb_1
ddlb_dataformat ddlb_dataformat
end type
global w_rpt_sentdataout w_rpt_sentdataout

type variables
DATAWINDOW OBJ_DW
INT ddlb_dataformat_INDEX=1
end variables

on w_rpt_sentdataout.create
int iCurrent
call super::create
this.cb_backup=create cb_backup
this.st_1=create st_1
this.sle_filename=create sle_filename
this.cb_ch=create cb_ch
this.gb_1=create gb_1
this.ddlb_dataformat=create ddlb_dataformat
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_backup
this.Control[iCurrent+2]=this.st_1
this.Control[iCurrent+3]=this.sle_filename
this.Control[iCurrent+4]=this.cb_ch
this.Control[iCurrent+5]=this.gb_1
this.Control[iCurrent+6]=this.ddlb_dataformat
end on

on w_rpt_sentdataout.destroy
call super::destroy
destroy(this.cb_backup)
destroy(this.st_1)
destroy(this.sle_filename)
destroy(this.cb_ch)
destroy(this.gb_1)
destroy(this.ddlb_dataformat)
end on

event open;call super::open;OBJ_DW=Message.PowerObjectParm
//IF OBJ_DW.DATAOBJECT='' THEN CLOSE(THIS)
end event

type cb_exit from w_rpt_publ_base`cb_exit within w_rpt_sentdataout
integer x = 1138
integer y = 388
integer width = 320
end type

type cb_backup from uo_imflatbutton within w_rpt_sentdataout
integer x = 453
integer y = 388
integer width = 320
integer height = 96
integer taborder = 60
string text = "发送"
end type

event clicked;call super::clicked;if not f_power_ind(126) then
	messagebox(publ_operator,'你没有使用权限！')
	return
end if

integer SAVE_RSLT=0

IF ddlb_dataformat_INDEX<>4 AND LEN(TRIM(sle_filename.text))<=5 THEN 
	MESSAGEBOX('错误','请检查文件名!')
	RETURN
END IF

if fileexists(sle_filename.text) then
   if messagebox("系统提示","指定文件已经存在，是否覆盖该文件?",Question!,YesNo!,2)=2 then	
		return
	end if
end if

CHOOSE CASE ddlb_dataformat_INDEX
	CASE 1 //EXCEL
		 n_cst_dw2Excel lnv_Excel
       SAVE_RSLT = lnv_Excel.OF_dw2Excel(obj_dw,sle_filename.Text,'Sheet1')

	CASE 2 //HTML
		SAVE_RSLT=obj_dw.SaveAs(sle_filename.TEXT,HTMLTable!,FALSE)
	CASE 3 //TEXT
		SAVE_RSLT=obj_dw.SaveAs(sle_filename.TEXT,Text!,FALSE)
	CASE 4 //CLB
		SAVE_RSLT=obj_dw.SaveAs(sle_filename.TEXT,Clipboard!,FALSE)
	CASE ELSE
END CHOOSE

IF SAVE_RSLT=1 THEN 
	messagebox("成功信息","数据发送操作成功!")
ELSE
	messagebox("失败信息","数据发送操作失败!请检查目标文件名称是否拼写正确!")
END IF


//Clipboard! Save to the clipboard
//CSV! ?Comma-separated values
//dBASE2! ?dBASE-II format
//dBASE3! ?dBASE-III format
//DIF! ?Data Interchange Format
//Excel! ?Microsoft Excel format
//Excel5! ?Microsoft Excel 5 format
//HTMLTable! ?Text with HTML formatting that approximates the DataWindow layout
//PSReport! ?Powersoft Report (PSR) format
//SQLInsert! ?SQL syntax
//SYLK! ?Microsoft Multiplan format
//Text! ?(Default) Tab-separated columns with a return at the end of each row
//WKS! ?Lotus 1-2-3 format
//WK1! ?Lotus 1-2-3 format
//WMF! ?Windows Metafile format
end event

type st_1 from statictext within w_rpt_sentdataout
integer x = 73
integer y = 32
integer width = 480
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 79741120
string text = "目标发送数据格式:"
boolean focusrectangle = false
end type

type sle_filename from singlelineedit within w_rpt_sentdataout
integer x = 96
integer y = 216
integer width = 1559
integer height = 92
integer taborder = 50
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_ch from commandbutton within w_rpt_sentdataout
integer x = 1659
integer y = 216
integer width = 114
integer height = 92
integer taborder = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "..."
end type

event clicked;string DATAFORMAT=''
integer i
string pathname,filename

CHOOSE CASE ddlb_dataformat_INDEX
	CASE 1 //EXCEL
		DATAFORMAT='XLS'
	CASE 2 //HTML
		DATAFORMAT='HTML'		
	CASE 3 //TEXT
		DATAFORMAT='TXT'
	CASE ELSE
END CHOOSE

i=getfilesavename("给予目标文件名",pathname,filename,DATAFORMAT,ddlb_dataformat.text+',*.'+DATAFORMAT)
IF i=1 AND TRIM(pathname)<>'' AND TRIM(FILENAME)<>"" THEN
 sle_filename.text=pathname
END IF


end event

type gb_1 from groupbox within w_rpt_sentdataout
integer x = 32
integer y = 136
integer width = 1810
integer height = 216
integer taborder = 30
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 ddlb_dataformat from dropdownlistbox within w_rpt_sentdataout
integer x = 544
integer y = 20
integer width = 571
integer height = 740
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
string item[] = {"Excel (*.xls)","HTML (*.htmL)","Text (*.txt)","剪切板"}
borderstyle borderstyle = stylelowered!
end type

event constructor;if THIS.TotalItems ( )>=1 then THIS.SelectItem(1)
end event

event selectionchanged;ddlb_dataformat_INDEX=index

IF INDEX =4 THEN
 sle_filename.ENABLED=FALSE
 cb_ch.ENABLED=FALSE
ELSE
 sle_filename.ENABLED=TRUE
 cb_ch.ENABLED=TRUE
END IF

sle_filename.TEXT=''
end event