수동으로 DataSet 만들고 컨트롤 하기

예제에선 따로 서버연결이 필요없는 MemTable을 사용하였습니다.

1. MemTable과 데이터를 연결해서 보여줄 DBGrid, DataSource를 생성하고 연결시켜 줍니다.

DataSource1.DataSet := FDMemTable1;
DBGrid1.DataSource := DataSource1;

2. 필드를 생성합니다.

procedure TForm1.btnCreateFieldClick(Sender: TObject);
begin
  with FDMemTable1 do
  begin
    Close;

    FieldDefs.Clear;
    FieldDefs.Add('StringField', ftString, 10);
    FieldDefs.Add('IntegerField', ftInteger, 0);

    CreateDataSet;
  end;
end;

3. 데이터를 입력합니다.

procedure TForm1.btnInsertDataClick(Sender: TObject);
var
  I : Integer;
begin
  with FDMemTable1 do
  begin
    DisableControls;
    for I := 0 to 3 do
    begin
      Append;
      FieldByName('StringField').AsString := '테스트'+IntToStr(I+1);
      FieldByName('IntegerField').AsInteger := I+1;
      Post;
    end;
    EnableControls;
  end;
end;

4. 데이터를 삭제합니다.

procedure TForm1.btnDeleteDataClick(Sender: TObject);
begin
  with FDMemTable1 do
  begin
    if not IsEmpty then Delete;
  end;
end;

전)

 

후)