unit2.pas

函数查看器

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    cj: TPanel;
    ListBox1: TListBox;
    _ado: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    ListBox2: TListBox;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  Index: Integer;

implementation

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);
begin
  Button3Click(Sender);
  form2.Close;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if listbox1.Count=0 then exit;
  timer1.Enabled:=true;
  button1.Enabled:=false;
  button2.Enabled:=true;
  button3.Enabled:=true;
  button2.SetFocus;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  if listbox1.Count=0 then
  begin
    button3click(sender);
    exit;
  end;
  Index := (Index + 1) mod listbox1.Count;
  cj.Caption:=listbox1.Items.Strings[index];
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  timer1.Enabled:=false;
  button1.Enabled:=true;
  button2.Enabled:=false;
  button3.Enabled:=false;
  cj.Caption:='幸运抽奖';
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  timer1.Enabled:=false;
  listbox2.Items.Add(listbox1.Items.Strings[index]);
  listbox1.Items.Delete(index);
  listbox1.Update;
  timer1.Enabled:=true;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  _ado.Close;
  _ado.Open;
  listbox1.Clear;
  listbox2.Clear;
  _ado.First;
  while not _ado.eof do
  begin
    listbox1.Items.Add(_ado.FieldByName('姓名').AsString+' '+_ado.FieldByName('单位').AsString);
    _ado.Next;
  end;
  index:=0;
  cj.Caption:='幸运抽奖';
end;

end.