gzgl_zlzzjh.pas

来自「制造业工装信息管理系统 制造业工装信息管理系统」· PAS 代码 · 共 49 行

unit GZGL_ZLZZJH;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, Grids, DBGrids;

type
  TFrmGZGL_ZLZZJH = class(TForm)
    DBGrid1: TDBGrid;
    Pnl1: TPanel;
    Panel2: TPanel;
    Label16: TLabel;
    Image1: TImage;
    Label18: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmGZGL_ZLZZJH: TFrmGZGL_ZLZZJH;

implementation

uses GZGL_DModule, GZGL_Main;

{$R *.dfm}

procedure TFrmGZGL_ZLZZJH.FormShow(Sender: TObject);
var
  s:string;
begin
  with dmd.tbl_zzjh do begin
    if active then
      //Refresh   //为什么不行???
    else
      open;
    s:='当前工装共有 '+inttostr(recordcount)+' 套';
    pnl1.caption:=s;
  end;
  Image1.Picture:=FRMGZGL_Main.IMG_LOGO.Picture;
end;

end.