uaward.~pas

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

unit UAward;

interface

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

type
  TfrmAward = class(TForm)
    ADOQuery: TADOQuery;
    DataSource: TDataSource;
    Panel2: TPanel;
    Label3: TLabel;
    btnExit: TSpeedButton;
    DBGrid: TDBGrid;
    cmb_aw_name: TComboBox;
    Label1: TLabel;
    lab_count: TLabel;
    procedure FormShow(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
    procedure cmb_aw_nameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAward: TfrmAward;

implementation

uses UMain;

{$R *.dfm}

procedure TfrmAward.FormShow(Sender: TObject);
var
 Query:TADOQuery;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=frmMain.ADOC;
Query.SQL.Text:='select * from aw order by aw_id';
Query.Open;
cmb_aw_name.Items.Clear;
while not Query.Eof do
 begin
  cmb_aw_name.Items.Add(Query.FieldByName('aw_name').AsString);
  Query.Next;
 end;
Query.Close;
Query.Free;
ADOQuery.Connection:=frmMain.ADOC;
ADOQuery.SQL.Text:='select * from award a,aw b where a.aw_id=b.aw_id '
                   +'and enter=''Y'' order by a.aw_id';
ADOQuery.Open;
lab_count.Caption:='查询数量:'+intToStr(ADOQuery.RecordCount);
end;

procedure TfrmAward.btnExitClick(Sender: TObject);
begin
close;
end;

procedure TfrmAward.cmb_aw_nameChange(Sender: TObject);
begin
ADOQuery.Close;
ADOQuery.SQL.Text:='select * from award a,aw b where a.aw_id=b.aw_id '
                   +'and enter=''Y'' and aw_name like '''
                   +cmb_aw_name.Items.Strings[cmb_aw_name.itemIndex]
                   +'%'' order by a.aw_id';
ADOQuery.Open;
lab_count.Caption:='查询数量:'+intToStr(ADOQuery.RecordCount);
end;

end.