/JobSchedule/__history/SALARYEDITUnit.pas.~5~

 1unit SALARYEDITUnit;
 2
 3interface
 4
 5uses
 6  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7  Dialogs, EditDialogUnit, PKDBTable, ComCtrls, StdCtrls, ExtCtrls, PKDBDictEdit,
 8  PKDBEdit;
 9
10type
11  TSALARYEDIT = class(TEditDialog)
12    PKDBDictEdit1: TPKDBDictEdit;
13    PKDBDictEdit2: TPKDBDictEdit;
14    Label1: TLabel;
15    Label2: TLabel;
16    PKDBLabelEdit1: TPKDBLabelEdit;
17    PKDBDictEdit3: TPKDBDictEdit;
18    Label3: TLabel;
19    PKDBLabelEdit2: TPKDBLabelEdit;
20    procedure open(); override;
21  private
22    { Private declarations }
23  public
24    { Public declarations }
25  end;
26
27var
28  SALARYEDIT: TSALARYEDIT;
29
30implementation
31
32uses DMUnit;
33
34{$R *.dfm}
35procedure TSALARYEDIT.open;
36begin
37  inherited;
38  if self.CommandType in [tcInsert] then
39   PKDBLabelEdit1.enabled:= true;
40end;
41
42initialization
43
44RegisterClasses([TSALARYEDIT]);
45
46end.