理解與使用 TClientDataSet

bestlong

TClientDataSet 是一個功能強大的類別, 使用記憶體來操作資料, 不過需要用到 midas.dll

1. //在 Form 上新增 TClientDataSet 元件後更名為 cdsM
   
2. //動態建立欄位結構可以用下列程式碼
   
3. procedure TForm1.FormCreate(Sender: TObject);
   
4. begin
   
5.   with cdsM.FieldDefs do
   
6.   begin
   
7.     Clear;
   
8.     Add('Part_num', ftString, 4, False); //料號
   
9.     Add('Part_qty', ftInteger, 0, False); //數量
   
10.   end;
    
11.   with cdsM.Indexdefs do
    
12.   begin
    
13.     Clear;
    
14.     Add('PK', 'Partl_num', [ixPrimary, ixUnique]);
    
15.   end;
    
16.   cdsM.IndexName := 'PK';
    
17.   cdsM.CreateDataSet;
    
18.   cdsM.FieldByName('Part_num').DisplayLabel := '料號';
    
19.   cdsM.FieldByName('Part_qty').DisplayLabel := '數量';
    
20. end;

複製代碼

1.   //就可以用操作 Table 方式加入資料
   
2.   cdsM.Append;
   
3.   cdsM.FieldByName('Part_num').AsString := '0003';
   
4.   cdsM.FieldByName('Part_qty').AsInteger := 30;
   
5.   cdsM.Post;
   
6.   cdsM.Append;
   
7.   cdsM.FieldByName('Part_num').AsString := '0004';
   
8.   cdsM.FieldByName('Part_qty').AsInteger := 40;
   
9.   cdsM.Post;
   
10.   cdsM.Append;
    
11.   cdsM.FieldByName('Part_num').AsString := '0001';
    
12.   cdsM.FieldByName('Part_qty').AsInteger := 10;
    
13.   cdsM.Post;
    
14.   cdsM.Append;
    
15.   cdsM.FieldByName('Part_num').AsString := '0002';
    
16.   cdsM.FieldByName('Part_qty').AsInteger := 20;
    
17.   cdsM.Post;

複製代碼