/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

  1. unit ORDEREDITUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5. Dialogs, EditDialogUnit, PKDBTable, ComCtrls, StdCtrls, ExtCtrls, PKDBDictEdit,
  6. PKDBEdit;
  7. type
  8. TORDEREDIT = class(TEditDialog)
  9. PKDBDictLabelEdit1: TPKDBDictLabelEdit;
  10. PKDBLabelEdit1: TPKDBLabelEdit;
  11. PKDBLabelEdit2: TPKDBLabelEdit;
  12. PKDBLabelEdit3: TPKDBLabelEdit;
  13. procedure FormShow(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19. var
  20. ORDEREDIT: TORDEREDIT;
  21. implementation
  22. uses DM, MainUnit;
  23. {$R *.dfm}
  24. procedure TORDEREDIT.FormShow(Sender: TObject);
  25. begin
  26. inherited; // ???? ?????? ??????? ? ????????? ?????????
  27. PKDBDictLabelEdit1.SetValue(4137365);
  28. end;
  29. initialization
  30. RegisterClasses([TORDEREDIT]);
  31. end.