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
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
| object Form2: TForm2
Left = 492
Top = 169
Width = 888
Height = 376
ActiveControl = Panel1
Caption = 'Form2'
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 0
Top = 185
Width = 872
Height = 3
Cursor = crVSplit
Align = alTop
AutoSnap = False
MinSize = 50
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 872
Height = 33
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 8
Top = 4
Width = 240
Height = 25
DataSource = DataSource1
Flat = True
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 33
Width = 872
Height = 152
Align = alTop
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 872
Height = 152
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
Visible = True
end
item
Expanded = False
FieldName = 'Фирма'
Visible = True
end
item
Expanded = False
FieldName = 'Адрес'
Visible = True
end
item
Expanded = False
FieldName = 'Директор'
Visible = True
end
item
Expanded = False
FieldName = 'Кол-во работников'
Visible = True
end
item
Expanded = False
FieldName = 'Доход от ремонтов'
Visible = True
end
item
Expanded = False
FieldName = 'Зарплата'
Visible = True
end>
end
end
object Panel3: TPanel
Left = 0
Top = 188
Width = 872
Height = 150
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 2
object DBGrid2: TDBGrid
Left = 0
Top = 0
Width = 872
Height = 150
Align = alClient
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
Visible = True
end
item
Expanded = False
FieldName = 'Фирма'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт мониторов'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт винчестеров'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт дисководов'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт принтеров'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт материнских плат'
Visible = True
end
item
Expanded = False
FieldName = 'Стоимость ремонта'
Visible = True
end>
end
object DBGrid3: TDBGrid
Left = 0
Top = 50
Width = 1369
Height = 87
DataSource = DataSource3
TabOrder = 1
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'ID'
Visible = True
end
item
Expanded = False
FieldName = 'Фирма'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт мониторов'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт винчестеров'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт дисководов'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт принтеров'
Visible = True
end
item
Expanded = False
FieldName = 'Ремонт материнских плат'
Visible = True
end>
end
end
object Query1: TQuery
DatabaseName = 'ALIAS'
SQL.Strings = (
'Select'
' kursach."ID",'
' kursach."Фирма",'
' kursach."Адрес",'
' kursach."Директор",'
' kursach."Кол-во работников",'
' kursach."Доход от ремонтов",'
' kursach."Зарплата"'
'From "kursach.db"'
'As kursach')
Left = 273
Top = 3
object Query1ID: TFloatField
FieldName = 'ID'
end
object Query1StringField: TStringField
FieldName = 'Фирма'
Size = 15
end
object Query1StringField2: TStringField
FieldName = 'Адрес'
end
object Query1StringField3: TStringField
FieldName = 'Директор'
end
object Query1FloatField: TFloatField
FieldName = 'Кол-во работников'
end
object Query1CurrencyField: TCurrencyField
FieldName = 'Доход от ремонтов'
end
object Query1CurrencyField2: TCurrencyField
FieldName = 'Зарплата'
end
end
object Query2: TQuery
DatabaseName = 'ALIAS'
DataSource = DataSource1
SQL.Strings = (
'Select'
' remonti."ID",'
' remonti."Фирма",'
' remonti."Ремонт мониторов",'
' remonti."Ремонт винчестеров",'
' remonti."Ремонт дисководов",'
' remonti."Ремонт принтеров",'
' remonti."Ремонт материнских плат",'
' remonti."Стоимость ремонта"'
'From "remonti.db"'
'As remonti'
'Where'
' "remonti"."ID" =:"ID"')
Left = 329
Top = 3
ParamData = <
item
DataType = ftFloat
Name = 'ID'
ParamType = ptUnknown
Size = 8
end>
object Query2ID: TFloatField
FieldName = 'ID'
end
object Query2StringField: TStringField
FieldName = 'Фирма'
Size = 15
end
object Query2FloatField: TFloatField
FieldName = 'Ремонт мониторов'
end
object Query2FloatField2: TFloatField
FieldName = 'Ремонт винчестеров'
end
object Query2FloatField3: TFloatField
FieldName = 'Ремонт дисководов'
end
object Query2FloatField4: TFloatField
FieldName = 'Ремонт принтеров'
end
object Query2FloatField5: TFloatField
FieldName = 'Ремонт материнских плат'
end
object Query2CurrencyField: TCurrencyField
FieldName = 'Стоимость ремонта'
end
end
object Query3: TQuery
DatabaseName = 'ALIAS'
DataSource = DataSource1
SQL.Strings = (
'Select'
' stoimost."ID",'
' stoimost."Фирма",'
' stoimost."Ремонт мониторов",'
' stoimost."Ремонт винчестеров",'
' stoimost."Ремонт дисководов",'
' stoimost."Ремонт принтеров",'
' stoimost."Ремонт материнских плат"'
'From "stoimost.db"'
'As stoimost'
'Where'
' "stoimost"."ID" =:"ID"')
Left = 384
Top = 3
ParamData = <
item
DataType = ftFloat
Name = 'ID'
ParamType = ptUnknown
Size = 8
end>
object Query3ID: TFloatField
FieldName = 'ID'
end
object Query3StringField: TStringField
FieldName = 'Фирма'
Size = 15
end
object Query3FloatField: TFloatField
FieldName = 'Ремонт мониторов'
end
object Query3FloatField2: TFloatField
FieldName = 'Ремонт винчестеров'
end
object Query3FloatField3: TFloatField
FieldName = 'Ремонт дисководов'
end
object Query3FloatField4: TFloatField
FieldName = 'Ремонт принтеров'
end
object Query3FloatField5: TFloatField
FieldName = 'Ремонт материнских плат'
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 301
Top = 3
end
object DataSource2: TDataSource
DataSet = Query2
Left = 357
Top = 3
end
object DataSource3: TDataSource
DataSet = Query3
Left = 408
Top = 3
end
end |
(
