hygl_zlhy.pas

来自「工会会员管理通用系统 数据库学习好资料 delphi编写 非常实用」· PAS 代码 · 共 50 行

unit HYGL_ZLHY;

interface

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

type
  TFrmHYGL_ZLHY = 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
  FrmHYGL_ZLHY: TFrmHYGL_ZLHY;

implementation

uses HYGL_DModule, HYGL_main;



{$R *.dfm}

procedure TFrmHYGL_ZLHY.FormShow(Sender: TObject);
var
  s:string;
begin
  Image1.Picture:=FRMHYGL_Main.IMG_LOGO.Picture;
  with dmd do begin
    if not Tbl_HY.active then Tbl_HY.open;
  end;
  with dmd.tbl_HY do begin
    s:='当前共有会员 '+inttostr(recordcount)+' 名';
    pnl1.caption:=s;
  end;
end;

end.