uinputdata.pas

货物分类统计系统

edit67.Text:='0';
edit68.Text:='0';
edit69.Text:='0';
edit70.Text:='0';
edit71.Text:='0';
edit72.Text:='0';

edit73.Text:='0';
edit74.Text:='0';
edit75.Text:='0';
edit76.Text:='0';
edit77.Text:='0';
edit78.Text:='0';
edit79.Text:='0';
edit80.Text:='0';
edit81.Text:='0';
edit82.Text:='0';
edit83.Text:='0';
edit84.Text:='0';

edit85.Text:='0';
edit86.Text:='0';
edit87.Text:='0';
edit88.Text:='0';
edit89.Text:='0';
edit90.Text:='0';
edit91.Text:='0';
edit92.Text:='0';

edit93.Text:='0';
edit94.Text:='0';
edit95.Text:='0';
edit96.Text:='0';
edit97.Text:='0';
edit98.Text:='0';
edit99.Text:='0';
edit100.Text:='0';
edit101.Text:='0';
edit102.Text:='0';
edit103.Text:='0';
edit104.Text:='0';
edit105.Text:='0';
edit106.Text:='0';
edit107.Text:='0';
edit108.Text:='0';

end;



procedure Tfminputdata.appedit;
begin
Table1.FieldValues['ddate']:=fminputdata.DateTimePicker1.Date;
table1.FieldValues['Wluos']:=strtofloat(edit1.Text);
if length(edit2.Text)>0 then table1.FieldValues['Wluoj']:=strtofloat(edit2.Text) else Table1.FieldValues['Wluoj']:=0;
if length(edit3.Text)>0 then table1.FieldValues['Wluoch']:=strtofloat(edit3.Text) else Table1.FieldValues['Wluoch']:=0;
table1.FieldValues['Whs']:=strtofloat(edit5.Text);
if length(edit6.Text)>0 then table1.FieldValues['Whj']:=strtofloat(edit6.Text) else Table1.FieldValues['Whj']:=0;
if length(edit7.Text)>0 then table1.FieldValues['Whch']:=strtofloat(edit7.Text) else Table1.FieldValues['Whch']:=0;
table1.FieldValues['Wxians']:=strtofloat(edit9.Text);
if length(edit10.Text)>0 then table1.FieldValues['Wxianj']:=strtofloat(edit10.Text) else Table1.FieldValues['Wxianj']:=0;
if length(edit11.Text)>0 then table1.FieldValues['Wxianch']:=strtofloat(edit11.Text) else Table1.FieldValues['Wxianch']:=0;
table1.FieldValues['Wxings']:=strtofloat(edit13.Text);
if length(edit14.Text)>0 then table1.FieldValues['Wxingj']:=strtofloat(edit14.Text) else Table1.FieldValues['Wxingj']:=0;
if length(edit15.Text)>0 then table1.FieldValues['Wxingch']:=strtofloat(edit15.Text) else Table1.FieldValues['Wxingch']:=0;
table1.FieldValues['Wbans']:=strtofloat(edit17.Text);
if length(edit18.Text)>0 then table1.FieldValues['Wbanj']:=strtofloat(edit18.Text) else Table1.FieldValues['Wbanj']:=0;
if length(edit19.Text)>0 then table1.FieldValues['Wbanch']:=strtofloat(edit19.Text) else Table1.FieldValues['Wbanch']:=0;
table1.FieldValues['Wres']:=strtofloat(edit21.Text);
if length(edit22.Text)>0 then table1.FieldValues['Wrej']:=strtofloat(edit22.Text) else Table1.FieldValues['Wrej']:=0;
if length(edit23.Text)>0 then table1.FieldValues['Wrech']:=strtofloat(edit23.Text) else Table1.FieldValues['Wrech']:=0;
table1.FieldValues['Wlengs']:=strtofloat(edit25.Text);
if length(edit26.Text)>0 then table1.FieldValues['Wlengj']:=strtofloat(edit26.Text) else Table1.FieldValues['Wlengj']:=0;
if length(edit27.Text)>0 then table1.FieldValues['Wlengch']:=strtofloat(edit27.Text) else Table1.FieldValues['Wlengch']:=0;
table1.FieldValues['Wdus']:=strtofloat(edit29.Text);
if length(edit30.Text)>0 then table1.FieldValues['Wduj']:=strtofloat(edit30.Text) else Table1.FieldValues['Wduj']:=0;
if length(edit31.Text)>0 then table1.FieldValues['Wduch']:=strtofloat(edit31.Text) else Table1.FieldValues['Wduch']:=0;
table1.FieldValues['Wcais']:=strtofloat(edit33.Text);
if length(edit34.Text)>0 then table1.FieldValues['Wcaij']:=strtofloat(edit34.Text) else Table1.FieldValues['Wcaij']:=0;
if length(edit35.Text)>0 then table1.FieldValues['Wcaich']:=strtofloat(edit35.Text) else Table1.FieldValues['Wcaich']:=0;


table1.FieldValues['Yluos']:=strtofloat(edit37.Text);
if length(edit38.Text)>0 then table1.FieldValues['Yluoj']:=strtofloat(edit38.Text) else Table1.FieldValues['Yluoj']:=0;
if length(edit39.Text)>0 then table1.FieldValues['Yluoch']:=strtofloat(edit39.Text) else Table1.FieldValues['Yluoch']:=0;
table1.FieldValues['Yhs']:=strtofloat(edit41.Text);
if length(edit42.Text)>0 then table1.FieldValues['Yhj']:=strtofloat(edit42.Text) else Table1.FieldValues['Yhj']:=0;
if length(edit43.Text)>0 then table1.FieldValues['Yhch']:=strtofloat(edit43.Text) else Table1.FieldValues['Yhch']:=0;
table1.FieldValues['Yxians']:=strtofloat(edit45.Text);
if length(edit46.Text)>0 then table1.FieldValues['Yxianj']:=strtofloat(edit46.Text) else Table1.FieldValues['Yxianj']:=0;
if length(edit47.Text)>0 then table1.FieldValues['Yxianch']:=strtofloat(edit47.Text) else Table1.FieldValues['Yxianch']:=0;
table1.FieldValues['Yxings']:=strtofloat(edit49.Text);
if length(edit50.Text)>0 then table1.FieldValues['Yxingj']:=strtofloat(edit50.Text) else Table1.FieldValues['Yxingj']:=0;
if length(edit51.Text)>0 then table1.FieldValues['Yxingch']:=strtofloat(edit51.Text) else Table1.FieldValues['Yxingch']:=0;
table1.FieldValues['Ybans']:=strtofloat(edit53.Text);
if length(edit54.Text)>0 then table1.FieldValues['Ybanj']:=strtofloat(edit54.Text) else Table1.FieldValues['Ybanj']:=0;
if length(edit55.Text)>0 then table1.FieldValues['Ybanch']:=strtofloat(edit55.Text) else Table1.FieldValues['Ybanch']:=0;
table1.FieldValues['Yres']:=strtofloat(edit57.Text);
if length(edit58.Text)>0 then table1.FieldValues['Yrej']:=strtofloat(edit58.Text) else Table1.FieldValues['Yrej']:=0;
if length(edit59.Text)>0 then table1.FieldValues['Yrech']:=strtofloat(edit59.Text) else Table1.FieldValues['Yrech']:=0;
table1.FieldValues['Ylengs']:=strtofloat(edit61.Text);
if length(edit62.Text)>0 then table1.FieldValues['Ylengj']:=strtofloat(edit62.Text) else Table1.FieldValues['Ylengj']:=0;
if length(edit63.Text)>0 then table1.FieldValues['Ylengch']:=strtofloat(edit63.Text) else Table1.FieldValues['Ylengch']:=0;
table1.FieldValues['Ydus']:=strtofloat(edit65.Text);
if length(edit66.Text)>0 then table1.FieldValues['Yduj']:=strtofloat(edit66.Text) else Table1.FieldValues['Yduj']:=0;
if length(edit67.Text)>0 then table1.FieldValues['Yduch']:=strtofloat(edit67.Text) else Table1.FieldValues['Yduch']:=0;
table1.FieldValues['Ycais']:=strtofloat(edit69.Text);
if length(edit70.Text)>0 then table1.FieldValues['Ycaij']:=strtofloat(edit70.Text) else Table1.FieldValues['Ycaij']:=0;
if length(edit71.Text)>0 then table1.FieldValues['Ycaich']:=strtofloat(edit71.Text) else Table1.FieldValues['Ycaich']:=0;


if i=true then
begin
table1.FieldValues['Wluolj']:=strtofloat(edit73.Text)+strtofloat(edit2.Text);
table1.FieldValues['Whlj']:=strtofloat(edit74.Text)+strtofloat(edit6.Text);
table1.FieldValues['Wxianlj']:=strtofloat(edit75.Text)+strtofloat(edit10.Text);
table1.FieldValues['Wxinglj']:=strtofloat(edit76.Text)+strtofloat(edit14.Text);
table1.FieldValues['Wbanlj']:=strtofloat(edit77.Text)+strtofloat(edit18.Text);
table1.FieldValues['Wrelj']:=strtofloat(edit78.Text)+strtofloat(edit22.Text);
table1.FieldValues['Wlenglj']:=strtofloat(edit79.Text)+strtofloat(edit26.Text);
table1.FieldValues['Wdulj']:=strtofloat(edit80.Text)+strtofloat(edit30.Text);
table1.FieldValues['Wcailj']:=strtofloat(edit81.Text)+strtofloat(edit34.Text);

table1.FieldValues['Wluolc']:=strtofloat(edit82.Text)+strtofloat(edit3.Text);
table1.FieldValues['Whlc']:=strtofloat(edit83.Text)+strtofloat(edit7.Text);
table1.FieldValues['Wxianlc']:=strtofloat(edit84.Text)+strtofloat(edit11.Text);
table1.FieldValues['Wxinglc']:=strtofloat(edit85.Text)+strtofloat(edit15.Text);
table1.FieldValues['Wbanlc']:=strtofloat(edit86.Text)+strtofloat(edit19.Text);
table1.FieldValues['Wrelc']:=strtofloat(edit87.Text)+strtofloat(edit23.Text);
table1.FieldValues['Wlenglc']:=strtofloat(edit88.Text)+strtofloat(edit27.Text);
table1.FieldValues['Wdulc']:=strtofloat(edit89.Text)+strtofloat(edit31.Text);
table1.FieldValues['Wcailc']:=strtofloat(edit90.Text)+strtofloat(edit35.Text);



table1.FieldValues['Yluolj']:=strtofloat(edit91.Text)+strtofloat(edit38.Text);
table1.FieldValues['Yhlj']:=strtofloat(edit92.Text)+strtofloat(edit42.Text);
table1.FieldValues['Yxianlj']:=strtofloat(edit93.Text)+strtofloat(edit46.Text);
table1.FieldValues['Yxinglj']:=strtofloat(edit94.Text)+strtofloat(edit50.Text);
table1.FieldValues['Ybanlj']:=strtofloat(edit95.Text)+strtofloat(edit54.Text);
table1.FieldValues['Yrelj']:=strtofloat(edit96.Text)+strtofloat(edit58.Text);
table1.FieldValues['Ylenglj']:=strtofloat(edit97.Text)+strtofloat(edit62.Text);
table1.FieldValues['Ydulj']:=strtofloat(edit98.Text)+strtofloat(edit66.Text);
table1.FieldValues['Ycailj']:=strtofloat(edit99.Text)+strtofloat(edit70.Text);


table1.FieldValues['Yluolc']:=strtofloat(edit100.Text)+strtofloat(edit39.Text);
table1.FieldValues['Yhlc']:=strtofloat(edit101.Text)+strtofloat(edit43.Text);
table1.FieldValues['Yxianlc']:=strtofloat(edit102.Text)+strtofloat(edit47.Text);
table1.FieldValues['Yxinglc']:=strtofloat(edit103.Text)+strtofloat(edit51.Text);
table1.FieldValues['Ybanlc']:=strtofloat(edit104.Text)+strtofloat(edit55.Text);
table1.FieldValues['Yrelc']:=strtofloat(edit105.Text)+strtofloat(edit59.Text);
table1.FieldValues['Ylenglc']:=strtofloat(edit106.Text)+strtofloat(edit63.Text);
table1.FieldValues['Ydulc']:=strtofloat(edit107.Text)+strtofloat(edit67.Text);
table1.FieldValues['Ycailc']:=strtofloat(edit108.Text)+strtofloat(edit71.Text);

table1.FieldValues['Wluoc']:=strtofloat(edit1.Text)+strtofloat(edit2.Text)-strtofloat(edit3.Text);
edit4.Text:=floattostr(table1.FieldValues['Wluoc']);
table1.FieldValues['Whc']:=strtofloat(edit5.Text)+strtofloat(edit6.Text)-strtofloat(edit7.Text);
edit8.Text:=floattostr(table1.FieldValues['Whc']);
table1.FieldValues['Wxianc']:=strtofloat(edit9.Text)+strtofloat(edit10.Text)-strtofloat(edit11.Text);
edit12.Text:=floattostr(table1.FieldValues['Wxianc']);
table1.FieldValues['Wxingc']:=strtofloat(edit13.Text)+strtofloat(edit14.Text)-strtofloat(edit15.Text);
edit16.Text:=floattostr(table1.FieldValues['Wxingc']);
table1.FieldValues['Wbanc']:=strtofloat(edit17.Text)+strtofloat(edit18.Text)-strtofloat(edit19.Text);
edit20.Text:=floattostr(table1.FieldValues['Wbanc']);
table1.FieldValues['Wrec']:=strtofloat(edit21.Text)+strtofloat(edit22.Text)-strtofloat(edit23.Text);
edit24.Text:=floattostr(table1.FieldValues['Wrec']);
table1.FieldValues['Wlengc']:=strtofloat(edit25.Text)+strtofloat(edit26.Text)-strtofloat(edit27.Text);
edit28.Text:=floattostr(table1.FieldValues['Wlengc']);
table1.FieldValues['Wduc']:=strtofloat(edit29.Text)+strtofloat(edit30.Text)-strtofloat(edit31.Text);
edit32.Text:=floattostr(table1.FieldValues['Wduc']);
table1.FieldValues['Wcaic']:=strtofloat(edit33.Text)+strtofloat(edit34.Text)-strtofloat(edit35.Text);
edit36.Text:=floattostr(table1.FieldValues['Wcaic']);


table1.FieldValues['Yluoc']:=strtofloat(edit37.Text)+strtofloat(edit38.Text)-strtofloat(edit39.Text);
edit40.Text:=floattostr(table1.FieldValues['Yluoc']);
table1.FieldValues['Yhc']:=strtofloat(edit41.Text)+strtofloat(edit42.Text)-strtofloat(edit43.Text);
edit44.Text:=floattostr(table1.FieldValues['Yhc']);
table1.FieldValues['Yxianc']:=strtofloat(edit45.Text)+strtofloat(edit46.Text)-strtofloat(edit47.Text);
edit48.Text:=floattostr(table1.FieldValues['Yxianc']);
table1.FieldValues['Yxingc']:=strtofloat(edit49.Text)+strtofloat(edit50.Text)-strtofloat(edit51.Text);
edit52.Text:=floattostr(table1.FieldValues['Yxingc']);
table1.FieldValues['Ybanc']:=strtofloat(edit53.Text)+strtofloat(edit54.Text)-strtofloat(edit55.Text);
edit56.Text:=floattostr(table1.FieldValues['Ybanc']);
table1.FieldValues['Yrec']:=strtofloat(edit57.Text)+strtofloat(edit58.Text)-strtofloat(edit59.Text);
edit60.Text:=floattostr(table1.FieldValues['Yrec']);
table1.FieldValues['Ylengc']:=strtofloat(edit61.Text)+strtofloat(edit62.Text)-strtofloat(edit63.Text);
edit64.Text:=floattostr(table1.FieldValues['Ylengc']);
table1.FieldValues['Yduc']:=strtofloat(edit65.Text)+strtofloat(edit66.Text)-strtofloat(edit67.Text);
edit68.Text:=floattostr(table1.FieldValues['Yduc']);
table1.FieldValues['Ycaic']:=strtofloat(edit69.Text)+strtofloat(edit70.Text)-strtofloat(edit71.Text);
edit72.Text:=floattostr(table1.FieldValues['Ycaic']);
end
else
begin

table1.FieldValues['Wluolj']:=strtofloat(edit73.Text);
table1.FieldValues['Whlj']:=strtofloat(edit74.Text);
table1.FieldValues['Wxianlj']:=strtofloat(edit75.Text);
table1.FieldValues['Wxinglj']:=strtofloat(edit76.Text);
table1.FieldValues['Wbanlj']:=strtofloat(edit77.Text);
table1.FieldValues['Wrelj']:=strtofloat(edit78.Text);
table1.FieldValues['Wlenglj']:=strtofloat(edit79.Text);
table1.FieldValues['Wdulj']:=strtofloat(edit80.Text);
table1.FieldValues['Wcailj']:=strtofloat(edit81.Text);

table1.FieldValues['Wluolc']:=strtofloat(edit82.Text);
table1.FieldValues['Whlc']:=strtofloat(edit83.Text);
table1.FieldValues['Wxianlc']:=strtofloat(edit84.Text);
table1.FieldValues['Wxinglc']:=strtofloat(edit85.Text);
table1.FieldValues['Wbanlc']:=strtofloat(edit86.Text);
table1.FieldValues['Wrelc']:=strtofloat(edit87.Text);
table1.FieldValues['Wlenglc']:=strtofloat(edit88.Text);
table1.FieldValues['Wdulc']:=strtofloat(edit89.Text);
table1.FieldValues['Wcailc']:=strtofloat(edit90.Text);



table1.FieldValues['Yluolj']:=strtofloat(edit91.Text);
table1.FieldValues['Yhlj']:=strtofloat(edit92.Text);
table1.FieldValues['Yxianlj']:=strtofloat(edit93.Text);
table1.FieldValues['Yxinglj']:=strtofloat(edit94.Text);
table1.FieldValues['Ybanlj']:=strtofloat(edit95.Text);
table1.FieldValues['Yrelj']:=strtofloat(edit96.Text);
table1.FieldValues['Ylenglj']:=strtofloat(edit97.Text);
table1.FieldValues['Ydulj']:=strtofloat(edit98.Text);
table1.FieldValues['Ycailj']:=strtofloat(edit99.Text);


table1.FieldValues['Yluolc']:=strtofloat(edit100.Text);
table1.FieldValues['Yhlc']:=strtofloat(edit101.Text);
table1.FieldValues['Yxianlc']:=strtofloat(edit102.Text);
table1.FieldValues['Yxinglc']:=strtofloat(edit103.Text);
table1.FieldValues['Ybanlc']:=strtofloat(edit104.Text);
table1.FieldValues['Yrelc']:=strtofloat(edit105.Text);
table1.FieldValues['Ylenglc']:=strtofloat(edit106.Text);
table1.FieldValues['Ydulc']:=strtofloat(edit107.Text);
table1.FieldValues['Ycailc']:=strtofloat(edit108.Text);

table1.FieldValues['Wluoc']:=strtofloat(edit1.Text)+strtofloat(edit2.Text)-strtofloat(edit3.Text);
edit4.Text:=floattostr(table1.FieldValues['Wluoc']);
table1.FieldValues['Whc']:=strtofloat(edit5.Text)+strtofloat(edit6.Text)-strtofloat(edit7.Text);
edit8.Text:=floattostr(table1.FieldValues['Whc']);
table1.FieldValues['Wxianc']:=strtofloat(edit9.Text)+strtofloat(edit10.Text)-strtofloat(edit11.Text);
edit12.Text:=floattostr(table1.FieldValues['Wxianc']);
table1.FieldValues['Wxingc']:=strtofloat(edit13.Text)+strtofloat(edit14.Text)-strtofloat(edit15.Text);
edit16.Text:=floattostr(table1.FieldValues['Wxingc']);
table1.FieldValues['Wbanc']:=strtofloat(edit17.Text)+strtofloat(edit18.Text)-strtofloat(edit19.Text);
edit20.Text:=floattostr(table1.FieldValues['Wbanc']);
table1.FieldValues['Wrec']:=strtofloat(edit21.Text)+strtofloat(edit22.Text)-strtofloat(edit23.Text);
edit24.Text:=floattostr(table1.FieldValues['Wrec']);
table1.FieldValues['Wlengc']:=strtofloat(edit25.Text)+strtofloat(edit26.Text)-strtofloat(edit27.Text);
edit28.Text:=floattostr(table1.FieldValues['Wlengc']);
table1.FieldValues['Wduc']:=strtofloat(edit29.Text)+strtofloat(edit30.Text)-strtofloat(edit31.Text);
edit32.Text:=floattostr(table1.FieldValues['Wduc']);
table1.FieldValues['Wcaic']:=strtofloat(edit33.Text)+strtofloat(edit34.Text)-strtofloat(edit35.Text);
edit36.Text:=floattostr(table1.FieldValues['Wcaic']);


table1.FieldValues['Yluoc']:=strtofloat(edit37.Text)+strtofloat(edit38.Text)-strtofloat(edit39.Text);
edit40.Text:=floattostr(table1.FieldValues['Yluoc']);
table1.FieldValues['Yhc']:=strtofloat(edit41.Text)+strtofloat(edit42.Text)-strtofloat(edit43.Text);
edit44.Text:=floattostr(table1.FieldValues['Yhc']);
table1.FieldValues['Yxianc']:=strtofloat(edit45.Text)+strtofloat(edit46.Text)-strtofloat(edit47.Text);
edit48.Text:=floattostr(table1.FieldValues['Yxianc']);
table1.FieldValues['Yxingc']:=strtofloat(edit49.Text)+strtofloat(edit50.Text)-strtofloat(edit51.Text);
edit52.Text:=floattostr(table1.FieldValues['Yxingc']);
table1.FieldValues['Ybanc']:=strtofloat(edit53.Text)+strtofloat(edit54.Text)-strtofloat(edit55.Text);
edit56.Text:=floattostr(table1.FieldValues['Ybanc']);
table1.FieldValues['Yrec']:=strtofloat(edit57.Text)+strtofloat(edit58.Text)-strtofloat(edit59.Text);
edit60.Text:=floattostr(table1.FieldValues['Yrec']);
table1.FieldValues['Ylengc']:=strtofloat(edit61.Text)+strtofloat(edit62.Text)-strtofloat(edit63.Text);
edit64.Text:=floattostr(table1.FieldValues['Ylengc']);
table1.FieldValues['Yduc']:=strtofloat(edit65.Text)+strtofloat(edit66.Text)-strtofloat(edit67.Text);
edit68.Text:=floattostr(table1.FieldValues['Yduc']);
table1.FieldValues['Ycaic']:=strtofloat(edit69.Text)+strtofloat(edit70.Text)-strtofloat(edit71.Text);
edit72.Text:=floattostr(table1.FieldValues['Ycaic']);
end;

edit73.Text:=floattostr(table1.FieldValues['Wluolj']);
edit74.Text:=floattostr(table1.FieldValues['Whlj']);
edit75.Text:=floattostr(table1.FieldValues['Wxianlj']);
edit77.Text:=floattostr(table1.FieldValues['Wbanlj']);
edit76.Text:=floattostr(table1.FieldValues['Wxinglj']);
edit78.Text:=floattostr(table1.FieldValues['Wrelj']);
edit79.Text:=floattostr(table1.FieldValues['Wlenglj']);
edit80.Text:=floattostr(table1.FieldValues['Wdulj']);
edit81.Text:=floattostr(table1.FieldValues['Wcailj']);