uemployeetype.pas

来自「三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写」· PAS 代码 · 共 44 行

unit uemployeetype;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfo, Menus, ActnList, DB, DBClient, Grids, DBGridEh,
  StdCtrls, wwdblook, Buttons, ToolWin, ComCtrls, ExtCtrls, FR_DSet,
  FR_DBSet, FR_Class, FR_Desgn;

type
  Tfrmemployeetype = class(TfrmBaseinfo)
    CDSbaseinfofid: TAutoIncField;
    CDSbaseinfofcode: TWideStringField;
    CDSbaseinfofname: TWideStringField;
    CDSbaseinfofnote: TWideStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmemployeetype: Tfrmemployeetype;

implementation

uses Global, uemployeetype_m;

{$R *.dfm}

procedure Tfrmemployeetype.FormCreate(Sender: TObject);
begin
  inherited;
  Maintable:='temployeetype';
  Mainview:='vemployeetype';
  Keyfield:='fid';
  ReportName:=gs_appPath+'\prints\fremployeetype.frf';
  Modifyform:=Tfrmemployeetype_m;
end;

end.