📄 main.pas

📁 通过程序的试算平衡表
💻 PAS
📖 第 1 页 / 共 5 页
字号:
Edit75.Text := FieldByName('FZ_YJSJ_E').AsString;
Edit76.Text := FieldByName('FZ_YFLR_S').AsString;
Edit77.Text := FieldByName('FZ_YFLR_E').AsString;
Edit78.Text := FieldByName('FZ_QTYJK_S').AsString;
Edit79.Text := FieldByName('FZ_QTYJK_E').AsString;
Edit80.Text := FieldByName('FZ_YTFY_S').AsString;
Edit81.Text := FieldByName('FZ_YTFY_E').AsString;
Edit82.Text := FieldByName('FZ_QTLDFZ_S').AsString;
Edit83.Text := FieldByName('FZ_QTLDFZ_E').AsString;
Edit84.Text := FieldByName('CQFZ_S').AsString;
Edit85.Text := FieldByName('CQFZ_E').AsString;
Edit86.Text := FieldByName('CF_CQJK_S').AsString;
Edit87.Text := FieldByName('CF_CQJK_E').AsString;
Edit88.Text := FieldByName('CF_YFZQ_S').AsString;
Edit89.Text := FieldByName('CF_YFZQ_E').AsString;
Edit90.Text := FieldByName('CF_CQYFK_S').AsString;
Edit91.Text := FieldByName('CF_CQYFK_E').AsString;
Edit92.Text := FieldByName('CF_QTCQFZ_S').AsString;
Edit93.Text := FieldByName('CF_QTCQFZ_E').AsString;
Edit94.Text := FieldByName('FZHJ_S').AsString;
Edit95.Text := FieldByName('FZHJ_E').AsString;
Edit96.Text := FieldByName('SYZQY_S').AsString;
Edit97.Text := FieldByName('SYZQY_E').AsString;
Edit98.Text := FieldByName('QY_SSZB_S').AsString;
Edit99.Text := FieldByName('QY_SSZB_E').AsString;
Edit100.Text := FieldByName('QY_ZBGJ_S').AsString;
Edit101.Text := FieldByName('QY_ZBGJ_E').AsString;
Edit102.Text := FieldByName('QY_YYLR_S').AsString;
Edit103.Text := FieldByName('QY_YYLR_E').AsString;
//Edit102.Text := FieldByName('QY_BNLR_S').AsString;
//Edit103.Text := FieldByName('QY_BNLR_E').AsString;
Edit104.Text := FieldByName('QY_WFPLR_S').AsString;
Edit105.Text := FieldByName('QY_WFPLR_E').AsString;
Edit106.Text := FieldByName('FZQYHJ_S').AsString;
Edit107.Text := FieldByName('FZQYHJ_E').AsString;
    End
end;

procedure TMainForm.OutTableOne();
begin
    With ADOQuery2 do
    Begin
FieldByName('LDZC_S').AsString:=Edit2.Text;
FieldByName('LDZC_E').AsString:=Edit3.Text;
FieldByName('LD_HBZJ_S').AsString:=Edit4.Text;
FieldByName('LD_HBZJ_E').AsString:=Edit5.Text;
FieldByName('LD_DQTZ_S').AsString:=Edit6.Text;
FieldByName('LD_DQTZ_E').AsString:=Edit7.Text;
FieldByName('LD_YSPJ_S').AsString:=Edit8.Text;
FieldByName('LD_YSPJ_E').AsString:=Edit9.Text;
FieldByName('LD_YSGLLX_S').AsString:=Edit10.Text;
FieldByName('LD_YSGLLX_E').AsString:=Edit11.Text;
FieldByName('LD_YSZK_S').AsString:=Edit12.Text;
FieldByName('LD_YSZK_E').AsString:=Edit13.Text;
FieldByName('LD_HZZB_S').AsString:=Edit14.Text;
FieldByName('LD_HZZB_E').AsString:=Edit15.Text;
FieldByName('LD_YSZKJZ_S').AsString:=Edit16.Text;
FieldByName('LD_YSZKJZ_E').AsString:=Edit17.Text;
FieldByName('LD_YFZK_S').AsString:=Edit18.Text;
FieldByName('LD_YFZK_E').AsString:=Edit19.Text;
FieldByName('LD_QTYSK_S').AsString:=Edit22.Text;
FieldByName('LD_QTYSK_E').AsString:=Edit23.Text;
FieldByName('LD_YSCKTSK_S').AsString:=Edit24.Text;
FieldByName('LD_YSCKTSK_E').AsString:=Edit25.Text;
FieldByName('LD_YSCKBTK_S').AsString:=Edit26.Text;
FieldByName('LD_YSCKBTK_E').AsString:=Edit27.Text;
FieldByName('LD_CH_S').AsString:=Edit28.Text;
FieldByName('LD_CH_E').AsString:=Edit29.Text;
FieldByName('LD_DTFY_S').AsString:=Edit30.Text;
FieldByName('LD_DTFY_E').AsString:=Edit31.Text;
FieldByName('LD_QTLDZC_S').AsString:=Edit32.Text;
FieldByName('LD_QTLDZC_E').AsString:=Edit33.Text;
FieldByName('CQTZ_S').AsString:=Edit34.Text;
FieldByName('CQTZ_E').AsString:=Edit35.Text;
FieldByName('CT_CQGQTZ_S').AsString:=Edit36.Text;
FieldByName('CT_CQGQTZ_E').AsString:=Edit37.Text;
FieldByName('CT_CQZQTZ_S').AsString:=Edit38.Text;
FieldByName('CT_CQZQTZ_E').AsString:=Edit39.Text;
FieldByName('GDZC_S').AsString:=Edit40.Text;
FieldByName('GDZC_E').AsString:=Edit41.Text;
FieldByName('GD_GDZCYZ_S').AsString:=Edit42.Text;
FieldByName('GD_GDZCYZ_E').AsString:=Edit43.Text;
FieldByName('GD_LJZJ_S').AsString:=Edit44.Text;
FieldByName('GD_LJZJ_E').AsString:=Edit45.Text;
FieldByName('GD_GDZCJZ_S').AsString:=Edit46.Text;
FieldByName('GD_GDZCJZ_E').AsString:=Edit47.Text;
FieldByName('GD_ZJGC_S').AsString:=Edit48.Text;
FieldByName('GD_ZJGC_E').AsString:=Edit49.Text;
FieldByName('WXJQTZC_S').AsString:=Edit50.Text;
FieldByName('WXJQTZC_E').AsString:=Edit51.Text;
FieldByName('WX_WXZC_S').AsString:=Edit52.Text;
FieldByName('WX_WXZC_E').AsString:=Edit53.Text;
FieldByName('WX_CQDTFY_S').AsString:=Edit54.Text;
FieldByName('WX_CQDTFY_E').AsString:=Edit55.Text;
FieldByName('ZICAIZHONGJI_S').AsString:=Edit56.Text;
FieldByName('ZICAIZHONGJI_E').AsString:=Edit57.Text;
    End
end;

procedure TMainForm.OutTableOneA();
begin
    With ADOQuery2a do
    Begin

FieldByName('LDFZ_S').AsString:=Edit58.Text;
FieldByName('LDFZ_E').AsString:=Edit59.Text;
FieldByName('FZ_DQJK_S').AsString:=Edit60.Text;
FieldByName('FZ_DQJK_E').AsString:=Edit61.Text;
FieldByName('FZ_YFPJ_S').AsString:=Edit62.Text;
FieldByName('FZ_YFPJ_E').AsString:=Edit63.Text;
FieldByName('FZ_YFZK_S').AsString:=Edit64.Text;
FieldByName('FZ_YFZK_E').AsString:=Edit65.Text;
FieldByName('FZ_YSZK_S').AsString:=Edit66.Text;
FieldByName('FZ_YSZK_E').AsString:=Edit67.Text;
FieldByName('FZ_QTYFK_S').AsString:=Edit68.Text;
FieldByName('FZ_QTYFK_E').AsString:=Edit69.Text;
FieldByName('FZ_YFGZ_S').AsString:=Edit70.Text;
FieldByName('FZ_YFGZ_E').AsString:=Edit71.Text;
FieldByName('FZ_YFFLF_S').AsString:=Edit72.Text;
FieldByName('FZ_YFFLF_E').AsString:=Edit73.Text;
FieldByName('FZ_YJSJ_S').AsString:=Edit74.Text;
FieldByName('FZ_YJSJ_E').AsString:=Edit75.Text;
FieldByName('FZ_YFLR_S').AsString:=Edit76.Text;
FieldByName('FZ_YFLR_E').AsString:=Edit77.Text;
FieldByName('FZ_QTYJK_S').AsString:=Edit78.Text;
FieldByName('FZ_QTYJK_E').AsString:=Edit79.Text;
FieldByName('FZ_YTFY_S').AsString:=Edit80.Text;
FieldByName('FZ_YTFY_E').AsString:=Edit81.Text;
FieldByName('FZ_QTLDFZ_S').AsString:=Edit82.Text;
FieldByName('FZ_QTLDFZ_E').AsString:=Edit83.Text;
FieldByName('CQFZ_S').AsString:=Edit84.Text;
FieldByName('CQFZ_E').AsString:=Edit85.Text;
FieldByName('CF_CQJK_S').AsString:=Edit86.Text;
FieldByName('CF_CQJK_E').AsString:=Edit87.Text;
FieldByName('CF_YFZQ_S').AsString:=Edit88.Text;
FieldByName('CF_YFZQ_E').AsString:=Edit89.Text;
FieldByName('CF_CQYFK_S').AsString:=Edit90.Text;
FieldByName('CF_CQYFK_E').AsString:=Edit91.Text;
FieldByName('CF_QTCQFZ_S').AsString:= Edit92.Text;
FieldByName('CF_QTCQFZ_E').AsString:= Edit93.Text;
FieldByName('FZHJ_S').AsString:=Edit94.Text;
FieldByName('FZHJ_E').AsString:=Edit95.Text;
FieldByName('SYZQY_S').AsString:=Edit96.Text;
FieldByName('SYZQY_E').AsString:=Edit97.Text;
FieldByName('QY_SSZB_S').AsString:=Edit98.Text;
FieldByName('QY_SSZB_E').AsString:=Edit99.Text;
FieldByName('QY_ZBGJ_S').AsString:=Edit100.Text;
FieldByName('QY_ZBGJ_E').AsString:=Edit101.Text;
FieldByName('QY_YYLR_S').AsString:=Edit102.Text;
FieldByName('QY_YYLR_E').AsString:=Edit103.Text;
//FieldByName('QY_BNLR_S').AsString:=Edit102.Text;
//FieldByName('QY_BNLR_E').AsString:=Edit103.Text;
FieldByName('QY_WFPLR_S').AsString:=Edit104.Text;
FieldByName('QY_WFPLR_E').AsString:=Edit105.Text;
FieldByName('FZQYHJ_S').AsString:=Edit106.Text;
FieldByName('FZQYHJ_E').AsString:=Edit107.Text;
    End;
end;

procedure TMainForm.InTableTwo();
begin
    With ADOQuery3 do
    Begin
Edit20.Text := FieldByName('ZYYWSL').AsString;
Edit21.Text := FieldByName('ZYSL_YYCB').AsString;
Edit108.Text := FieldByName('ZYSL_YYSJJFJ').AsString;
Edit109.Text := FieldByName('ZYYWLR').AsString;
Edit110.Text := FieldByName('ZYLR_QTYWLR').AsString;
Edit111.Text := FieldByName('ZYLR_QT_QTYWSL').AsString;
Edit112.Text := FieldByName('ZYLR_QT_QTYWZC').AsString;
Edit113.Text := FieldByName('ZYLR_YYFY').AsString;
Edit114.Text := FieldByName('ZYLR_FY_GLFY').AsString;
Edit115.Text := FieldByName('ZYLR_FY_CWFY').AsString;
Edit116.Text := FieldByName('ZYLR_FY_LXZC').AsString;
Edit117.Text := FieldByName('YYLR').AsString;
Edit118.Text := FieldByName('YYLR_TZSY').AsString;
Edit119.Text := FieldByName('YYLR_BTSL').AsString;
Edit120.Text := FieldByName('YYLR_YYWSL').AsString;
Edit121.Text := FieldByName('YYLR_YYWZC').AsString;
Edit122.Text := FieldByName('LRZE').AsString;
Edit123.Text := FieldByName('LRZE_SDS').AsString;
Edit124.Text := FieldByName('JLR').AsString;
Edit125.Text := FieldByName('JLR_NCWFPLR').AsString;
Edit126.Text := FieldByName('JLR_YYGJZL').AsString;
Edit127.Text := FieldByName('JLR_QTZL').AsString;
Edit128.Text := FieldByName('KGFPLR').AsString;
Edit129.Text := FieldByName('FPLR_TQFDGJJ').AsString;
Edit130.Text := FieldByName('FPLR_TQFDGYJ').AsString;
Edit131.Text := FieldByName('FPLR_TQZGJFJJ').AsString;
Edit132.Text := FieldByName('KGGDFPLR').AsString;
Edit133.Text := FieldByName('GDFPLR_YFPYXGGL').AsString;
Edit134.Text := FieldByName('GDFPLR_TQLYGJJ').AsString;
Edit135.Text := FieldByName('GDFPLR_YFPPTGGL').AsString;
Edit136.Text := FieldByName('WFPLR').AsString;

    End;
end;

Procedure TMainForm.OutTableTwo();
begin
    With ADOQuery3 do
    Begin
FieldByName('ZYYWSL').AsString:=Edit20.Text;
FieldByName('ZYSL_YYCB').AsString:=Edit21.Text;
FieldByName('ZYSL_YYSJJFJ').AsString:=Edit108.Text;
FieldByName('ZYYWLR').AsString:=Edit109.Text;
FieldByName('ZYLR_QTYWLR').AsString:=Edit110.Text;
FieldByName('ZYLR_QT_QTYWSL').AsString:=Edit111.Text;
FieldByName('ZYLR_QT_QTYWZC').AsString:=Edit112.Text;
FieldByName('ZYLR_YYFY').AsString:=Edit113.Text;
FieldByName('ZYLR_FY_GLFY').AsString:=Edit114.Text;
FieldByName('ZYLR_FY_CWFY').AsString:=Edit115.Text;
FieldByName('ZYLR_FY_LXZC').AsString:=Edit116.Text;
FieldByName('YYLR').AsString:=Edit117.Text;
FieldByName('YYLR_TZSY').AsString:=Edit118.Text;
FieldByName('YYLR_BTSL').AsString:=Edit119.Text;
FieldByName('YYLR_YYWSL').AsString:=Edit120.Text;
FieldByName('YYLR_YYWZC').AsString:=Edit121.Text;
FieldByName('LRZE').AsString:=Edit122.Text;
FieldByName('LRZE_SDS').AsString:=Edit123.Text;
FieldByName('JLR').AsString:=Edit124.Text;
FieldByName('JLR_NCWFPLR').AsString:=Edit125.Text;
FieldByName('JLR_YYGJZL').AsString:=Edit126.Text;
FieldByName('JLR_QTZL').AsString:=Edit127.Text;
FieldByName('KGFPLR').AsString:=Edit128.Text;
FieldByName('FPLR_TQFDGJJ').AsString:=Edit129.Text;
FieldByName('FPLR_TQFDGYJ').AsString:=Edit130.Text;
FieldByName('FPLR_TQZGJFJJ').AsString:=Edit131.Text;
FieldByName('KGGDFPLR').AsString:=Edit132.Text;
FieldByName('GDFPLR_YFPYXGGL').AsString:=Edit133.Text;
FieldByName('GDFPLR_TQLYGJJ').AsString:=Edit134.Text;
FieldByName('GDFPLR_YFPPTGGL').AsString:=Edit135.Text;
FieldByName('WFPLR').AsString:=Edit136.Text;

    End;
end;

procedure TMainForm.InTableThree();
begin
    With ADOQuery4 do
    Begin
Edit137.Text := FieldByName('JYHD_LL_A').AsString;
Edit138.Text := FieldByName('JYHD_LL_B').AsString;
Edit139.Text := FieldByName('JYHD_LL_C').AsString;
Edit140.Text := FieldByName('JYHD_LLXJ').AsString;
Edit141.Text := FieldByName('JYHD_LC_A').AsString;
Edit142.Text := FieldByName('JYHD_LC_B').AsString;
Edit143.Text := FieldByName('JYHD_LC_C').AsString;
Edit144.Text := FieldByName('JYHD_LC_D').AsString;
Edit145.Text := FieldByName('JYHD_LCXJ').AsString;
Edit146.Text := FieldByName('JYHD_JE').AsString;
Edit147.Text := FieldByName('TZHD_LL_A').AsString;
Edit148.Text := FieldByName('TZHD_LL_B').AsString;
Edit149.Text := FieldByName('TZHD_LL_C').AsString;
Edit150.Text := FieldByName('TZHD_LL_D').AsString;
Edit151.Text := FieldByName('TZHD_LLXJ').AsString;
Edit152.Text := FieldByName('TZHD_LC_A').AsString;
Edit153.Text := FieldByName('TZHD_LC_B').AsString;
Edit154.Text := FieldByName('TZHD_LC_C').AsString;
Edit155.Text := FieldByName('TZHD_LCXJ').AsString;
Edit156.Text := FieldByName('TZHD_JE').AsString;
Edit157.Text := FieldByName('CZHD_LL_A').AsString;
Edit158.Text := FieldByName('CZHD_LL_B').AsString;
Edit159.Text := FieldByName('CZHD_LL_C').AsString;
Edit160.Text := FieldByName('CZHD_LLXJ').AsString;
Edit161.Text := FieldByName('CZHD_LC_A').AsString;
Edit162.Text := FieldByName('CZHD_LC_B').AsString;
Edit163.Text := FieldByName('CZHD_LC_C').AsString;
Edit164.Text := FieldByName('CZHD_LCXJ').AsString;
Edit165.Text := FieldByName('CZHD_JE').AsString;
Edit166.Text := FieldByName('HLBD').AsString;
Edit167.Text := FieldByName('XJDJWJZA').AsString;
Edit168.Text := FieldByName('BCZL1_A').AsString;
Edit169.Text := FieldByName('BCZL1_B').AsString;
Edit170.Text := FieldByName('BCZL1_C').AsString;
Edit171.Text := FieldByName('BCZL1_D').AsString;
Edit172.Text := FieldByName('BCZL1_E').AsString;
Edit173.Text := FieldByName('BCZL1_F').AsString;
Edit174.Text := FieldByName('BCZL1_G').AsString;
Edit175.Text := FieldByName('BCZL1_H').AsString;
Edit176.Text := FieldByName('BCZL1_I').AsString;
Edit177.Text := FieldByName('BCZL1_J').AsString;
Edit178.Text := FieldByName('BCZL1_K').AsString;
Edit179.Text := FieldByName('BCZL1_L').AsString;
Edit180.Text := FieldByName('BCZL1_M').AsString;
Edit181.Text := FieldByName('BCZL1_N').AsString;
Edit182.Text := FieldByName('BCZL1_O').AsString;
Edit183.Text := FieldByName('BCZL1_P').AsString;
Edit184.Text := FieldByName('BCZL1_Q').AsString;
Edit185.Text := FieldByName('BCZL1_R').AsString;
Edit186.Text := FieldByName('BCZL1_S').AsString;
Edit187.Text := FieldByName('BCZL2_A').AsString;
Edit188.Text := FieldByName('BCZL2_B').AsString;
Edit189.Text := FieldByName('BCZL2_C').AsString;
Edit190.Text := FieldByName('BCZL2_D').AsString;
Edit191.Text := FieldByName('BCZL2_E').AsString;
Edit192.Text := FieldByName('BCZL3_A').AsString;
Edit193.Text := FieldByName('BCZL3_B').AsString;
Edit194.Text := FieldByName('BCZL3_C').AsString;
Edit195.Text := FieldByName('BCZL3_D').AsString;
Edit196.Text := FieldByName('XJDJWJZB').AsString;

    End;
end;

Procedure TMainForm.OutTableThree();
begin
    With ADOQuery4 do
    Begin
FieldByName('JYHD_LL_A').AsString := Edit137.Text;
FieldByName('JYHD_LL_B').AsString := Edit138.Text;
FieldByName('JYHD_LL_C').AsString := Edit139.Text;
FieldByName('JYHD_LLXJ').AsString := Edit140.Text;
FieldByName('JYHD_LC_A').AsString := Edit141.Text;
FieldByName('JYHD_LC_B').AsString := Edit142.Text;
FieldByName('JYHD_LC_C').AsString := Edit143.Text;
FieldByName('JYHD_LC_D').AsString := Edit144.Text;
FieldByName('JYHD_LCXJ').AsString := Edit145.Text;
FieldByName('JYHD_JE').AsString := Edit146.Text;
FieldByName('TZHD_LL_A').AsString := Edit147.Text;
FieldByName('TZHD_LL_B').AsString := Edit148.Text;
FieldByName('TZHD_LL_C').AsString := Edit149.Text;
FieldByName('TZHD_LL_D').AsString := Edit150.Text;
FieldByName('TZHD_LLXJ').AsString := Edit151.Text;
FieldByName('TZHD_LC_A').AsString := Edit152.Text;
FieldByName('TZHD_LC_B').AsString := Edit153.Text;
FieldByName('TZHD_LC_C').AsString := Edit154.Text;
FieldByName('TZHD_LCXJ').AsString := Edit155.Text;
FieldByName('TZHD_JE').AsString := Edit156.Text;
FieldByName('CZHD_LL_A').AsString := Edit157.Text;
FieldByName('CZHD_LL_B').AsString := Edit158.Text;
FieldByName('CZHD_LL_C').AsString := Edit159.Text;
FieldByName('CZHD_LLXJ').AsString := Edit160.Text;
FieldByName('CZHD_LC_A').AsString := Edit161.Text;
FieldByName('CZHD_LC_B').AsString := Edit162.Text;
FieldByName('CZHD_LC_C').AsString := Edit163.Text;
FieldByName('CZHD_LCXJ').AsString := Edit164.Text;
FieldByName('CZHD_JE').AsString := Edit165.Text;
FieldByName('HLBD').AsString := Edit166.Text;
FieldByName('XJDJWJZA').AsString := Edit167.Text;
FieldByName('BCZL1_A').AsString := Edit168.Text;
FieldByName('BCZL1_B').AsString := Edit169.Text;
FieldByName('BCZL1_C').AsString := Edit170.Text;
FieldByName('BCZL1_D').AsString := Edit171.Text;
FieldByName('BCZL1_E').AsString := Edit172.Text;
FieldByName('BCZL1_F').AsString := Edit173.Text;
FieldByName('BCZL1_G').AsString := Edit174.Text;
FieldByName('BCZL1_H').AsString := Edit175.Text;
FieldByName('BCZL1_I').AsString := Edit176.Text;
FieldByName('BCZL1_J').AsString := Edit177.Text;
FieldByName('BCZL1_K').AsString := Edit178.Text;
FieldByName('BCZL1_L').AsString := Edit179.Text;
FieldByName('BCZL1_M').AsString := Edit180.Text;
FieldByName('BCZL1_N').AsString := Edit181.Text;
FieldByName('BCZL1_O').AsString := Edit182.Text;
FieldByName('BCZL1_P').AsString := Edit183.Text;
FieldByName('BCZL1_Q').AsString := Edit184.Text;
FieldByName('BCZL1_R').AsString := Edit185.Text;
FieldByName('BCZL1_S').AsString := Edit186.Text;
FieldByName('BCZL2_A').AsString := Edit187.Text;
FieldByName('BCZL2_B').AsString := Edit188.Text;
FieldByName('BCZL2_C').AsString := Edit189.Text;
FieldByName('BCZL2_D').AsString := Edit190.Text;
FieldByName('BCZL2_E').AsString := Edit191.Text;
FieldByName('BCZL3_A').AsString := Edit192.Text;
FieldByName('BCZL3_B').AsString := Edit193.Text;
FieldByName('BCZL3_C').AsString := Edit194.Text;
FieldByName('BCZL3_D').AsString := Edit195.Text;
FieldByName('XJDJWJZB').AsString := Edit196.Text;

    End;
end;

Procedure TMainForm.ZCAddA();
Begin
  Edit2.Text := FloatToStr(StrToFloat(Edit4.Text)
                  +StrToFloat(Edit6.Text)
                  +StrToFloat(Edit8.Text)
                  +StrToFloat(Edit10.Text)
⌨️ 快捷键说明

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