Spchange_wwQry.Sql.Add('Update SPXXB set '); if (Trim(Spbm_edit.text)<>SpFind_wwQry.FieldByName('spbm').AsString) then Spchange_wwQry.SQL.Add('spbm=''+Trim(Spbm_edit.text)+'''); if (Trim(Spmc_edit.text)<>SpFind_wwQry.FieldByName('spmc').AsString) then Spchange_wwQry.SQL.Add('spmc=''+Trim(Spmc_edit.text)+'''); if (Trim(Xhgg_edit.text)<>SpFind_wwQry.FieldByName('Xhgg').AsString) then Spchange_wwQry.SQL.Add('Xhgg=''+Trim(Xhgg_edit.text)+'''); if (Trim(DW_edit.text)<>SpFind_wwQry.FieldByName('DW').AsString) then Spchange_wwQry.SQL.Add('DW=''+Trim(DW_edit.text)+'''); if (Trim(BZ_edit.text)<>SpFind_wwQry.FieldByName('BZ').AsString) then Spchange_wwQry.SQL.Add('BZ=''+Trim(BZ_edit.text)+'''); Spchange_wwQry.Sql.Add('where spbm=''+Trim(Spbm_edit.text)+'''); Spchange_wwQry.ExecSql;谢谢大家!!!
2。DATABASE的LOGINPROMPT设为FALSE
答一:
你是否用了 事务处理 或 缓冲机制答二:
跟 enlightenment(阿明) 一样,加入一个Datebase组件,设置其相关属性
if (Trim(Spbm_edit.text)<>SpFind_wwQry.FieldByName('spbm').AsString) then
Spchange_wwQry.SQL.Add('spbm=''+Trim(Spbm_edit.text)+''');
if (Trim(Spmc_edit.text)<>SpFind_wwQry.FieldByName('spmc').AsString) then
Spchange_wwQry.SQL.Add('spmc=''+Trim(Spmc_edit.text)+''');
if (Trim(Xhgg_edit.text)<>SpFind_wwQry.FieldByName('Xhgg').AsString) then
Spchange_wwQry.SQL.Add('Xhgg=''+Trim(Xhgg_edit.text)+''');
if (Trim(DW_edit.text)<>SpFind_wwQry.FieldByName('DW').AsString) then
Spchange_wwQry.SQL.Add('DW=''+Trim(DW_edit.text)+''');
if (Trim(BZ_edit.text)<>SpFind_wwQry.FieldByName('BZ').AsString) then
Spchange_wwQry.SQL.Add('BZ=''+Trim(BZ_edit.text)+''');
Spchange_wwQry.Sql.Add('where spbm=''+Trim(Spbm_edit.text)+''');
Spchange_wwQry.ExecSql;谢谢大家!!!