umain.pas

商场活动抽奖系统,无需控件,可以正常使用.

                   LoadBitmap(hInstance, PChar('i'+lab_n2.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n2.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 3:
  begin
    n1:=lab_n3.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n3.Caption:=IntToStr(StrToInt(n1)+1);
     i3.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n3.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n3.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);

        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 4:
  begin
    n1:=lab_n4.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n4.Caption:=IntToStr(StrToInt(n1)+1);
     i4.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n4.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n4.Caption=nmb then
       begin 
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 5:
  begin
    n1:=lab_n5.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n5.Caption:=IntToStr(StrToInt(n1)+1);
     i5.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n5.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n5.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 6:
  begin
    n1:=lab_n6.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n1)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n6.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 7:
  begin
    n1:=lab_n7.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n1)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n7.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 8:
  begin
    n1:=lab_n8.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n1)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n8.Caption=nmb then
       begin
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 9:
  begin
    n1:=lab_n9.Caption;
    if n1='9' then
       n1:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n1)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
    if Timer_nmb.Interval>StopNmb then
     begin
      if lab_n9.Caption=nmb then
       begin 
        PlaySound(PChar('bStop'), hInstance, snd_ASync or snd_Resource);
        self.Tag:=Self.Tag+1;
        Timer_nmb.Interval:=StartNmb;
       end;
     end;
  end;
 
 else
  begin
   Timer_nmb.Enabled:=False;
   Timer_nmb.Interval:=StartNmb;
   ADOQuery.Close;
   ADOQuery.SQL.Text:='select * from award a,aw b where a.aw_id=b.aw_id and nmb='''
                   +edt_nmb.Text+'''';
   ADOQuery.Open;
   //edt_nmb.Text:=lb_nmb.Items.Strings[lb_nmb.ItemIndex];
   //lb_nmb.Items.Delete(lb_nmb.ItemIndex);
   sleep(100);
   Play:=PlayS.Create(True);
   Play.Resume;
   if ADOQuery.RecordCount>0 then
    begin
     lab_jg.Caption:=ADOQuery.FieldByName('aw_name').AsString;
     lab_jp.Caption:='奖品:'+ADOQuery.FieldByName('aw_remark').AsString;
     Timer_j.Enabled:=True;//中奖信息变色
    end
   else
     lab_jg.Caption:='谢谢惠顾!';
   //更新数据库
   ADOQuery.Close;
   ADOQuery.SQL.Text:='update award set enter=''Y'' where nmb='''
                   +edt_nmb.Text+'''';
   ADOQuery.ExecSQL;
   lb_nmb.Items.Delete(lb_nmb.ItemIndex);
   MenuInfo.Enabled:=True;
   MenuInit.Enabled:=True;
   MenuClose.Enabled:=True;
   //闪烁信息
   //Timer_Flash.Enabled:=True;
  end;
end;

end;

procedure TfrmMain.TimerTimer(Sender: TObject);
var
 n:String;
begin
//飞跑每个数字
 case self.Tag of
  1:
   begin
    n:=lab_n2.Caption;
    if n='9' then
       n:='-1' ;
     lab_n2.Caption:=IntToStr(StrToInt(n)+1);
     i2.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n2.Caption));
    n:=lab_n3.Caption;
    if n='9' then
       n:='-1' ;
     lab_n3.Caption:=IntToStr(StrToInt(n)+1);
     i3.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n3.Caption));
    n:=lab_n4.Caption;
    if n='9' then
       n:='-1' ;
     lab_n4.Caption:=IntToStr(StrToInt(n)+1);
     i4.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n4.Caption));
    n:=lab_n5.Caption;
    if n='9' then
       n:='-1' ;
     lab_n5.Caption:=IntToStr(StrToInt(n)+1);
     i5.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n5.Caption));
    n:=lab_n6.Caption;
    if n='9' then
       n:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  2:
   begin
    n:=lab_n3.Caption;
    if n='9' then
       n:='-1' ;
     lab_n3.Caption:=IntToStr(StrToInt(n)+1);
     i3.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n3.Caption));
    n:=lab_n4.Caption;
    if n='9' then
       n:='-1' ;
     lab_n4.Caption:=IntToStr(StrToInt(n)+1);
     i4.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n4.Caption));
    n:=lab_n5.Caption;
    if n='9' then
       n:='-1' ;
     lab_n5.Caption:=IntToStr(StrToInt(n)+1);
     i5.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n5.Caption));
    n:=lab_n6.Caption;
    if n='9' then
       n:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  3:
   begin
    n:=lab_n4.Caption;
    if n='9' then
       n:='-1' ;
     lab_n4.Caption:=IntToStr(StrToInt(n)+1);
     i4.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n4.Caption));
    n:=lab_n5.Caption;
    if n='9' then
       n:='-1' ;
     lab_n5.Caption:=IntToStr(StrToInt(n)+1);
     i5.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n5.Caption));
    n:=lab_n6.Caption;
    if n='9' then
       n:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  4:
   begin
    n:=lab_n5.Caption;
    if n='9' then
       n:='-1' ;
     lab_n5.Caption:=IntToStr(StrToInt(n)+1);
     i5.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n5.Caption));
    n:=lab_n6.Caption;
    if n='9' then
       n:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  5:
   begin
    n:=lab_n6.Caption;
    if n='9' then
       n:='-1' ;
     lab_n6.Caption:=IntToStr(StrToInt(n)+1);
     i6.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n6.Caption));
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  6:
   begin
    n:=lab_n7.Caption;
    if n='9' then
       n:='-1' ;
     lab_n7.Caption:=IntToStr(StrToInt(n)+1);
     i7.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n7.Caption));
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  7:
   begin
    n:=lab_n8.Caption;
    if n='9' then
       n:='-1' ;
     lab_n8.Caption:=IntToStr(StrToInt(n)+1);
     i8.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n8.Caption));
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;
  8:
   begin
    n:=lab_n9.Caption;
    if n='9' then
       n:='-1' ;
     lab_n9.Caption:=IntToStr(StrToInt(n)+1);
     i9.Picture.Bitmap.Handle:=
                   LoadBitmap(hInstance, PChar('i'+lab_n9.Caption));
   end;

 end;

end;

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not btnClose.Enabled then
  begin
   ShowMessage('系统正在抽奖中,无法退出!!');
   CanClose:=False;
  end;
end;

end.