📄 dqjj.~pas
字号:
if (components[i] is TEdit) then
TEdit(components[i]).enabled := true;
if (components[i] is Tcombobox) then
Tcombobox(components[i]).Enabled := true;
end;
if not DM.dqjjxx.Locate('Z_PTZYbh', ptzybh.text, []) then
begin
Myerror('没有检测到相应的数据编号在用户数据库中' + #13#10 + '请查证后继续');
DIS;
end
else
ENA;
ACtionCD := 'M'; //修改记录标记
end;
procedure TdqjjxxFrm.BitBtn4Click(Sender: TObject);
var i:integer;
begin
BitBtn1.Enabled:=true;
DIS;
cls;
DataM.DM.dqjjxx.Cancel;
end;
procedure TdqjjxxFrm.BitBtn3Click(Sender: TObject);
var
i: integer;
gxc, dqc:string;
get_Q :TADOQuery;
begin
BitBtn1.Enabled:=true;
if ActionCD = 'N' then
begin
if (zybm.Text ='') or (year.Text='') or (dqmc.Text='')or (gxmc.text='') then
begin
showmessage('必添项不能为空!');
exit;
end;
for i := ComponentCount - 1 downto 0 do
begin
if (Components[i] is TEDIT) then
if (TEDIT(components[i]).Text='')then
TEDIT(components[i]).Text:='0';
end;
with DM.dqjjxx do
begin
Close; //如果是插入操作，执行Insert操作
Sql.Clear;
SQL.Add('Insert into T_geo_economic(Z_YEAR,Z_ZYBM,Z_PTZYBH,Z_DQMC,Z_GXMC,Z_GNSCZZ,Z_DYCYGNSCZZ,Z_DECYGNSCZZ,');
SQL.Add('Z_DSCYGNSCZZ,Z_RJGNSCZZ,Z_GNSCZZZS,Z_DYCYGNSCZZZS,Z_DECYGNSCZZZS,');
SQL.Add('Z_DSCYGNSCZZZS,Z_NMZRK,Z_NMZHS,Z_XCHS,Z_CSRK ,Z_SWRK,Z_RKMD,Z_NMJYRY,');
SQL.Add('Z_DYCYJYRY,Z_DECYJYRY,Z_DSCYJYRY,Z_ZGZGRS,Z_ZGZGGZZE,Z_ZGZGPJGZ,');
SQL.Add('Z_QSHGDZCTZE,Z_GYDW,Z_JBJS,Z_GXGZ,Z_QBGYQYZCZ,Z_GYZCZ,Z_NZQY,Z_GATTZQY,');
SQL.Add('Z_WSTZQY,Z_GYQYZJZ,Z_GYQYZCZJ,Z_GYQYFZZJ,Z_GYQYCPXSSR,Z_GYQYLRZE,');
SQL.Add('Z_JZYQYDWS,Z_JZYJYRY,Z_JZYZCZ,Z_GLLC,Z_YDYWZL,Z_BDDHYH,');
SQL.Add('Z_DFCZSR,Z_DFCZZC,Z_NLMYYZCZ,Z_NLMYYZCZZS,Z_NYJXZDL,Z_HFSYL ,');
SQL.Add('Z_NCYDL,Z_YXGGMJ,Z_ZBZMJ,Z_LSZWBZMJ,Z_NCJMRJCSR,Z_XCLDL,');
SQL.Add('Z_NLMYYLDL,Z_CYGDMJ,Z_LSCL,Z_MHCL,Z_YLZWCL,Z_ZRCL,');
SQL.Add('Z_NRCL,Z_YRCL,Z_SCPL,Z_SHXFPLSPZE,Z_MYY,Z_CYY,Z_ZZY,Z_QT,');
SQL.Add('Z_CXJMCXCKYE,Z_XLETRXL,Z_XXZRJSS,Z_XXXXS,Z_XXZXXSS,');
SQL.Add('Z_PTZXZRJSS,Z_PTZXXXS,Z_GZZXXSS,Z_YYWSYGS,Z_YYWSYCWS,');
SQL.Add('Z_YYWSYJSRYS)');
SQL.Add('values(:Z_YEAR,:Z_ZYBM,:Z_PTZYBH,:Z_DQMC,:Z_GXMC,:Z_GNSCZZ,:Z_DYCYGNSCZZ,:Z_DECYGNSCZZ,');
SQL.Add(':Z_DSCYGNSCZZ,:Z_RJGNSCZZ,:Z_GNSCZZZS,:Z_DYCYGNSCZZZS,:Z_DECYGNSCZZZS,');
SQL.Add(':Z_DSCYGNSCZZZS,:Z_NMZRK,:Z_NMZHS,:Z_XCHS,:Z_CSRK,:Z_SWRK,:Z_RKMD,:Z_NMJYRY,');
SQL.Add(':Z_DYCYJYRY,:Z_DECYJYRY,:Z_DSCYJYRY,:Z_ZGZGRS,:Z_ZGZGGZZE,:Z_ZGZGPJGZ,');
SQL.Add(':Z_QSHGDZCTZE,:Z_GYDW,:Z_JBJS,:Z_GXGZ,:Z_QBGYQYZCZ,:Z_GYZCZ,:Z_NZQY,:Z_GATTZQY,');
SQL.Add(':Z_WSTZQY,:Z_GYQYZJZ,:Z_GYQYZCZJ,:Z_GYQYFZZJ,:Z_GYQYCPXSSR,:Z_GYQYLRZE,');
SQL.Add(':Z_JZYQYDWS,: Z_JZYJYRY,:Z_JZYZCZ,:Z_GLLC,:Z_YDYWZL,:Z_BDDHYH,');
SQL.Add(':Z_DFCZSR ,:Z_DFCZZC,:Z_NLMYYZCZ,:Z_NLMYYZCZZS,:Z_NYJXZDL,:Z_HFSYL,');
SQL.Add(':Z_NCYDL,:Z_YXGGMJ,:Z_ZBZMJ,:Z_LSZWBZMJ,:Z_NCJMRJCSR,:Z_XCLDL,');
SQL.Add(':Z_NLMYYLDL,:Z_CYGDMJ,:Z_LSCL,:Z_MHCL,:Z_YLZWCL,:Z_ZRCL,');
SQL.Add(':Z_NRCL,:Z_YRCL,:Z_SCPL,:Z_SHXFPLSPZE,:Z_MYY,:Z_CYY,:Z_ZZY,:Z_QT ,');
SQL.Add(':Z_CXJMCXCKYE,:Z_XLETRXL,:Z_XXZRJSS,:Z_XXXXS,:Z_XXZXXSS,');
SQL.Add(':Z_PTZXZRJSS,:Z_PTZXXXS,:Z_GZZXXSS,:Z_YYWSYGS,:Z_YYWSYCWS,');
SQL.Add(':Z_YYWSYJSRYS)');
try
Parameters.Items[0].Value := year.Text;
Parameters.Items[1].Value := ZYBM.Text;
Parameters.Items[2].Value := ptzybh.Text;
begin
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
get_Q.SQL.add('select * from t_dmb where z_dmmc="'+dqmc.Text+'" and t_dmb.z_dmlxbm=1');
get_Q.open;
dqc:=trim(get_Q.FieldValues['z_dmbm']);
get_Q.Close;
end;
Parameters.Items[3].Value := DqC;
begin
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
get_Q.SQL.add('select * from t_dmb where z_dmmc="'+gxmc.Text+'" and t_dmb.z_dmlxbm=2');
get_Q.open;
gxc:=trim(get_Q.FieldValues['z_dmbm']);
get_Q.Close;
end;
Parameters.Items[4].Value := gxc;
Parameters.Items[5].Value := Gnsczz.Text;
Parameters.Items[6].Value := DYCYGNSCZZ.Text;
Parameters.Items[7].Value := DECYGNSCZZ.Text;
Parameters.Items[8].Value := DSCYGNSCZZ.Text;
Parameters.Items[9].Value := RJGNSCZZ.Text;
Parameters.Items[10].Value := GNSCZZZS.Text;
Parameters.Items[11].Value := DYCYGNSCZZZS.Text;
Parameters.Items[12].Value := DECYGNSCZZZS.Text;
Parameters.Items[13].Value := DSCYGNSCZZZS.Text;
Parameters.Items[14].Value := NMZRK.Text;
Parameters.Items[15].Value := NMZHS.Text;
Parameters.Items[16].Value := XCHS.Text;
Parameters.Items[17].Value := CSRK.Text;
Parameters.Items[18].Value := SWRK.Text;
Parameters.Items[19].Value := RKMD.Text;
Parameters.Items[20].Value := NMJYRY.Text;
Parameters.Items[21].Value := DYCYJYRY.Text;
Parameters.Items[22].Value := DECYJYRY.Text;
Parameters.Items[23].Value := DSCYJYRY.Text ;
Parameters.Items[24].Value := ZGZGRS.Text;
Parameters.Items[25].Value := ZGZGGZZE.Text;
Parameters.Items[26].Value := ZGZGPJGZ.Text;
Parameters.Items[27].Value := QSHGDZCTZE.Text;
Parameters.Items[28].Value := GYDW.Text;
Parameters.Items[29].Value := JBJS.Text;
Parameters.Items[30].Value := GXGZ.Text;
Parameters.Items[31].Value := QBGYQYZCZ.Text;
Parameters.Items[32].Value := GYZCZ.Text;
Parameters.Items[33].Value := NZQY.Text;
Parameters.Items[34].Value := GATTZQY.Text;
Parameters.Items[35].Value := WSTZQY.Text;
Parameters.Items[36].Value := GYQYZJZ.Text;
Parameters.Items[37].Value := GYQYzczj.Text;
Parameters.Items[38].Value := GYQYFZZJ.Text;
Parameters.Items[39].Value := GYQYCPXSSR.Text;
Parameters.Items[40].Value := GYQYLRZE.Text;
Parameters.Items[41].Value := JZYQYDWS.Text;
Parameters.Items[42].Value := JZYJYRY.Text;
Parameters.Items[43].Value := JZYZCZ.Text;
Parameters.Items[44].Value := GLLC.Text;
Parameters.Items[45].Value := YDYWZL.Text;
Parameters.Items[46].Value := BDDHYH.Text;
Parameters.Items[47].Value := DFCZSR.Text;
Parameters.Items[48].Value := DFCZZC.Text;
Parameters.Items[49].Value := NLMYYZCZ.Text;
Parameters.Items[50].Value := NLMYYZCZZS.Text;
Parameters.Items[51].Value := NYJXZDL.Text;
Parameters.Items[52].Value := HFSYL.Text;
Parameters.Items[53].Value := NCYDL.Text;
Parameters.Items[54].Value := YXGGMJ.Text;
Parameters.Items[55].Value := Zbzmj.Text;
Parameters.Items[56].Value := LSZWBZMJ.Text;
Parameters.Items[57].Value := NCJMRJCSR .Text;
Parameters.Items[58].Value := XCLDL.Text;
Parameters.Items[59].Value := NLMYYLDL.Text;
Parameters.Items[60].Value := CYGDMJ.Text;
Parameters.Items[61].Value := LSCL.Text;
Parameters.Items[62].Value := MHCL.Text;
Parameters.Items[63].Value := YLZWCL.Text;
Parameters.Items[64].Value := ZRCL.Text;
Parameters.Items[65].Value := NRCL.Text;
Parameters.Items[66].Value := YRCL .Text;
Parameters.Items[67].Value := SCPL .Text;
Parameters.Items[68].Value := SHXFPLSPZE.Text;
Parameters.Items[69].Value := MYY.Text;
Parameters.Items[70].Value := CYY.Text;
Parameters.Items[71].Value := ZZY.Text;
Parameters.Items[72].Value := QT.Text;
Parameters.Items[73].Value := CXJMCXCKYE.Text;
Parameters.Items[74].Value := XLETRXL.Text;
Parameters.Items[75].Value := XXZRJSS.Text;
Parameters.Items[76].Value := XXXXS .Text;
Parameters.Items[77].Value := XXZXXSS .Text;
Parameters.Items[78].Value := PTZXZRJSS .Text;
Parameters.Items[79].Value := PTZXXXS.Text;
Parameters.Items[80].Value := GZZXXSS.Text;
Parameters.Items[81].Value := YYWSYGS.Text;
Parameters.Items[82].Value := YYWSYCWS.Text;
Parameters.Items[83].Value := YYWSYJSRYS.Text;
ExecSQL;
except
on e: exception do
begin
application.MessageBox(pchar(e.Message), '添加信息提示');
sql.Clear;
sql.Add('select * from T_geo_economic order by z_ptzybh asc');
open;
exit;
end;
end;
sql.Clear;
sql.Add('select * from T_geo_economic order by z_ptzybh asc');
open;
Last;
application.MessageBox('信息添加成功!!!', '添加信息提示', MB_ICONINFORMATION);
end;
end
else
begin
if (zybm.Text ='') or (year.Text='') or (dqmc.Text='')or (gxmc.text='') then
begin
showmessage('必添项不能为空!');
exit;
end;
dm.dqjjxx.Edit;
with dm.dqjjxx do
begin
fields[0].Value := year.Text;
fields[1].Value := ZYbm.Text;
fields[2].Value := ptzybh.Text;
begin
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
get_Q.SQL.add('select * from t_dmb where z_dmmc="'+dqmc.Text+'" and t_dmb.z_dmlxbm=1');
get_Q.open;
dqc:=trim(get_Q.FieldValues['z_dmbm']);
get_Q.Close;
end;
fields[3].Value := DqC;
begin
get_Q:=TADOQuery.Create(self);
get_Q.Connection:=dm.conn;
get_Q.SQL.add('select * from t_dmb where z_dmmc="'+gxmc.Text+'" and t_dmb.z_dmlxbm=2');
get_Q.open;
gxc:=trim(get_Q.FieldValues['z_dmbm']);
get_Q.Close;
end;
fields[4].Value := gxc;
fields[5].Value := Gnsczz.Text;
fields[6].Value := DYCYGNSCZZ.Text;
fields[7].Value := DECYGNSCZZ.Text;
fields[8].Value := DSCYGNSCZZ.Text;
fields[9].Value := RJGNSCZZ.Text;
fields[10].Value := GNSCZZZS.Text;
fields[11].Value := DYCYGNSCZZZS.Text;
fields[12].Value := DECYGNSCZZZS.Text;
fields[13].Value := DSCYGNSCZZZS.Text;
fields[14].Value := NMZRK.Text;
fields[15].Value := NMZHS.Text;
fields[16].Value := XCHS.Text;
fields[17].Value := CSRK.Text;
fields[18].Value := SWRK.Text;
fields[19].Value := RKMD.Text;
fields[20].Value := NMJYRY.Text;
fields[21].Value := DYCYJYRY.Text;
fields[22].Value := DECYJYRY.Text;
fields[23].Value := DSCYJYRY.Text ;
fields[24].Value := ZGZGRS.Text;
fields[25].Value := ZGZGGZZE.Text;
fields[26].Value := ZGZGPJGZ.Text;
fields[27].Value := QSHGDZCTZE.Text;
fields[28].Value := GYDW.Text;
fields[29].Value := JBJS.Text;
fields[30].Value := GXGZ.Text;
fields[31].Value := QBGYQYZCZ.Text;
fields[32].Value := GYZCZ.Text;
fields[33].Value := NZQY.Text;
fields[34].Value := GATTZQY.Text;
fields[35].Value := WSTZQY.Text;
fields[36].Value := GYQYZJZ.Text;
fields[37].Value := GYQYzczj.Text;
fields[38].Value := GYQYFZZJ.Text;
fields[39].Value := GYQYCPXSSR.Text;
fields[40].Value := GYQYLRZE.Text;
fields[41].Value := JZYQYDWS.Text;
fields[42].Value := JZYJYRY.Text;
fields[43].Value := JZYZCZ.Text;
fields[44].Value := GLLC.Text;
fields[45].Value := YDYWZL.Text;
fields[46].Value := BDDHYH.Text;
fields[47].Value := DFCZSR.Text;
fields[48].Value := DFCZZC.Text;
fields[49].Value := NLMYYZCZ.Text;
fields[50].Value := NLMYYZCZZS.Text;
fields[51].Value := NYJXZDL.Text;
fields[52].Value := HFSYL.Text;
fields[53].Value := NCYDL.Text;
fields[54].Value := YXGGMJ.Text;
fields[55].Value := ZBZMJ.Text;
fields[56].Value := LSZWBZMJ.Text;
fields[57].Value := NCJMRJCSR .Text;
fields[58].Value := XCLDL.Text;
fields[59].Value := NLMYYLDL.Text;
fields[60].Value := CYGDMJ.Text;
fields[61].Value := LSCL.Text;
fields[62].Value := MHCL.Text;
fields[63].Value := YLZWCL.Text;
fields[64].Value := ZRCL.Text;
fields[65].Value := NRCL.Text;
fields[66].Value := YRCL .Text;
fields[67].Value := SCPL .Text;
fields[68].Value := SHXFPLSPZE.Text;
fields[69].Value := MYY.Text;
fields[70].Value := CYY.Text;
fields[71].Value := ZZY.Text;
fields[72].Value := QT.Text;
fields[73].Value := CXJMCXCKYE.Text;
fields[74].Value := XLETRXL.Text;
fields[75].Value := XXZRJSS.Text;
fields[76].Value := XXXXS .Text;
fields[77].Value := XXZXXSS .Text;
fields[78].Value := PTZXZRJSS .Text;
fields[79].Value := PTZXXXS.Text;
fields[80].Value := GZZXXSS.Text;
fields[81].Value := YYWSYGS.Text;
fields[82].Value := YYWSYCWS.Text;
fields[83].Value := YYWSYJSRYS.Text;
for i := ComponentCount - 1 downto 0 do
begin
if (Components[i] is TEDIT) then
if (TEDIT(components[i]).Text='') then
TEDIT(components[i]).Text:='0';
end;
ExecSQL;
try
UpdateBatch;
application.MessageBox('信息修改成功!!!', '修改信息提示', MB_ICONINFORMATION);
except
on e: exception do
begin
application.MessageBox(pchar(e.Message), '修改信息提示');
exit;
end;
end;
end;
end;
DIS; // 使所有的控件不可用
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -