unit1.~pas

自己编写的福利彩票分析软件

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red10="3" ');
  ADOQuery1.Open;

  r3:=ADOQuery1.Fields.Fields[0].Value;

   ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red10="4" ');
  ADOQuery1.Open;

  r4:=ADOQuery1.Fields.Fields[0].Value;


  //red21
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red21="0" ');
  ADOQuery1.Open;

  b0:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red21="1" ');
  ADOQuery1.Open;

  b1:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red21="2" ');
  ADOQuery1.Open;

  b2:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red21="3" ');
  ADOQuery1.Open;

  b3:=ADOQuery1.Fields.Fields[0].Value;

   ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red21="4" ');
  ADOQuery1.Open;

  b4:=ADOQuery1.Fields.Fields[0].Value;



  //red33
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red33="0" ');
  ADOQuery1.Open;

  c0:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red33="1" ');
  ADOQuery1.Open;

  c1:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red33="2" ');
  ADOQuery1.Open;

  c2:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red33="3" ');
  ADOQuery1.Open;

  c3:=ADOQuery1.Fields.Fields[0].Value;

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(*) from cexpect where red33="4" ');
  ADOQuery1.Open;

  c4:=ADOQuery1.Fields.Fields[0].Value;



  memo3.Lines.Add('1-10'+' [0个] 出现  '+r0+'次');
   memo3.Lines.Add('1-10'+' [1个] 出现  '+r1+'次');
    memo3.Lines.Add('1-10'+' [2个] 出现  '+r2+'次');
     memo3.Lines.Add('1-10'+' [3个] 出现  '+r3+'次');
      memo3.Lines.Add('1-10'+' [4个] 出现  '+r4+'次');
       memo3.Lines.Add('11-20'+' [0个] 出现  '+b0+'次');
        memo3.Lines.Add('11-20'+' [1个] 出现  '+b1+'次');
         memo3.Lines.Add('11-20'+' [2个] 出现  '+b2+'次');
          memo3.Lines.Add('11-20'+' [3个] 出现  '+b3+'次');
           memo3.Lines.Add('11-20'+' [4个] 出现  '+b4+'次');
            memo3.Lines.Add('大于21'+' [0个] 出现  '+c0+'次');
             memo3.Lines.Add('大于21'+' [1个] 出现  '+c1+'次');
              memo3.Lines.Add('大于21'+' [2个] 出现  '+c2+'次');
               memo3.Lines.Add('大于21'+' [3个] 出现  '+c3+'次');
                memo3.Lines.Add('大于21'+' [4个] 出现  '+c4+'次');


   ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from cexpect order by qs desc');
  ADOQuery1.Open;

  ADOQuery1.Active := true;

  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select * from cishu order by cishu desc');
  ADOQuery2.Open;

  ADOQuery2.Active := true;

  ADOQuery3.Close;
  ADOQuery3.SQL.Clear;
  ADOQuery3.SQL.Add('select * from bcishu order by bcishu desc');
  ADOQuery3.Open;

  ADOQuery3.Active := true;


//红球1分析结果
  for i:=1 to 33 do
  begin
  red1query.Close;
  red1query.SQL.Clear;
  red1query.SQL.Add('select count(*) as cnt from cexpect where red1='''+inttostr(i)+''' ');
  red1query.open;
  redq1[i]:=red1query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red1query.Close;
  red1query.SQL.Clear;
  red1query.SQL.Add('insert into red1 values('''+inttostr(i)+''','''+redq1[i]+''') ');
  red1query.ExecSQL;

  end ;

  red1query.Close;
  red1query.SQL.Clear;
  red1query.SQL.Add('select * from red1 order by red1csh desc  ');
  red1query.open;
  red1query.Active:=true;

//红球2分析结果
  for i:=1 to 33 do
  begin
  red2query.Close;
  red2query.SQL.Clear;
  red2query.SQL.Add('select count(*) as cnt from cexpect where red2='''+inttostr(i)+''' ');
  red2query.open;
  redq2[i]:=red2query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red2query.Close;
  red2query.SQL.Clear;
  red2query.SQL.Add('insert into red2 values('''+inttostr(i)+''','''+redq2[i]+''') ');
  red2query.ExecSQL;

  end ;

  red2query.Close;
  red2query.SQL.Clear;
  red2query.SQL.Add('select * from red2 order by red2csh desc  ');
  red2query.open;
  red2query.Active:=true;

//红球3分析结果
  for i:=1 to 33 do
  begin
  red3query.Close;
  red3query.SQL.Clear;
  red3query.SQL.Add('select count(*) as cnt from cexpect where red3='''+inttostr(i)+''' ');
  red3query.open;
  redq3[i]:=red3query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red3query.Close;
  red3query.SQL.Clear;
  red3query.SQL.Add('insert into red3 values('''+inttostr(i)+''','''+redq3[i]+''') ');
  red3query.ExecSQL;

  end ;

  red3query.Close;
  red3query.SQL.Clear;
  red3query.SQL.Add('select * from red3 order by red3csh desc  ');
  red3query.open;
  red3query.Active:=true;

//红球4分析结果
  for i:=1 to 33 do
  begin
  red4query.Close;
  red4query.SQL.Clear;
  red4query.SQL.Add('select count(*) as cnt from cexpect where red4='''+inttostr(i)+''' ');
  red4query.open;
  redq4[i]:=red4query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red4query.Close;
  red4query.SQL.Clear;
  red4query.SQL.Add('insert into red4 values('''+inttostr(i)+''','''+redq4[i]+''') ');
  red4query.ExecSQL;

  end ;

  red4query.Close;
  red4query.SQL.Clear;
  red4query.SQL.Add('select * from red4 order by red4csh desc  ');
  red4query.open;
  red4query.Active:=true;
//红球5分析结果
  for i:=1 to 33 do
  begin
  red5query.Close;
  red5query.SQL.Clear;
  red5query.SQL.Add('select count(*) as cnt from cexpect where red5='''+inttostr(i)+''' ');
  red5query.open;
  redq5[i]:=red5query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red5query.Close;
  red5query.SQL.Clear;
  red5query.SQL.Add('insert into red5 values('''+inttostr(i)+''','''+redq5[i]+''') ');
  red5query.ExecSQL;

  end ;

  red5query.Close;
  red5query.SQL.Clear;
  red5query.SQL.Add('select * from red5 order by red5csh desc  ');
  red5query.open;
  red5query.Active:=true;

  //红球6分析结果
  for i:=1 to 33 do
  begin
  red6query.Close;
  red6query.SQL.Clear;
  red6query.SQL.Add('select count(*) as cnt from cexpect where red6='''+inttostr(i)+''' ');
  red6query.open;
  redq6[i]:=red6query.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 33 do
  begin
  red6query.Close;
  red6query.SQL.Clear;
  red6query.SQL.Add('insert into red6 values('''+inttostr(i)+''','''+redq6[i]+''') ');
  red6query.ExecSQL;

  end ;

  red6query.Close;
  red6query.SQL.Clear;
  red6query.SQL.Add('select * from red6 order by red6csh desc  ');
  red6query.open;
  red6query.Active:=true;

   //蓝色球分析结果
  for i:=1 to 16 do
  begin
  bluequery.Close;
  bluequery.SQL.Clear;
  bluequery.SQL.Add('select count(*) as cnt from cexpect where red7='''+inttostr(i)+''' ');
  bluequery.open;
  blue[i]:=bluequery.FieldByName('cnt').AsString;
  end ;

  for i:=1 to 16 do
  begin
  bluequery.Close;
  bluequery.SQL.Clear;
  bluequery.SQL.Add('insert into blue values('''+inttostr(i)+''','''+blue[i]+''') ');
  bluequery.ExecSQL;

  end ;

  bluequery.Close;
  bluequery.SQL.Clear;
  bluequery.SQL.Add('select * from blue order by bluecsh desc  ');
  bluequery.open;
  bluequery.Active:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);

begin


  if (hmedit.Text<>'') and (strtoint(hmedit.Text)>0) and (strtoint(hmedit.Text)<34) then
   begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from cexpect where red1='''+hmedit.text+''' or red2='''+hmedit.text+''' or red3='''+hmedit.text+''' or red4='''+hmedit.text+''' or red5='''+hmedit.text+''' or red6='''+hmedit.text+''' order by qs desc');
      open;
    end;
   end
   else
   showmessage('数据不完整或者数据有误');
end;

procedure TForm1.Button5Click(Sender: TObject);

var _str:string;
begin
 _str:='select * from cexpect where red'+redcb.Text+'='''+edit1.Text+''' order by red'+inttostr(strtoint(redcb.text)+1)+ ' desc';
  if (edit1.Text<>'') and (strtoint(edit1.Text)>0) and (strtoint(edit1.Text)<34)
  and (redcb.Text<>'')then
   begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(_str);
      open;
    end;
   end
   else
   showmessage('数据不完整或者数据有误');
end;

procedure TForm1.Button6Click(Sender: TObject);
var _str1:string;
    _str2:string;
    _str3:string;
    _str4:string;
    _str5:string;
    _str6:string;

    _str21:string;
    _str22:string;
    _str23:string;
    _str24:string;
    _str25:string;
    _str26:string;
    _str27:string;

    _str31:string;
    _str32:string;
    _str33:string;
    _str34:string;
    _str35:string;
    _str36:string;

begin
    _str1:='select * from (select *  from cexpect where red1='''+oedit.text+''' or ';
    _str2:='red2='''+oedit.text+''' or red3='''+oedit.text+''' or red4='''+oedit.text+''' or ';
    _str3:='red5='''+oedit.text+''' or red6='''+oedit.text+''' order by qs desc) a ';
    _str4:='where a.red1='''+tedit.text+''' or a.red2='''+tedit.text+''' or a.red3='''+tedit.text+''' or';
    _str5:=' a.red4='''+tedit.text+''' or a.red5='''+tedit.text+''' or a.red6='''+tedit.text+''' order by a.qs desc ';



    _str21:='select * from (select * from (select *  from cexpect where red1='''+oedit.text+''' or ';
    _str22:='red2='''+oedit.text+''' or red3='''+oedit.text+''' or red4='''+oedit.text+''' or ';
    _str23:='red5='''+oedit.text+''' or red6='''+oedit.text+''' order by qs desc) a ';
    _str24:='where a.red1='''+tedit.text+''' or a.red2='''+tedit.text+''' or a.red3='''+tedit.text+''' or';
    _str25:=' a.red4='''+tedit.text+''' or a.red5='''+tedit.text+''' or a.red6='''+tedit.text+''' order by a.qs desc) b';
    _str26:='where b.red1='''+sedit.text+''' or b.red2='''+sedit.text+''' or b.red3='''+sedit.text+''' or';
    _str27:=' b.red4='''+sedit.text+''' or b.red5='''+sedit.text+''' or b.red6='''+sedit.text+''' order by b.qs desc ';







    if (ComboBox1.Text='2') and (strtoint(oedit.Text)>0) and (strtoint(oedit.Text)<34)
     and (strtoint(tedit.Text)>0) and (strtoint(tedit.Text)<34) and
     (oedit.Text<>'')and (tedit.Text<>'')   then
   begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(_str1);
      sql.Add(_str2);
      sql.Add(_str3);
      sql.Add(_str4);
      sql.Add(_str5);
      open;
    end;
   end;
   {else
   showmessage('数据不完整或者数据有误'); }

   if (oedit.Text<>'') and (strtoint(oedit.Text)>0) and (strtoint(oedit.Text)<34)
    and (tedit.Text<>'') and (strtoint(tedit.Text)>0) and (strtoint(tedit.Text)<34) and
    (Sedit.Text<>'') and (strtoint(Sedit.Text)>0) and (strtoint(Sedit.Text)<34) and (ComboBox1.Text='3') then
   begin
    with ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add(_str21);
      sql.Add(_str22);
      sql.Add(_str23);
      sql.Add(_str24);
      sql.Add(_str25);
      sql.Add(_str26);
      sql.Add(_str27);
      open;
    end;
   end;
   {else
   showmessage('数据不完整或者数据有误'); }

   oedit.Enabled:=false;
   tedit.Enabled:=false;
   sedit.Enabled:=false;

end;

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
if ComboBox1.Text='2' then
begin
oedit.Enabled:=true;
tedit.Enabled:=true;

end;

if ComboBox1.Text='3' then
begin
oedit.Enabled:=true;
tedit.Enabled:=true;
sedit.Enabled:=true;
end;
end;

end.