jgsearchgjjgr.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 82 行

unit JGSearchGjjGr;

interface

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

type
  TJGSearchGjjGrGL = 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;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure ToolButton6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JGSearchGjjGrGL: TJGSearchGjjGrGL;

implementation

uses dmPJg, JGSearchGjjGrMx;

{$R *.dfm}

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


procedure TJGSearchGjjGrGL.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet:= DM.cds_Cx3;
  dbgrid1.Columns[0].width:= 80;
  dbgrid1.Columns[1].width:= 80;
  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;

end;

procedure TJGSearchGjjGrGL.DBGrid1DblClick(Sender: TObject);
var
  JGSearchGjjGrMxGL: TJGSearchGjjGrMxGL;
  cmd, gsbm: string;
begin
  gsbm:= trim(DM.cds_Cx3.fieldbyname('GRSBM').AsString);
  cmd:= 'select * from V_GRTQMX where GRSBM= '''+ gsbm +'''';
{  cmd:= 'select * from V_GRMXZ where GSBM= '''+ gsbm +''''+
        ' union '+
        'select '''',''合计'','''','''','''',isnull(sum(JF),0),'+
        'isnull(sum(DF),0),'''','''' from V_GRMXZ';//+
 //       ' where GSBM= '''+ gsbm +'''';//+
//        ' order by RZRQ';   }
  DM.GjjCx4(Cmd);
  JGSearchGjjGrMxGL:= TJGSearchGjjGrMxGL.Create(application);
  JGSearchGjjGrMxGL.ShowModal;
end;

end.