2094
.pdfПродолжение прил. 1
Table1: TTable;
DataSource1: TDataSource;
Table1GosNomer: TStringField; Table1ZavNimer: TStringField;
Table1InvNomer: TStringField; Table1GodVipuska: TStringField;
Table1DataVvoda: TStringField; Table1Cena: TFloatField;
Table1Ctoimost: TFloatField; Table1MarkaDvig: TStringField;
Table1ZavNomerDvig: TStringField; Table1GodVipDvig: TStringField;
Table1FIO: TStringField; Table1Brigada: TSmallintField;
Table1Podrazdelen: TStringField; Table1NomerKr: TSmallintField;
Table1NomerKRDvig: TSmallintField; Table1Marka: TStringField;
Table2: TTable; Table3: TTable; Table4: TTable; Table5: TTable;
DataSource2: TDataSource; DataSource3: TDataSource;
DataSource4: TDataSource; DataSource5: TDataSource; DataSource6:
TDataSource;
Query1: TQuery; Query2: TQuery;
DataSource7: TDataSource;
Table5DateField: TDateField; Table5StringField: TStringField;
Table5StringField2: TStringField; Table5StringField3: TStringField;
Table5StringField4: TStringField; Table5StringField5: TStringField;
Table5StringField1: TStringField; Table5StringField22: TStringField;
Table5StringField32: TStringField; Table5StringField6: TStringField;
Table5SmallintField: TSmallintField; Table5SmallintField2: TSmallint-
Field;
Table5SmallintField3: TSmallintField; Table5SmallintField4: TSmallint-
Field;
Table5SmallintField5: TSmallintField; Table5SmallintField6: TSmallint-
Field;
Table5SmallintField7: TSmallintField; Table5SmallintField8: TSmallint-
Field;
Table5FloatField: TFloatField; Table5FloatField2: TFloatField;
Table5_: TFloatField; Table5FloatField3: TFloatField;
Table5StringField7: TStringField; Table5SmallintField9: TSmallintField;
Table5SmallintField10: TSmallintField; Table5SmallintField11: TSmallint-
Field;
Table5SmallintField12: TSmallintField; Table5FloatField4: TFloatField;
Table5FloatField5: TFloatField; Table5FloatField6: TFloatField;
Table5StringField8: TStringField; Table5StringField9: TStringField;
Table5StringField10: TStringField; Table5StringField11: TStringField;
Table5StringField12: TStringField; Table5SmallintField13: TSmallintField;
241
Продолжение прил. 1
Table5FloatField7: TFloatField; Table5FloatField8: TFloatField; Table5StringField13: TStringField; Table5StringField14: TStringField; Table5StringField15: TStringField; Table5StringField16: TStringField; Table5FloatField9: TFloatField; Table5FloatField10: TFloatField; Table5FloatField11: TFloatField; Table5FloatField12: TFloatField; Table5FloatField13: TFloatField; Table5FloatField14: TFloatField; Table5FloatField15: TFloatField; Table5FloatField16: TFloatField; Table5FloatField17: TFloatField; Table5FloatField18: TFloatField; Table5SmallintField14: TSmallintField; Table5FloatField19: TFloatField; Table5FloatField20: TFloatField; Table5FloatField21: TFloatField; Table5FloatField22: TFloatField; Table5FloatField23: TFloatField; Table5FloatField24: TFloatField; Table5FloatField25: TFloatField; Table5FloatField26: TFloatField; Table5StringField17: TStringField; Table5FloatField27: TFloatField; Table5Marka: TStringField; Table5LitrT_KM_Norma: TCurrencyField;
Table5LitrT_KM: TCurrencyField;
Query2LitrT_KMQ: TCurrencyField; Query2LitrT_KM_NormaQ: TCurrencyField; Query2DateField: TDateField; Query2StringField: TStringField;
Query2StringField2: TStringField; Query2StringField3: TStringField; Query2StringField4: TStringField; Query2StringField5: TStringField; Query2StringField1: TStringField; Query2StringField22: TStringField; Query2StringField32: TStringField; Query2StringField6: TStringField; Query2SmallintField: TSmallintField; Query2SmallintField2: TSmallint-
Field;
Query2SmallintField3: TSmallintField; Query2SmallintField4: TSmallintField;
Query2SmallintField5: TSmallintField; Query2SmallintField6: TSmallintField;
Query2SmallintField7: TSmallintField; Query2SmallintField8: TSmallintField;
Query2FloatField: TFloatField; Query2FloatField2: TFloatField; Query2_: TFloatField; Query2FloatField3: TFloatField; Query2StringField7: TStringField; Query2SmallintField9: TSmallintField; Query2SmallintField10: TSmallintField; Query2SmallintField11: TSmal-
lintField;
Query2SmallintField12: TSmallintField; Query2FloatField4: TFloatField; Query2FloatField5: TFloatField; Query2FloatField6: TFloatField; Query2StringField8: TStringField; Query2StringField9: TStringField;
242
Продолжение прил. 1
Query2StringField10: TStringField; Query2StringField11: TStringField; Query2StringField12: TStringField; Query2SmallintField13: TSmallint-
Field;
Query2FloatField7: TFloatField; Query2FloatField8: TFloatField; Query2StringField13: TStringField; Query2StringField14: TStringField; Query2StringField15: TStringField; Query2StringField16: TStringField; Query2FloatField9: TFloatField; Query2FloatField10: TFloatField; Query2FloatField11: TFloatField; Query2FloatField12: TFloatField; Query2FloatField13: TFloatField; Query2FloatField14: TFloatField; Query2FloatField15: TFloatField; Query2FloatField16: TFloatField; Query2FloatField17: TFloatField; Query2FloatField18: TFloatField; Query2SmallintField14: TSmallintField;
Query2FloatField19: TFloatField; Query2FloatField20: TFloatField; Query2FloatField21: TFloatField; Query2FloatField22: TFloatField; Query2FloatField23: TFloatField; Query2FloatField24: TFloatField; Query2FloatField25: TFloatField; Query2FloatField26: TFloatField; Query2StringField17: TStringField; Query2FloatField27: TFloatField; Query2Marka: TStringField; Query2LitrT_KM: TFloatField; Query1DateField: TDateField; Query1StringField: TStringField; Query1StringField2: TStringField; Query1StringField3: TStringField; Query1StringField4: TStringField; Query1StringField5: TStringField; Query1StringField1: TStringField; Query1StringField22: TStringField; Query1StringField32: TStringField; Query1StringField6: TStringField; Query1SmallintField: TSmallintField; Query1SmallintField2: TSmallint-
Field;
Query1SmallintField3: TSmallintField; Query1SmallintField4: TSmallintField;
Query1SmallintField5: TSmallintField; Query1SmallintField6: TSmallintField;
Query1SmallintField7: TSmallintField; Query1SmallintField8: TSmallintField;
Query1FloatField: TFloatField; Query1FloatField2: TFloatField; Query1_: TFloatField; Query1FloatField3: TFloatField; Query1StringField7: TStringField; Query1SmallintField9: TSmallintField; Query1SmallintField10: TSmallintField; Query1SmallintField11: TSmal-
lintField;
Query1SmallintField12: TSmallintField; Query1FloatField4: TFloatField; Query1FloatField5: TFloatField; Query1FloatField6: TFloatField; Query1StringField8: TStringField; Query1StringField9: TStringField;
243
Продолжение прил. 1
Query1StringField10: TStringField; Query1StringField11: TStringField; Query1StringField12: TStringField; Query1SmallintField13: TSmallint-
Field;
Query1FloatField7: TFloatField; Query1FloatField8: TFloatField; Query1StringField13: TStringField; Query1StringField14: TStringField; Query1StringField15: TStringField; Query1StringField16: TStringField; Query1FloatField9: TFloatField; Query1FloatField10: TFloatField; Query1FloatField11: TFloatField; Query1FloatField12: TFloatField; Query1FloatField13: TFloatField; Query1FloatField14: TFloatField; Query1FloatField15: TFloatField; Query1FloatField16: TFloatField; Query1FloatField17: TFloatField; Query1FloatField18: TFloatField; Query1SmallintField14: TSmallintField; Query1FloatField19: TFloatField; Query1FloatField20: TFloatField; Query1FloatField21: TFloatField; Query1FloatField22: TFloatField; Query1FloatField23: TFloatField; Query1FloatField24: TFloatField; Query1FloatField25: TFloatField; Query1FloatField26: TFloatField; Query1StringField17: TStringField; Query1FloatField27: TFloatField; Query1Marka: TStringField; Query1LitrT_KM: TFloatField; Query1LitrT_KMQ1: TCurrencyField; Query1LitrT_KM_NormaQ1: TCurrencyField;
procedure Query2CalcFields(DataSet: TDataSet); procedure Query1CalcFields(DataSet: TDataSet); private
public end; var
DataModule1: TDataModule1; implementation
{$R *.DFM}
procedure TDataModule1.Query2CalcFields(DataSet: TDataSet); begin
with DataModule1.Query2 do begin
if FieldByName('Всего тонно-км').AsFloat<>0 then begin
FieldByName('LitrT_KMQ').AsFloat:= FieldByName('Расход горючего-факт').AsFloat/ FieldByName('Всего тонно-км').AsFloat; FieldByName('LitrT_KM_NormaQ').AsFloat:= FieldByName('Расход горючего -норма').AsFloat/
244
Продолжение прил. 1
FieldByName('Всего тонно-км').AsFloat; end
else begin
FieldByName('LitrT_KM_NormaQ').AsFloat:=0; FieldByName('LitrT_KMQ').AsFloat:=0;
end;
end;
end;
procedure TDataModule1.Query1CalcFields(DataSet: TDataSet); begin
with DataModule1.Query1 do begin
if FieldByName('Всего тонно-км').AsFloat<>0 then begin
FieldByName('LitrT_KMQ1').AsFloat:= FieldByName('Расход горючего-факт').AsFloat/ FieldByName('Всего тонно-км').AsFloat; FieldByName('LitrT_KM_NormaQ1').AsFloat:= FieldByName('Расход горючего -норма').AsFloat/ FieldByName('Всего тонно-км').AsFloat;
end else begin
FieldByName('LitrT_KM_NormaQ1').AsFloat:=0; FieldByName('LitrT_KMQ1').AsFloat:=0;
end;
end;
end;
end.
unit AvtoModul; interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables;
type
TDataModule1 = class(TDataModule) Table1: TTable; DataSource1: TDataSource;
Table1GosNomer: TStringField; Table1ZavNimer: TStringField;
245
Продолжение прил. 1
Table1InvNomer: TStringField; Table1GodVipuska: TStringField;
Table1DataVvoda: TStringField; Table1Cena: TFloatField;
Table1Ctoimost: TFloatField; Table1MarkaDvig: TStringField;
Table1ZavNomerDvig: TStringField; Table1GodVipDvig: TStringField;
Table1FIO: TStringField; Table1Brigada: TSmallintField;
Table1Podrazdelen: TStringField; Table1NomerKr: TSmallintField;
Table1NomerKRDvig: TSmallintField; Table1Marka: TStringField;
Table2: TTable; DataSource2: TDataSource;
Table3: TTable; DataSource3: TDataSource;
Table4: TTable; DataSource4: TDataSource;
Table5: TTable; DataSource5: TDataSource;
Query1: TQuery; DataSource6: TDataSource;
Query2: TQuery; DataSource7: TDataSource;
Table5DateField: TDateField; Table5StringField: TStringField;
Table5StringField2: TStringField; Table5StringField3: TStringField;
Table5StringField4: TStringField; Table5StringField5: TStringField;
Table5StringField1: TStringField; Table5StringField22: TStringField;
Table5StringField32: TStringField; Table5StringField6: TStringField;
Table5SmallintField: TSmallintField; Table5SmallintField2: TSmallint-
Field;
Table5SmallintField3: TSmallintField; Table5SmallintField4: TSmallint-
Field;
Table5SmallintField5: TSmallintField; Table5SmallintField6: TSmallint-
Field;
Table5SmallintField7: TSmallintField; Table5SmallintField8: TSmallint-
Field;
Table5FloatField: TFloatField; Table5FloatField2: TFloatField;
Table5_: TFloatField; Table5FloatField3: TFloatField;
Table5StringField7: TStringField; Table5SmallintField9: TSmallintField;
Table5SmallintField10: TSmallintField; Table5SmallintField11: TSmallint-
Field;
Table5SmallintField12: TSmallintField; Table5FloatField4: TFloatField;
Table5FloatField5: TFloatField; Table5FloatField6: TFloatField;
Table5StringField8: TStringField; Table5StringField9: TStringField;
Table5StringField10: TStringField; Table5StringField11: TStringField;
Table5StringField12: TStringField; Table5SmallintField13: TSmallintField;
Table5FloatField7: TFloatField; Table5FloatField8: TFloatField;
Table5StringField13: TStringField; Table5StringField14: TStringField;
Table5StringField15: TStringField; Table5StringField16: TStringField;
246
Продолжение прил. 1
Table5FloatField9: TFloatField; Table5FloatField10: TFloatField; Table5FloatField11: TFloatField; Table5FloatField12: TFloatField; Table5FloatField13: TFloatField; Table5FloatField14: TFloatField;
Продолжение прил. 1 Table5FloatField15: TFloatField; Table5FloatField16: TFloatField; Table5FloatField17: TFloatField; Table5FloatField18: TFloatField; Table5SmallintField14: TSmallintField;
Table5FloatField19: TFloatField; Table5FloatField20: TFloatField; Table5FloatField21: TFloatField; Table5FloatField22: TFloatField; Table5FloatField23: TFloatField; Table5FloatField24: TFloatField; Table5FloatField25: TFloatField; Table5FloatField26: TFloatField; Table5StringField17: TStringField; Table5FloatField27: TFloatField; Table5Marka: TStringField;
Table5LitrT_KM_Norma: TCurrencyField;
Table5LitrT_KM: TCurrencyField; Query2LitrT_KMQ: TCurrencyField; Query2LitrT_KM_NormaQ: TCurrencyField;
Query2DateField: TDateField; Query2StringField: TStringField; Query2StringField2: TStringField; Query2StringField3: TStringField; Query2StringField4: TStringField; Query2StringField5: TStringField; Query2StringField1: TStringField; Query2StringField22: TStringField; Query2StringField32: TStringField; Query2StringField6: TStringField; Query2SmallintField: TSmallintField; Query2SmallintField2: TSmallint-
Field;
Query2SmallintField3: TSmallintField; Query2SmallintField4: TSmallintField;
Query2SmallintField5: TSmallintField; Query2SmallintField6: TSmallintField;
Query2SmallintField7: TSmallintField; Query2SmallintField8: TSmallintField;
Query2FloatField: TFloatField; Query2FloatField2: TFloatField; Query2_: TFloatField; Query2FloatField3: TFloatField; Query2StringField7: TStringField; Query2SmallintField9: TSmallintField; Query2SmallintField10: TSmallintField; Query2SmallintField11: TSmal-
lintField;
Query2SmallintField12: TSmallintField; Query2FloatField4: TFloatField; Query2FloatField5: TFloatField; Query2FloatField6: TFloatField; Query2StringField8: TStringField; Query2StringField9: TStringField; Query2StringField10: TStringField; Query2StringField11: TStringField;
247
Продолжение прил. 1
Query2StringField12: TStringField; Query2SmallintField13: TSmallintField;
Query2FloatField7: TFloatField; Query2FloatField8: TFloatField; Query2StringField13: TStringField; Query2StringField14: TStringField; Query2StringField15: TStringField; Query2StringField16: TStringField; Query2FloatField9: TFloatField; Query2FloatField10: TFloatField; Query2FloatField11: TfloatField; Query2FloatField12: TFloatField; Query2FloatField13: TFloatField; Query2FloatField14: TFloatField; Query2FloatField15: TFloatField; Query2FloatField16: TFloatField; Query2FloatField17: TFloatField; Query2FloatField18: TFloatField; Query2SmallintField14: TSmallintField;
Query2FloatField19: TFloatField; Query2FloatField20: TFloatField;
Продолжение прил. 1 Query2FloatField21: TFloatField; Query2FloatField22: TFloatField; Query2FloatField23: TFloatField; Query2FloatField24: TFloatField; Query2FloatField25: TFloatField; Query2FloatField26: TFloatField; Query2StringField17: TStringField; Query2FloatField27: TFloatField; Query2Marka: TStringField; Query2LitrT_KM: TFloatField; Query1DateField: TDateField; Query1StringField: TStringField; Query1StringField2: TStringField; Query1StringField3: TStringField; Query1StringField4: TStringField; Query1StringField5: TStringField; Query1StringField1: TStringField; Query1StringField22: TStringField; Query1StringField32: TStringField; Query1StringField6: TStringField; Query1SmallintField: TSmallintField; Query1SmallintField2: TSmallint-
Field;
Query1SmallintField3: TSmallintField; Query1SmallintField4: TSmallintField;
Query1SmallintField5: TSmallintField; Query1SmallintField6: TSmallintField;
Query1SmallintField7: TSmallintField; Query1SmallintField8: TSmallintField;
Query1FloatField: TFloatField; Query1FloatField2: TFloatField; Query1_: TFloatField; Query1FloatField3: TFloatField; Query1StringField7: TStringField; Query1SmallintField9: TSmallintField; Query1SmallintField10: TSmallintField; Query1SmallintField11: TSmal-
lintField;
Query1SmallintField12: TSmallintField; Query1FloatField4: TFloatField; Query1FloatField5: TFloatField; Query1FloatField6: TFloatField; Query1StringField8: TStringField; Query1StringField9: TStringField;
248
Продолжение прил. 1
Query1StringField10: TStringField; Query1StringField11: TStringField; Query1StringField12: TStringField; Query1SmallintField13: TSmallint-
Field;
Query1FloatField7: TFloatField; Query1FloatField8: TFloatField; Query1StringField13: TStringField; Query1StringField14: TStringField; Query1StringField15: TStringField; Query1StringField16: TStringField; Query1FloatField9: TFloatField; Query1FloatField10: TFloatField; Query1FloatField11: TFloatField; Query1FloatField12: TFloatField; Query1FloatField13: TFloatField; Query1FloatField14: TFloatField; Query1FloatField15: TFloatField; Query1FloatField16: TFloatField; Query1FloatField17: TFloatField; Query1FloatField18: TFloatField; Query1SmallintField14: TSmallintField; Query1FloatField19: TFloatField; Query1FloatField20: TFloatField; Query1FloatField21: TFloatField; Query1FloatField22: TFloatField; Query1FloatField23: TFloatField; Query1FloatField24: TFloatField; Query1FloatField25: TFloatField; Query1FloatField26: TFloatField; Query1StringField17: TStringField; Query1FloatField27: TFloatField; Query1Marka: TStringField; Query1LitrT_KM: TFloatField; Query1LitrT_KMQ1: TCurrencyField; Query1LitrT_KM_NormaQ1: TCurrencyField;
procedure Query2CalcFields(DataSet: TDataSet); procedure Query1CalcFields(DataSet: TDataSet); private
{Private declarations } public
{Public declarations } end;
var
DataModule1: TDataModule1; implementation
{$R *.DFM}
procedure TDataModule1.Query2CalcFields(DataSet: TDataSet); begin
with DataModule1.Query2 do begin
if FieldByName('Всего тонно-км').AsFloat<>0 then begin
FieldByName('LitrT_KMQ').AsFloat:= FieldByName('Расход горючего-факт').AsFloat/ FieldByName('Всего тонно-км').AsFloat;
249
Продолжение прил. 1
FieldByName('LitrT_KM_NormaQ').AsFloat:= FieldByName('Расход горючего -норма').AsFloat/ FieldByName('Всего тонно-км').AsFloat;
end else begin
FieldByName('LitrT_KM_NormaQ').AsFloat:=0; FieldByName('LitrT_KMQ').AsFloat:=0;
end;
end;
end;
procedure TDataModule1.Query1CalcFields(DataSet: TDataSet); begin
with DataModule1.Query1 do begin
if FieldByName('Всего тонно-км').AsFloat<>0 then begin
FieldByName('LitrT_KMQ1').AsFloat:= FieldByName('Расход горючего-факт').AsFloat/ FieldByName('Всего тонно-км').AsFloat; FieldByName('LitrT_KM_NormaQ1').AsFloat:= FieldByName('Расход горючего -норма').AsFloat/ FieldByName('Всего тонно-км').AsFloat;
end else begin
FieldByName('LitrT_KM_NormaQ1').AsFloat:=0; FieldByName('LitrT_KMQ1').AsFloat:=0;
end;
end;
end;
end.
unit AvtoOne2; interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, ExtCtrls, Dialogs,
250