sql server 2000資料，二個表，一個基本資訊表里有一個保存費用的，另一表是保存費用明細，每月都會遇到有幾筆資料，只更新了明細表，但基本資訊的總費用表沒有更新
F_Database.ADOCon.BeginTrans;
qf := FormatFloat('0.00 ', F_Database.Qtb_StudentInfo.fieldbyname('油費').AsFloat + strtofloat(Edit2.Text));
F_Database.Qtb_StudentInfo.Close;
F_Database.Qtb_StudentInfo.SQL.Clear;
F_Database.Qtb_StudentInfo.SQL.Add('update tb_StudentInfo set 油費=''' + trim(qf) + ''' where 學員編號=''' + trim(Edit1.Text) + '''');
try
f_database.Qtb_StudentInfo.ExecSQL;
except
on e: exception do
begin
f_database.ADOCon.RollbackTrans;
application.messagebox('錯誤', '提示', mb_ok + mb_iconinformation);
exit;
end
end;
F_Database.Qtb_MoneyJf.Close;
F_Database.Qtb_MoneyJf.SQL.Clear;
F_Database.Qtb_MoneyJf.SQL.Add('insert into tb_MoneyJf(學員編號,姓名,繳費專案,繳費金額,繳費日期,schooln,經手人,收款人,充值卡號)values'
+ '(''' + trim(Edit1.Text) + ''','
+ '''' + trim(label4.Caption) + ''','
+ '''' + trim('油費') + ''','
+ '''' + trim(formatfloat('0.00 ', StrToFloat(Edit2.Text))) + ''','
+ '''' + trim(DateTimeToStr(Now())) + ''','
+ '''' + trim(schooln) + ''','
+ '''' + trim(UserName) + ''','
+ '''' + trim(ComboBox2.Text) + ''','
+ '''' + trim(Edit4.Text) + ''')');
try
f_database.Qtb_MoneyJf.ExecSQL;
except
on e: exception do
begin
f_database.ADOCon.RollbackTrans;
application.messagebox('錯誤', '提示', mb_ok + mb_iconinformation);
exit;
end
end;
f_database.ADOCon.CommitTrans;
uj5u.com熱心網友回復：
出現錯誤回滾了。自己跟蹤一下。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/131899.html
標籤：數據庫相關