unit17.pas

来自「delphi2009 部分中文资料,源程序等」· PAS 代码 · 共 53 行

unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WideStrings, DbxBlackfishSQL, FMTBcd, DB, DBClient, Provider, SqlExpr,
  StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls;

type
  TForm17 = class(TForm)
    TIBURONBLACKFISHDEMODB: TSQLConnection;
    UNICODEDEMOTABLE: TSQLDataSet;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    procedure ClientDataSet1AfterScroll(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);
begin
  Self.ClientDataSet1.First;
  while not Self.ClientDataSet1.Eof do
  begin
    ListBox1.Items.Add(Self.ClientDataSet1.Fields[1].Value);
    Self.ClientDataSet1.Next;
  end;
end;

procedure TForm17.ClientDataSet1AfterScroll(DataSet: TDataSet);
begin
  Edit1.Text := Trim(Self.ClientDataSet1.Fields[1].Value);
end;

end.