numbersalenew.~pas

彩票销售系统

  Shape17.Pen.Color:=clSilver;
  Shape18.Pen.Color:=clSilver;
  Shape19.Pen.Color:=clSilver;
  Shape20.Pen.Color:=clSilver;
  Shape21.Pen.Color:=clSilver;
  Shape22.Pen.Color:=clSilver;
  Shape23.Pen.Color:=clSilver;
  Shape24.Pen.Color:=clSilver;
  Shape25.Pen.Color:=clSilver;
  Shape26.Pen.Color:=clSilver;
  Shape27.Pen.Color:=clSilver;
  Shape28.Pen.Color:=clSilver;
  Shape29.Pen.Color:=clSilver;
  Shape30.Pen.Color:=clSilver;
  Shape31.Pen.Color:=clSilver;
  Shape32.Pen.Color:=clSilver;
  Shape33.Pen.Color:=clSilver;
  Shape37.Pen.Color:=clSilver;
  Shape38.Pen.Color:=clSilver;
  Shape40.Pen.Color:=clSilver;
  Shape41.Pen.Color:=clSilver;
  Shape42.Pen.Color:=clSilver;
  Shape43.Pen.Color:=clSilver;
  Shape44.Pen.Color:=clSilver;
  Shape46.Pen.Color:=clSilver;
  Shape47.Pen.Color:=clSilver;
  Shape48.Pen.Color:=clSilver;
  Shape49.Pen.Color:=clSilver;
  Shape50.Pen.Color:=clSilver;
  Shape51.Pen.Color:=clSilver;
  Shape52.Pen.Color:=clSilver;
  Shape53.Pen.Color:=clSilver;
  Shape54.Pen.Color:=clSilver;
  Shape55.Pen.Color:=clSilver;
  Shape56.Pen.Color:=clSilver;
  Shape57.Pen.Color:=clSilver;
  Shape58.Pen.Color:=clSilver;
  Shape59.Pen.Color:=clSilver;
  Shape60.Pen.Color:=clSilver;
  Shape61.Pen.Color:=clSilver;
  Shape62.Pen.Color:=clSilver;
  Shape63.Pen.Color:=clSilver;
  Shape64.Pen.Color:=clSilver;
  Shape65.Pen.Color:=clSilver;
  Shape66.Pen.Color:=clSilver;
  Shape67.Pen.Color:=clSilver;
  Shape68.Pen.Color:=clSilver;
  Shape69.Pen.Color:=clSilver;
  Shape70.Pen.Color:=clSilver;
  Shape71.Pen.Color:=clSilver;
  Shape72.Pen.Color:=clSilver;
  Shape73.Pen.Color:=clSilver;
  Shape74.Pen.Color:=clSilver;
  Shape75.Pen.Color:=clSilver;
  Shape76.Pen.Color:=clSilver;
  Shape77.Pen.Color:=clSilver;
  Shape78.Pen.Color:=clSilver;
  Shape79.Pen.Color:=clSilver;
  Shape80.Pen.Color:=clSilver;
  Shape81.Pen.Color:=clSilver;
  Shape82.Pen.Color:=clSilver;
  Shape83.Pen.Color:=clSilver;
  Shape84.Pen.Color:=clSilver;
  Shape85.Pen.Color:=clSilver;
  Shape86.Pen.Color:=clSilver;
  Shape87.Pen.Color:=clSilver;
  Shape88.Pen.Color:=clSilver;
  Shape89.Pen.Color:=clSilver;
  Shape90.Pen.Color:=clSilver;
  Shape91.Pen.Color:=clSilver;
  Shape92.Pen.Color:=clSilver;
  Shape93.Pen.Color:=clSilver;
  Shape94.Pen.Color:=clSilver;
  Shape95.Pen.Color:=clSilver;
  Shape96.Pen.Color:=clSilver;
  Shape97.Pen.Color:=clSilver;
  Shape98.Pen.Color:=clSilver;
  Shape99.Pen.Color:=clSilver;
  Shape100.Pen.Color:=clSilver;
  Shape101.Pen.Color:=clSilver;
  Shape102.Pen.Color:=clSilver;
end;
procedure TNumberSaleNew_form.ClientNameList(Sender:Tobject);
begin
  if ClientId>0 then
  begin
    ClientName_Q.Close;
    ClientName_Q.SQL.Clear;
    ClientName_Q.SQL.Add('select FclientName from T_Client where FClientid='''+floattostr(ClientId)+'''');
    ClientName_Q.Open;
    if ClientName_Q.Fields[0].Value<>Null then
    begin
      Label5.Caption:=ClientName_Q.Fields[0].Value; Label5.Refresh;
    end
    else
    begin
      Label5.Caption:=''; Label5.Refresh;
    end;
    ClientName_Q.Close;
  end;
end;

procedure TNumberSaleNew_form.RefurBish(Sender:Tobject);
begin
  //
  //Timer1.Enabled:=TRUE;
  if Radiobutton1.Checked then RadioButton1Click(Sender);
  if ClientButton1.Checked then ClientButton1Click(Sender);
  if ClientButton2.Checked then ClientButton2Click(Sender);
  if ClientButton3.Checked then ClientButton3Click(Sender);
  if ClientButton4.Checked then ClientButton4Click(Sender);
  if ClientButton5.Checked then ClientButton5Click(Sender);
  if ClientButton6.Checked then ClientButton6Click(Sender);
  if ClientButton7.Checked then ClientButton7Click(Sender);
  if ClientButton8.Checked then ClientButton8Click(Sender);
  if ClientButton9.Checked then ClientButton9Click(Sender);
  if ClientButton10.Checked then ClientButton10Click(Sender);
  if ClientButton11.Checked then ClientButton11Click(Sender);
  if ClientButton12.Checked then ClientButton12Click(Sender);
  if ClientButton13.Checked then ClientButton13Click(Sender);
  if ClientButton14.Checked then ClientButton14Click(Sender);
  if ClientButton15.Checked then ClientButton15Click(Sender);
  if ClientButton16.Checked then ClientButton16Click(Sender);
  if ClientButton17.Checked then ClientButton17Click(Sender);
  if ClientButton18.Checked then ClientButton18Click(Sender);
  if ClientButton19.Checked then ClientButton19Click(Sender);
  if ClientButton20.Checked then ClientButton20Click(Sender);
end;

procedure TNumberSaleNew_form.OneSixLabelList(Sender:Tobject);
begin
//1-6
  Label85.Caption:=''; Label85.visible:=false;
  Label86.Caption:=''; Label86.visible:=false;
  Label95.Caption:=''; Label95.visible:=false;
  Label96.Caption:=''; Label96.visible:=false;
  Label97.Caption:=''; Label97.visible:=false;
  Label98.Caption:=''; Label98.visible:=false;
  Label99.Caption:=''; Label99.visible:=false;
  Label56.Caption:=''; Label56.visible:=false;
  Label101.Caption:=''; Label101.visible:=false;
  Label102.Caption:=''; Label102.visible:=false;
  Label103.Caption:=''; Label103.visible:=false;
  Label104.Caption:=''; Label104.visible:=false;
  Label105.Caption:=''; Label105.visible:=false;
  Label106.Caption:=''; Label106.visible:=false;
  Label107.Caption:=''; Label107.visible:=false;
  Label108.Caption:=''; Label108.visible:=false;
  Label109.Caption:=''; Label109.visible:=false;
  Label110.Caption:=''; Label110.visible:=false;
  Label111.Caption:=''; Label111.visible:=false;
  Label112.Caption:=''; Label112.visible:=false;
  Label113.Caption:=''; Label113.visible:=false;
  Label114.Caption:=''; Label114.visible:=false;
  Label165.Caption:=''; Label165.visible:=false;
  Label181.Caption:=''; Label181.visible:=false;
  Label184.Caption:=''; Label184.visible:=false;
  Label185.Caption:=''; Label185.visible:=false;
  Label186.Caption:=''; Label186.visible:=false;
  Label187.Caption:=''; Label187.visible:=false;
  Label188.Caption:=''; Label188.visible:=false;
  Label189.Caption:=''; Label189.visible:=false;
  Label190.Caption:=''; Label190.visible:=false;
  Label191.Caption:=''; Label191.visible:=false;
  Label192.Caption:=''; Label192.visible:=false;
  Label193.Caption:=''; Label193.visible:=false;
  Label194.Caption:=''; Label194.visible:=false;
  Label195.Caption:=''; Label195.visible:=false;
  Label196.Caption:=''; Label196.visible:=false;
  Label197.Caption:=''; Label197.visible:=false;
  Label198.Caption:=''; Label198.visible:=false;
  Label199.Caption:=''; Label199.visible:=false;
  Label200.Caption:=''; Label200.visible:=false;
  Label201.Caption:=''; Label201.visible:=false;
  Label202.Caption:=''; Label202.visible:=false;
  Label203.Caption:=''; Label203.visible:=false;
  Label204.Caption:=''; Label204.visible:=false;
  Label205.Caption:=''; Label205.visible:=false;
  Label206.Caption:=''; Label206.visible:=false;
  Label207.Caption:=''; Label207.visible:=false;
  Label208.Caption:=''; Label208.visible:=false;

end;


procedure TNumberSaleNew_form.OneSixNumberList(Sender:Tobject);
begin
  OneSixListSp.close;
  OneSixListSp.Parameters[1].Value:=saleperiod ;
  OneSixListSp.Parameters[2].Value:=ClientId;
  OneSixListSp.Open;
  if OneSixListSp.RecordCount>0 then
  begin
    while not OneSixListSp.Eof do
    begin
      if OneSixListSp.FieldByName('FTranType').Value=26  then //(1-6)单
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label56.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label56.Visible:=true; end else begin  label56.caption:='';label56.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label101.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label101.Visible:=true; end else begin  label101.caption:='';label101.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label102.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label102.Visible:=true; end else begin  label102.caption:='';label102.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label103.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label103.Visible:=true; end else begin  label103.caption:='';label103.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label104.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label104.Visible:=true; end else begin  label104.caption:='';label104.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label105.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label105.Visible:=true; end else begin  label105.caption:='';label105.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=27 then   //(1-6)大
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label112.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label112.Visible:=true; end else begin  label112.caption:='';label112.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label113.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label113.Visible:=true; end else begin  label113.caption:='';label113.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label114.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label114.Visible:=true; end else begin  label114.caption:='';label114.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label165.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label165.Visible:=true; end else begin  label165.caption:='';label165.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label181.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label181.Visible:=true; end else begin  label181.caption:='';label181.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label184.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label184.Visible:=true; end else begin  label184.caption:='';label184.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=42 then //(1-6)双
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label106.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label106.Visible:=true; end else begin  label106.caption:='';label106.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label107.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label107.Visible:=true; end else begin  label107.caption:='';label107.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label108.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label108.Visible:=true; end else begin  label108.caption:='';label108.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label109.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label109.Visible:=true; end else begin  label109.caption:='';label109.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label110.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label110.Visible:=true; end else begin  label110.caption:='';label110.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label111.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label111.Visible:=true; end else begin  label111.caption:='';label111.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=43 then //(1-6)小
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label185.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label185.Visible:=true; end else begin  label185.caption:='';label185.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label186.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label186.Visible:=true; end else begin  label186.caption:='';label186.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label187.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label187.Visible:=true; end else begin  label187.caption:='';label187.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label188.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label188.Visible:=true; end else begin  label188.caption:='';label188.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label189.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label189.Visible:=true; end else begin  label189.caption:='';label189.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label190.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label190.Visible:=true; end else begin  label190.caption:='';label190.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=35 then //(1-6)红波
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label191.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label191.Visible:=true; end else begin  label191.caption:='';label191.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label192.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label192.Visible:=true; end else begin  label192.caption:='';label192.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label193.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label193.Visible:=true; end else begin  label193.caption:='';label193.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label194.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label194.Visible:=true; end else begin  label194.caption:='';label194.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label195.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label195.Visible:=true; end else begin  label195.caption:='';label195.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label196.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label196.Visible:=true; end else begin  label196.caption:='';label196.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=36 then  //(1-6)绿波
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label197.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label197.Visible:=true; end else begin  label197.caption:='';label197.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label198.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label198.Visible:=true; end else begin  label198.caption:='';label198.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label199.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label199.Visible:=true; end else begin  label199.caption:='';label199.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label200.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label200.Visible:=true; end else begin  label200.caption:='';label200.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label201.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label201.Visible:=true; end else begin  label201.caption:='';label201.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label202.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label202.Visible:=true; end else begin  label202.caption:='';label202.Visible:=false; end;
      end;
      if OneSixListSp.FieldByName('FTranType').Value=37 then   //(1-6)蓝波
      begin
        if OneSixListSp.FieldByName('1').Value>0 then  begin Label203.Caption:=floattostr(OneSixListSp.FieldByName('1').Value); Label203.Visible:=true; end else begin  label203.caption:='';label203.Visible:=false; end;
        if OneSixListSp.FieldByName('2').Value>0 then  begin Label204.Caption:=floattostr(OneSixListSp.FieldByName('2').Value); Label204.Visible:=true; end else begin  label204.caption:='';label204.Visible:=false; end;
        if OneSixListSp.FieldByName('3').Value>0 then  begin Label205.Caption:=floattostr(OneSixListSp.FieldByName('3').Value); Label205.Visible:=true; end else begin  label205.caption:='';label205.Visible:=false; end;
        if OneSixListSp.FieldByName('4').Value>0 then  begin Label206.Caption:=floattostr(OneSixListSp.FieldByName('4').Value); Label206.Visible:=true; end else begin  label206.caption:='';label206.Visible:=false; end;
        if OneSixListSp.FieldByName('5').Value>0 then  begin Label207.Caption:=floattostr(OneSixListSp.FieldByName('5').Value); Label207.Visible:=true; end else begin  label207.caption:='';label207.Visible:=false; end;
        if OneSixListSp.FieldByName('6').Value>0 then  begin Label208.Caption:=floattostr(OneSixListSp.FieldByName('6').Value); Label208.Visible:=true; end else begin  label208.caption:='';label208.Visible:=false; end;
      end;
      OneSixListSp.Next;
    end;
  end
  else
  begin
    OneSixLabelList(Sender);
  end;
  OneSixListSp.close;
  twothere_sp.Close;
  twothere_sp.Parameters[1].Value:=saleperiod ;
  twothere_sp.Parameters[2].Value:=ClientId;
  twothere_sp.Open;
end;