Delphi 資料庫塞入資料和顯示資料的問題！！！-有解無憂

接觸Delphi 有一段時間了，叢接觸delphi到資料庫，一直都是塞入到資料庫后顯示在Dbgrid中,之前在java和c#中有臨時的一個資料集合做為臨時存盤，比如舉例來說，業務邏輯中有這么一個需求，單據表和單據的明細表，很明顯是一對多的關系，明細在delphi處理是每一條都是塞入到資料庫中，然后顯示，多條明細就是多條塞入然后查出來顯示。

我的問題是，是否能和java或者c#一樣有一個臨時存盤的地方，當保存或者提交單據的時候，再將資料塞入到資料庫中，這樣可以節省資料庫訪問的次數，可能有人會告訴我用臨時表，就是將資料中建立臨時表。但是會在資料庫的訪問上帶來負擔。頻繁訪問資料庫對資料庫和服務器有一定的壓力。

我不知道我的表達能發讓各位大哥大姐明白！跪求解決我的疑問。

uj5u.com熱心網友回復：

用臨時物件啊，這是最能想到的方法了

uj5u.com熱心網友回復：

大哥臨時物件怎么用，能詳細的說一下使用方法嗎？

uj5u.com熱心網友回復：

使用資料集TDataSet作為臨時表。

uj5u.com熱心網友回復：

一般用TClientDataSet仿MemTable來處理。

uj5u.com熱心網友回復：

參考 4 樓 frank_lee_cn 的回復:

一般用TClientDataSet仿MemTable來處理。

這位大哥，幫人幫到家，送佛送到家，能詳細的說明一下使用方法嗎？我初來乍到，不太懂。

uj5u.com熱心網友回復：

參考 3 樓 lyhoo163 的回復:

使用資料集TDataSet作為臨時表。

大哥能說一下使用方法么嗎？

uj5u.com熱心網友回復：

使用TClientDataSet組件，將資料存入TClientDataSet，驗證后在存入資料庫，TClientDataSet類似緩沖的道理

uj5u.com熱心網友回復：

參考 5 樓 yuebao353981348 的回復:

Quote: 參考 4 樓 frank_lee_cn 的回復:

一般用TClientDataSet仿MemTable來處理。

這位大哥，幫人幫到家，送佛送到家，能詳細的說明一下使用方法嗎？我初來乍到，不太懂。



type

  TMemTable = class(TClientDataSet)

  public

    procedure Fill(aDataset: TDataSet);

    function Open: Boolean; reintroduce;

  end;

implementation



{ TMemTable }



procedure TMemTable.Fill(aDataset: TDataSet);

var

  I: Integer;

begin

  if Active then

    Close;

  FieldDefs.Assign(aDataset.FieldDefs);

  Open;

  aDataset.First;

  while not aDataset.Eof do

  begin

    Append;

    try

      for I := 0 to Fields.Count - 1 do

        Fields[I].Value := aDataset.Fields[I].Value;

    finally

      Post;

    end;

    aDataset.Next;

  end;

end;



function TMemTable.Open: Boolean;

begin

  CreateDataSet;

  Result := Active;

end;

{
    FMemTable := TMemTable.Create(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.Fill(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.FieldDefs.Add('ID', ftInteger, 0, False);
    FMemTable.FieldDefs.Add('Status', ftString, 10, False);
    FMemTable.FieldDefs.Add('Created', ftDate, 0, False);
    FMemTable.FieldDefs.Add('Volume', ftFloat, 0, False);

    FMemTable.Open;
    for I := 1 to 100 do
    begin
      FMemTable.Append;
      FMemTable.FieldByName('ID').AsInteger := I;
      FMemTable.FieldByName('Status').AsString := 'Code' + IntToStr(I);
      FMemTable.FieldByName('Created').AsDateTime := Date();
      FMemTable.FieldByName('Volume').AsFloat := Random(10000);
      FMemTable.Post;
    end;
  }

uj5u.com熱心網友回復：

直接沒看懂!

uj5u.com熱心網友回復：

關注中，以后會用到！

uj5u.com熱心網友回復：

有那位打給能給寫Demo 不勝感謝。

uj5u.com熱心網友回復：

參考 8 樓 frank_lee_cn 的回復:

Quote: 參考 5 樓 yuebao353981348 的回復:

Quote: 參考 4 樓 frank_lee_cn 的回復:

一般用TClientDataSet仿MemTable來處理。

這位大哥，幫人幫到家，送佛送到家，能詳細的說明一下使用方法嗎？我初來乍到，不太懂。
type

  TMemTable = class(TClientDataSet)

  public

    procedure Fill(aDataset: TDataSet);

    function Open: Boolean; reintroduce;

  end;

implementation



{ TMemTable }



procedure TMemTable.Fill(aDataset: TDataSet);

var

  I: Integer;

begin

  if Active then

    Close;

  FieldDefs.Assign(aDataset.FieldDefs);

  Open;

  aDataset.First;

  while not aDataset.Eof do

  begin

    Append;

    try

      for I := 0 to Fields.Count - 1 do

        Fields[I].Value := aDataset.Fields[I].Value;

    finally

      Post;

    end;

    aDataset.Next;

  end;

end;



function TMemTable.Open: Boolean;

begin

  CreateDataSet;

  Result := Active;

end;
{
    FMemTable := TMemTable.Create(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.Fill(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.FieldDefs.Add('ID', ftInteger, 0, False);
    FMemTable.FieldDefs.Add('Status', ftString, 10, False);
    FMemTable.FieldDefs.Add('Created', ftDate, 0, False);
    FMemTable.FieldDefs.Add('Volume', ftFloat, 0, False);

    FMemTable.Open;
    for I := 1 to 100 do
    begin
      FMemTable.Append;
      FMemTable.FieldByName('ID').AsInteger := I;
      FMemTable.FieldByName('Status').AsString := 'Code' + IntToStr(I);
      FMemTable.FieldByName('Created').AsDateTime := Date();
      FMemTable.FieldByName('Volume').AsFloat := Random(10000);
      FMemTable.Post;
    end;
  }

大哥沒看懂。

uj5u.com熱心網友回復：

參考 8 樓 frank_lee_cn 的回復:

Quote: 參考 5 樓 yuebao353981348 的回復:

Quote: 參考 4 樓 frank_lee_cn 的回復:

一般用TClientDataSet仿MemTable來處理。

這位大哥，幫人幫到家，送佛送到家，能詳細的說明一下使用方法嗎？我初來乍到，不太懂。
type

  TMemTable = class(TClientDataSet)

  public

    procedure Fill(aDataset: TDataSet);

    function Open: Boolean; reintroduce;

  end;

implementation



{ TMemTable }



procedure TMemTable.Fill(aDataset: TDataSet);

var

  I: Integer;

begin

  if Active then

    Close;

  FieldDefs.Assign(aDataset.FieldDefs);

  Open;

  aDataset.First;

  while not aDataset.Eof do

  begin

    Append;

    try

      for I := 0 to Fields.Count - 1 do

        Fields[I].Value := aDataset.Fields[I].Value;

    finally

      Post;

    end;

    aDataset.Next;

  end;

end;



function TMemTable.Open: Boolean;

begin

  CreateDataSet;

  Result := Active;

end;
{
    FMemTable := TMemTable.Create(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.Fill(FQuery);

    或

    FMemTable := TMemTable.Create(nil);
    FMemTable.FieldDefs.Add('ID', ftInteger, 0, False);
    FMemTable.FieldDefs.Add('Status', ftString, 10, False);
    FMemTable.FieldDefs.Add('Created', ftDate, 0, False);
    FMemTable.FieldDefs.Add('Volume', ftFloat, 0, False);

    FMemTable.Open;
    for I := 1 to 100 do
    begin
      FMemTable.Append;
      FMemTable.FieldByName('ID').AsInteger := I;
      FMemTable.FieldByName('Status').AsString := 'Code' + IntToStr(I);
      FMemTable.FieldByName('Created').AsDateTime := Date();
      FMemTable.FieldByName('Volume').AsFloat := Random(10000);
      FMemTable.Post;
    end;
  }

大哥能否給寫一個Demo呢！

uj5u.com熱心網友回復：

暈，我給了三個Demo：

Demo1：

    FMemTable := TMemTable.Create(FQuery);

Demo2：

    FMemTable := TMemTable.Create(nil);
    FMemTable.Fill(FQuery);

Demo3：

    FMemTable := TMemTable.Create(nil);
    FMemTable.FieldDefs.Add('ID', ftInteger, 0, False);
    FMemTable.FieldDefs.Add('Status', ftString, 10, False);
    FMemTable.FieldDefs.Add('Created', ftDate, 0, False);
    FMemTable.FieldDefs.Add('Volume', ftFloat, 0, False);

    FMemTable.Open;
    for I := 1 to 100 do
    begin
      FMemTable.Append;
      FMemTable.FieldByName('ID').AsInteger := I;
      FMemTable.FieldByName('Status').AsString := 'Code' + IntToStr(I);
      FMemTable.FieldByName('Created').AsDateTime := Date();
      FMemTable.FieldByName('Volume').AsFloat := Random(10000);
      FMemTable.Post;
    end;

uj5u.com熱心網友回復：

占位學習，以后用得到

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/104499.html

標籤：數據庫相關

上一篇：用SQL連接服務器，第一次統計正常，再次統計就混亂

下一篇：delphi xe3中BusinessSkinForm 10.31 Ribbon使用問題，誰有demo，著急！！！！！