unit2.pas

通用抽奖程序,要求电脑名为OF,建表字段分别为工号,姓名,中. 中是中奖标识.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, ExtCtrls, RzPanel, RzLabel,
  RzCmboBx, DB, ADODB, Buttons, RzStatus, ImgList, jpeg, Grids, DBGrids;

type
  TForm2 = class(TForm)
    RzPanel1: TRzPanel;
    RzPanel2: TRzPanel;
    RzPanel3: TRzPanel;
    RzPanel4: TRzPanel;
    RzPanel5: TRzPanel;
    RzPanel6: TRzPanel;
    KK: TRzBitBtn;
    TING: TRzBitBtn;
    RzEdit1: TRzEdit;
    BANG: TRzBitBtn;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    RzBitBtn6: TRzBitBtn;
    RzBitBtn7: TRzBitBtn;
    RzBitBtn8: TRzBitBtn;
    RzBitBtn9: TRzBitBtn;
    DENG: TRzComboBox;
    RzLabel1: TRzLabel;
    RzBitBtn10: TRzBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    SX: TBitBtn;
    TT: TTimer;
    BitBtn1: TBitBtn;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    RzBitBtn11: TRzBitBtn;
    RzBitBtn12: TRzBitBtn;
    RzBitBtn13: TRzBitBtn;
    RzMarqueeStatus1: TRzMarqueeStatus;
    ImageList1: TImageList;
    Image1: TImage;
    XIAN: TRzLabel;
    ZJH: TADOQuery;
    DBGrid1: TDBGrid;
    procedure RzBitBtn10Click(Sender: TObject);
    procedure KKClick(Sender: TObject);
    procedure SXClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure TINGClick(Sender: TObject);
    procedure DENGChange(Sender: TObject);
    procedure BANGClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    N,Y,YI:INTEGER;
          v_count:integer;
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.RzBitBtn10Click(Sender: TObject);
begin
ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Add('UPDATE CJ SET 中=''''');
ADOQUERY1.ExecSQL;
CLOSE;
FORM1.Close ;
end;

procedure TForm2.KKClick(Sender: TObject);
  begin

  TT.Enabled:=TRUE;      //开始抽
  TING.Enabled:=TRUE;  //停止
  KK.Enabled :=FALSE;        //开始
  end;

procedure TForm2.SXClick(Sender: TObject);
begin

      N:=N-1;
      XIAN.Caption:='抽奖人数共:'+INTTOSTR(N)+'人      ';
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
 VAR Y:STRING;
  begin
      v_count:=random(N-1);
     { ZJH.Close;
      ZJH.SQL.Clear ;
      Y:='SELECT * FROM CJH WHERE 号='+''''+INTTOSTR(V_COUNT)+'''';
      ZJH.SQL.Add(Y);
      ZJH.Open ;
      IF ZJH.RecordCount>0 THEN KK.Click ;  }
      ADOquery1.close;
      ADOquery1.sql.clear;
      ADOquery1.sql.add('select   *   from   CJ WHERE 中='''' ');
      ADOquery1.Open ;
     // ADOQUERY1.FIRST;
      ADOQUERY1.RecNo:=3;
      ADOQUERY1.RecNo:=V_COUNT+1;
      RZEDIT1.Text:=ADOquery1.fieldbyname('工号').asstring;
  end;

procedure TForm2.TINGClick(Sender: TObject);
begin
TT.Enabled:=FALSE;
BANG.Enabled:=TRUE;
KK.Enabled :=TRUE;
TING.Enabled:=FALSE;
end;

procedure TForm2.DENGChange(Sender: TObject);
begin
Y:=0;
IF DENG.Text='五等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=TRUE;
    RZPANEL1.Enabled:=FALSE;
    RZPANEL2.Enabled:=FALSE;
    RZPANEL3.Enabled:=FALSE;
    RZPANEL4.Enabled:=FALSE;
    RZPANEL5.Enabled:=FALSE;
  END;
IF DENG.Text='四等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=FALSE;
    RZPANEL1.Enabled:=FALSE;
    RZPANEL2.Enabled:=FALSE;
    RZPANEL3.Enabled:=FALSE;
    RZPANEL4.Enabled:=FALSE;
    RZPANEL5.Enabled:=TRUE;
  END;
IF DENG.Text='三等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=FALSE;
    RZPANEL1.Enabled:=FALSE;
    RZPANEL2.Enabled:=FALSE;
    RZPANEL3.Enabled:=FALSE;
    RZPANEL4.Enabled:=TRUE;
    RZPANEL5.Enabled:=FALSE;
  END;
IF DENG.Text='二等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=FALSE;
    RZPANEL1.Enabled:=FALSE;
    RZPANEL2.Enabled:=FALSE;
    RZPANEL3.Enabled:=TRUE;
    RZPANEL4.Enabled:=FALSE;
    RZPANEL5.Enabled:=FALSE;
  END;
IF DENG.Text='一等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=FALSE;
    RZPANEL1.Enabled:=FALSE;
    RZPANEL2.Enabled:=TRUE;
    RZPANEL3.Enabled:=FALSE;
    RZPANEL4.Enabled:=FALSE;
    RZPANEL5.Enabled:=FALSE;
  END;
IF DENG.Text='特等奖' THEN
  BEGIN
    RZPANEL6.Enabled:=FALSE;
    RZPANEL1.Enabled:=TRUE;
    RZPANEL2.Enabled:=FALSE;
    RZPANEL3.Enabled:=FALSE;
    RZPANEL4.Enabled:=FALSE;
    RZPANEL5.Enabled:=FALSE;
  END;
KK.Enabled:=TRUE;

end;

procedure TForm2.BANGClick(Sender: TObject);
begin

IF DENG.Text='五等奖' THEN
  BEGIN
    Y:=Y+1;
    IF (Y/6=1) OR (Y/6=2) OR (Y/6=3) OR (Y/6=4) OR (Y/6=5) OR (Y/6=6) OR (Y/6=7) THEN
      RZPANEL6.Caption:=RZPANEL6.Caption+#13;
      RZPANEL6.Caption:=RZPANEL6.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   ';
  END;
IF DENG.Text='四等奖' THEN
  BEGIN
    Y:=Y+1;
    IF (Y/7=1) OR (Y/7=2) OR (Y/6=3) OR (Y/6=4) THEN
      RZPANEL5.Caption:=RZPANEL5.Caption+#13;
    RZPANEL5.Caption:=RZPANEL5.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   ';
  END;
IF DENG.Text='三等奖' THEN
  BEGIN
    IF (Y/6=1) OR (Y/6=2) OR (Y/6=3) OR (Y/6=4) OR (Y/6=5) THEN
      RZPANEL4.Caption:=RZPANEL4.Caption+#13;
    Y:=Y+1;
    RZPANEL4.Caption:=RZPANEL4.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   ';
  END;
IF DENG.Text='二等奖' THEN
  BEGIN
    Y:=Y+1;
    IF (Y/6=1) OR (Y/6=2) OR (Y/6=3) OR (Y/6=4) THEN
      RZPANEL3.Caption:=RZPANEL3.Caption+#13;
    RZPANEL3.Caption:=RZPANEL3.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   ';
  END;
IF DENG.Text='一等奖' THEN
  BEGIN
    Y:=Y+1;
    IF (Y/5=1) OR (Y/5=2) OR (Y/5=3) THEN
      RZPANEL2.Caption:=RZPANEL2.Caption+#13;
    RZPANEL2.Caption:=RZPANEL2.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   '
  END;
IF DENG.Text='特等奖' THEN
  BEGIN
    Y:=Y+1;
    RZPANEL1.Caption:=RZPANEL1.Caption+INTTOSTR(Y)+':'+TRIM(ADOQUERY1.FieldByName('工号').AsString)+ADOQUERY1.FieldByName('姓名').AsString+'   ';
  END;
TING.Enabled:=FALSE;
BANG.Enabled:=FALSE;
ZJH.Close;
ZJH.SQL.Clear ;
ZJH.SQL.Add('UPDATE CJ SET 中=1 WHERE 工号= '+''''+RZEDIT1.Text+''''+'');
ZJH.ExecSQL;
  SX.Click ;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
      ADOquery1.close;
      ADOquery1.sql.clear;
      ADOquery1.sql.add('select  *   from   CJ ');
      ADOquery1.Open ;
      N:=ADOQUERY1.RecordCount;
      XIAN.Caption:='抽奖人数共:'+INTTOSTR(N)+'人      ';
end;

end.