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_wl_total.~pas

287 lines
9.4 KiB
Plaintext
Raw Normal View History Unescape Escape

1
11 months ago
unit u_rp_wl_total;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, bsSkinCtrls, ExtCtrls, ComCtrls, bsSkinTabs, DB, ADODB,DateUtils,
dxExEdtr, dxDBTLCl, dxGrClms, dxDBGrid, dxTL, dxDBCtrl, dxCntner,
kbmMemTable, kbmMemBinaryStreamFormat, Menus, StdCtrls,
wwdbdatetimepicker, Grids, DBGridEh, Mask, wwdbedit, Wwdotdot, Wwdbcomb,
RxLookup, DBGrids;
type
Tfrm_rp_wl_total = class(TForm)
Panel1: TPanel;
bsSkinPanel2: TbsSkinPanel;
bsSkinButton10: TbsSkinButton;
bsSkinButton9: TbsSkinButton;
bsSkinButton1: TbsSkinButton;
bsSkinButton5: TbsSkinButton;
SaveDialog: TSaveDialog;
bsSkinPanel1: TbsSkinPanel;
bsSkinPageControl1: TbsSkinPageControl;
bsSkinTabSheet1: TbsSkinTabSheet;
bsSkinRadioGroup1: TbsSkinRadioGroup;
Label2: TLabel;
cbmonth: TwwDBComboBox;
Label1: TLabel;
cbYear: TwwDBComboBox;
t_ch_custbalance: TADOQuery;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridColumn;
dxDBGrid1Column8: TdxDBGridColumn;
dxDBGrid1Column9: TdxDBGridColumn;
dxDBGrid1Column10: TdxDBGridColumn;
bsSkinPanel3: TbsSkinPanel;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
t_ch_custbalance1: TDataSource;
dxDBGrid1Column7: TdxDBGridColumn;
dxDBGrid1Column11: TdxDBGridColumn;
dxDBGrid1Column12: TdxDBGridColumn;
dxDBGrid1Column13: TdxDBGridColumn;
dxDBGrid1Column14: TdxDBGridColumn;
dxDBGrid1Column15: TdxDBGridColumn;
dxDBGrid1Column16: TdxDBGridColumn;
dxDBGrid1Column17: TdxDBGridColumn;
dxDBGrid1Column18: TdxDBGridColumn;
dxDBGrid1Column19: TdxDBGridColumn;
dxDBGrid1Column20: TdxDBGridColumn;
dxDBGrid1Column21: TdxDBGridColumn;
dxDBGrid1Column22: TdxDBGridColumn;
dxDBGrid1Column23: TdxDBGridColumn;
dxDBGrid1Column24: TdxDBGridColumn;
dxDBGrid1Column25: TdxDBGridColumn;
dxDBGrid1Column26: TdxDBGridColumn;
dxDBGrid1Column27: TdxDBGridColumn;
dxDBGrid1Column28: TdxDBGridColumn;
dxDBGrid1Column29: TdxDBGridColumn;
dxDBGrid1Column30: TdxDBGridColumn;
RxDBLookupCombo12: TRxDBLookupCombo;
Label22: TLabel;
Label14: TLabel;
RxDBLookupCombo3: TRxDBLookupCombo;
Label40: TLabel;
RxDBLookupCombo15: TRxDBLookupCombo;
procedure bsSkinButton5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel1Resize(Sender: TObject);
procedure bsSkinButton10Click(Sender: TObject);
procedure bsSkinButton9Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
procedure bsSkinCheckRadioBox3Click(Sender: TObject);
procedure bsSkinRadioGroup1Checked(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_rp_wl_total: Tfrm_rp_wl_total;
FmDate,ToDate:String;
sqlstr:WideString;
implementation
uses u_main, my_sys_function,u_sys_progress, u_data_share;
{$R *.dfm}
procedure Tfrm_rp_wl_total.bsSkinButton5Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_rp_wl_total.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
frm_rp_wl_total.Hide;
frm_rp_wl_total.ManualFloat(frm_rp_wl_total.BoundsRect );
frm_main.freeTabs('frm_rp_wl_total');
action:=cafree;
frm_rp_wl_total:=nil;
end;
procedure Tfrm_rp_wl_total.Panel1Resize(Sender: TObject);
var
i:integer;
begin
i:=round(bsSkinPanel2.Width/7);
bsSkinButton10.Width:=i;
bsSkinButton9.Width:=i;
bsSkinButton1.Width:=i;
end;
procedure Tfrm_rp_wl_total.bsSkinButton10Click(Sender: TObject);
var
objname:string;
begin
if cbyear.Text='' then begin
MessageDlg('ͳ<><CDB3><EFBFBD>겻<EFBFBD><EAB2BB>Ϊ<EFBFBD><CEAA>!',mtWarning,[mbOk],0);
exit;
end;
if cbmonth.Text='' then begin
MessageDlg('ͳ<><CDB3><EFBFBD>·ݲ<C2B7><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!',mtWarning,[mbOk],0);
exit;
end;
with t_ch_custbalance,sql do begin
close;sql.Clear;
objname:=bsSkinRadioGroup1.Items.Strings[bsSkinRadioGroup1.ItemIndex];
dxDBGrid1Column6.Caption:=objname;
Add('select <20><>,<2C><>,'+objname+' as <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>');
Add(',sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD>USD');
Add(',sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Add(',sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>USD');
Add(',sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD>');
Add(',sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>,sum(<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>) as <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD>');
Add(' from t_ch_custbalance where <20><>='+cbyear.text+' and <20><>='+cbmonth.text);
if bsSkinCheckRadioBox3.Checked then
Add(' and (<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>ս<EFBFBD><D5BD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>շ<EFBFBD><D5B7><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD>պ<EFBFBD><D5BA><EFBFBD><EFBFBD>ϼ<EFBFBD><>0)');
if bsSkinCheckRadioBox2.Checked then
Add(' and (<28><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0 or <20><><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϼ<EFBFBD><>0)');
if RxDBLookupCombo12.DisplayValue<>'' then
Add(' and <20><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>='''+RxDBLookupCombo12.DisplayValue+'''');
if RxDBLookupCombo3.DisplayValue<>'' then
Add(' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo3.DisplayValue+'''');
if RxDBLookupCombo15.DisplayValue<>'' then
Add(' and <20>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>='''+RxDBLookupCombo15.DisplayValue+'''');
Add(' group by <20><>,<2C><>,'+objname);
open;
end;
t_ch_custbalance.open;
end;
procedure Tfrm_rp_wl_total.bsSkinButton9Click(Sender: TObject);
begin
sys_print('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD>',2,t_ch_custbalance1,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
end;
procedure Tfrm_rp_wl_total.FormShow(Sender: TObject);
begin
cbYear.ItemIndex:=cbYear.Items.IndexOf(inttostr(Logininfo.offyear));
cbmonth.ItemIndex:=cbmonth.Items.IndexOf(inttostr(Logininfo.offmonth));
bsSkinCheckRadioBox3.OnClick(sender);
end;
procedure Tfrm_rp_wl_total.bsSkinButton1Click(Sender: TObject);
begin
grid_save_xls(dxdbgrid1);
end;
procedure Tfrm_rp_wl_total.bsSkinCheckRadioBox3Click(Sender: TObject);
begin
if bsSkinCheckRadioBox3.Checked then begin
dxDBGrid1Column8.Visible:=true;
dxDBGrid1Column9.Visible:=true;
dxDBGrid1Column10.Visible:=true;
dxDBGrid1Column7.Visible:=false;
dxDBGrid1Column11.Visible:=false;
dxDBGrid1Column12.Visible:=false;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column14.Visible:=true;
dxDBGrid1Column15.Visible:=true;
dxDBGrid1Column16.Visible:=false;
dxDBGrid1Column17.Visible:=false;
dxDBGrid1Column18.Visible:=false;
dxDBGrid1Column19.Visible:=true;
dxDBGrid1Column20.Visible:=true;
dxDBGrid1Column21.Visible:=true;
dxDBGrid1Column22.Visible:=false;
dxDBGrid1Column23.Visible:=false;
dxDBGrid1Column24.Visible:=false;
dxDBGrid1Column25.Visible:=true;
dxDBGrid1Column26.Visible:=true;
dxDBGrid1Column27.Visible:=true;
dxDBGrid1Column28.Visible:=false;
dxDBGrid1Column29.Visible:=false;
dxDBGrid1Column30.Visible:=false;
end;
if bsSkinCheckRadioBox2.Checked then begin
dxDBGrid1Column8.Visible:=false;
dxDBGrid1Column9.Visible:=false;
dxDBGrid1Column10.Visible:=false;
dxDBGrid1Column7.Visible:=true;
dxDBGrid1Column11.Visible:=true;
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=false;
dxDBGrid1Column14.Visible:=false;
dxDBGrid1Column15.Visible:=false;
dxDBGrid1Column16.Visible:=true;
dxDBGrid1Column17.Visible:=true;
dxDBGrid1Column18.Visible:=true;
dxDBGrid1Column19.Visible:=false;
dxDBGrid1Column20.Visible:=false;
dxDBGrid1Column21.Visible:=false;
dxDBGrid1Column22.Visible:=true;
dxDBGrid1Column23.Visible:=true;
dxDBGrid1Column24.Visible:=true;
dxDBGrid1Column25.Visible:=false;
dxDBGrid1Column26.Visible:=false;
dxDBGrid1Column27.Visible:=false;
dxDBGrid1Column28.Visible:=true;
dxDBGrid1Column29.Visible:=true;
dxDBGrid1Column30.Visible:=true;
end;
if bsSkinCheckRadioBox1.Checked then begin
dxDBGrid1Column8.Visible:=true;
dxDBGrid1Column9.Visible:=true;
dxDBGrid1Column10.Visible:=true;
dxDBGrid1Column7.Visible:=true;
dxDBGrid1Column11.Visible:=true;
dxDBGrid1Column12.Visible:=true;
dxDBGrid1Column13.Visible:=true;
dxDBGrid1Column14.Visible:=true;
dxDBGrid1Column15.Visible:=true;
dxDBGrid1Column16.Visible:=true;
dxDBGrid1Column17.Visible:=true;
dxDBGrid1Column18.Visible:=true;
dxDBGrid1Column19.Visible:=true;
dxDBGrid1Column20.Visible:=true;
dxDBGrid1Column21.Visible:=true;
dxDBGrid1Column22.Visible:=true;
dxDBGrid1Column23.Visible:=true;
dxDBGrid1Column24.Visible:=true;
dxDBGrid1Column25.Visible:=true;
dxDBGrid1Column26.Visible:=true;
dxDBGrid1Column27.Visible:=true;
dxDBGrid1Column28.Visible:=true;
dxDBGrid1Column29.Visible:=true;
dxDBGrid1Column30.Visible:=true;
end;
end;
procedure Tfrm_rp_wl_total.bsSkinRadioGroup1Checked(Sender: TObject);
begin
bsSkinButton10.OnClick(sender);
end;
end.