jgsearchgjjds.pas

ProviceSystem-公积金监管系统中心端

unit JGSearchGjjDs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComCtrls, ImgList, ToolWin, DBGrids, DB;

type
  TJGSearchGjjDsGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    StatusBar1: TStatusBar;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    sNy: string;
  end;

var
  JGSearchGjjDsGL: TJGSearchGjjDsGL;

implementation

uses dmPJg, JGSearchGjjDw, JGSearch, JGGjjDwTj;

{$R *.dfm}

procedure TJGSearchGjjDsGL.ToolButton6Click(Sender: TObject);
begin
  close;
end;

procedure TJGSearchGjjDsGL.FormCreate(Sender: TObject);
begin
  datasource1.DataSet := DM.cds_Cx;
end;

procedure TJGSearchGjjDsGL.DBGrid1DblClick(Sender: TObject);
var
  JGSearchGjjDwGL: TJGSearchGjjDwGL;
  GjjTj: TJGGjjDwTjGL;
  cmd, cFilter: string;
  cBm1, cBm2, cMc: string;
  iTj1, iTj2, iTj3: Smallint;
  cYe1, cYe2, cJc1, cJc2, cZq1, cZq2: string;
  lTj1, lTj2, lTj3, lTj4, lTj5: Boolean;
begin
  GjjTj := TJGGjjDwTjGL.create(application);
  if GjjTj.ShowModal = mrCancel then
  begin
    exit;
  end;
  cBm1 := trim(GjjTj.EdtBh1.Text);
  cBm2 := trim(GjjTj.EdtBh2.Text);
  cMc := trim(GjjTj.EdtMc.Text);
  if cMc <> '' then
    cMc := '%' + cMc + '%';
  iTj1 := GjjTj.CboTjYe.ItemIndex;
  iTj2 := GjjTj.CboTjJc.ItemIndex;
  iTj3 := GjjTj.CboTjZq.ItemIndex;
  cYe1 := trim(inttostr(GjjTj.SpinEdit1.Value));
  cYe2 := trim(inttostr(GjjTj.SpinEdit2.Value));
  cJc1 := trim(inttostr(GjjTj.SpinEdit3.Value));
  cJc2 := trim(inttostr(GjjTj.SpinEdit4.Value));
  cZq1 := trim(inttostr(GjjTj.SpinEdit5.Value));
  cZq2 := trim(inttostr(GjjTj.SpinEdit6.Value));
  lTj1 := GjjTj.CheckBox1.Checked;
  lTj2 := GjjTj.CheckBox2.Checked;
  lTj3 := GjjTj.CheckBox3.Checked;
  lTj4 := GjjTj.CheckBox4.Checked;
  lTj5 := GjjTj.CheckBox5.Checked;
  GjjTj.Free;

  cFilter := '';
  if lTj1 then
    cFilter := ' and (DWZH>=''' + cBm1 + ''' and DWZH<=''' + cBm2 + ''')';
  if lTj2 and (cMc <> '') then
    cFilter := cFilter + ' and (DWMC like ''' + cMc + ''')';
  if lTj3 then
  begin
    case iTj1 of
      0: cFilter := cFilter + ' and (YJCE>' + cYe1 + ')';
      1: cFilter := cFilter + ' and (YJCE>=' + cYe1 + ')';
      2: cFilter := cFilter + ' and (YJCE<' + cYe1 + ')';
      3: cFilter := cFilter + ' and (YJCE<=' + cYe1 + ')';
      4: cFilter := cFilter + ' and (YJCE>=' + cYe1 + ' and YJCE<=' + cYe2 +
        ')';
    end;
  end;
  if lTj4 then
  begin
    case iTj2 of
      0: cFilter := cFilter + ' and (QJJE>' + cJc1 + ')';
      1: cFilter := cFilter + ' and (QJJE>=' + cJc1 + ')';
      2: cFilter := cFilter + ' and (QJJE<' + cJc1 + ')';
      3: cFilter := cFilter + ' and (QJJE<=' + cJc1 + ')';
      4: cFilter := cFilter + ' and (QJJE>=' + cJc1 + ' and QJJE<=' + cJc2 +
        ')';
    end;
  end;
  if lTj5 then
  begin
    case iTj3 of
      0: cFilter := cFilter + ' and (YE>' + cZq1 + ')';
      1: cFilter := cFilter + ' and (YE>=' + cZq1 + ')';
      2: cFilter := cFilter + ' and (YE<' + cZq1 + ')';
      3: cFilter := cFilter + ' and (YE<=' + cZq1 + ')';
      4: cFilter := cFilter + ' and (YE>=' + cZq1 + ' and YE<=' + cZq2 +
        ')';
    end;
  end;
  if trim(cFilter)<>'' then
    cmd:= 'select * from V_DWQK where '+  cFilter+
         ' union '+
         'select '''+ sNy +''',''合计'',0,0,isnull(sum(YJCE),0),'+
         ''''',0,isnull(sum(QJJE),0),isnull(sum(YE),0)'+
         ' from V_DWQK where '+ cFilter+
         ' order by DWZH'
  else
    cmd:= 'select * from V_DWQK '+
         ' union '+
         'select '''+ sNy +''',''合计'',0,0,isnull(sum(YJCE),0),'+
         ''''',0,isnull(sum(QJJE),0),isnull(sum(YE),0)'+
         ' from V_DWQK  '+
         ' order by DWZH';
   DM.GjjCx2(Cmd);
   JGSearchGjjDwGL:= TJGSearchGjjDwGL.create(application);
   JGSearchGjjDwGL.showmodal;
end;

procedure TJGSearchGjjDsGL.ToolButton4Click(Sender: TObject);
begin
  DBGrid1.OnDblClick(self);
end;

end.