ulist.pas

来自「商场活动抽奖系统,无需控件,可以正常使用.」· PAS 代码 · 共 41 行

unit UList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Buttons, StdCtrls, DB, ADODB;

type
  ListC = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;

  end;

implementation
 uses
  UMain;
procedure ListC.Execute;
var
 Query:TADOQuery;
begin
 Query:=TADOQuery.Create(nil);
 Query.Connection:=frmMain.ADOC;
 Query.Close;
 Query.SQL.Text:='select * from award where enter=''N''';
 Query.Open;
 while not Query.Eof do
  begin
   frmMain.lb_nmb.Items.Add(Query.Fields.Fields[0].AsString);
   Query.Next;
  end;
 Query.Close;
 Query.free;

 
end;
end.