unit1.pas

来自「DELPHI7编程百例 DELPHI7编程百例 DELPHI7编程百例」· PAS 代码 · 共 64 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    Button1: TButton;
    DBGrid1: TDBGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  s:string;
begin
// 清空Memo1组件
  Form2.Memo1.Clear;
// 获取表中的字段名称
  for i:=0 to Table1.FieldCount-1 do
  begin
    s:=s+Table1.Fields[i].FieldName+#9; //读取字段名后添加一个空格
  end;
  Form2.Memo1.Lines.Add(s);
  Form2.Memo1.Lines.Add('');
  s:='';
  // 定位到表的第一条记录
  Table1.First;
  //分别读取各条字段的信息
  While Not Table1.Eof do
  begin
    for i:=0 to Table1.FieldCount-1 do
    begin
      s:=s+Table1.Fields[i].AsString+#9;
    end;
    Form2.Memo1.Lines.Add(s);
    s:='';
    // 将光标移动到下一条记录
    Table1.Next;
  end;
  Form2.Show;//显示Form2
end;

end.