hanxuntao
/
DONGSHENG6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '9abf05a513'
${ noResults }
DONGSHENG6/业务统计/u_rp_fen_seae.pas

564 lines
17 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_rp_fen_seae;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
RxMemDS, bsSkinCtrls, TeEngine, Series, TeeProcs, Chart, DbChart, DB,
ADODB, Menus, XPMenu, ExtCtrls,teeprevi, StdCtrls, Dialogs, ExtDlgs,
Mask, wwdbedit, Wwdotdot, Wwdbcomb, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid,
dxCntner, ComCtrls, bsSkinTabs, dxDBTLCl, dxGrClms;
type
Tfrm_rp_fen_seae = class(TForm)
Panel1: TPanel;
bsSkinPanel2: TbsSkinPanel;
p_client: TADOStoredProc;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinPanel1: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
bsSkinPanel3: TbsSkinPanel;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
wwDBComboBox1: TwwDBComboBox;
p_client1: TDataSource;
bsSkinButton1: TbsSkinButton;
SaveDialog1: TSaveDialog;
bsSkinCheckRadioBox11: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox12: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox13: TbsSkinCheckRadioBox;
bsSkinPanel4: TbsSkinPanel;
bsSkinPanel5: TbsSkinPanel;
bsSkinCheckRadioBox10: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox9: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox14: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox15: TbsSkinCheckRadioBox;
PopupMenu1: TPopupMenu;
EXCEL1: TMenuItem;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinTabSheet2: TbsSkinTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
p_seae: TADOStoredProc;
p_seae1: TDataSource;
dxDBGrid2: TdxDBGrid;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column3: TdxDBGridMaskColumn;
dxDBGrid1Column4: TdxDBGridMaskColumn;
dxDBGrid1Column6: TdxDBGridDateColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridMaskColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridMaskColumn;
dxDBGrid1Column21: TdxDBGridMaskColumn;
dxDBGrid1Column23: TdxDBGridMaskColumn;
dxDBGrid1Column24: TdxDBGridMaskColumn;
dxDBGrid1Column25: TdxDBGridMaskColumn;
dxDBGrid1Column26: TdxDBGridDateColumn;
dxDBGrid1Column27: TdxDBGridDateColumn;
dxDBGrid1Column28: TdxDBGridDateColumn;
dxDBGrid1Column29: TdxDBGridMaskColumn;
dxDBGrid1Column31: TdxDBGridMaskColumn;
dxDBGrid1Column43: TdxDBGridMaskColumn;
dxDBGrid1Column51: TdxDBGridMaskColumn;
dxDBGrid1Column54: TdxDBGridMaskColumn;
dxDBGrid1Column55: TdxDBGridMaskColumn;
dxDBGrid1Column56: TdxDBGridColumn;
dxDBGrid1Column57: TdxDBGridColumn;
dxDBGrid11: TdxDBGridMaskColumn;
dxDBGrid12: TdxDBGridMaskColumn;
dxDBGrid13: TdxDBGridMaskColumn;
dxDBGrid14: TdxDBGridMaskColumn;
dxDBGrid15: TdxDBGridMaskColumn;
dxDBGrid16: TdxDBGridMaskColumn;
dxDBGrid17: TdxDBGridMaskColumn;
dxDBGrid18: TdxDBGridMaskColumn;
dxDBGrid19: TdxDBGridMaskColumn;
dxDBGrid110: TdxDBGridMaskColumn;
dxDBGrid1Column80: TdxDBGridMaskColumn;
dxDBGrid1TEU: TdxDBGridMaskColumn;
dxDBGrid1Column82: TdxDBGridMaskColumn;
dxDBGrid1Column83: TdxDBGridMaskColumn;
dxDBGrid1Column84: TdxDBGridDateColumn;
dxDBGrid1Column88: TdxDBGridMaskColumn;
dxDBGrid1Column89: TdxDBGridMaskColumn;
dxDBGrid1Column90: TdxDBGridMaskColumn;
dxDBGrid1Column92: TdxDBGridMaskColumn;
dxDBGrid1Column93: TdxDBGridMaskColumn;
dxDBGrid1Column85: TdxDBGridMaskColumn;
dxDBGrid1Column87: TdxDBGridMaskColumn;
dxDBGrid1Column86: TdxDBGridMaskColumn;
dxDBGrid1USD: TdxDBGridColumn;
dxDBGrid1RMB: TdxDBGridColumn;
dxDBGrid1Column102: TdxDBGridColumn;
dxDBGrid1Column105: TdxDBGridColumn;
dxDBGrid1Column108: TdxDBGridColumn;
dxDBGrid1Column111: TdxDBGridColumn;
dxDBGrid1Column114: TdxDBGridColumn;
dxDBGrid1Column115: TdxDBGridColumn;
dxDBGrid1Column116: TdxDBGridColumn;
dxDBGrid1Column117: TdxDBGridMaskColumn;
dxDBGrid1Column68: TdxDBGridColumn;
dxDBGrid1Column69: TdxDBGridColumn;
PopupMenu2: TPopupMenu;
N10: TMenuItem;
N11: TMenuItem;
N14: TMenuItem;
N13: TMenuItem;
N12: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
bsSkinPanel6: TbsSkinPanel;
bsSkinPageControl2: TbsSkinPageControl;
tab1: TbsSkinTabSheet;
tab2: TbsSkinTabSheet;
DBChart1: TDBChart;
LineSeries2: TBarSeries;
DBChart2: TDBChart;
BarSeries1: TBarSeries;
DBChart3: TDBChart;
BarSeries2: TBarSeries;
dxDBGrid1Column12: TdxDBGridColumn;
dxDBGrid1Column13: TdxDBGridColumn;
bsSkinCheckRadioBox16: TbsSkinCheckRadioBox;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure bsSkinButton9Click(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinCheckRadioBox1Click(Sender: TObject);
procedure bsSkinPanel1Resize(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinCheckRadioBox13Click(Sender: TObject);
procedure bsSkinPanel4Resize(Sender: TObject);
procedure bsSkinPanel5Resize(Sender: TObject);
procedure EXCEL1Click(Sender: TObject);
procedure dxDBGrid1DblClick(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_rp_fen_seae: Tfrm_rp_fen_seae;
fen_seae_str:widestring;
implementation
uses u_main, my_sys_function, u_sys_progress;
{$R *.dfm}
procedure Tfrm_rp_fen_seae.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_fen_seae.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
savereggrid(dxdbgrid2,caption+'2');
frm_rp_fen_seae.Hide;
frm_rp_fen_seae.ManualFloat(frm_rp_fen_seae.BoundsRect );
frm_main.freeTabs('frm_rp_fen_seae');
action:=cafree;
frm_rp_fen_seae:=nil;
end;
procedure Tfrm_rp_fen_seae.bsSkinButton9Click(Sender: TObject);
begin
chartpreview(frm_rp_fen_seae,dbchart1);
end;
procedure Tfrm_rp_fen_seae.bsSkinButton10Click(Sender: TObject);
VAR
i:integer;
begin
try
i:=strtoint(Edit1.text);
if i<1 then
begin
showmessage('<27><><EFBFBD>α<EFBFBD><CEB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>');
exit;
end;
except
showmessage('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD><CEA3><EFBFBD>');
exit;
end;
query_seae(8,'0037');
if bsSkinCheckRadioBox13.Checked then
frm_rp_fen_seae.bsSkinCheckRadioBox13Click(Sender)
else
frm_rp_fen_seae.bsSkinCheckRadioBox1Click(Sender);
end;
procedure Tfrm_rp_fen_seae.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/12);
bsSkinCheckRadioBox1.Width:=i;
bsSkinCheckRadioBox2.Width:=i;
bsSkinCheckRadioBox3.Width:=i;
bsSkinCheckRadioBox4.Width:=i;
bsSkinCheckRadioBox5.Width:=i;
bsSkinCheckRadioBox6.Width:=i;
bsSkinCheckRadioBox7.Width:=i;
bsSkinCheckRadioBox8.Width:=i;
bsSkinCheckRadioBox11.Width:=i;
bsSkinCheckRadioBox12.Width:=i;
bsSkinCheckRadioBox13.Width:=i;
bsSkinCheckRadioBox16.Width:=i;
end;
procedure Tfrm_rp_fen_seae.bsSkinCheckRadioBox1Click(Sender: TObject);
var
str,tongji,paixu:string;
i:integer;
begin
if bsSkinCheckRadioBox13.Checked then begin
frm_rp_fen_seae.bsSkinCheckRadioBox13Click(Sender);
exit;
end;
if not bsSkinCheckRadioBox9.Checked then
tab2.TabVisible:=false;
bsSkinPanel4.Visible:=true;
bsSkinPanel5.Visible:=false;
try
i:=strtoint(Edit1.text);
if i<1 then
begin
showmessage('<27><><EFBFBD>α<EFBFBD><CEB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>');
exit;
end;
except
showmessage('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD><CEA3><EFBFBD>');
exit;
end;
if wwDBComboBox1.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>');
exit;
end;
if wwDBComboBox1.ItemIndex=0 then
paixu:='desc'
else
paixu:='';
if fen_seae_str='' then
exit;
if bsSkinCheckRadioBox1.Checked then
str:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
str:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
str:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
str:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
str:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
str:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox7.Checked then
str:=bsSkinCheckRadioBox7.Caption;
if bsSkinCheckRadioBox8.Checked then
str:=bsSkinCheckRadioBox8.Caption;
if bsSkinCheckRadioBox11.Checked then
str:=bsSkinCheckRadioBox11.Caption;
if bsSkinCheckRadioBox12.Checked then
str:=bsSkinCheckRadioBox12.Caption;
if bsSkinCheckRadioBox16.Checked then
str:=bsSkinCheckRadioBox16.Caption;
if bsSkinCheckRadioBox9.checked then
begin
tongji:='t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>';
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.add('<27><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>Ӧ<EFBFBD><D3A6>ë<EFBFBD><C3AB><EFBFBD><EFBFBD>ǰ'+edit1.text+'<27><>');
p_client.close;
p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT top '
+Edit1.text+' sum(t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>,'+'sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB) as <20><><EFBFBD><EFBFBD>2,'+'sum(t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>3'
+',t_op_seae.'+str+' as <20><>׼'
+' FROM t_op_seae inner JOIN t_op_gain_main ON '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> =t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+fen_seae_str
+' group by t_op_seae.'+str
+' order by sum('+tongji+') '+paixu;
p_client.Open;
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column12.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>';
dxDBGrid1Column13.Caption:='<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>';
end
else
begin
tongji:='t_op_seae.<2E><>TEU';
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.add('<27><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>TEUǰ'+edit1.text+'<27><>');
p_client.close;
p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT top '
+Edit1.text+' sum('+tongji+') as <20><><EFBFBD><EFBFBD>,'+'sum('+tongji+') as <20><><EFBFBD><EFBFBD>2,'+'sum('+tongji+') as <20><><EFBFBD><EFBFBD>3'
+',t_op_seae.'+str+' as <20><>׼'
+' FROM t_op_seae inner JOIN t_op_gain_main ON '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> =t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+fen_seae_str
+' group by t_op_seae.'+str
+' order by sum('+tongji+') '+paixu;
p_client.Open;
dxDBGrid1Column12.Visible:=false;
dxDBGrid1Column13.Visible:=false;
end;
end;
procedure Tfrm_rp_fen_seae.bsSkinPanel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round((bsSkinPanel1.Width-bsSkinPanel3.Width)/6);
if bsSkinCheckRadioBox13.Checked then begin
bsSkinPanel5.Width:=2*i;
end else begin
bsSkinPanel4.Width:=2*i;
end;
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
wwDBComboBox1.ItemIndex:=0;
end;
procedure Tfrm_rp_fen_seae.bsSkinButton1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
frm_rp_fen_seae.GetFormImage.SaveToFile(SaveDialog1.FileName+'.bmp');
end;
procedure Tfrm_rp_fen_seae.bsSkinCheckRadioBox13Click(Sender: TObject);
var
str,tongji,paixu:string;
i:integer;
sl:tstrings;
begin
i:=round((bsSkinPanel1.Width-bsSkinPanel3.Width)/6);
if bsSkinCheckRadioBox13.Checked then begin
bsSkinPanel4.Visible:=false;
bsSkinPanel5.Visible:=true;
bsSkinPanel5.Width:=2*i;
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
end else begin
bsSkinPanel4.Visible:=true;
bsSkinPanel5.Visible:=false;
bsSkinPanel4.Width:=2*i;
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
end;
TAB2.TabVisible:=true;
try
i:=strtoint(Edit1.text);
if i<1 then
begin
showmessage('<27><><EFBFBD>α<EFBFBD><CEB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>');
exit;
end;
except
showmessage('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Σ<EFBFBD><CEA3><EFBFBD>');
exit;
end;
if wwDBComboBox1.ItemIndex=-1 then
begin
showmessage('<27><><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>');
exit;
end;
if wwDBComboBox1.ItemIndex=0 then
paixu:='desc'
else
paixu:='';
if fen_seae_str='' then
exit;
str:=bsSkinCheckRadioBox13.Caption;
sl:=TStringList.Create;
if bsSkinCheckRadioBox14.checked then
begin
if fen_seae_str='' then
tongji:=' where t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>'''
else
tongji:=fen_seae_str+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>''';
p_client.close;
p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT top '
+Edit1.text+' sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>'+', sum(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD>2'+', sum(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD>3'
+',t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> as <20><>׼'
+' FROM t_ch_fee inner JOIN t_op_seae ON '
+'t_ch_fee.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> '
+tongji
+' group by t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
+' order by sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) '+paixu;
p_client.Open;
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.add('<27><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>Ӧ<EFBFBD><D3A6><EFBFBD>ʿ<EFBFBD>ǰ'+edit1.text+'<27><>');
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column12.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>';
dxDBGrid1Column13.Caption:='<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>';
end
else
begin
if fen_seae_str='' then
tongji:=' where t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>'''
else
tongji:=fen_seae_str+' and t_ch_fee.<2E><><EFBFBD><EFBFBD>=''<27><>''';
p_client.close;
p_client.Parameters.ParamByName('SQLStr').value:=
'SELECT top '
+Edit1.text+' sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>'+', sum(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'RMB'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD>2'+', sum(case t_ch_fee.<2E>ұ<EFBFBD> when '+''''+'USD'+''''+' then t_ch_fee.<2E><><EFBFBD><EFBFBD> else 0 end) as <20><><EFBFBD><EFBFBD>3'
+',t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> as <20><>׼'
+' FROM t_ch_fee inner JOIN t_op_seae ON '
+'t_ch_fee.<2E><><EFBFBD><EFBFBD> =t_op_seae.<2E><><EFBFBD><EFBFBD> '
+tongji
+' group by t_ch_fee.<2E>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'
+' order by sum(t_ch_fee.<2E><><EFBFBD><EFBFBD>*t_ch_fee.<2E><><EFBFBD><EFBFBD>) '+paixu;
p_client.Open;
DBChart1.Title.Text.Clear;
DBChart1.Title.Text.add('<27><><EFBFBD><EFBFBD>ҵ<EFBFBD><D2B5>Ӧ<EFBFBD><D3A6><EFBFBD>ʿ<EFBFBD>ǰ'+edit1.text+'<27><>');
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column12.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>ҽ<EFBFBD><D2BD><EFBFBD>';
dxDBGrid1Column13.Caption:='<27><>Ԫ<EFBFBD><D4AA><EFBFBD><EFBFBD>';
end;
FreeAndNil(sl);
end;
procedure Tfrm_rp_fen_seae.bsSkinPanel4Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel4.Width/2);
bsSkinCheckRadioBox9.Width:=i;
bsSkinCheckRadioBox10.Width:=i;
end;
procedure Tfrm_rp_fen_seae.bsSkinPanel5Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel5.Width/2);
bsSkinCheckRadioBox14.Width:=i;
bsSkinCheckRadioBox15.Width:=i;
end;
procedure Tfrm_rp_fen_seae.EXCEL1Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_rp_fen_seae.dxDBGrid1DblClick(Sender: TObject);
var
str,tongji,paixu:string;
i:integer;
begin
if not p_client.Active then exit;
if p_client.IsEmpty then exit;
if bsSkinCheckRadioBox13.Checked then begin
end else begin
if bsSkinCheckRadioBox1.Checked then
str:=bsSkinCheckRadioBox1.Caption;
if bsSkinCheckRadioBox2.Checked then
str:=bsSkinCheckRadioBox2.Caption;
if bsSkinCheckRadioBox3.Checked then
str:=bsSkinCheckRadioBox3.Caption;
if bsSkinCheckRadioBox4.Checked then
str:=bsSkinCheckRadioBox4.Caption;
if bsSkinCheckRadioBox5.Checked then
str:=bsSkinCheckRadioBox5.Caption;
if bsSkinCheckRadioBox6.Checked then
str:=bsSkinCheckRadioBox6.Caption;
if bsSkinCheckRadioBox7.Checked then
str:=bsSkinCheckRadioBox7.Caption;
if bsSkinCheckRadioBox8.Checked then
str:=bsSkinCheckRadioBox8.Caption;
if bsSkinCheckRadioBox11.Checked then
str:=bsSkinCheckRadioBox11.Caption;
if bsSkinCheckRadioBox12.Checked then
str:=bsSkinCheckRadioBox12.Caption;
if bsSkinCheckRadioBox16.Checked then
str:=bsSkinCheckRadioBox16.Caption;
p_seae.close;
p_seae.Parameters.ParamByName('SQLStr').value:=
'SELECT t_op_seae.*,t_op_gain_main.<2E><><EFBFBD><EFBFBD>USD,t_op_gain_main.Ӧ<><D3A6>USD,t_op_gain_main.Ӧ<><D3A6>RMB,t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.<2E><><EFBFBD><EFBFBD>RMB,t_op_gain_main.Ӧ<><D3A6>USD, t_op_gain_main.Ӧ<><D3A6>RMB,t_op_gain_main.<2E>ϼ<EFBFBD>Ӧ<EFBFBD><D3A6>,t_op_gain_main.ë<><C3AB><EFBFBD><EFBFBD>,t_op_gain_main.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '
+' FROM t_op_seae inner JOIN t_op_gain_main ON '
+'t_op_seae.<2E><><EFBFBD><EFBFBD> =t_op_gain_main.<2E><><EFBFBD><EFBFBD> '
+fen_seae_str
+' and t_op_seae.'+str+'='+''''+p_client.fieldbyname('<27><>׼').AsString+'''';
p_seae.Open;
bsSkinPageControl1.ActivePage:=bsSkinTabSheet2;
end;
// frm_rp_fen_seae.bsSkinCheckRadioBox1Click(Sender);
end;
procedure Tfrm_rp_fen_seae.N10Click(Sender: TObject);
begin
update_grid_view_no(dxdbgrid2);
end;
procedure Tfrm_rp_fen_seae.N14Click(Sender: TObject);
begin
update_grid_view_all(dxdbgrid2);
end;
procedure Tfrm_rp_fen_seae.N12Click(Sender: TObject);
begin
update_grid(dxdbgrid2,122);
end;
procedure Tfrm_rp_fen_seae.N16Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid2);
end;
procedure Tfrm_rp_fen_seae.FormShow(Sender: TObject);
begin
loadreggrid(dxdbgrid2,true,caption+'2');
end;
end.
Reference in New Issue View Git Blame Copy Permalink