cjiang.~pas

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

          if Copy(Fields[1].AsString,1,1)='A' then
          begin
            GL0:=GL0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='B' then
          begin
            CY0:=CY0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='C' then
          begin
            CX0:=CX0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='D' then
          begin
            DD0:=DD0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='E' then
          begin
            ZL0:=ZL0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='G' then
          begin
            LD0:=LD0+1;
          end
          else if Copy(Fields[1].AsString,1,1)='F' then
          begin
            SJ0:=SJ0+1;
          end;
          begin
            str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
            Label4.Caption:=Inttostr(x)+' '+str1;
            Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
            ListBox2.Items.Add(Str1);
            X:=x-1;
            with aqWork do
            begin
              Close;
              sql.Clear;
              sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
              parameters.ParamByName('grade').Value:=gra;
              parameters.ParamByName('ser_no').Value:=i;
              Execsql;
            end;
            with atWork do
            begin
              TableName:='Luckly';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            with atWork do
            begin
              TableName:='ALuck';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            if x=0 then
              break;
          end;
        end;
        inc(Y);
      end;
    end
    else if (gra>3) and (gra<6) then
    begin
      y:=1;
      while y<=2000 do
      begin
        with aqprt do
        begin
          close;
          sql.Clear;
          sql.Add('select * from staffer where grade>=4 and grade<=5');
          Open;
        end;
        if aqprt.RecordCount>=7 then
        begin
          showmessage('得奖人数已经满了');
          exit;
        end;
        Randomize;
        ZhongJiang;
        n:=ListBox3.Items.Count;
        Application.ProcessMessages;
        PDelay(Time);
        i:=StrToInt(ListBox3.Items[Random(n)]);
        with aqZj do
        begin
          Close;
          sql.Clear;
          sql.Add('select * from staffer where ser_no=:ser_no');
          parameters.ParamByName('ser_no').Value:=i;
          Open;
          F_ser:=Fields[0].AsString;
          F_code:=Fields[1].AsString;
          F_name:=Fields[2].AsString;
          F_pname:=Fields[3].AsString;
          if Copy(Fields[1].AsString,1,1)='A' then
          begin
            GL:=GL+1;
          end
          else if Copy(Fields[1].AsString,1,1)='B' then
          begin
            CY:=CY+1;
          end
          else if Copy(Fields[1].AsString,1,1)='C' then
          begin
            CX:=CX+1;
          end
          else if Copy(Fields[1].AsString,1,1)='D' then
          begin
            DD:=DD+1;
          end
          else if Copy(Fields[1].AsString,1,1)='E' then
          begin
            ZL:=ZL+1;
          end
          else if Copy(Fields[1].AsString,1,1)='G' then
          begin
            LD:=LD+1;
          end
          else if Copy(Fields[1].AsString,1,1)='F' then
          begin
            SJ:=SJ+1;
          end;
          begin
            str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
            Label4.Caption:=Inttostr(x)+' '+str1;
            Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
            ListBox2.Items.Add(Str1);
            X:=x-1;
            with aqWork do
            begin
              Close;
              sql.Clear;
              sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
              parameters.ParamByName('grade').Value:=gra;
              parameters.ParamByName('ser_no').Value:=i;
              Execsql;
            end;
            with atWork do
            begin
              TableName:='Luckly';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            with atWork do
            begin
              TableName:='ALuck';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            if x=0 then
              break;
          end;
        end;
        inc(Y);
      end;
    end
    else if gra=1 then
    begin
      y:=1;
      while y<=2000 do
      begin
        with aqprt do
        begin
          close;
          sql.Clear;
          sql.Add('select * from staffer where grade=1');
          Open;
        end;
        if aqprt.RecordCount>=150 then
        begin
          showmessage('得奖人数已经满了');
          exit;
        end;
        Randomize;
        ZhongJiang;
        n:=ListBox3.Items.Count;
        Application.ProcessMessages;
        PDelay(Time);
        i:=StrToInt(ListBox3.Items[Random(n)]);
        with aqZj do
        begin
          Close;
          sql.Clear;
          sql.Add('select * from staffer where ser_no=:ser_no');
          parameters.ParamByName('ser_no').Value:=i;
          Open;
          F_ser:=Fields[0].AsString;
          F_code:=Fields[1].AsString;
          F_name:=Fields[2].AsString;
          F_pname:=Fields[3].AsString;
          if Copy(Fields[1].AsString,1,1)='A' then
          begin
            GL3:=GL3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='B' then
          begin
            CY3:=CY3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='C' then
          begin
            CX3:=CX3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='D' then
          begin
            DD3:=DD3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='E' then
          begin
            ZL3:=ZL3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='G' then
          begin
            LD3:=LD3+1;
          end
          else if Copy(Fields[1].AsString,1,1)='F' then
          begin
            SJ3:=SJ3+1;
          end;
          begin
            str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
            Label4.Caption:=Inttostr(x)+' '+str1;
            Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
            ListBox2.Items.Add(Str1);
            X:=x-1;
            with aqWork do
            begin
              Close;
              sql.Clear;
              sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
              parameters.ParamByName('grade').Value:=gra;
              parameters.ParamByName('ser_no').Value:=i;
              Execsql;
            end;
            with atWork do
            begin
              TableName:='Luckly';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            with atWork do
            begin
              TableName:='ALuck';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            if x=0 then
              break;
          end;
        end;
        inc(Y);
      end;
    end
    else if gra=2 then
    begin
      y:=1;
      while y<=2000 do
      begin
        with aqprt do
        begin
          close;
          sql.Clear;
          sql.Add('select * from staffer where grade=2');
          Open;
        end;
        if aqprt.RecordCount>=50 then
        begin
          showmessage('得奖人数已经满了');
          exit;
        end;
        Randomize;
        ZhongJiang;
        n:=ListBox3.Items.Count;
        Application.ProcessMessages;
        PDelay(Time);
        i:=StrToInt(ListBox3.Items[Random(n)]);
        with aqZj do
        begin
          Close;
          sql.Clear;
          sql.Add('select * from staffer where ser_no=:ser_no');
          parameters.ParamByName('ser_no').Value:=i;
          Open;
          F_ser:=Fields[0].AsString;
          F_code:=Fields[1].AsString;
          F_name:=Fields[2].AsString;
          F_pname:=Fields[3].AsString;
          if Copy(Fields[1].AsString,1,1)='A' then
          begin
            GL2:=GL2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='B' then
          begin
            CY2:=CY2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='C' then
          begin
            CX2:=CX2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='D' then
          begin
            DD2:=DD2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='E' then
          begin
            ZL2:=ZL2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='G' then
          begin
            LD2:=LD2+1;
          end
          else if Copy(Fields[1].AsString,1,1)='F' then
          begin
            SJ2:=SJ2+1;
          end;
          begin
            str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
            Label4.Caption:=Inttostr(x)+' '+str1;
            Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
            ListBox2.Items.Add(Str1);
            X:=x-1;
            with aqWork do
            begin
              Close;
              sql.Clear;
              sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
              parameters.ParamByName('grade').Value:=gra;
              parameters.ParamByName('ser_no').Value:=i;
              Execsql;
            end;
            with atWork do
            begin
              TableName:='Luckly';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            with atWork do
            begin
              TableName:='ALuck';
              Open;
              atWork.AppendRecord([F_ser,F_code,F_name,F_pname,Combobox1.Text]);
              Close;
            end;
            if x=0 then
              break;
          end;
        end;
        inc(Y);
      end;
    end
    else if gra=3 then
    begin
      y:=1;
      while y<=2000 do
      begin
        with aqprt do
        begin
          close;
          sql.Clear;
          sql.Add('select * from staffer where grade=3');
          Open;
        end;
        if aqprt.RecordCount>=30 then
        begin
          showmessage('得奖人数已经满了');
          exit;
        end;
        Randomize;
        ZhongJiang;
        n:=ListBox3.Items.Count;
        Application.ProcessMessages;
        PDelay(Time);
        i:=StrToInt(ListBox3.Items[Random(n)]);
        with aqZj do
        begin
          Close;
          sql.Clear;
          sql.Add('select * from staffer where ser_no=:ser_no');
          parameters.ParamByName('ser_no').Value:=i;
          Open;
          F_ser:=Fields[0].AsString;
          F_code:=Fields[1].AsString;
          F_name:=Fields[2].AsString;
          F_pname:=Fields[3].AsString;
          if Copy(Fields[1].AsString,1,1)='A' then
          begin
            GL1:=GL1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='B' then
          begin
            CY1:=CY1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='C' then
          begin
            CX1:=CX1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='D' then
          begin
            DD1:=DD1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='E' then
          begin
            ZL1:=ZL1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='G' then
          begin
            LD1:=LD1+1;
          end
          else if Copy(Fields[1].AsString,1,1)='F' then
          begin
            SJ1:=SJ1+1;
          end;
          begin
            str1:=Fields[3].AsString+' '+Fields[2].AsString+' '+Fields[1].AsString;
            Label4.Caption:=Inttostr(x)+' '+str1;
            Label4.Left:=Round((Panel2.Width-Label4.Width)/2);
            ListBox2.Items.Add(Str1);
            X:=x-1;
            with aqWork do
            begin
              Close;
              sql.Clear;
              sql.Add('update staffer set get_luck=1,grade=:grade where ser_no=:ser_no');
              parameters.ParamByName('grade').Value:=gra;
              parameters.ParamByName('ser_no').Value:=i;
              Execsql;
            end;
            with atWork do
            begin
              TableName:='Luckly';
              Open;