baseemployee.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 45 行

unit BaseEmployee;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseSell, wwDialog, wwidlg, DB, ADODB, ActnList,
  wwdbdatetimepicker, StdCtrls, DBCtrls, wwdblook, Mask, ExtCtrls,
  ComCtrls, Grids, DBGrids, ToolWin, dxdbtrel;

type
  TfrmBaseEmployee = class(TfrmBaseSell)
    QBaseInfosDepartmentName: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QBaseInfoAfterInsert(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseEmployee   : TfrmBaseEmployee;

implementation

{$R *.dfm}

procedure TfrmBaseEmployee.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //inherited;
  Action := cafree;
  frmBaseEmployee := nil;
end;

procedure TfrmBaseEmployee.QBaseInfoAfterInsert(DataSet: TDataSet);
begin
  //  inherited;
  if PageControl1.ActivePageIndex <> 0 then PageControl1.ActivePageIndex := 0;
  DBEdit1.SetFocus;
end;

end.