/Gedemin/Common/gdc_dlgCurr_unit.pas

http://gedemin.googlecode.com/ · Pascal · 93 lines · 59 code · 11 blank · 23 comment · 0 complexity · 1a88199c531ad97efbe7ac9549adec2d MD5 · raw file 

    

  1. {++

    2. 

  2.    Project GDReference

    3. 

  3.    Copyright Š 2000- by Golden Software

    4. 

  4. 

    5. 

  5.    ??????

    6. 

  6. 

    7. 

  7.      gdc_dlgCurr_unit

    8. 

  8. 

    9. 

  9.    ????????

    10. 

  10. 

    11. 

  11.      ?????????? ??????

    12. 

  12. 

    13. 

  13.    ?????

    14. 

  14. 

    15. 

  15.      Smirnov Anton

    16. 

  16. 

    17. 

  17.    ???????

    18. 

  18. 

    19. 

  19.      ver    date         who    what

    20. 

  20.      1.00 - 21.07.2000 - SAI - ?????? ??????

    21. 

  21. 

    22. 

  22.  --}

    23. 

  23. 

    24. 

  24. 

    25. 

  25. unit gdc_dlgCurr_unit;

    26. 

  26. 

    27. 

  27. interface

    28. 

  28. 

    29. 

  29. uses

    30. 

  30.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    31. 

  31.   Db, StdCtrls, Mask, DBCtrls, ExtCtrls, ActnList,

    32. 

  32.   IBCustomDataSet, IBUpdateSQL, IBQuery, gd_security, gd_security_OperationConst,

    33. 

  33.   IBDatabase, gdc_dlgG_unit, Menus;

    34. 

  34. 

    35. 

  35. type

    36. 

  36.   Tgdc_dlgCurr = class(Tgdc_dlgG)

    37. 

  37.     mmlFullName: TLabel;

    38. 

  38.     mmlShortName: TLabel;

    39. 

  39.     mmlCode: TLabel;

    40. 

  40.     mmlSign: TLabel;

    41. 

  41.     mmlFullCentName: TLabel;

    42. 

  42.     mmlShortCentName: TLabel;

    43. 

  43.     mmlDecdigits: TLabel;

    44. 

  44.     mmlCentbase: TLabel;

    45. 

  45.     dbeFullName: TDBEdit;

    46. 

  46.     dbeShortName: TDBEdit;

    47. 

  47.     dbeCode: TDBEdit;

    48. 

  48.     dbeSign: TDBEdit;

    49. 

  49.     dbeFullCentName: TDBEdit;

    50. 

  50.     dbeShortCentName: TDBEdit;

    51. 

  51.     dbeDecdigits: TDBEdit;

    52. 

  52.     dbeCentbase: TDBEdit;

    53. 

  53.     Bevel1: TBevel;

    54. 

  54.     dbrgPlace: TDBRadioGroup;

    55. 

  55.     dbcbIsNCU: TDBCheckBox;

    56. 

  56.     dbcbDisabled: TDBCheckBox;

    57. 

  57.     dbcbEq: TDBCheckBox;

    58. 

  58.     Bevel2: TBevel;

    59. 

  59.     Bevel3: TBevel;

    60. 

  60.     Label1: TLabel;

    61. 

  61.     dbeISO: TDBEdit;

    62. 

  62.     Bevel4: TBevel;

    63. 

  63.     Label2: TLabel;

    64. 

  64.     Label3: TLabel;

    65. 

  65.     dbeName_0: TDBEdit;

    66. 

  66.     dbeName_1: TDBEdit;

    67. 

  67.     Label5: TLabel;

    68. 

  68.     Bevel5: TBevel;

    69. 

  69.     Label4: TLabel;

    70. 

  70.     Label6: TLabel;

    71. 

  71.     Label7: TLabel;

    72. 

  72.     dbeCentName_0: TDBEdit;

    73. 

  73.     dbeCentName_2: TDBEdit;

    74. 

  74.     Bevel6: TBevel;

    75. 

  75.     Memo1: TMemo;

    76. 

  76.   end;

    77. 

  77. 

    78. 

  78. var

    79. 

  79.   gdc_dlgCurr: Tgdc_dlgCurr;

    80. 

  80. 

    81. 

  81. implementation

    82. 

  82. {$R *.DFM}

    83. 

  83. 

    84. 

  84. uses

    85. 

  85.   dmDataBase_unit, gd_ClassList;

    86. 

  86. 

    87. 

  87. initialization

    88. 

  88.   RegisterFrmClass(Tgdc_dlgCurr);

    89. 

  89. 

    90. 

  90. finalization

    91. 

  91.   UnRegisterFrmClass(Tgdc_dlgCurr);

    92. 

  92. 

    93. 

  93. end.
    94.