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;
沒有留言:
張貼留言