/HRManager/__history/ORDEREDITUnit.pas.~2~
Unknown | 38 lines | 31 code | 7 blank | 0 comment | 0 complexity | 4bc664b0e4c03eac82bd93708435184a MD5 | raw file
1unit ORDEREDITUnit; 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 TORDEREDIT = class(TEditDialog) 12 PKDBDictLabelEdit1: TPKDBDictLabelEdit; 13 PKDBLabelEdit1: TPKDBLabelEdit; 14 PKDBLabelEdit2: TPKDBLabelEdit; 15 PKDBLabelEdit3: TPKDBLabelEdit; 16 procedure FormShow(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 23var 24 ORDEREDIT: TORDEREDIT; 25 26implementation 27uses DM, MainUnit; 28{$R *.dfm} 29procedure TORDEREDIT.FormShow(Sender: TObject); 30begin 31 inherited; // ???? ?????? ??????? ? ????????? ????????? 32 PKDBDictLabelEdit1.SetValue(4137365); 33end; 34 35initialization 36 37RegisterClasses([TORDEREDIT]); 38end.