procedure TForm4.FormShow(Sender: TObject); begin MasterSQL.close; MasterSQL.Open; try MasterSQL.Insert; except MessageDlg('新增動作錯誤',mtwarning,[mbok],0); abort; End; end; procedure TForm4.Button1Click(Sender: TObject); begin MasterSQL.Fields.FieldByName('Numbers').Value := Numbers_pk.Text; MasterSQL.ApplyUpdates; end; 除了主key'Numbers'之外，其餘的欄位都使用DBTEXT元件，輸入一筆資料後，會寫到資料庫去，但是要繼續新增第二筆資料時，就會將前一筆資料給蓋過，請教各位前輩，我該如何解決呢？

引言: MasterSQL.ApplyUpdates;

改成 MasterSQL.Post; 呢？

gaui 您好： 因為你把 Insert的動作放在FormShow 你可把FormShow的code 放在自訂的procedure Exp: 

 
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Button1: TButton;
    Table1Test1: TStringField;
    Table1Test2: TStringField;
    Table1TEST3: TVariantField;
    Table1TEST4: TStringField;
    Edit1: TEdit;
    DBEdit1: TDBEdit;
    procedure Button1Click(Sender: TObject);     
    procedure InsertDate; 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.InsertDate; 原本FormShow裡的Code 
begin
  Table1.close;
  Table1.Open;
  try
    Table1.Insert;
  except
    MessageDlg('新增動作錯誤',mtwarning,[mbok],0);
    abort;
  End;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  InsertDate; 
  Table1.FieldByName('Test1').Value := Edit1.Text;
  Table1.Post;
end;        

取之於ktop 用之於ktop