D6HECHUAN/复件 业务统计/u_rp_in_fenlei.pas

unit u_rp_in_fenlei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, dxDBTLCl, dxGrClms, dxDBGrid, dxTL,
  dxDBCtrl, dxCntner, ComCtrls, bsSkinTabs, StdCtrls, Mask, wwdbedit,
  Wwdotdot, Wwdbcomb, RxLookup, wwdbdatetimepicker, bsSkinCtrls, ExtCtrls;

type
  Tfrm_rp_in_fenlei = class(TForm)
    Panel1: TPanel;
    bsSkinPanel2: TbsSkinPanel;
    Label10: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    RxDBLookupCombo2: TRxDBLookupCombo;
    p_shikai: TADOStoredProc;
    p_daikai: TADOStoredProc;
    p_daikai1: TDataSource;
    p_chongxiao: TADOStoredProc;
    p_chongxiao1: TDataSource;
    p_shikai1: TDataSource;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox1: TbsSkinGroupBox;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1USD: TdxDBGridColumn;
    dxDBGrid1RMB: TdxDBGridColumn;
    bsSkinGroupBox2: TbsSkinGroupBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGridMaskColumn1: TdxDBGridMaskColumn;
    dxDBGridColumn1: TdxDBGridColumn;
    dxDBGridColumn2: TdxDBGridColumn;
    bsSkinGroupBox3: TbsSkinGroupBox;
    dxDBGrid3: TdxDBGrid;
    dxDBGridMaskColumn2: TdxDBGridMaskColumn;
    dxDBGridColumn3: TdxDBGridColumn;
    dxDBGridColumn4: TdxDBGridColumn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinPanel2Resize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_in_fenlei: Tfrm_rp_in_fenlei;

implementation

uses u_main, u_data_share, my_sys_function;

{$R *.dfm}

procedure Tfrm_rp_in_fenlei.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frm_rp_in_fenlei.Hide;
  frm_rp_in_fenlei.ManualFloat(frm_rp_in_fenlei.BoundsRect );
  frm_main.freeTabs('frm_rp_in_fenlei');
  action:=cafree;
  frm_rp_in_fenlei:=nil;
end;

procedure Tfrm_rp_in_fenlei.bsSkinButton9Click(Sender: TObject);
begin
  sys_print('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>ͳ<EFBFBD><CDB3>',2,nil,nil,nil,nil,p_shikai1,p_daikai1,p_chongxiao1,nil,nil,nil,nil);
end;

procedure Tfrm_rp_in_fenlei.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_rp_in_fenlei.bsSkinButton10Click(Sender: TObject);
var
  str:widestring;
begin
  str:='SELECT <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN <20>ϼƽ<CFBC><C6BD><EFBFBD> ELSE 0 END) '
      +'AS USD<53><44><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN 0 ELSE <20>ϼƽ<CFBC><C6BD><EFBFBD> END) '
      +'AS RMB<4D><42><EFBFBD><EFBFBD> FROM t_ch_invoice WHERE <20>Ƿ<EFBFBD><C7B7>ϳ<EFBFBD> = 0 ';
  if wwDBDateTimePicker1.text<>'' then
    str:=str+' and <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>'' then
    str:=str+' and <20><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
  if RxDBLookupCombo2.DisplayValue<>'' then
    str:=str+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
  str:=str+' GROUP BY <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> order by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
  p_shikai.Close;
  p_shikai.Parameters.ParamByName('SQLStr').value:=str;
  p_shikai.open;

  str:='SELECT <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ELSE 0 END) '
      +'AS USD<53><44><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN 0 ELSE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> END) '
      +'AS RMB<4D><42><EFBFBD><EFBFBD> FROM t_ch_invoice_shen WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = '
      +''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+' AND <20><><EFBFBD><EFBFBD>״̬ = '+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+' ';
  if wwDBDateTimePicker1.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
  if RxDBLookupCombo2.DisplayValue<>'' then
    str:=str+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
  str:=str+' GROUP BY <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> order by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
  p_daikai.Close;
  p_daikai.Parameters.ParamByName('SQLStr').value:=str;
  p_daikai.open;

  str:='SELECT <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ELSE 0 END) '
      +'AS USD<53><44><EFBFBD><EFBFBD>, SUM(CASE <20>ұ<EFBFBD> WHEN '+''''+'USD'+''''+' THEN 0 ELSE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> END) '
      +'AS RMB<4D><42><EFBFBD><EFBFBD> FROM t_ch_invoice_shen WHERE <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = '
      +''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+' AND <20><><EFBFBD><EFBFBD>״̬ = '+''''+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ʊ'+''''+' ';
  if wwDBDateTimePicker1.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker1.text+'''';
  if wwDBDateTimePicker2.text<>'' then
    str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker2.text+'''';
  if RxDBLookupCombo2.DisplayValue<>'' then
    str:=str+' and <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>='+''''+RxDBLookupCombo2.DisplayValues[1]+'''';
  str:=str+' GROUP BY <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD> order by <20>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
  p_chongxiao.Close;
  p_chongxiao.Parameters.ParamByName('SQLStr').value:=str;
  p_chongxiao.open;
end;

procedure Tfrm_rp_in_fenlei.bsSkinPanel2Resize(Sender: TObject);
var
  i:integer;
begin
  i:=ROUND(bsSkinPanel2.Width/3);
  bsSkinGroupBox1.Width:=i;
  bsSkinGroupBox2.Width:=i;
end;

end.