jgsearchgjjdw.pas

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

unit JGSearchGjjDw;

interface

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

type
  TJGSearchGjjDwGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure ToolButton7Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JGSearchGjjDwGL: TJGSearchGjjDwGL;

implementation

uses dmPJg, JGSearchGjjGr, JGGjjGrTj; // JGGjjGrTjMx;

{$R *.dfm}

procedure TJGSearchGjjDwGL.ToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TJGSearchGjjDwGL.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet:= DM.cds_Cx2;
  dbgrid1.Columns[0].width:= 60;
  dbgrid1.Columns[1].width:= 160;
  dbgrid1.Columns[2].width:= 60;
  dbgrid1.Columns[3].width:= 60;
  dbgrid1.Columns[4].width:= 60;
  dbgrid1.Columns[5].width:= 60;
  dbgrid1.Columns[6].width:= 60;
  dbgrid1.Columns[7].width:= 60;
  dbgrid1.Columns[8].width:= 60;
end;

procedure TJGSearchGjjDwGL.DBGrid1DblClick(Sender: TObject);
var
  JGSearchGjjGrGL: TJGSearchGjjGrGL;
  GjjTj: TJGGjjGrTjGL;
  cmd, cFilter, dwzh: string;
  cBh1, cBh2, cMc, cSfzh: string;
  iTj1 : Smallint;
  cYe1, cYe2 : string;
  lTj1, lTj2, lTj3, lTj5: Boolean;
begin
  dwzh:= trim(DM.cds_Cx2.fieldbyname('DWZH').AsString);
  GjjTj := TJGGjjGrTjGL.create(application);
  GjjTj.cDw:= dwzh;
  GjjTj.iPadl:=11;
  if GjjTj.ShowModal = mrCancel then
  begin
    exit;
  end;
  cBh1 := trim(GjjTj.EdtBh1.Text);
  cBh2 := trim(GjjTj.EdtBh2.Text);
  cMc := trim(GjjTj.EdtMc.Text);
  cSfzh:= trim(GjjTj.EdtSfzh.Text);
  if cMc <> '' then
    cMc := '%' + cMc + '%';
  if cSfzh <> '' then
    cSfzh := '%' + cSfzh + '%';

  iTj1 := GjjTj.CboTjYe.ItemIndex;
  cYe1 := trim(inttostr(GjjTj.SpinEdit1.Value));
  cYe2 := trim(inttostr(GjjTj.SpinEdit2.Value));
  lTj1 := GjjTj.CheckBox1.Checked;
  lTj2 := GjjTj.CheckBox2.Checked;
  lTj3 := GjjTj.CheckBox3.Checked;
  lTj5 := GjjTj.CheckBox5.Checked;
  GjjTj.Free;

  cFilter := '';
  if lTj1 then
    cFilter := ' and (GRSBM>=''' + cBh1 + ''' and GRSBM<=''' + cBh2 + ''')';

  if lTj2 and (cMc <> '') then
    cFilter := cFilter + ' and (ZGXM like ''' + cMc + ''')';

  if lTj5 and (cSfzh <> '') then
    cFilter := cFilter + ' and (SFZH like ''' + cSfzh + ''')';

  if lTj3 then
  begin
    case iTj1 of
      0: cFilter := cFilter + ' and (DQYE>' + cYe1 + ')';
      1: cFilter := cFilter + ' and (DQYE>=' + cYe1 + ')';
      2: cFilter := cFilter + ' and (DQYE<' + cYe1 + ')';
      3: cFilter := cFilter + ' and (DQYE<=' + cYe1 + ')';
      4: cFilter := cFilter + ' and (DQYE>=' + cYe1 + ' and DQYE<=' + cYe2 +
        ')';
    end;
  end;

  cmd:= 'select * from V_GRJB where DWZH='''
        + dwzh +''''+ cFilter +
        ' union '+
        'select '' '',''合计'','''','''','''',isnull(sum(YJCE),0),'+
        'isnull(sum(DQYE),0),'''' from V_GRJB'+
        ' where DWZH= '''+dwzh+''''+ cFilter +
        ' order by GRSBM';

  DM.GjjCx3(Cmd);
  JGSearchGjjGrGL:= TJGSearchGjjGrGL.create(application);
  JGSearchGjjGrGL.showmodal;
end;

procedure TJGSearchGjjDwGL.ToolButton5Click(Sender: TObject);
begin
  DBGrid1.OnDblClick(self);
end;

end.