哪位大神能幫我看看哪里出問題了嗎？
資料庫表有設主鍵，一個人錄入的話，沒有問題，多人同時操作就出錯了....
procedure TF_beneficiary.Button1Click(Sender: TObject);
begin
if ((Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'')and (Edit6.Text<>'')and (Combobox1.Text<>'')and (Combobox1.Text<>'')and (Combobox4.Text<>'')) then
begin
if change=true then
begin
Mydm.benesrc.DataSet.Bookmark:=Mybookmark;
Mydm.benesrc.DataSet.Delete;
end;
with Mydm.beneQuery do
begin
Close;
with SQL do
begin
Clear;
Add('insert into beneficiary values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8,:p9)');
end;
Parameters[0].Value:=datetimepicker1.Date;
Parameters[1].Value:=Trim(edit1.Text);
Parameters[2].Value:=Trim(edit2.Text);
Parameters[3].value:=Trim(edit3.Text);
Parameters[4].value:=Trim(edit4.Text);
Parameters[5].Value:=Trim(Combobox4.Text);
Parameters[6].Value:=Trim(edit6.Text);
Parameters[7].Value:=Trim(Combobox1.Text);
Parameters[8].Value:=Trim(Combobox2.Text);
Parameters[9].Value:=Trim(memo1.Lines.Text);
Execsql;
end;
with Mydm.beneQuery do
begin
Close;
with SQL do
begin
Clear;
Add('select*from beneficiary');
end;
Open;
end;
F_customer.guo:=(strtoint(trim(Mydm.guosrc.DataSet.FieldByName('saveguo').AsString)));
Inc(F_customer.guo);
Mydm.guo.Edit;
if change<>true then
Mydm.guosrc.DataSet.FieldByName('saveguo').AsString:=Trim(inttostr(F_customer.guo));
MYdm.guo.Post;
change:=false;
Button2.Click;
speedbutton7.Enabled:=True;
end
else
begin
Application.MessageBox('輸入必要資訊。','提示',64);
exit;
end;
Speedbutton1.Enabled:=true;
Speedbutton2.Enabled:=true;
Button1.Enabled:=false;
button2.Enabled:=false;
end;
uj5u.com熱心網友回復：
試了網上很多方法都不行...轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/32791.html
標籤：基礎類
上一篇：全部板塊一律卸載。我的賬號被盜，被別人私自系結盜取我的位置與資訊全部卸載第三方控制我的手機。
下一篇：sql基礎題