/Gedemin/Common/gdc_dlgCurr_unit.pas

 1{++
 2   Project GDReference
 3   Copyright Š 2000- by Golden Software
 4
 5   ??????
 6
 7     gdc_dlgCurr_unit
 8
 9   ????????
10
11     ?????????? ??????
12
13   ?????
14
15     Smirnov Anton
16
17   ???????
18
19     ver    date         who    what
20     1.00 - 21.07.2000 - SAI - ?????? ??????
21
22 --}
23
24
25unit gdc_dlgCurr_unit;
26
27interface
28
29uses
30  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
31  Db, StdCtrls, Mask, DBCtrls, ExtCtrls, ActnList,
32  IBCustomDataSet, IBUpdateSQL, IBQuery, gd_security, gd_security_OperationConst,
33  IBDatabase, gdc_dlgG_unit, Menus;
34
35type
36  Tgdc_dlgCurr = class(Tgdc_dlgG)
37    mmlFullName: TLabel;
38    mmlShortName: TLabel;
39    mmlCode: TLabel;
40    mmlSign: TLabel;
41    mmlFullCentName: TLabel;
42    mmlShortCentName: TLabel;
43    mmlDecdigits: TLabel;
44    mmlCentbase: TLabel;
45    dbeFullName: TDBEdit;
46    dbeShortName: TDBEdit;
47    dbeCode: TDBEdit;
48    dbeSign: TDBEdit;
49    dbeFullCentName: TDBEdit;
50    dbeShortCentName: TDBEdit;
51    dbeDecdigits: TDBEdit;
52    dbeCentbase: TDBEdit;
53    Bevel1: TBevel;
54    dbrgPlace: TDBRadioGroup;
55    dbcbIsNCU: TDBCheckBox;
56    dbcbDisabled: TDBCheckBox;
57    dbcbEq: TDBCheckBox;
58    Bevel2: TBevel;
59    Bevel3: TBevel;
60    Label1: TLabel;
61    dbeISO: TDBEdit;
62    Bevel4: TBevel;
63    Label2: TLabel;
64    Label3: TLabel;
65    dbeName_0: TDBEdit;
66    dbeName_1: TDBEdit;
67    Label5: TLabel;
68    Bevel5: TBevel;
69    Label4: TLabel;
70    Label6: TLabel;
71    Label7: TLabel;
72    dbeCentName_0: TDBEdit;
73    dbeCentName_2: TDBEdit;
74    Bevel6: TBevel;
75    Memo1: TMemo;
76  end;
77
78var
79  gdc_dlgCurr: Tgdc_dlgCurr;
80
81implementation
82{$R *.DFM}
83
84uses
85  dmDataBase_unit, gd_ClassList;
86
87initialization
88  RegisterFrmClass(Tgdc_dlgCurr);
89
90finalization
91  UnRegisterFrmClass(Tgdc_dlgCurr);
92
93end.