D
delphifoxforeve
Unregistered / Unconfirmed
GUEST, unregistred user!
var
a,b,c:variant;
begin
a:=table2.fieldbyname('故障机械').value+table1.fieldbyname('故障电器').value+table1.fieldbyname('故障其他').Value ;
b:=table2.fieldbyname('故障外无浆').value+table1.fieldbyname('故障外无水').value+ table1.fieldbyname('故障外停电').value+ table1.fieldbyname('故障外停汽').value+table1.fieldbyname('故障外换网').value+table1.fieldbyname('故障外换毛巾').value+table1.fieldbyname('故障外其他').value;
c:=table2.fieldbyname('运行计划台时').value;
table2.fieldbyname('故障停歇次数').value:=b;
table2.FieldByName('实际运行台时').value:=24*30-a-b;
table2.FieldByName('利用率').value:=(24*30-a-b)/c;
table2.FieldByName('停机率').value:=(a+b)/c;
table2.FieldByName('故障率').value:=a/c;
a,b,c:variant;
begin
a:=table2.fieldbyname('故障机械').value+table1.fieldbyname('故障电器').value+table1.fieldbyname('故障其他').Value ;
b:=table2.fieldbyname('故障外无浆').value+table1.fieldbyname('故障外无水').value+ table1.fieldbyname('故障外停电').value+ table1.fieldbyname('故障外停汽').value+table1.fieldbyname('故障外换网').value+table1.fieldbyname('故障外换毛巾').value+table1.fieldbyname('故障外其他').value;
c:=table2.fieldbyname('运行计划台时').value;
table2.fieldbyname('故障停歇次数').value:=b;
table2.FieldByName('实际运行台时').value:=24*30-a-b;
table2.FieldByName('利用率').value:=(24*30-a-b)/c;
table2.FieldByName('停机率').value:=(a+b)/c;
table2.FieldByName('故障率').value:=a/c;
]