2011/12/01

MyBase自訂技巧 -- 取代StringGrid

底下的方法相當簡單明瞭,在許多場合都可以派上用場,而且另存資料也相當方便!



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;

沒有留言:

張貼留言