内存表使用演示 delphi 源码
单元
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GridsEh, DBGridEh, DB, DBClient;
type
TForm1 = class(TForm)
ClientDataSet1: TClientDataSet;
ClientDataSet1ID: TIntegerField;
ClientDataSet1name: TStringField;
ClientDataSet1nl: TIntegerField;
DataSource1: TDataSource;
DBGridEh1: TDBGridEh;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.InsertRecord([1, '张三', 33]);
ClientDataSet1.InsertRecord([2, '李四', 44]);
ClientDataSet1.InsertRecord([3, '王五', 55]);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
{ 构建数据集, 不可缺少的一步 }
ClientDataSet1.CreateDataSet;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientDataSet1.Append;
ClientDataSet1.FieldByName('id').AsInteger := ClientDataSet1.RecordCount;
ClientDataSet1.FieldByName('name').AsString :='中国';
ClientDataSet1.FieldByName('nl').AsInteger := 34;
ClientDataSet1.Post;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then exit;
ClientDataSet1.Delete;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
While not ClientDataSet1.IsEmpty do ClientDataSet1.Delete;
end;
end.
窗体
object Form1: TForm1
Left = 192
Top = 114
Width = 332
Height = 299
Caption = '内存表
演示'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGridEh1: TDBGridEh
Left = 24
Top = 16
Width = 169
Height = 233
DataSource = DataSource1
Flat = False
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
RowDetailPanel.Color = clBtnFace
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Alignment = taCenter
EditButtons
= <>
FieldName = 'ID'
Footers = <>
Title.Alignment = taCenter
Title.Caption = 'ID号'
Width = 40
end
item
Alignment = taCenter
EditButtons = <>
FieldName = 'name'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '姓 名'
Width = 60
end
item
EditButtons = <>
FieldName = 'nl'
Footers = <>
Title.Alignment = taCenter
Title.Caption = '年龄'
Width = 35
end>
object RowDetailData: TRowDetailPanelControlEh
end
end
object Button1: TButton
Left = 224
Top = 40
Width = 75
Height = 25
Caption = '插入数据'
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 224
Top = 96
Width = 75
Height = 25
Caption = '增加数据'
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 224
Top = 144
Width = 75
Height = 25