Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.61/23: Рейтинг темы: голосов - 23, средняя оценка - 4.61
0 / 0 / 0
Регистрация: 12.05.2011
Сообщений: 17
1

[Ошибка] : Record, object or class type required

18.06.2011, 11:40. Показов 4714. Ответов 10
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Выдает ошибку:

[Ошибка] Unit_Kartka.pas(134): Record, object or class type required
[Фатальная Ошибка] Unit_Pilgu.pas(29): Could not compile used unit 'Unit_Kartka.pas'

нужна помощь. вот код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148

unit Unit_Kartka;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask, Buttons;
 
type
  TKartka = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Bevel1: TBevel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox3: TGroupBox;
    BitBtn4: TBitBtn;
    Label13: TLabel;
    Label14: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    ComboBox1: TComboBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Kartka: TKartka;
 
implementation
 
uses UDM, Unit_Pilgu, Unit_Voda, U_Golovna, Flash_Form, Unit_Abonent, Menu,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok;
 
{$R *.dfm}
 
procedure TKartka.BitBtn1Click(Sender: TObject);
begin
Pilgu.ShowModal;
vub_pilg:=1;
end;
 
procedure TKartka.BitBtn3Click(Sender: TObject);
begin
Close;
end;
 
procedure TKartka.BitBtn2Click(Sender: TObject);
begin
 
if vuba=1 then begin
DM.Karta.Edit;
DM.Karta.Last;
DM.Karta.Insert;
DM.Karta.FieldByname('Adresa').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_kvart').AsString:=Edit1.Text;
DM.Karta.FieldByName('Plosha_kvart').AsFloat:=StrToFloat(Edit2.Text);
DM.Karta.FieldByName('Osob_Nomer').AsString:=Edit3.Text;
DM.Karta.FieldByName('Prizv').AsString:=Edit4.Text;
DM.Karta.FieldByName('Name').AsString:=Edit5.Text;
DM.Karta.FieldByName('Po_Bat').AsString:=Edit6.Text;
DM.Karta.FieldByName('Kilkist_Gul').AsInteger:=StrToInt(Edit7.Text);
DM.Karta.FieldByName('Vud_Opal').AsBoolean:=CheckBox2.Checked;
DM.Karta.FieldByName('Kod_Pilgu').AsString:=Edit8.Text;
DM.Karta.FieldByName('Nazva_Pilgu').AsString:=Edit9.Text;
DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat:=StrToFloat(Edit10.Text);
 
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit11.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit12.Text);
DM.Karta.Post;
 
end;
 
if vuba=2 then begin
DM.Karta.Edit;
DM.Karta.FieldByname('Adresa').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_kvart').AsString:=Edit1.Text;
DM.Karta.FieldByName('Plosha_kvart').AsFloat:=StrToFloat(Edit2.Text);
DM.Karta.FieldByName('Osob_Nomer').AsString:=Edit3.Text;
DM.Karta.FieldByName('Prizv').AsString:=Edit4.Text;
DM.Karta.FieldByName('Name').AsString:=Edit5.Text;
DM.Karta.FieldByName('Po_Bat').AsString:=Edit6.Text;
DM.Karta.FieldByName('Kilkist_Gul').AsInteger:=StrToInt(Edit7.Text);
DM.Karta.FieldByName('Vud_Opal').AsBoolean:=CheckBox2.Checked;
DM.Karta.FieldByName('Kod_Pilgu').AsString:=Edit8.Text;
DM.Karta.FieldByName('Nazva_Pilgu').AsString:=Edit9.Text;
DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat:=StrToFloat(Edit10.Text);
 
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit11.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit12.Text);
 
DM.Karta.Post;
end;
Close;
end;
 
procedure TKartka.BitBtn4Click(Sender: TObject);
begin
vub_vodu:=1;
Voda.ShowModal; // на эту строку ругается
end;
 
procedure TKartka.FormActivate(Sender: TObject);
var str:string;
begin
   DM.Adresu.First;
   while not DM.Adresu.Eof do begin
   str:=DM.Adresu.FieldByName('Adresa').AsString;
   Kartka.ComboBox1.Items.Add(str);
   DM.Adresu.Next;
   end;
end;
 
end.
а это код формы voda

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

unit Unit_Voda;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
type
  TVoda = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Voda: TVoda;
 
implementation
 
uses UDM, Unit_Kartka, Flash_Form, Menu, U_Golovna, Unit_Abonent,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu;
 
{$R *.dfm}
 
procedure TVoda.BitBtn1Click(Sender: TObject);
begin
if vub_vodu=1 then begin
Kartka.Edit11.Text:=Voda.Edit1.Text;
Kartka.Edit12.Text:=Voda.Edit2.Text;
end;
if vub_vodu=2 then
begin
DM.Karta.Edit;
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit1.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit2.Text);
DM.Karta.Post;
DM.Karta.Refresh;
end;
Close;
end;
 
procedure TVoda.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 18.06.2011, 11:40
Ответы с готовыми решениями:

Ошибка: Record, object or class type required
for i := 1 to temp + 1 do cells := i.ToString(); ???? roww := 1; coll :=...

Ошибка: Record, object or class type required
Код программы: unit UnitZakazch; interface uses Winapi.Windows, Winapi.Messages,...

Ошибка: Record, object or class type required
на код вызова второстепенной формы procedure TForm1.Button1Click(Sender: TObject); begin ...

Ошибка Record, object or class type required
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

10
429 / 337 / 36
Регистрация: 31.05.2011
Сообщений: 1,156
18.06.2011, 16:54 2
О_о
Delphi
1
2
3
4
5
6
7

unit Unit_Kartka;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask, Buttons, Unit_Voda;
засунь сюды штоле воду
0
54 / 54 / 11
Регистрация: 02.05.2010
Сообщений: 294
18.06.2011, 18:32 3
SLY_BOY, скиньте весь проект, то уже сто тем на создавали
0
0 / 0 / 0
Регистрация: 12.05.2011
Сообщений: 17
18.06.2011, 19:11  [ТС] 4
6666,
если я скину весь проек вы сможете отладить всю прогу?????????????
0
54 / 54 / 11
Регистрация: 02.05.2010
Сообщений: 294
18.06.2011, 20:23 5
ну все форумчане постараются, кто нибудь да точно сможет.
0
429 / 337 / 36
Регистрация: 31.05.2011
Сообщений: 1,156
18.06.2011, 20:31 6
да! если чо, еще и с соседских форумов народ подтяним
0
0 / 0 / 0
Регистрация: 12.05.2011
Сообщений: 17
19.06.2011, 00:11  [ТС] 7
Цитата Сообщение от 6666 Посмотреть сообщение
ну все форумчане постараются, кто нибудь да точно сможет.
на форум последняя надежда

Исходник

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

program Flash;
 
uses
  Forms,
  Flash_Form in 'Flash_Form.pas' {Flash_f},
  UDM in 'UDM.pas' {DM: TDataModule},
  U_Golovna in 'U_Golovna.pas' {Golovna},
  Menu in 'Menu.pas' {MenuF},
  Unit_Pereraxunok in 'Unit_Pereraxunok.pas' {Pereraxunok},
  Unit_Nastr in 'Unit_Nastr.pas' {Nastroyku},
  Unit_Kartka in 'Unit_Kartka.pas' {Kartka},
  Unit_Pilgu in 'Unit_Pilgu.pas' {Pilgu},
  Unit_Narax in 'Unit_Narax.pas' {Narax},
  Unit_Voda in 'Unit_Voda.pas' {Voda},
  Unit_Abonent in 'Unit_Abonent.pas' {Abonent},
  Unit_Oplata in 'Unit_Oplata.pas' {Oplata};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TFlash_f, Flash_f);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TGolovna, Golovna);
  Application.CreateForm(TMenuF, MenuF);
  Application.CreateForm(TPereraxunok, Pereraxunok);
  Application.CreateForm(TNastroyku, Nastroyku);
  Application.CreateForm(TKartka, Kartka);
  Application.CreateForm(TPilgu, Pilgu);
  Application.CreateForm(TNarax, Narax);
  Application.CreateForm(TVoda, Voda);
  Application.CreateForm(TAbonent, Abonent);
  Application.CreateForm(TOplata, Oplata);
  Application.Run;
end.


unit Flash_Form

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102

unit Flash_Form;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, ExtCtrls, Buttons, jpeg, XPMan, ComCtrls;
 
type
  TFlash_f = class(TForm)
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    XPManifest2: TXPManifest;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ProgressBar1: TProgressBar;
    Label3: TLabel;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Flash_f: TFlash_f;
       vub_vodu:byte;
       vub_pilg:byte;
       nastr:byte;
implementation
 
uses UDM, U_Golovna, Menu, Unit_Voda, Unit_Abonent, Unit_Kartka,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu;
 
{$R *.dfm}
 
procedure TFlash_f.BitBtn2Click(Sender: TObject);
begin
// закрити форму
Application.Terminate;
end;
 
procedure TFlash_f.BitBtn1Click(Sender: TObject);
var k: boolean;
begin
     DM.Login.Active:=True;
  DM.Login.First;
  k:= false;
    while not DM.Login.Eof do begin
    if DM.Login.FieldByName('Логин').Value=Edit1.Text then
      if DM.Login.FieldByName('Пароль').Value=Edit2.Text then begin
        k:=true;
       // if DM.Login.FieldByName('права').Value='user' then
       //   form1.N21.Visible:=false;
       // if DM.Login.FieldByName('права').Value='admin' then
        //  form1.N21.Visible:=true;
      end;
    DM.Login.Next;
  end;
  if k then begin
    Timer1.Enabled:=True;
    ProgressBar1.Visible:=True;Label3.Visible:=true;
    With ProgressBar1 do
    Begin Position:=Position+1;
   if Position<>Max Then Label3.Caption:='**********' else
   begin
   
   Label3.Caption:='************';
   flash_f.Hide;
   MenuF.show;
   DM.Karta.Active:=True;
   DM.Adresu.Active:=True;
   DM.Pilgu.Active:=True;
   DM.Firma.Active:=True;
   DM.Tarif.Active:=True;
   end;end;
 end
  else ShowMessage('неверные данные обратитесь к админу');
end;
 
procedure TFlash_f.Timer1Timer(Sender: TObject);
begin
Label3.Visible:=True;
ProgressBar1.Visible:=True;
With ProgressBar1 do
Begin
Position:=Position+1;
if Position=Max Then Label3.Caption:='************!';
end;
Label3.Font.Color:=clBlue;
 
end;
 
end.


unit Menu

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

unit Menu;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls,  cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalc,
  cxLookAndFeelPainters, cxButtons, RzButton, RzLabel, RzGroupBar, ImgList,
  RzPanel, RzBmpBtn, RXCtrls;
 
type
  TMenuF = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Bevel2: TBevel;
    Bevel1: TBevel;
    Bevel3: TBevel;
    Label3: TLabel;
    Label5: TLabel;
    RzURLLabel1: TRzURLLabel;
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    MyStyles: TImageList;
    RxLabel1: TRxLabel;
    procedure RzGroup1Items0Click(Sender: TObject);
    procedure RzGroup1Items1Click(Sender: TObject);
    procedure RzGroup1Items2Click(Sender: TObject);
    procedure RzGroup1Items3Click(Sender: TObject);
    procedure RzGroup1Items4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  MenuF: TMenuF;
 
implementation
 
uses U_Golovna, Unit_Nastr, Unit_Kartka, Unit_Pereraxunok, Unit_Abonent,
  UDM, Flash_Form, Unit_Narax, Unit_Oplata, Unit_Pilgu, Unit_Voda;
 
{$R *.dfm}
 
procedure TMenuF.RzGroup1Items0Click(Sender: TObject);
begin
 Nastroyku.ShowModal;
end;
 
procedure TMenuF.RzGroup1Items1Click(Sender: TObject);
begin
Abonent.ShowModal;
end;
 
procedure TMenuF.RzGroup1Items2Click(Sender: TObject);
begin
DM.Karta.Refresh;
Golovna.ShowModal;
 
end;
 
procedure TMenuF.RzGroup1Items3Click(Sender: TObject);
begin
 
Pereraxunok.ShowModal;
end;
 
procedure TMenuF.RzGroup1Items4Click(Sender: TObject);
begin
Close;
//выход из программы подтверждение
//CanClose := MessageBox(Handle,Pchar('выйти из проги ?'),Pchar('да'),MB_ICONINFORMATION+MB_OKCANCEL+MB_DEFBUTTON2)=IDOK;
Application.Terminate;
end;
 
end.


unit U_Frame1

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

unit U_Frame1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons;
 
type
  TFrame1 = class(TFrame)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
implementation
 
uses Flash_Form, Menu, U_Golovna, UDM, Unit_Abonent, Unit_Kartka,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu,
  Unit_Voda;
 
{$R *.dfm}
 
end.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288

unit U_Golovna;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DBCtrls, Grids, DBGrids, ExtCtrls, StdCtrls, Mask,
  Buttons, ComCtrls, frxClass, frxDBSet, frxDesgn, GridsEh, DBGridEh;
 
type
  TGolovna = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Label9: TLabel;
    DBEdit7: TDBEdit;
    DBCheckBox1: TDBCheckBox;
    Label3: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    GroupBox3: TGroupBox;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    Label13: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox4: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    DBNavigator1: TDBNavigator;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    GroupBox5: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox6: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn9: TBitBtn;
    DBEdit13: TDBEdit;
    GroupBox7: TGroupBox;
    Label17: TLabel;
    Label16: TLabel;
    DBCheckBox2: TDBCheckBox;
    Label18: TLabel;
    GroupBox8: TGroupBox;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    frxDesigner1: TfrxDesigner;
    Vidomist: TfrxReport;
    Vidom: TfrxDBDataset;
    frxReport2: TfrxReport;
    BitBtn13: TBitBtn;
    Povidomlen: TfrxReport;
    Povidoml: TfrxDBDataset;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    Panel3: TPanel;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    GroupBox9: TGroupBox;
    Edit1: TEdit;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    BitBtn16: TBitBtn;
    GroupBox10: TGroupBox;
    Bevel1: TBevel;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Label19: TLabel;
    DBEdit8: TDBEdit;
    Label20: TLabel;
    DBEdit16: TDBEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Golovna: TGolovna;
  vuba:integer;
  CDir,Wpath:string;
implementation
 
uses UDM, Unit_Narax, Unit_Kartka, Unit_Nastr, Unit_Voda, Flash_Form, Menu,
  Unit_Abonent, Unit_Oplata, Unit_Pilgu, Unit_Pereraxunok;
 
{$R *.dfm}
 
procedure TGolovna.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Close;
 
end;
 
procedure TGolovna.N2Click(Sender: TObject);
begin
Close;
end;
 
procedure TGolovna.Edit1Change(Sender: TObject);
begin
if    RadioButton3.Checked=true then
begin
Edit1.MaxLength:=4;
DM.Karta.First;
 
while not DM.Karta.Eof do begin
   if DM.Karta['Osob_Nomer']=Edit1.Text then
      break; 
      DM.Karta.Next; 
end; //while
end; // end begin
if    RadioButton4.Checked=true then
begin
Edit1.MaxLength:=25;
DM.Karta.First;
 
while not DM.Karta.Eof do begin
   if DM.Karta['Prizv']=Edit1.Text then
      break;  
      DM.Karta.Next; 
end; //while
end; // end begin
end;
 
procedure TGolovna.BitBtn2Click(Sender: TObject);
begin
 
Narax.ShowModal;
 
end;
 
procedure TGolovna.BitBtn8Click(Sender: TObject);
begin
nastr:=3;
Nastroyku.ShowModal;
 
end;
 
procedure TGolovna.BitBtn10Click(Sender: TObject);
begin
 
 
vuba:=1;   
Kartka.Caption:='********************.';
Kartka.Edit1.Clear;
Kartka.Edit2.Clear;
Kartka.Edit3.Clear;
Kartka.Edit4.Clear;
Kartka.Edit5.Clear;
Kartka.Edit6.Clear;
Kartka.Edit7.Clear;
Kartka.Edit8.Clear;
Kartka.Edit9.Clear;
Kartka.Edit10.Clear;
Kartka.Edit11.Clear;
Kartka.Edit12.Clear;
Kartka.ComboBox1.Text:='';
//Kartka.ComboBox1.Clear;
Kartka.CheckBox2.Checked:=false;
Kartka.ShowModal;
end;
 
procedure TGolovna.BitBtn11Click(Sender: TObject);
begin
vuba:=2; 
 
Kartka.Caption:='****************';
 
Kartka.ComboBox1.Text:=DM.Karta.FieldByname('Adresa').AsString;
Kartka.Edit1.Text:=DM.Karta.FieldByname('Nomer_kvart').AsString;
Kartka.Edit2.Text:=FloatToStr(DM.Karta.FieldByname('Plosha_kvart').AsFloat);
Kartka.Edit3.Text:=DM.Karta.FieldByname('Osob_Nomer').AsString;
Kartka.Edit4.Text:=DM.Karta.FieldByname('Prizv').AsString;
Kartka.Edit5.Text:=DM.Karta.FieldByname('Name').AsString;
Kartka.Edit6.Text:=DM.Karta.FieldByname('Po_Bat').AsString;
Kartka.Edit7.Text:=IntToStr(DM.Karta.FieldByname('Kilkist_Gul').AsInteger);
Kartka.Edit8.Text:=DM.Karta.FieldByname('Kod_Pilgu').AsString;
Kartka.Edit9.Text:=DM.Karta.FieldByname('Nazva_Pilgu').AsString;
Kartka.Edit10.Text:=FloatToStr(DM.Karta.FieldByname('Rozmir_Pilgu').AsFloat);
Kartka.Edit11.Text:=IntToStr(DM.Karta.FieldByname('Pop_Voda').AsInteger);
Kartka.Edit12.Text:=IntToStr(DM.Karta.FieldByname('Pot_Voda').AsInteger);
Kartka.CheckBox2.Checked:=DM.Karta.FieldByname('Vud_Opal').AsBoolean;
Kartka.ShowModal;
 
 
end;
 
procedure TGolovna.BitBtn12Click(Sender: TObject);
begin
 
vuba:=3; 
if dm.Karta.RecordCount>0 then
if  MessageBox(GetForegroundWindow,pchar('вы уверенны что хотите уд абонента и его данные?'),'да',MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = IDYES then
dm.Karta.Delete;
end;
 
procedure TGolovna.FormActivate(Sender: TObject);
begin
GetDir(0,cDir);
Wpath:=cDir+'\';
Label17.Caption:='текущий месяц '+DM.Karta.FieldByName('Mis').AsString+' 2010';
Golovna.Caption:='квартплата за месяц '+ DM.Karta.FieldByName('Mis').AsString+' 2010';
Label18.Caption:='всех абонентов '+IntToStr(DM.Karta.RecordCount);
end;
 
procedure TGolovna.BitBtn1Click(Sender: TObject);
begin
Oplata.ShowModal;
Oplata.Edit1.Clear;
Oplata.Edit2.Clear;
Oplata.Edit3.Clear;
 
end;
 
procedure TGolovna.BitBtn13Click(Sender: TObject);
begin
frxReport2.DesignReport;
end;
 
procedure TGolovna.BitBtn3Click(Sender: TObject);
begin
 
Golovna.Vidomist.LoadFromFile(Wpath+'Vidomist1.fr3');
Golovna.Vidomist.ShowReport;
end;
 
procedure TGolovna.BitBtn4Click(Sender: TObject);
begin
 
Golovna.Povidomlen.LoadFromFile(Wpath+'Povidom.fr3');
Golovna.Povidomlen.ShowReport;
end;
 
procedure TGolovna.BitBtn14Click(Sender: TObject);
begin
nastr:=2;
Nastroyku.ShowModal;
 
end;
 
procedure TGolovna.BitBtn15Click(Sender: TObject);
begin
Pilgu.ShowModal;
end;
 
end.


unit UDM

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

unit UDM;
 
interface
 
uses
  SysUtils, Classes, DB, ADODB, Controls, StdCtrls, Mask, Buttons;
 
type
  TDM = class(TDataModule)
    Label1: TLabel;
    ADOConnection1: TADOConnection;
    Karta: TADOTable;
    DataSource1: TDataSource;
    Login: TADOTable;
    DataSource2: TDataSource;
    LoginID: TAutoIncField;
    LoginDSDesigner: TWideStringField;
    LoginDSDesigner2: TWideStringField;
    LoginDSDesigner3: TWideStringField;
    LoginDSDesigner4: TWideStringField;
    LoginDSDesigner5: TWideStringField;
    Adresu: TADOTable;
    DataSource3: TDataSource;
    Pilgu: TADOTable;
    DataSource4: TDataSource;
    PilguID: TAutoIncField;
    PilguKod_Pilgu: TWideStringField;
    PilguNazva_Pilgu: TWideStringField;
    PilguSuma: TBCDField;
    PilguNomer_Vidom: TIntegerField;
    BitBtn1: TBitBtn;
    AdresuID: TAutoIncField;
    AdresuAdresa: TWideStringField;
    KartaBitBtn: TBitBtn;
    Firma: TADOTable;
    DataSource5: TDataSource;
    FirmaID: TAutoIncField;
    FirmaNazva_org: TWideStringField;
    FirmaAdresa_org: TWideStringField;
    FirmaPrizv_gol: TWideStringField;
    FirmaPrizv_Bux: TWideStringField;
    FirmaTelefon: TWideStringField;
    FirmaRoz_Rax: TWideStringField;
    FirmaNazva_Banku: TWideStringField;
    FirmaMisto_Ban: TWideStringField;
    FirmaKod_Ban: TWideStringField;
    FirmaKod_Edrpu: TWideStringField;
    Tarif: TADOTable;
    DataSource6: TDataSource;
    TarifID: TAutoIncField;
    TarifTarif_Data: TDateTimeField;
    TarifTarif_Voda: TBCDField;
    TarifTarif_Kvartplata: TBCDField;
    TarifTarif_Opal: TBCDField;
    TarifNormat_Doc: TMemoField;
    KartaID: TAutoIncField;
    KartaMis: TWideStringField;
    KartaNomer_mis: TWordField;
    KartaOsob_Nomer: TWideStringField;
    KartaPrizv: TWideStringField;
    KartaName: TWideStringField;
    KartaPo_Bat: TWideStringField;
    KartaAdresa: TWideStringField;
    KartaNomer_kvart: TWordField;
    KartaPlosha_kvart: TIntegerField;
    KartaKilkist_Gul: TWordField;
    KartaPrivat: TBooleanField;
    KartaVud_Opal: TBooleanField;
    KartaKod_Pilgu: TWideStringField;
    KartaNazva_Pilgu: TWideStringField;
    KartaRozmir_Pilgu: TIntegerField;
    KartaSubsudija: TBCDField;
    KartaData_SubSud: TDateTimeField;
    KartaOstacha_Sub: TBCDField;
    KartaVhidna_Zaborg: TBCDField;
    KartaVoda: TBCDField;
    KartaOpal: TBCDField;
    KartaKvart: TBCDField;
    KartaNaraxovano: TBCDField;
    KartaOplacheno: TBCDField;
    KartaData_Oplatu: TDateTimeField;
    KartaNomer_Kvutan: TIntegerField;
    KartaNomer_Adres: TIntegerField;
    KartaPop_voda: TIntegerField;
    KartaPot_voda: TIntegerField;
    KartaOstatok_Zaborg: TBCDField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DM: TDM;
 
implementation
 
uses U_Golovna, Unit_Kartka, Flash_Form, Menu, Unit_Abonent, Unit_Narax,
  Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu, Unit_Voda;
 
 
{$R *.dfm}
 
end.


unit Unit_Abonent

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195

unit Unit_Abonent;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, ExtCtrls, Mask, Buttons, XPMan;
 
type
  TAbonent = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label9: TLabel;
    Bevel1: TBevel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    CheckBox2: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    ComboBox1: TComboBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    XPManifest1: TXPManifest;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Abonent: TAbonent;
 
implementation
 
uses UDM, Unit_Pilgu, Flash_Form, Unit_Nastr, Unit_Kartka, U_Frame1, Menu,
  U_Golovna, Unit_Narax, Unit_Oplata, Unit_Pereraxunok, Unit_Voda;
 
{$R *.dfm}
 
procedure TAbonent.BitBtn3Click(Sender: TObject);
begin
Close;
end;
 
procedure TAbonent.FormActivate(Sender: TObject);
var str1,str2:string;
begin
 
DM.Karta.Refresh; DM.Karta.First;
Abonent.ComboBox1.Text:=DM.Karta.FieldByname('Adresa').AsString;
Abonent.Edit1.Text:=DM.Karta.FieldByname('Nomer_kvart').AsString;
Abonent.Edit2.Text:=FloatToStr(DM.Karta.FieldByname('Plosha_kvart').AsFloat);
Abonent.Edit3.Text:=DM.Karta.FieldByname('Osob_Nomer').AsString;
Abonent.Edit4.Text:=DM.Karta.FieldByname('Prizv').AsString;
Abonent.Edit5.Text:=DM.Karta.FieldByname('Name').AsString;
Abonent.Edit6.Text:=DM.Karta.FieldByname('Po_Bat').AsString;
Abonent.Edit7.Text:=IntToStr(DM.Karta.FieldByname('Kilkist_Gul').AsInteger);
Abonent.CheckBox2.Checked:=DM.Karta.FieldByname('Vud_Opal').AsBoolean;;
 
end;
 
 
procedure TAbonent.BitBtn2Click(Sender: TObject);
begin
 
DM.Karta.Refresh;
DM.Karta.Edit;
DM.Karta.Last;
DM.Karta.Insert;
DM.Karta.FieldByname('Adresa').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_kvart').AsString:=Edit1.Text;
DM.Karta.FieldByName('Plosha_kvart').AsFloat:=StrToFloat(Edit2.Text);
DM.Karta.FieldByName('Osob_Nomer').AsString:=Edit3.Text;
DM.Karta.FieldByName('Prizv').AsString:=Edit4.Text;
DM.Karta.FieldByName('Name').AsString:=Edit5.Text;
DM.Karta.FieldByName('Po_Bat').AsString:=Edit6.Text;
DM.Karta.FieldByName('Kilkist_Gul').AsInteger:=StrToInt(Edit7.Text);
DM.Karta.FieldByName('Vud_Opal').AsBoolean:=CheckBox2.Checked;
DM.Karta.FieldByName('Mis').AsString:=Nastroyku.ComboBox1.Text;
DM.Karta.FieldByName('Nomer_Mis').AsInteger:=Nastroyku.ComboBox1.ItemIndex;
DM.Karta.Post;
ShowMessage('Данные збережено!');
end;
 
Procedure Navigator;
begin
Abonent.ComboBox1.Text:=DM.Karta.FieldByname('Adresa').AsString;
Abonent.Edit1.Text:=DM.Karta.FieldByname('Nomer_kvart').AsString;
Abonent.Edit2.Text:=FloatToStr(DM.Karta.FieldByname('Plosha_kvart').AsFloat);
Abonent.Edit3.Text:=DM.Karta.FieldByname('Osob_Nomer').AsString;
Abonent.Edit4.Text:=DM.Karta.FieldByname('Prizv').AsString;
Abonent.Edit5.Text:=DM.Karta.FieldByname('Name').AsString;
Abonent.Edit6.Text:=DM.Karta.FieldByname('Po_Bat').AsString;
Abonent.Edit7.Text:=IntToStr(DM.Karta.FieldByname('Kilkist_Gul').AsInteger);
Abonent.CheckBox2.Checked:=DM.Karta.FieldByname('Vud_Opal').AsBoolean;
 
end;
 
 
procedure TAbonent.BitBtn4Click(Sender: TObject);
begin
DM.Karta.Prior;
Navigator;
end;
 
procedure TAbonent.BitBtn5Click(Sender: TObject);
begin
DM.Karta.Next;
Navigator;
end;
 
procedure TAbonent.BitBtn6Click(Sender: TObject);
begin
DM.Karta.First;
Navigator;
end;
 
procedure TAbonent.BitBtn7Click(Sender: TObject);
begin
DM.Karta.Last;
Navigator;
end;
 
procedure TAbonent.BitBtn8Click(Sender: TObject);
var str1:string;
begin
Abonent.Edit1.Clear;
Abonent.Edit2.Clear;
Abonent.Edit3.Clear;
Abonent.Edit4.Clear;
Abonent.Edit5.Clear;
Abonent.Edit6.Clear;
Abonent.Edit7.Clear;
Abonent.ComboBox1.Text:='';
Abonent.CheckBox2.Checked:=false;
DM.Karta.Refresh;
DM.Karta.Edit;
DM.Karta.Insert;
 
///
DM.Adresu.First;
   while not DM.Adresu.Eof do begin
   str1:=DM.Adresu.FieldByName('Adresa').AsString;
   Abonent.ComboBox1.Items.Add(str1);
   DM.Adresu.Next;
end;
 
end;
 
procedure TAbonent.BitBtn1Click(Sender: TObject);
begin
if dm.Karta.RecordCount>0 then
if  MessageBox(GetForegroundWindow,pchar('вы уверены что хотите удалить данные абонента ?'),'да',MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = IDYES then
dm.Karta.Delete;
Abonent.Edit1.Clear;
Abonent.Edit2.Clear;
Abonent.Edit3.Clear;
Abonent.Edit4.Clear;
Abonent.Edit5.Clear;
Abonent.Edit6.Clear;
Abonent.Edit7.Clear;
Abonent.ComboBox1.Text:='';
Abonent.CheckBox2.Checked:=false;
Abonent.FormActivate(Sender);
end;
 
end.


unit Unit_Kartka

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148

unit Unit_Kartka;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, StdCtrls, ExtCtrls, Mask, Buttons;
 
type
  TKartka = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Bevel1: TBevel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox3: TGroupBox;
    BitBtn4: TBitBtn;
    Label13: TLabel;
    Label14: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    ComboBox1: TComboBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Kartka: TKartka;
 
implementation
 
uses UDM, Unit_Pilgu, Unit_Voda, U_Golovna, Flash_Form, Unit_Abonent, Menu,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok;
 
{$R *.dfm}
 
procedure TKartka.BitBtn1Click(Sender: TObject);
begin
Pilgu.ShowModal;
vub_pilg:=1;
end;
 
procedure TKartka.BitBtn3Click(Sender: TObject);
begin
Close;
end;
 
procedure TKartka.BitBtn2Click(Sender: TObject);
begin
 
if vuba=1 then begin
DM.Karta.Edit;
DM.Karta.Last;
DM.Karta.Insert;
DM.Karta.FieldByname('Adresa').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_kvart').AsString:=Edit1.Text;
DM.Karta.FieldByName('Plosha_kvart').AsFloat:=StrToFloat(Edit2.Text);
DM.Karta.FieldByName('Osob_Nomer').AsString:=Edit3.Text;
DM.Karta.FieldByName('Prizv').AsString:=Edit4.Text;
DM.Karta.FieldByName('Name').AsString:=Edit5.Text;
DM.Karta.FieldByName('Po_Bat').AsString:=Edit6.Text;
DM.Karta.FieldByName('Kilkist_Gul').AsInteger:=StrToInt(Edit7.Text);
DM.Karta.FieldByName('Vud_Opal').AsBoolean:=CheckBox2.Checked;
DM.Karta.FieldByName('Kod_Pilgu').AsString:=Edit8.Text;
DM.Karta.FieldByName('Nazva_Pilgu').AsString:=Edit9.Text;
DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat:=StrToFloat(Edit10.Text);
 
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit11.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit12.Text);
DM.Karta.Post;
 
end;
 
if vuba=2 then begin
DM.Karta.Edit;
DM.Karta.FieldByname('Adresa').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_kvart').AsString:=Edit1.Text;
DM.Karta.FieldByName('Plosha_kvart').AsFloat:=StrToFloat(Edit2.Text);
DM.Karta.FieldByName('Osob_Nomer').AsString:=Edit3.Text;
DM.Karta.FieldByName('Prizv').AsString:=Edit4.Text;
DM.Karta.FieldByName('Name').AsString:=Edit5.Text;
DM.Karta.FieldByName('Po_Bat').AsString:=Edit6.Text;
DM.Karta.FieldByName('Kilkist_Gul').AsInteger:=StrToInt(Edit7.Text);
DM.Karta.FieldByName('Vud_Opal').AsBoolean:=CheckBox2.Checked;
DM.Karta.FieldByName('Kod_Pilgu').AsString:=Edit8.Text;
DM.Karta.FieldByName('Nazva_Pilgu').AsString:=Edit9.Text;
DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat:=StrToFloat(Edit10.Text);
 
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit11.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit12.Text);
 
DM.Karta.Post;
end;
Close;
end;
 
procedure TKartka.BitBtn4Click(Sender: TObject);
begin
vub_vodu:=1;
Voda.ShowModal;
end;
 
procedure TKartka.FormActivate(Sender: TObject);
var str:string;
begin
   DM.Adresu.First;
   while not DM.Adresu.Eof do begin
   str:=DM.Adresu.FieldByName('Adresa').AsString;
   Kartka.ComboBox1.Items.Add(str);
   DM.Adresu.Next;
   end;
end;
 
end.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190

unit Unit_Narax;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls;
 
type
  TNarax = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Timer1: TTimer;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Narax: TNarax;
  Voda,Opal,Kvart,Suma,S:real;
implementation
 
uses UDM, Unit_Nastr, U_Golovna, Unit_Pilgu, Flash_Form, Menu,
  Unit_Abonent, Unit_Kartka, Unit_Oplata, Unit_Pereraxunok, Unit_Voda;
 
{$R *.dfm}
procedure TNarax.FormActivate(Sender: TObject);
begin
//Timer1.Enabled:=False;
 
// Narax.button1.Visible:=false;
 
Label1.Visible:=true;Label1.Caption:='***************';
Label2.Visible:=False;Label2.Caption:='для '+IntToStr(DM.Karta.RecordCount)+' абонентов';
Narax.ProgressBar1.Position:=0;
Narax.ProgressBar1.Min:=0;
Narax.ProgressBar1.Max:=DM.Karta.RecordCount;
 
//Timer1.Interval:=1;
 
end;
 
 
 
procedure TNarax.BitBtn1Click(Sender: TObject);
begin
 
//Timer1.Enabled:=True;
ProgressBar1.Visible:=true;
Narax.Label2.Visible:=True;
Narax.Label1.Visible:=True;
DM.Tarif.Refresh;
DM.Karta.Refresh;
DM.Karta.First;DM.Karta.Edit;
////////
DM.Karta.DisableControls;
while not DM.Karta.Eof do begin
Voda:=(DM.Karta.FieldByName('Pot_Voda').AsInteger-DM.Karta.FieldByName('Pop_Voda').AsInteger)*StrToFloat(Golovna.DBEdit14.Text);
//(DM.Tarif.FieldByName('tarif.Voda').Asfloat);
Opal:=(Dm.Karta.FieldByname('Plosha_kvart').AsFloat)*StrToFloat(Golovna.DBEdit15.Text);
//(DM.Tarif.FieldByName('tarif.Kvartplata').Asfloat);
Kvart:=(Dm.Karta.FieldByname('Plosha_kvart').AsFloat)*StrToFloat(Golovna.DBEdit16.Text);
//(DM.Tarif.FieldByName('tarif.Opal').Asfloat);
Suma:=Voda+Opal+Kvart;
if  DM.Karta.FieldByName('Kod_Pilgu').AsString<>'10' then
begin
DM.Karta.Edit;
if DM.Karta.FieldByName('Vud_Opal').AsBoolean=true then
Opal:=Opal-Opal*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100 else Opal:=0;
Voda:=Voda-Voda*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100;
Kvart:=Kvart-Kvart*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100;
DM.Karta.FieldByName('Voda').AsFloat:= Voda;
DM.Karta.FieldByName('Opal').AsFloat:= Opal;
DM.Karta.FieldByName('Kvart').AsFloat:=Kvart;
Suma:=Voda+Opal+Kvart;
DM.Karta.FieldByName('Naraxovano').AsFloat:=Suma;
end
else  begin
DM.Karta.Edit;
if DM.Karta.FieldByName('Vud_Opal').AsBoolean=true then
Opal:=Opal-Opal*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100 else Opal:=0;
Suma:=Suma;
DM.Karta.FieldByName('Voda').AsFloat:=Voda;
DM.Karta.FieldByName('Opal').AsFloat:=Opal;
DM.Karta.FieldByName('Kvart').AsFloat:=Kvart;
DM.Karta.FieldByName('Naraxovano').AsFloat:=Suma;
end;
DM.Karta.Post;
DM.Karta.Next;
///
 
With Narax.ProgressBar1 do
Begin
Position:=Position+1;
if Position=Max Then Narax.Label1.Caption:='*********!'else   Narax.Label1.Caption:='********.' ;
 
end;
///
 
end; //while
 
S:=0;DM.Karta.First;
while not DM.Karta.Eof do begin
S:=S+DM.Karta.FieldByName('Naraxovano').AsFloat;
DM.Karta.Next;
end;
DM.Karta.First;
Golovna.Label16.Caption:='**********:'+FloatToStr(S)+' грн.';
Golovna.Label16.Visible:=True;
DM.Karta.EnableControls;
end;
 
procedure TNarax.BitBtn3Click(Sender: TObject);
begin
Close;
end;
 
procedure TNarax.Timer1Timer(Sender: TObject);
begin
{Label1.Visible:=True;
With Narax.ProgressBar1 do
Begin
Position:=Position+1;
if Position=Max Then Narax.Label1.Caption:='***************!';
end;  }
end;
 
 
procedure TNarax.BitBtn2Click(Sender: TObject);
begin
 
 
Timer1.Enabled:=True;Narax.Label2.Visible:=True;
DM.Karta.Refresh;
DM.Karta.Edit;
// цикл був
Voda:=(DM.Karta.FieldByName('Pot_Voda').AsInteger-DM.Karta.FieldByName('Pop_Voda').AsInteger)*StrToFloat(Golovna.DBEdit14.Text);
Opal:=(Dm.Karta.FieldByname('Plosha_kvart').AsFloat)*StrToFloat(Golovna.DBEdit15.Text);
Kvart:=(Dm.Karta.FieldByname('Plosha_kvart').AsFloat)* StrToFloat(Golovna.DBEdit16.Text);
Suma:=Voda+Opal+Kvart;
if  DM.Karta.FieldByName('Kod_Pilgu').AsString<>'10' then
begin
DM.Karta.Edit;
if DM.Karta.FieldByName('Vud_Opal').AsBoolean=true then
Opal:=Opal-Opal*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100 else Opal:=0;
Voda:=Voda-Voda*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100;
Kvart:=Kvart-Kvart*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100;
DM.Karta.FieldByName('Voda').AsFloat:= Voda;
DM.Karta.FieldByName('Opal').AsFloat:= Opal;
DM.Karta.FieldByName('Kvart').AsFloat:=Kvart;
Suma:=Voda+Opal+Kvart;
DM.Karta.FieldByName('Naraxovano').AsFloat:=Suma;
end
else  begin
DM.Karta.Edit;
if DM.Karta.FieldByName('Vud_Opal').AsBoolean=true then
Opal:=Opal-Opal*DM.Karta.FieldByName('Rozmir_Pilgu').AsFloat/100 else Opal:=0;
Suma:=Suma;
DM.Karta.FieldByName('Voda').AsFloat:=Voda;
DM.Karta.FieldByName('Opal').AsFloat:=Opal;
DM.Karta.FieldByName('Kvart').AsFloat:=Kvart;
DM.Karta.FieldByName('Naraxovano').AsFloat:=Suma;
end;
DM.Karta.Post;
DM.Karta.Next;
//while
 
S:=0;DM.Karta.First;
while not DM.Karta.Eof do begin
S:=S+DM.Karta.FieldByName('Naraxovano').AsFloat;
DM.Karta.Next;
end;
DM.Karta.First;
Golovna.Label16.Caption:='*************:'+FloatToStr(S)+' грн.';
Golovna.Label16.Visible:=True;
 
end;
 
end.


unit Unit_Nastr

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343

unit Unit_Nastr;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids,
  Mask, ToolEdit, RxLookup, GridsEh, DBGridEh, XPMan;
 
type
  TNastroyku = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBNavigator1: TDBNavigator;
    Label12: TLabel;
    Edit9: TEdit;
    Label13: TLabel;
    Edit10: TEdit;
    Label14: TLabel;
    Edit11: TEdit;
    Label15: TLabel;
    Edit12: TEdit;
    Label16: TLabel;
    Edit13: TEdit;
    Label17: TLabel;
    ComboBox1: TComboBox;
    Bevel1: TBevel;
    DBNavigator2: TDBNavigator;
    DBMemo1: TDBMemo;
    Label19: TLabel;
    BitBtn3: TBitBtn;
    TabSheet4: TTabSheet;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label20: TLabel;
    from: TEdit;
    SpeedButton1: TSpeedButton;
    Label21: TLabel;
    where: TEdit;
    SpeedButton2: TSpeedButton;
    Button1: TButton;
    Open1: TOpenDialog;
    Save1: TSaveDialog;
    BitBtn4: TBitBtn;
    Open2: TOpenDialog;
    ProgressBar1: TProgressBar;
    Image1: TImage;
    BitBtn5: TBitBtn;
    Label22: TLabel;
    DBEdit4: TDBEdit;
    RxLookupEdit1: TRxLookupEdit;
    Label23: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    BitBtn6: TBitBtn;
    DBGridEh1: TDBGridEh;
    XPManifest1: TXPManifest;
    Label27: TLabel;
    GroupBox4: TGroupBox;
    Label18: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    GroupBox5: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Label5: TLabel;
    DBGridEh2: TDBGridEh;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn7: TBitBtn;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Memo1: TMemo;
    Label9: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
     procedure doit;
  public
    { Public declarations }
  end;
 
var
  Nastroyku: TNastroyku;
 
implementation
 
uses UDM, Flash_Form, Unit_Narax, Menu, U_Golovna, Unit_Abonent,
  Unit_Kartka, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu, Unit_Voda;
 
{$R *.dfm}
 
procedure TNastroyku.doit();
label 1;
var
f1,f2: file of byte;
cop: byte;
sizez: longint;
begin
 {$I-}
 try
 assignfile(f1,from.text);
 assignfile(f2,where.Text);
 reset(f1);
 sizez:=trunc(filesize(f1));
 label4.Caption:=intTOstr(sizez div 1024)+'Кб';
 rewrite(f2);
 1: while not eof(f1) do begin
   blockread(f1,cop,1);
   blockwrite(f2,cop,1);
// прогрес
With Nastroyku.ProgressBar1 do
Begin
Position:=Position+1;
if Position<>Max Then goto 1;
end;
   end;
 closefile(f1);
 closefile(f2);
 finally;
 end;
 if IOResult<>0 then messagedlg('*****************!',mterror, [mbok],0)
 else begin
 showmessage('****************!');
 end;
end;
 
 
procedure TNastroyku.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
procedure TNastroyku.BitBtn1Click(Sender: TObject);
begin
DM.Karta.Refresh;
DM.Karta.First;
DM.Karta.Edit;
while not DM.Karta.Eof do
begin
DM.Karta.Edit;
DM.Karta.FieldByName('Mis').AsString:=ComboBox1.Text;
DM.Karta.FieldByName('Nomer_Mis').AsInteger:=ComboBox1.ItemIndex;
DM.Karta.Post;
DM.Karta.Next;
end;
DM.Karta.Refresh;
DM.Tarif.Edit;
DM.Tarif.FieldByName('Tarif_Data').AsDateTime:=DateTimePicker1.Date;
DM.Tarif.Post;
 
 
 
while not DM.Firma.Eof do
  begin
  IF  DM.Firma.RecordCount>0 then  dm.Firma.Delete;
  DM.Firma.Next;
  end;
 
DM.Firma.Edit;
DM.Firma.Last;
DM.Firma.Insert;
DM.Firma.FieldByName('Nazva_Org').AsString:=Edit1.Text;
DM.Firma.FieldByName('Adresa_Org').AsString:=Edit2.Text;
DM.Firma.FieldByName('Prizv_Gol').AsString:=Edit3.Text;
DM.Firma.FieldByName('Prizv_Bux').AsString:=Edit4.Text;
DM.Firma.FieldByName('Telefon').AsString:=Edit5.Text;
DM.Firma.FieldByName('Roz_Rax').AsString:=Edit9.Text;
DM.Firma.FieldByName('Nazva_Banku').AsString:=Edit10.Text;
DM.Firma.FieldByName('Misto_Ban').AsString:=Edit11.Text;
DM.Firma.FieldByName('Kod_Ban').AsString:=Edit12.Text;
DM.Firma.FieldByName('Kod_Edrpu').AsString:=Edit13.Text;
DM.Firma.Post;
 
end;
 
procedure TNastroyku.FormActivate(Sender: TObject);
begin
DM.Login.First;
DM.Login.Refresh;
label27.Caption:='Всіх будинків -'+IntTostr(DM.Adresu.RecordCount);
DM.Karta.Refresh;
DM.Tarif.Last;
if nastr=2 then Nastroyku.PageControl1.ActivePage:=TabSheet2;
if nastr=3 then Nastroyku.PageControl1.ActivePage:=TabSheet3;
 
DM.Tarif.Last;
Edit1.Text:=DM.Firma.FieldByName('Nazva_Org').AsString;
Edit2.Text:=DM.Firma.FieldByName('Adresa_Org').AsString;
Edit3.Text:=DM.Firma.FieldByName('Prizv_Gol').AsString;
Edit4.Text:=DM.Firma.FieldByName('Prizv_Bux').AsString;
Edit5.Text:=DM.Firma.FieldByName('Telefon').AsString;
Edit9.Text:=DM.Firma.FieldByName('Roz_Rax').AsString;
Edit10.Text:=DM.Firma.FieldByName('Nazva_Banku').AsString;
Edit11.Text:=DM.Firma.FieldByName('Misto_Ban').AsString;
Edit12.Text:=DM.Firma.FieldByName('Kod_Ban').AsString;
Edit13.Text:=DM.Firma.FieldByName('Kod_Edrpu').AsString;
 
ComboBox1.ItemIndex:=DM.Karta.FieldByName('Nomer_Mis').AsInteger;
DateTimePicker1.Date:=Date;
end;
 
procedure TNastroyku.BitBtn3Click(Sender: TObject);
begin
if  MessageBox(GetForegroundWindow,pchar('При переходе на следующий месяц,  закрывается.'+#13+
'оперативные даные сох!!!'+#13+' сберегаюся данные 3 абонентов.'),'да',MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) = IDYES then
ComboBox1.ItemIndex:=ComboBox1.Itemindex+1;
 
 
 from.Text:='baza.mdb';
 where.Text:='ARXIV\'+from.Text;
 //+IntToStr(DM.Karta.FieldByName('Nomer_Mis').AsInteger);
  doit;
 
DM.Karta.First;
DM.Karta.Edit;
while not DM.Karta.Eof do
begin
DM.Karta.Edit;
DM.Karta.FieldByName('Kod_Pilgu').AsString:='';
DM.Karta.FieldByname('Nazva_Pilgu').AsString:='';
DM.Karta.FieldByname('Rozmir_Pilgu').AsString:='';
 
DM.Karta.FieldByName('Subsudija').AsFloat:=0;
DM.Karta.FieldByName('Naraxovano').AsFloat:=0;
DM.Karta.FieldByName('Oplacheno').AsFloat:=0;
 
DM.Karta.FieldByName('Vhidna_Zaborg').AsFloat:=0;
DM.Karta.FieldByName('Voda').AsFloat:=0;
DM.Karta.FieldByName('Opal').AsFloat:=0;
DM.Karta.FieldByName('Kvart').AsFloat:=0;
DM.Karta.FieldByname('Nomer_Kvutan').AsInteger:=0;
DM.Karta.FieldByname('Data_Oplatu').AsDateTime:=0;
 
 
 
DM.Karta.FieldByName('Pop_Voda').AsInteger:=DM.Karta.FieldByName('Pot_Voda').AsInteger;
DM.Karta.FieldByName('Pot_Voda').AsInteger:=0;
DM.Karta.Post;
DM.Karta.Next;
end;
DM.Karta.Refresh;
 
 
end;
 
 
procedure TNastroyku.Button1Click(Sender: TObject);
begin
 
doit;
end;
 
procedure TNastroyku.SpeedButton1Click(Sender: TObject);
begin
 
if open1.Execute then from.Text:=open1.FileName
 else
 showmessage('Файл не ***');
end;
 
procedure TNastroyku.SpeedButton2Click(Sender: TObject);
begin
// зберігання файлу
if save1.Execute then where.Text:=save1.FileName+'.mdb'
   else showmessage('Вы не вибрали месяц!');
end;
 
procedure TNastroyku.BitBtn4Click(Sender: TObject);
begin
If Open2.EXECUTE Then
Begin
DM.ADOConnection1.Close;
DM.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Data Source='+Open2.FileName+';Persist Security Info=False ';
DM.ADOConnection1.Open;
end;
 
   DM.Karta.Active:=True;
   DM.Adresu.Active:=True;
   DM.Pilgu.Active:=True;
   DM.Firma.Active:=True;
   DM.Tarif.Active:=True;
end;
 
procedure TNastroyku.BitBtn5Click(Sender: TObject);
begin
// запись пароля и юзера
If DM.Login.Modified Then DM.Login.Post;
end;
 
procedure TNastroyku.BitBtn6Click(Sender: TObject);
begin
DM.Login.Edit;
DM.Login.Last;
If DM.Login.Modified Then DM.Login.Post;
end;
 
procedure TNastroyku.BitBtn7Click(Sender: TObject);
begin
//тарифы
DM.Tarif.Edit;
DM.Tarif.Last;
DM.Tarif.Insert;
DM.Tarif.FieldByName('Tarif_Data').AsDateTime:=DateTimePicker1.Date;
DM.Tarif.FieldByName('Tarif_Voda').AsFloat:=StrToFloat(Edit6.Text);
DM.Tarif.FieldByName('Tarif_KvartPlata').AsFloat:=StrToFloat(Edit7.Text);
DM.Tarif.FieldByName('Tarif_Opal').AsFloat:=StrToFloat(Edit8.Text);
DM.Tarif.FieldByName('Normat_Doc').AsString:=Memo1.Text;
DM.Tarif.Post;
end;
 
end.


unit Unit_Oplata

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78

unit Unit_Oplata;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls;
 
type
  TOplata = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label8: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    Bevel1: TBevel;
    Label10: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Oplata: TOplata;
 
implementation
 
uses UDM, Flash_Form, Menu, U_Golovna, Unit_Abonent, Unit_Kartka,
  Unit_Narax, Unit_Nastr, Unit_Pereraxunok, Unit_Pilgu, Unit_Voda;
 
{$R *.dfm}
 
procedure TOplata.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
procedure TOplata.FormActivate(Sender: TObject);
var nomer_kvut:string[14];
begin
DateTimePicker1.Date:=Date;
Oplata.Label10.Caption:='имя абонента - '+DM.Karta.FieldByName('Prizv').AsString ;
Oplata.Edit4.Text:=FloatTostr(DM.Karta.FieldByName('Naraxovano').AsFloat);
nomer_kvut:=IntToStr(DM.Karta.FieldByName('Nomer_Mis').AsInteger)+DM.Karta.FieldByName('Osob_Nomer').AsString;
Edit2.Text:=nomer_kvut;
end;
 
procedure TOplata.BitBtn1Click(Sender: TObject);
var Ost_Zaborg:real;
begin
DM.Karta.Edit;
DM.Karta.FieldByName('Nomer_Kvutan').AsString:=Edit2.Text;
DM.Karta.FieldByName('Oplacheno').AsFloat:=StrToFloat(Edit1.Text);
DM.Karta.FieldByName('Subsudija').AsFloat:=StrToFloat(Edit3.Text);
DM.Karta.FieldByName('Data_Oplatu').AsDateTime:=DateTimePicker1.Date;
Ost_Zaborg:=DM.Karta.FieldByName('Oplacheno').AsFloat-DM.Karta.FieldByName('Naraxovano').AsFloat;
DM.Karta.FieldByName('Ostatok_Zaborg').AsFloat:=Ost_Zaborg;
DM.Karta.Post;
Close;
end;
 
end.


unit Unit_Pereraxunok

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

unit Unit_Pereraxunok;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask,  ExtCtrls,DBCtrls,Buttons, XPMan, ComCtrls,
  Grids, DBGrids;
 
type
  TPereraxunok = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    BitBtn5: TBitBtn;
    Open2: TOpenDialog;
    Open1: TOpenDialog;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Pereraxunok: TPereraxunok;
 
implementation
 
uses UDM, U_Golovna, Menu, Flash_Form, Unit_Abonent, Unit_Kartka,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pilgu, Unit_Voda;
 
{$R *.dfm}
 
procedure TPereraxunok.BitBtn4Click(Sender: TObject);
begin
If Open1.EXECUTE Then
Begin
DM.ADOConnection1.Close;
DM.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'Data Source='+Open2.FileName+';Persist Security Info=False ';
DM.ADOConnection1.Open;
end;
 
   DM.Karta.Active:=True;
   DM.Adresu.Active:=True;
   DM.Pilgu.Active:=True;
   DM.Firma.Active:=True;
   DM.Tarif.Active:=True;
 
 
Close;
end;
 
procedure TPereraxunok.BitBtn1Click(Sender: TObject);
begin
//
 
 
end;
 
procedure TPereraxunok.BitBtn2Click(Sender: TObject);
begin
///
end;
 
procedure TPereraxunok.BitBtn3Click(Sender: TObject);
begin
  //DM.Posluga.Delete;
 
end;
 
end.


unit Unit_Pilgu

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

unit Unit_Pilgu;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, GridsEh,
  DBGridEh;
 
type
  TPilgu = class(TForm)
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    DBGridEh1: TDBGridEh;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Pilgu: TPilgu;
 
implementation
 
uses UDM, Unit_Kartka, Unit_Abonent, Flash_Form, Menu, U_Golovna,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Voda;
 
{$R *.dfm}
 
procedure TPilgu.BitBtn1Click(Sender: TObject);
begin
 
if vub_pilg=1 then begin
Kartka.Edit8.Text:=DM.Pilgu.FieldByname('Kod_Pilgu').AsString;
Kartka.Edit9.Text:=DM.Pilgu.FieldByname('Nazva_Pilgu').AsString;
Kartka.Edit10.Text:=DM.Pilgu.FieldByname('Suma').AsString;
Pilgu.Close;
end;
{if  vub_pilg=2 then begin
 
Abonent.Edit8.Text:=DM.Pilgu.FieldByname('Kod_Pilgu').AsString;
Abonent.Edit9.Text:=DM.Pilgu.FieldByname('Nazva_Pilgu').AsString;
Abonent.Edit10.Text:=DM.Pilgu.FieldByname('Suma').AsString;
Pilgu.Close;
end;  }
end;
procedure TPilgu.BitBtn3Click(Sender: TObject);
begin
Close;
end;
 
end.


unit Unit_Voda

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58

unit Unit_Voda;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
type
  TVoda = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Voda: TVoda;
 
implementation
 
uses UDM, Unit_Kartka, Flash_Form, Menu, U_Golovna, Unit_Abonent,
  Unit_Narax, Unit_Nastr, Unit_Oplata, Unit_Pereraxunok, Unit_Pilgu;
 
{$R *.dfm}
 
procedure TVoda.BitBtn1Click(Sender: TObject);
begin
if vub_vodu=1 then begin
Kartka.Edit11.Text:=Voda.Edit1.Text;
Kartka.Edit12.Text:=Voda.Edit2.Text;
end;
if vub_vodu=2 then
begin
DM.Karta.Edit;
DM.Karta.FieldByName('Pop_Voda').AsInteger:=StrToInt(Edit1.Text);
DM.Karta.FieldByName('Pot_Voda').AsInteger:=StrToInt(Edit2.Text);
DM.Karta.Post;
DM.Karta.Refresh;
end;
Close;
end;
 
procedure TVoda.BitBtn2Click(Sender: TObject);
begin
Close;
end;
 
end.


надеюсь вы сможете мне помочь
0
5694 / 2285 / 466
Регистрация: 20.11.2009
Сообщений: 7,692
Записей в блоге: 1
19.06.2011, 02:24 8
а проектом, одним архивом нельзя было?, мне например лень сейчас будет рассматривать все эти модули, что до чего цепляется, проверять по коду, весь проект заархивируй и сюда выложи, больше толку будет
0
deathNC
19.06.2011, 10:47
  #9
 Комментарий модератора 
SLY_BOY, архивируй папку со своим проектом и прикрепляй к сообщению! Сам подумай, кому надо полчаса сидеть и собирать твой проект по кусочкам!
0
0 / 0 / 0
Регистрация: 12.05.2011
Сообщений: 17
19.06.2011, 16:10  [ТС] 10
Всем спасибо все таки я ее запустил
0
Amis
10.06.2014, 20:07 11
можно решение если есть у кого у меня такая же прога
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 10.06.2014, 20:07
Помогаю со студенческими работами здесь

Ошибка: Record object or class type required
{$WARN SYMBOL_PLATFORM OFF} unit FormMain; interface uses Windows, Messages, SysUtils,...

Ошибка: record, object or class type required
Вод полный код окна Form1: unit Unit1; interface uses Windows, Messages, SysUtils,...

Ошибка: Record, object or class type required, ругается на DataModule (DM)
Здравствуйте! Помогите пожалуйста разобраться с данной ошибкой. В программе есть DataModule (с...

Ошибка [Error] Unit3.pas(33): Record, object or class type required в Делфи
Выдает ошибку Unit3.pas(33): Record, object or class type required Unit3.pas(34): Record,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru