unit1.cpp

对已往的3D彩票号码进行统计

void __fastcall TForm1::Button5Click(TObject *Sender)
{
  if(listIndex ==18)
  {
  Form3->Series1->DataSource = NULL;
  Form3->Series1->XValues->ValueSource ="";
  Form3->Series1->YValues->ValueSource ="";
  Form3->DBChart1->Title->Text->Clear();
    Form3->DBChart1->RightAxis->Automatic = false;
    Form3->DBChart1->RightAxis->Minimum = -1;
    Form3->DBChart1->RightAxis->Maximum = 3;
    Form3->Series1->DataSource = ADOQuery1;
    Form3->Series1->XValues->ValueSource ="s2";
    Form3->Series1->YValues->ValueSource ="road1";
    Form3->Series2->DataSource = ADOQuery1;
    Form3->Series2->XValues->ValueSource ="s2";
    Form3->Series2->YValues->ValueSource ="road2";
    Form3->Series3->DataSource = ADOQuery1;
    Form3->Series3->XValues->ValueSource ="s2";
    Form3->Series3->YValues->ValueSource ="road3";

    Form3->DBChart1->Title->Text->Add("路数明细");
    Form3->Show();
    return;
  }
  Form2->Series1->DataSource = NULL;
  Form2->Series1->XValues->ValueSource ="";
  Form2->Series1->YValues->ValueSource ="";
  Form2->DBChart1->Title->Text->Clear();
  if(listIndex ==0)
  {

    Form2->DBChart1->RightAxis->Automatic = false;
    Form2->DBChart1->RightAxis->Minimum = -.5;
    Form2->DBChart1->RightAxis->Maximum = 1.5;
    Form2->Series1->DataSource = ADOQuery1;
    //Form2->Series1->XValues->ValueSource ="s2";
    //Form2->Series1->YValues->ValueSource ="s1";
    Form2->Series1->XValues->ValueSource ="s2";
    Form2->Series1->YValues->ValueSource ="num";
    Form2->DBChart1->Title->Text->Add("数值分布");
  }
  else if(listIndex ==4)
  {
    Form2->DBChart1->RightAxis->Automatic = false;
    Form2->DBChart1->RightAxis->Minimum = 0;
    Form2->DBChart1->RightAxis->Maximum = 30;
    Form2->Series1->DataSource = ADOQuery1;
    Form2->Series1->XValues->ValueSource ="s2";
    Form2->Series1->YValues->ValueSource ="AllNum";
    Form2->DBChart1->Title->Text->Add("和值明细");
  }
  else if(listIndex ==5)
  {
    Form2->DBChart1->RightAxis->Automatic = false;
    Form2->DBChart1->RightAxis->Minimum = 0;
    Form2->DBChart1->RightAxis->Maximum = 30;
    Form2->Series1->DataSource = ADOQuery1;
    Form2->Series1->XValues->ValueSource ="Totalnum";
    Form2->Series1->YValues->ValueSource ="NumCount";
    Form2->DBChart1->Title->Text->Add("和值统计");
  }
  Form2->Show();



}

/*
int i,j,k;
int num[27]={0};
  for(i=0;i<10;i++)
    for(j=0;j<10;j++)
      for(k=0;k<10;k++)
       num[i+k+j]++;
  printf("\n");
  for(i=0;i<27;i++)
    printf("%d---%d\t",i,num[i]);
0---1   1---3   2---6   3---10  4---15  5---21  6---28  7---36  8---45  9---55
10---63 11---69 12---73 13---75 14---75 15---73 16---69 17---63 18---55 19---45
20---36 21---28 22---21 23---15 24---10 25---6  26---3  27---1
  */
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
int i,j,k,MaxK,rnum;
int rept;
AnsiString NumString="";
  Memo2->Clear();
//    1。双色球
  MaxK=  StrToInt(Edit1->Text);
  if(ComboBox4->Text =="双色球")
  {
    for(k=0;k<MaxK;k++)
    {
      NumString="";
      for(i=0;i<7;i++)
         num[i]=0;
      for(i= 0;i<6;i++)
      {
        rnum = RandomRange(1,34);
        num[i]=rnum;
      }
      Qsort(0,5);
      rept =0;
      for(i=0;i<5;i++)
        if(num[i]==num[i+1])
        {
          k--;
          rept =1;
          break;
        }
      if( rept==1)
       continue;
      for(i= 0;i<6;i++)
      {
        NumString += FormatFloat("00 ",num[i]);
      }
        NumString += FormatFloat("*00 ",RandomRange(1,17));
      Memo2->Lines->Add(NumString);
    }
  }
  // 3d最容易判断
  else if(ComboBox4->Text =="3D")
  {
    for(k=0;k<MaxK;k++)
    {

      for(i= 0;i<3;i++)
        NumString += FormatFloat("0 ",random(10));
      NumString +="        ";
     }

    Memo2->Lines->Add(NumString);
  }
  else if(ComboBox4->Text =="7/30")
  {
    for(k=0;k<MaxK;k++)
    {
      NumString="";
      for(i=0;i<7;i++)
         num[i]=0;
      for(i= 0;i<7;i++)
      {
        rnum = RandomRange(1,31);
        num[i]=rnum;
      }
      Qsort(0,6);
      rept =0;
      for(i=0;i<6;i++)
        if(num[i]==num[i+1])
        {
          k--;
          rept =1;
          break;
        }
      if( rept==1)
       continue;
      for(i= 0;i<7;i++)
      {
        NumString += FormatFloat("00 ",num[i]);
      }
    Memo2->Lines->Add(NumString);
    }

  }
  else if(ComboBox4->Text =="7/36")
  {
    for(k=0;k<MaxK;k++)
    {
      NumString="";
      for(i=0;i<7;i++)
         num[i]=0;
      for(i= 0;i<7;i++)
      {
        rnum = RandomRange(1,37);
        num[i]=rnum;
      }
      Qsort(0,6);
      rept =0;
      for(i=0;i<6;i++)
        if(num[i]==num[i+1])
        {
          k--;
          rept =1;
          break;
        }
      if( rept==1)
       continue;
      for(i= 0;i<7;i++)
      {
        NumString += FormatFloat("00 ",num[i]);
      }
      Memo2->Lines->Add(NumString);
    }
  }
  else if(ComboBox4->Text =="5/23")
  {
    for(k=0;k<MaxK;k++)
    {
      NumString="";
      for(i=0;i<7;i++)
         num[i]=0;
      for(i= 0;i<5;i++)
      {
        rnum = RandomRange(1,24);
        num[i]=rnum;
      }
      Qsort(0,4);
      rept =0;
      for(i=0;i<4;i++)
        if(num[i]==num[i+1])
        {
          k--;
          rept =1;
          break;
        }
      if( rept==1)
       continue;
      for(i= 0;i<5;i++)
      {
        NumString += FormatFloat("00 ",num[i]);
      }
      Memo2->Lines->Add(NumString);
    }

  }
}


void Qsort(int nstart,int nstop)
{
int i,j,t;
   i=nstart;
   j=nstop;
    t=num[i];
   while(i!=j)
   {
      while ((num[j]>t) &&(j>i))
      {
            k++;
            j--;
      }
   if (i<j)
   {
     num[i]=num[j];
     i++;
     l++;
     while ((num[i]<t) && (i<j))
     {
       i++;
     }
     if(i<j )
     {
       num[j]=num[i];
       j--;
     }
    }
 }
  num[i]=t;
  i++;
  j--;
  o++;
if( nstart<j)
   Qsort(nstart,j);
if( i<nstop )
  Qsort(i,nstop);
}


//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
  Form4->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
int i,tmp;
  DBGrid1->DataSource = NULL;
  ADOQuery1->SQL->Text ="select * from list";
  ADOQuery1->Active = true;
  ADOQuery1->First();
  for(i=0;i<ADOQuery1->RecordCount;i++)
  {
    ADOCommand1->CommandText ="update list set onum=:1 where uid=:2";
    num[0] = ADOQuery1->FieldByName("d1")->AsInteger;
    num[1] = ADOQuery1->FieldByName("d2")->AsInteger;
    num[2] = ADOQuery1->FieldByName("d3")->AsInteger;
    Qsort(0,2);
    tmp =num[0]*100+num[1]*10+num[2];
    ADOCommand1->Parameters->ParamByName("2")->Value="2005D"+FormatFloat("000",i);
    ADOCommand1->Parameters->ParamByName("1")->Value=tmp;
    ADOCommand1->Execute();
    ADOQuery1->Next();
  }

  ADOQuery1->SQL->Text ="select * from list order by uid desc";
  ADOQuery1->Active = true;
  DBGrid1->DataSource = DataSource1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
int i,tmp;        //2004 2003 2002
  DBGrid1->DataSource = NULL;
  ADOQuery1->SQL->Text ="select * from history where uid like \"2004%\"";
  ADOQuery1->Active = true;
  ADOQuery1->First();
  for(i=1;i<=ADOQuery1->RecordCount;i++)
  {
    ADOCommand1->CommandText ="update history set onum=:1 where uid=:2";
    num[0] = ADOQuery1->FieldByName("d1")->AsInteger;
    num[1] = ADOQuery1->FieldByName("d2")->AsInteger;
    num[2] = ADOQuery1->FieldByName("d3")->AsInteger;
    Qsort(0,2);
    tmp =num[0]*100+num[1]*10+num[2];
    ADOCommand1->Parameters->ParamByName("2")->Value="2004"+FormatFloat("000",i);
    ADOCommand1->Parameters->ParamByName("1")->Value=tmp;
    ADOCommand1->Execute();
    ADOQuery1->Next();
  }

  ADOQuery1->SQL->Text ="select * from history order by uid desc";
  ADOQuery1->Active = true;
  DBGrid1->DataSource = DataSource1;
}
//---------------------------------------------------------------------------