cjiang.pas

这是一个抽奖小程序 这是一个抽奖小程序 这是一个抽奖小程序

unit cjiang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, MPlayer, StdCtrls, ExtCtrls, Buttons, Spin, DB, ADODB,
  Menus, Grids, DBGrids, WinSkinData;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label2: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    ComboBox1: TComboBox;
    ADOC: TADOConnection;
    aqWork: TADOQuery;
    Label3: TLabel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    aqZj: TADOQuery;
    ListBox3: TListBox;
    Panel4: TPanel;
    Label5: TLabel;
    SpeedButton2: TButton;
    label4: TLabel;
    ListBox4: TListBox;
    Label6: TLabel;
    Label7: TLabel;
    aqprt: TADOQuery;
    Timer1: TTimer;
    atWork: TADOTable;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button5: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Menupt : TPoint;
    CX,CY,DD,GL,LD,ZL,SJ:integer;
    CX0,CY0,DD0,GL0,LD0,ZL0,SJ0:integer;
    CX1,CY1,DD1,GL1,LD1,ZL1,SJ1:integer;
    CX2,CY2,DD2,GL2,LD2,ZL2,SJ2:integer;
    CX3,CY3,DD3,GL3,LD3,ZL3,SJ3:integer;
    Time:integer;
    procedure ZhongJiang;
    procedure DeleteRecord;
    procedure PDelay(ms:Integer);
  end;

var
  Form1: TForm1;

implementation
uses rpt;
{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label7.Left:=label1.Left+Panel1.Width;
  label1.Left:=label1.Left+1;
  while label1.Left=(Panel1.Width-label1.Width) do
  begin
    label1.Left:=-label1.Width;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  aqwork.Close;
  aqzj.Close;
  Halt;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  pwd:String;
begin
  Pwd:=InputBox('请输入初始化密码', '请输入密码吧', '');
  if Pwd='omron' then
  begin
    ListBox1.Items.Clear;
    with aqWork do
    begin
      Close;
      Sql.Clear;
      sql.Add('update staffer set get_luck=0,grade=0');
      ExecSQL;
    end;
    with aqWork do
    begin
      Close;
      Sql.Clear;
      sql.Add('delete from Aluck');
      ExecSQL;
    end;
    with aqWork do
    begin
      Close;
      Sql.Clear;
      sql.Add('delete from luckly');
      ExecSQL;
    end;
    CX:=0;
    CY:=0;
    DD:=0;
    GL:=0;
    LD:=0;
    ZL:=0;
    SJ:=0;

    CX0:=0;
    CY0:=0;
    DD0:=0;
    GL0:=0;
    LD0:=0;
    ZL0:=0;
    SJ0:=0;

    CX1:=0;
    CY1:=0;
    DD1:=0;
    GL1:=0;
    LD1:=0;
    ZL1:=0;
    SJ1:=0;

    CX2:=0;
    CY2:=0;
    DD2:=0;
    GL2:=0;
    LD2:=0;
    ZL2:=0;
    SJ2:=0;

    CX3:=0;
    CY3:=0;
    DD3:=0;
    GL3:=0;
    LD3:=0;
    ZL3:=0;
    SJ3:=0;
    ShowMessage('初始化成功！');
  end
  else
    ShowMessage('密码错误！');
  SpeedButton2.SetFocus;
end;

procedure TForm1.ZhongJiang;
var
  st:string;
begin
  ListBox3.Items.Clear;
  if (Combobox1.ItemIndex+1)=1 then
  begin
    With aqWork do
    begin
      Close;
      sql.Clear;
      if (GL3>=8) and (CY3>=21) and (CX3>=26) and (DD3>=24) and (ZL3>=52) and (LD3>=14) and  (SJ3>=5) then
      begin
        sql.Add('select * from staffer where grade=0 order by name desc');
      end
      else
      begin
        sql.Add('select * from staffer where grade=0 and left(code,1)<> :code1 and left(code,1)<> :code2');
        sql.Add('and left(code,1)<> :code3 and left(code,1)<> :code4 and left(code,1)<> :code5');
        sql.Add('and left(code,1)<> :code6 and left(code,1)<> :code7 order by name desc');
        if GL3>=8 then
        begin
          Parameters.ParamByName('code1').Value:='A';
        end
        else
        begin
          Parameters.ParamByName('code1').Value:='O';
        end;
        if CY3>=21 then
        begin
          Parameters.ParamByName('code2').Value:='B';
        end
        else
        begin
          Parameters.ParamByName('code2').Value:='O';
        end;
        if CX3>=26 then
        begin
          Parameters.ParamByName('code3').Value:='C';
        end
        else
        begin
          Parameters.ParamByName('code3').Value:='O';
        end;
        if DD3>=24 then
        begin
          Parameters.ParamByName('code4').Value:='D';
        end
        else
        begin
          Parameters.ParamByName('code4').Value:='O';
        end;
        if ZL3>=52 then
        begin
          Parameters.ParamByName('code5').Value:='E';
        end
        else
        begin
          Parameters.ParamByName('code5').Value:='O';
        end;
        if LD3>=14 then
        begin
          Parameters.ParamByName('code6').Value:='G';
        end
        else
        begin
          Parameters.ParamByName('code6').Value:='O';
        end;
        if SJ3>=5 then
        begin
          Parameters.ParamByName('code7').Value:='F';
        end
        else
        begin
          Parameters.ParamByName('code7').Value:='O';
        end;
      end;
      open;
      while not Eof do
      begin
        st:=Fields[0].AsString;
        ListBox3.Items.Add(st);
        Next;
      end;
    end;
  end
  else if (Combobox1.ItemIndex+1)=2 then
  begin
    With aqWork do
    begin
      Close;
      sql.Clear;
      if (GL2>=4) and (CY2>=7) and (CX2>=9) and (DD2>=8) and (ZL2>=17) and (LD2>=4) and (SJ2>=1) then
      begin
        sql.Add('select * from staffer where grade=0 order by name desc');
      end
      else
      begin
        sql.Add('select * from staffer where grade=0 and left(code,1)<> :code1 and left(code,1)<> :code2');
        sql.Add('and left(code,1)<> :code3 and left(code,1)<> :code4 and left(code,1)<> :code5');
        sql.Add('and left(code,1)<> :code6 and left(code,1)<> :code7 order by name desc');
        if GL2>=4 then
        begin
          Parameters.ParamByName('code1').Value:='A';
        end
        else
        begin
          Parameters.ParamByName('code1').Value:='O';
        end;
        if CY2>=7 then
        begin
          Parameters.ParamByName('code2').Value:='B';
        end
        else
        begin
          Parameters.ParamByName('code2').Value:='O';
        end;
        if CX2>=9 then
        begin
          Parameters.ParamByName('code3').Value:='C';
        end
        else
        begin
          Parameters.ParamByName('code3').Value:='O';
        end;
        if DD2>=8 then
        begin
          Parameters.ParamByName('code4').Value:='D';
        end
        else
        begin
          Parameters.ParamByName('code4').Value:='O';
        end;
        if ZL2>=17 then
        begin
          Parameters.ParamByName('code5').Value:='E';
        end
        else
        begin
          Parameters.ParamByName('code5').Value:='O';
        end;
        if LD2>=4 then
        begin
          Parameters.ParamByName('code6').Value:='G';
        end
        else
        begin
          Parameters.ParamByName('code6').Value:='O';
        end;
        if SJ2>=1 then
        begin
          Parameters.ParamByName('code7').Value:='F';
        end
        else
        begin
          Parameters.ParamByName('code7').Value:='O';
        end;
      end;
      open;
      while not Eof do
      begin
        st:=Fields[0].AsString;
        ListBox3.Items.Add(st);
        Next;
      end;
    end;
  end
  else if (Combobox1.ItemIndex+1)=3 then
  begin
    With aqWork do
    begin
      Close;
      sql.Clear;
      if (GL1>=2) and (CY1>=4) and (CX1>=5) and (DD1>=5) and (ZL1>=10) and (LD1>=3) and  (SJ1>=1) then
      begin
        sql.Add('select * from staffer where grade=0 order by name desc');
      end
      else
      begin
        sql.Add('select * from staffer where grade=0 and left(code,1)<> :code1 and left(code,1)<> :code2');
        sql.Add('and left(code,1)<> :code3 and left(code,1)<> :code4 and left(code,1)<> :code5');
        sql.Add('and left(code,1)<> :code6 and left(code,1)<> :code7 order by name desc');
        if GL1>=2 then
        begin
          Parameters.ParamByName('code1').Value:='A';
        end
        else
        begin
          Parameters.ParamByName('code1').Value:='O';
        end;
        if CY1>=4 then
        begin
          Parameters.ParamByName('code2').Value:='B';
        end
        else
        begin
          Parameters.ParamByName('code2').Value:='O';
        end;
        if CX1>=5 then
        begin
          Parameters.ParamByName('code3').Value:='C';
        end
        else
        begin
          Parameters.ParamByName('code3').Value:='O';
        end;
        if DD1>=5 then
        begin
          Parameters.ParamByName('code4').Value:='D';
        end
        else
        begin
          Parameters.ParamByName('code4').Value:='O';
        end;
        if ZL1>=10 then
        begin
          Parameters.ParamByName('code5').Value:='E';
        end
        else
        begin
          Parameters.ParamByName('code5').Value:='O';
        end;
        if LD1>=3 then
        begin
          Parameters.ParamByName('code6').Value:='G';
        end
        else
        begin
          Parameters.ParamByName('code6').Value:='O';
        end;
        if SJ1>=1 then
        begin
          Parameters.ParamByName('code7').Value:='F';
        end
        else
        begin
          Parameters.ParamByName('code7').Value:='O';
        end;
      end;
      open;
      while not Eof do
      begin
        st:=Fields[0].AsString;
        ListBox3.Items.Add(st);
        Next;
      end;
    end;
  end
  else if ((Combobox1.ItemIndex+1)>3) and  ((Combobox1.ItemIndex+1)<6) then
  begin
    With aqWork do
    begin
      Close;
      sql.Clear;
      if (GL>=1) and (CY>=1) and (CX>=1) and (DD>=1) and (ZL>=1) and (LD>=1) and  (SJ>=1) then
      begin
        sql.Add('select * from staffer where grade=0 order by name desc');
      end
      else
      begin
        sql.Add('select * from staffer where grade=0 and left(code,1)<> :code1 and left(code,1)<> :code2');
        sql.Add('and left(code,1)<> :code3 and left(code,1)<> :code4 and left(code,1)<> :code5');
        sql.Add('and left(code,1)<> :code6 and left(code,1)<> :code7 order by name desc');
        if GL>=1 then
        begin