unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables;type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
procedure Query1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationvar i: Integer;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
i:=0;
Query1.Open;
end;procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
With DataSet do
begin
FieldByName('FRecNo').asInteger:=i+1;
i:=i+1;
end;
end;end.写了一个,你自己加Query1 和计算字段,还有一个Button.
再加个DBGrid 就可以看到效果了。
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables;type
TForm1 = class(TForm)
Button1: TButton;
Query1: TQuery;
procedure Button1Click(Sender: TObject);
procedure Query1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationvar i: Integer;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
i:=0;
Query1.Open;
end;procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
With DataSet do
begin
FieldByName('FRecNo').asInteger:=i+1;
i:=i+1;
end;
end;end.写了一个,你自己加Query1 和计算字段,还有一个Button.
再加个DBGrid 就可以看到效果了。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货