/HRManager/__history/ORDEREDITUnit.pas.~2~
https://github.com/oista/NPO · Unknown · 38 lines · 31 code · 7 blank · 0 comment · 0 complexity · 4bc664b0e4c03eac82bd93708435184a MD5 · raw file
- unit ORDEREDITUnit;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, EditDialogUnit, PKDBTable, ComCtrls, StdCtrls, ExtCtrls, PKDBDictEdit,
- PKDBEdit;
-
- type
- TORDEREDIT = class(TEditDialog)
- PKDBDictLabelEdit1: TPKDBDictLabelEdit;
- PKDBLabelEdit1: TPKDBLabelEdit;
- PKDBLabelEdit2: TPKDBLabelEdit;
- PKDBLabelEdit3: TPKDBLabelEdit;
- procedure FormShow(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- ORDEREDIT: TORDEREDIT;
-
- implementation
- uses DM, MainUnit;
- {$R *.dfm}
- procedure TORDEREDIT.FormShow(Sender: TObject);
- begin
- inherited; // ???? ?????? ??????? ? ????????? ?????????
- PKDBDictLabelEdit1.SetValue(4137365);
- end;
-
- initialization
-
- RegisterClasses([TORDEREDIT]);
- end.