/JobSchedule/__history/SALARYEDITUnit.pas.~5~
Unknown | 46 lines | 36 code | 10 blank | 0 comment | 0 complexity | b912080ec38e21868cbb4ff9c52e8a97 MD5 | raw file
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.