5,379
社区成员
发帖
与我相关
我的任务
分享
type
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
Edit1: TEdit;
耗时: TLabel;
DBGrid1: TDBGridEh;
ClientDataSet1: TClientDataSet;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
S: String;
begin
with ClientDataSet1.FieldDefs do
begin
for I := 1 to 20 do
begin
S := IntToStr(I);
Add('Code' + S, ftString, 8 );
Add('Name' + S, ftString, 20);
Add('Number'+ S, ftInteger );
end;
end;
DataSource1.DataSet := ClientDataSet1;
DBGrid1.DataSource := DataSource1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
BeginTime: TDateTime;
I, J: Integer;
S: String;
begin
BeginTime := Now;
with ClientDataSet1 do
begin
DisableControls;
Close;
CreateDataSet;
Open;
LogChanges := False;
for I := 1 to 3000 do
begin
Append;
for J := 1 to 20 do
begin
S := IntToStr(J);
FieldByName('Code'+ S).AsString := 'Code' + intToStr(I);
FieldByName('Name'+ S).AsString := 'Name' + intToStr(I);
FieldByName('Number'+ S).AsInteger := I;
end;
Post;
end;
EnableControls;
end;
Edit1.Text := FormatDateTime('hh:nn:ss.zzz', Now-BeginTime);
end;