itemdata_gz.pas

来自「一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的」· PAS 代码 · 共 52 行

unit ItemData_GZ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ToolWin, ComCtrls, DB, ActnList, ImgList,
  ExtCtrls, Mask, DBCtrls, Grids, DBGrids;

type
  TfItemdata_GZ = class(TForm)
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    DsUserInfo: TDataSource;
    Bevel2: TBevel;
    DBNavigator1: TDBNavigator;
    Cexit: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CexitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fItemdata_GZ: TfItemdata_GZ;

implementation
uses dm;
{$R *.dfm}

procedure TfItemdata_GZ.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfItemdata_GZ.CexitClick(Sender: TObject);
begin
  Close;
end;

procedure TfItemdata_GZ.FormCreate(Sender: TObject);
begin
  RefreshData(fdm.UserInfo);
end;

end.