⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 通过程序的试算平衡表
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
                  +StrToFloat(Edit16.Text)
                  +StrToFloat(Edit18.Text)
                  +StrToFloat(Edit22.Text)
                  +StrToFloat(Edit24.Text)
                  +StrToFloat(Edit26.Text)
                  +StrToFloat(Edit28.Text)
                  +StrToFloat(Edit30.Text)
                  +StrToFloat(Edit32.Text));

End;

Procedure TMainForm.ZCAddB();
Begin
  Edit3.Text := FloatToStr(StrToFloat(Edit5.Text)
                  +StrToFloat(Edit7.Text)
                  +StrToFloat(Edit9.Text)
                  +StrToFloat(Edit11.Text)
                  +StrToFloat(Edit17.Text)
                  +StrToFloat(Edit19.Text)
                  +StrToFloat(Edit23.Text)
                  +StrToFloat(Edit25.Text)
                  +StrToFloat(Edit27.Text)
                  +StrToFloat(Edit29.Text)
                  +StrToFloat(Edit31.Text)
                  +StrToFloat(Edit33.Text));
End;

Procedure TMainForm.FZAddC();
Begin
  Edit58.Text := FloatToStr(StrToFloat(Edit60.Text)
                  +StrToFloat(Edit62.Text)
                  +StrToFloat(Edit64.Text)
                  +StrToFloat(Edit66.Text)
                  +StrToFloat(Edit68.Text)
                  +StrToFloat(Edit70.Text)
                  +StrToFloat(Edit72.Text)
                  +StrToFloat(Edit74.Text)
                  +StrToFloat(Edit76.Text)
                  +StrToFloat(Edit78.Text)
                  +StrToFloat(Edit80.Text)
                  +StrToFloat(Edit82.Text));
End;

Procedure TMainForm.FZAddD();
Begin
  Edit59.Text := FloatToStr(StrToFloat(Edit61.Text)
                  +StrToFloat(Edit63.Text)
                  +StrToFloat(Edit65.Text)
                  +StrToFloat(Edit67.Text)
                  +StrToFloat(Edit69.Text)
                  +StrToFloat(Edit71.Text)
                  +StrToFloat(Edit73.Text)
                  +StrToFloat(Edit75.Text)
                  +StrToFloat(Edit77.Text)
                  +StrToFloat(Edit79.Text)
                  +StrToFloat(Edit81.Text)
                  +StrToFloat(Edit83.Text));
End;

Procedure TMainForm.LRAdd();
Begin
  Edit109.Text := FloatToStr(StrToFloat(Edit20.Text)-StrToFloat(Edit21.Text)-StrToFloat(Edit108.Text));
  Edit110.Text := FloatToStr(StrToFloat(Edit111.Text)-StrToFloat(Edit112.Text));
  Edit117.Text := FloatToStr(StrToFloat(Edit109.Text)+StrToFloat(Edit110.Text)
                    -StrToFloat(Edit113.Text)
                    -StrToFloat(Edit114.Text)
                    -StrToFloat(Edit115.Text));
  Edit122.Text := FloatToStr(StrToFloat(Edit117.Text)+StrToFloat(Edit118.Text)
                    +StrToFloat(Edit119.Text)
                    +StrToFloat(Edit120.Text)
                    -StrToFloat(Edit121.Text));
  Edit124.Text := FloatToStr(StrToFloat(Edit122.Text)
                    -StrToFloat(Edit123.Text));
  Edit128.Text := FloatToStr(StrToFloat(Edit124.Text)
                    +StrToFloat(Edit125.Text)
                    +StrToFloat(Edit126.Text)
                    +StrToFloat(Edit127.Text));
  Edit132.Text := FloatToStr(StrToFloat(Edit128.Text)
                    -StrToFloat(Edit129.Text)
                    -StrToFloat(Edit130.Text)
                    -StrToFloat(Edit131.Text));
  Edit136.Text := FloatToStr(StrToFloat(Edit132.Text)
                    -StrToFloat(Edit133.Text)
                    -StrToFloat(Edit134.Text)
                    -StrToFloat(Edit135.Text));
End;

procedure TMainForm.InitEdit();
Begin
Edit1.Text := '张家港市XX公司';
DateTimePicker1.Date := Now;
Edit2.Text := '0';
Edit3.Text := '0';
Edit4.Text := '0';
Edit5.Text := '0';
Edit6.Text := '0';
Edit7.Text := '0';
Edit8.Text := '0';
Edit9.Text := '0';
Edit10.Text := '0';
Edit11.Text := '0';
Edit12.Text := '0';
Edit13.Text := '0';
Edit14.Text := '0';
Edit15.Text := '0';
Edit16.Text := '0';
Edit17.Text := '0';
Edit18.Text := '0';
Edit19.Text := '0';
Edit20.Text := '0';
Edit21.Text := '0';
Edit22.Text := '0';
Edit23.Text := '0';
Edit24.Text := '0';
Edit25.Text := '0';
Edit26.Text := '0';
Edit27.Text := '0';
Edit28.Text := '0';
Edit29.Text := '0';
Edit30.Text := '0';
Edit31.Text := '0';
Edit32.Text := '0';
Edit33.Text := '0';
Edit34.Text := '0';
Edit35.Text := '0';
Edit36.Text := '0';
Edit37.Text := '0';
Edit38.Text := '0';
Edit39.Text := '0';
Edit40.Text := '0';
Edit41.Text := '0';
Edit42.Text := '0';
Edit43.Text := '0';
Edit44.Text := '0';
Edit45.Text := '0';
Edit46.Text := '0';
Edit47.Text := '0';
Edit48.Text := '0';
Edit49.Text := '0';
Edit50.Text := '0';
Edit51.Text := '0';
Edit52.Text := '0';
Edit53.Text := '0';
Edit54.Text := '0';
Edit55.Text := '0';
Edit56.Text := '0';
Edit57.Text := '0';
Edit58.Text := '0';
Edit59.Text := '0';
Edit60.Text := '0';
Edit61.Text := '0';
Edit62.Text := '0';
Edit63.Text := '0';
Edit64.Text := '0';
Edit65.Text := '0';
Edit66.Text := '0';
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';
Edit109.Text := '0';
Edit110.Text := '0';
Edit111.Text := '0';
Edit112.Text := '0';
Edit113.Text := '0';
Edit114.Text := '0';
Edit115.Text := '0';
Edit116.Text := '0';
Edit117.Text := '0';
Edit118.Text := '0';
Edit119.Text := '0';
Edit120.Text := '0';
Edit121.Text := '0';
Edit122.Text := '0';
Edit123.Text := '0';
Edit124.Text := '0';
Edit125.Text := '0';
Edit126.Text := '0';
Edit127.Text := '0';
Edit128.Text := '0';
Edit129.Text := '0';
Edit130.Text := '0';
Edit131.Text := '0';
Edit132.Text := '0';
Edit133.Text := '0';
Edit134.Text := '0';
Edit135.Text := '0';
Edit136.Text := '0';
Edit137.Text := '0';
Edit138.Text := '0';
Edit139.Text := '0';
Edit140.Text := '0';
Edit141.Text := '0';
Edit142.Text := '0';
Edit143.Text := '0';
Edit144.Text := '0';
Edit145.Text := '0';
Edit146.Text := '0';
Edit147.Text := '0';
Edit148.Text := '0';
Edit149.Text := '0';
Edit150.Text := '0';
Edit151.Text := '0';
Edit152.Text := '0';
Edit153.Text := '0';
Edit154.Text := '0';
Edit155.Text := '0';
Edit156.Text := '0';
Edit157.Text := '0';
Edit158.Text := '0';
Edit159.Text := '0';
Edit160.Text := '0';
Edit161.Text := '0';
Edit162.Text := '0';
Edit163.Text := '0';
Edit164.Text := '0';
Edit165.Text := '0';
Edit166.Text := '0';
Edit167.Text := '0';
Edit168.Text := '0';
Edit169.Text := '0';
Edit170.Text := '0';
Edit171.Text := '0';
Edit172.Text := '0';
Edit173.Text := '0';
Edit174.Text := '0';
Edit175.Text := '0';
Edit176.Text := '0';
Edit177.Text := '0';
Edit178.Text := '0';
Edit179.Text := '0';
Edit180.Text := '0';
Edit181.Text := '0';
Edit182.Text := '0';
Edit183.Text := '0';
Edit184.Text := '0';
Edit185.Text := '0';
Edit186.Text := '0';
Edit187.Text := '0';
Edit188.Text := '0';
Edit189.Text := '0';
Edit190.Text := '0';
Edit191.Text := '0';
Edit192.Text := '0';
Edit193.Text := '0';
Edit194.Text := '0';
Edit195.Text := '0';
Edit196.Text := '0';

End;

Procedure TMainForm.PrintTableOne();
Begin
  With ADOQuery2 do
  Begin
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,3] :=FieldByName('LDZC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[5,3] :=FieldByName('LD_HBZJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[6,3] :=FieldByName('LD_DQTZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[7,3] :=FieldByName('LD_YSPJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[8,3] :=FieldByName('LD_YSGLLX_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[9,3] :=FieldByName('LD_YSZK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[10,3] :=FieldByName('LD_HZZB_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[11,3] :=FieldByName('LD_YSZKJZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[12,3] :=FieldByName('LD_YFZK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[13,3] :=FieldByName('LD_QTYSK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[14,3] :=FieldByName('LD_YSCKTSK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[15,3] :=FieldByName('LD_YSCKBTK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[16,3] :=FieldByName('LD_CH_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[17,3] :=FieldByName('LD_DTFY_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[18,3] :=FieldByName('LD_QTLDZC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[19,3] :=FieldByName('CQTZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[20,3] :=FieldByName('CT_CQGQTZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[21,3] :=FieldByName('CT_CQZQTZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[22,3] :=FieldByName('GDZC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[23,3] :=FieldByName('GD_GDZCYZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[24,3] :=FieldByName('GD_LJZJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[25,3] :=FieldByName('GD_GDZCJZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[26,3] :=FieldByName('GD_ZJGC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[27,3] :=FieldByName('WXJQTZC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[28,3] :=FieldByName('WX_WXZC_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[29,3] :=FieldByName('WX_CQDTFY_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[30,3] :=FieldByName('ZICAIZHONGJI_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,4] :=FieldByName('LDZC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[5,4] :=FieldByName('LD_HBZJ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[6,4] :=FieldByName('LD_DQTZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[7,4] :=FieldByName('LD_YSPJ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[8,4] :=FieldByName('LD_YSGLLX_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[9,4] :=FieldByName('LD_YSZK_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[10,4] :=FieldByName('LD_HZZB_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[11,4] :=FieldByName('LD_YSZKJZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[12,4] :=FieldByName('LD_YFZK_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[13,4] :=FieldByName('LD_QTYSK_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[14,4] :=FieldByName('LD_YSCKTSK_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[15,4] :=FieldByName('LD_YSCKBTK_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[16,4] :=FieldByName('LD_CH_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[17,4] :=FieldByName('LD_DTFY_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[18,4] :=FieldByName('LD_QTLDZC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[19,4] :=FieldByName('CQTZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[20,4] :=FieldByName('CT_CQGQTZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[21,4] :=FieldByName('CT_CQZQTZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[22,4] :=FieldByName('GDZC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[23,4] :=FieldByName('GD_GDZCYZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[24,4] :=FieldByName('GD_LJZJ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[25,4] :=FieldByName('GD_GDZCJZ_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[26,4] :=FieldByName('GD_ZJGC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[27,4] :=FieldByName('WXJQTZC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[28,4] :=FieldByName('WX_WXZC_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[29,4] :=FieldByName('WX_CQDTFY_E').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[30,4] :=FieldByName('ZICAIZHONGJI_E').AsString;
  End;
End;

Procedure TMainForm.PrintTableOneA();
Begin
  With ADOQuery2a do
  Begin
xlapp.Workbooks[1].worksheets['sheet1'].cells[4,7] :=FieldByName('LDFZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[5,7] :=FieldByName('FZ_DQJK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[6,7] :=FieldByName('FZ_YFPJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[7,7] :=FieldByName('FZ_YFZK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[8,7] :=FieldByName('FZ_YSZK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[9,7] :=FieldByName('FZ_QTYFK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[10,7] :=FieldByName('FZ_YFGZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[11,7] :=FieldByName('FZ_YFFLF_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[12,7] :=FieldByName('FZ_YJSJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[13,7] :=FieldByName('FZ_YFLR_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[14,7] :=FieldByName('FZ_QTYJK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[15,7] :=FieldByName('FZ_YTFY_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[16,7] :=FieldByName('FZ_QTLDFZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[17,7] :=FieldByName('CQFZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[18,7] :=FieldByName('CF_CQJK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[19,7] :=FieldByName('CF_YFZQ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[20,7] :=FieldByName('CF_CQYFK_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[21,7] :=FieldByName('CF_QTCQFZ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[22,7] :=FieldByName('FZHJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[24,7] :=FieldByName('SYZQY_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[25,7] :=FieldByName('QY_SSZB_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[26,7] :=FieldByName('QY_ZBGJ_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[27,7] :=FieldByName('QY_YYLR_S').AsString;
//xlapp.Workbooks[1].worksheets['sheet1'].cells[27,7] :=FieldByName('QY_BNLR_S').AsString;
xlapp.Workbooks[1].worksheets['sheet1'].cells[28,7] :=FieldByNa
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -