procedure TForm1.AddNewDataClick(Sender: TObject);
begin
with ClientDataSet1 do
begin
Append;
Fields.Fields[0].AsString := Edit_AddTest0.Text;
Fields.Fields[1].AsString := Edit_AddTest1.Text;
Fields.Fields[2].AsString := Edit_AddTest2.Text;
Post;
end;
end;
沒有留言:
張貼留言