/HRManager/__history/ORDEREDITUnit.pas.~2~

 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.