frmjgkmts.pas

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

unit frmJGKmTs;

interface

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

type
  TJGKmTs = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    DGKm: TDBGrid;
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    SelectedKm:string;
    Selected:boolean;
//    iJkLx:Smallint;
    procedure LoadKm(const sURL: String);
  end;

var
  JGKmTs: TJGKmTs;
  iJkLx:Smallint;

//function  SelectKm(var kmh:string;const iJk:Smallint=0):boolean;

implementation

{$R *.dfm}
//uses DataModule,UserFace;
uses uDMFunc;

procedure TJGKmTs.ToolButton3Click(Sender: TObject);
begin
  close;
end;

procedure TJGKmTs.ToolButton1Click(Sender: TObject);
begin
  SelectedKm := KmInfoKmdm;
  if trim(SelectedKm) <>'' then
    selected := True;
  Close;
{  if trim(SgKm.Cells[0,SgKm.Row])='' then
    Application.MessageBox('请先选择科目！',MsgCaption,48)
  else
  begin
    SelectedKm:=trim(SgKm.Cells[0,SgKm.Row]);
    Selected:=true;
    close;
  end;
}
end;

procedure TJGKmTs.FormCreate(Sender: TObject);
begin
end;

{function  SelectKm(var kmh:string;const iJk:Smallint=0):boolean;
//var
//  JGKmts:TJGKmTsGL;
begin
  iJkLx:=iJk;
  JGKMTsGL:=tJGKmTsGL.Create(application);
//  JGKmTsGL.iJkLx:=iJk;
  JGKmTsGL.ShowModal;
  Kmh:=JGKmTsGL.SelectedKm;
  result:=JGKmTsGL.Selected;
  JGKmTsGL.Free;
end;
}

procedure TJGKmTs.LoadKm(const sURL: String);
begin
  KmInfo(sURL,DGKm);
end;

procedure TJGKmTs.FormResize(Sender: TObject);
begin
  DGKm.Columns[1].Width := DGKm.Width - DgKm.Columns[0].Width-36; 
end;

end.