jgsearchdkgr.pas

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

unit JGSearchDkGr;

interface

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

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

var
  JGSearchDkGrGL: TJGSearchDkGrGL;

implementation

uses dmPJg;

{$R *.dfm}

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


procedure TJGSearchDkGrGL.FormCreate(Sender: TObject);
begin
  DataSource1.DataSet:=   DM.cds_Cx2;
  dbgrid1.Columns[0].width:= 70;
  dbgrid1.Columns[1].width:= 80;
  dbgrid1.Columns[2].width:= 60;
  dbgrid1.Columns[3].width:= 70;
  dbgrid1.Columns[4].width:= 120;
  dbgrid1.Columns[5].width:= 60;
  dbgrid1.Columns[6].width:= 60;
  dbgrid1.Columns[7].width:= 60;
  dbgrid1.Columns[8].width:= 60;
  dbgrid1.Columns[9].width:= 60;
  dbgrid1.Columns[10].width:= 60;
  dbgrid1.Columns[11].width:= 60;
  dbgrid1.Columns[12].width:= 60;
  dbgrid1.Columns[13].width:= 60;
  dbgrid1.Columns[14].width:= 60;
  dbgrid1.Columns[15].width:= 60;
  dbgrid1.Columns[16].width:= 60;
  dbgrid1.Columns[17].width:= 60;
  dbgrid1.Columns[18].width:= 60;
  dbgrid1.Columns[19].width:= 80;
  dbgrid1.Columns[20].width:= 80;
  dbgrid1.Columns[21].width:= 60;
  dbgrid1.Columns[22].width:= 80;
  dbgrid1.Columns[23].width:= 60;
  dbgrid1.Columns[24].width:= 60;
  dbgrid1.Columns[25].width:= 60;
  dbgrid1.Columns[26].width:= 60;
  dbgrid1.Columns[27].width:= 70;

end;

end.