📄 numbersalenewtwo.pas
字号:
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 TNumberSaleNewtwo_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;
procedure TNumberSaleNewtwo_form.ButtonEanble(Sender:Tobject);
begin
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;
bitbtn8.Enabled:=true;
bitbtn9.Enabled:=true;
bitbtn10.Enabled:=true;
bitbtn11.Enabled:=true;
bitbtn12.Enabled:=true;
bitbtn13.Enabled:=true;
bitbtn14.Enabled:=true;
bitbtn15.Enabled:=true;
bitbtn16.Enabled:=true;
bitbtn17.Enabled:=true;
bitbtn18.Enabled:=true;
bitbtn19.Enabled:=true;
bitbtn20.Enabled:=true;
bitbtn21.Enabled:=true;
bitbtn22.Enabled:=true;
bitbtn23.Enabled:=true;
bitbtn24.Enabled:=true;
bitbtn25.Enabled:=true;
bitbtn26.Enabled:=true;
bitbtn27.Enabled:=true;
bitbtn28.Enabled:=true;
bitbtn29.Enabled:=true;
bitbtn30.Enabled:=true;
bitbtn31.Enabled:=true;
bitbtn55.Enabled:=true;
end;
procedure TNumberSaleNewtwo_form.ButtonColor(Sender:Tobject);
begin
bitbtn3.Font.Color:=clPurple; Bitbtn3.Refresh;
bitbtn4.Font.Color:=clPurple; Bitbtn4.Refresh;
bitbtn5.Font.Color:=clPurple; Bitbtn5.Refresh;
bitbtn6.Font.Color:=clPurple; Bitbtn6.Refresh;
bitbtn7.Font.Color:=clInfoText;Bitbtn7.Refresh;
bitbtn8.Font.Color:=clInfoText; Bitbtn8.Refresh;
bitbtn9.Font.Color:=clActiveCaption;Bitbtn9.Refresh;
bitbtn10.Font.Color:=clActiveCaption;Bitbtn10.Refresh;
bitbtn11.Font.Color:=clActiveCaption;Bitbtn11.Refresh;
bitbtn12.Font.Color:=clActiveCaption;Bitbtn12.Refresh;
bitbtn13.Font.Color:=clRed;Bitbtn13.Refresh;
bitbtn14.Font.Color:=clRed;Bitbtn14.Refresh;
bitbtn15.Font.Color:=clRed; Bitbtn15.Refresh;
bitbtn16.Font.Color:=clBlue; Bitbtn16.Refresh;
bitbtn17.Font.Color:=clBlue;Bitbtn17.Refresh;
bitbtn18.Font.Color:=clBlue; Bitbtn18.Refresh;
bitbtn19.Font.Color:=clGreen; Bitbtn19.Refresh;
bitbtn20.Font.Color:=clGreen; Bitbtn20.Refresh;
bitbtn21.Font.Color:=clGreen; Bitbtn21.Refresh;
bitbtn22.Font.Color:=clTeal;Bitbtn22.Refresh;
bitbtn23.Font.Color:=clTeal; Bitbtn23.Refresh;
bitbtn24.Font.Color:=clTeal; Bitbtn24.Refresh;
bitbtn25.Font.Color:=clTeal; Bitbtn25.Refresh;
bitbtn26.Font.Color:=clTeal;Bitbtn26.Refresh;
bitbtn27.Font.Color:=clTeal;Bitbtn27.Refresh;
bitbtn28.Font.Color:=clTeal; Bitbtn28.Refresh;
bitbtn29.Font.Color:=clTeal;Bitbtn29.Refresh;
bitbtn30.Font.Color:=clTeal;Bitbtn30.Refresh;
bitbtn31.Font.Color:=clTeal; Bitbtn31.Refresh;
bitbtn55.Font.Color:=clTeal;Bitbtn55.Refresh;
end;
procedure TNumberSaleNewtwo_form.ButtonDisEanble(Sender:Tobject);
begin
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=false;
bitbtn8.Enabled:=false;
bitbtn9.Enabled:=false;
bitbtn10.Enabled:=false;
bitbtn11.Enabled:=false;
bitbtn12.Enabled:=false;
bitbtn13.Enabled:=false;
bitbtn14.Enabled:=false;
bitbtn15.Enabled:=false;
bitbtn16.Enabled:=false;
bitbtn17.Enabled:=false;
bitbtn18.Enabled:=false;
bitbtn19.Enabled:=false;
bitbtn20.Enabled:=false;
bitbtn21.Enabled:=false;
bitbtn22.Enabled:=false;
bitbtn23.Enabled:=false;
bitbtn24.Enabled:=false;
bitbtn25.Enabled:=false;
bitbtn26.Enabled:=false;
bitbtn27.Enabled:=false;
bitbtn28.Enabled:=false;
bitbtn29.Enabled:=false;
bitbtn30.Enabled:=false;
bitbtn31.Enabled:=false;
bitbtn55.Enabled:=false;
end;
procedure TNumberSaleNewtwo_form.TMNumBer_InfList(Sender:Tobject);
var
sql_str:string;
begin
//显示相关数据
if ClientId>0 then
begin
sql_str:='select * from T_Sale where FSalePeriod='''+SalePeriod+'''';
sql_str:=sql_str+' and FClientId='''+floattostr(ClientId)+'''';
aminallist.Close;
aminallist.SQL.Clear;
aminallist.SQL.Add(sql_str);
aminallist.Open;
//数据回显 20051117 START
if aminallist.FieldByName('Number_Single').Value>0 then begin Label168.caption:=floattostr(aminallist.FieldByName('Number_Single').Value); Label168.visible:=true; end else begin Label168.Caption:=''; Label168.visible:=false;end;
if aminallist.FieldByName('Number_Double').Value>0 then begin Label169.caption:=floattostr(aminallist.FieldByName('Number_Double').Value); Label169.visible:=true; end else begin Label169.Caption:=''; Label169.visible:=false;end;
if aminallist.FieldByName('Number_Big').Value>0 then begin Label170.Caption:=floattostr(aminallist.FieldByName('Number_Big').Value); Label170.visible:=true; end else begin Label170.Caption:=''; Label170.visible:=false;end;
if aminallist.FieldByName('Number_Small').Value>0 then begin LabeL171.caption:=floattostr(aminallist.FieldByName('Number_Small').Value); Label171.visible:=true; end else begin Label171.Caption:=''; Label171.visible:=false;end;
if aminallist.FieldByName('Number_Red').Value>0 then begin Label172.Caption:=floattostr(aminallist.FieldByName('Number_Red').Value); Label172.visible:=true; end else begin Label172.Caption:=''; Label172.visible:=false;end;
if aminallist.FieldByName('Number_RedSingle').Value>0 then begin Label173.Caption:=floattostr(aminallist.FieldByName('Number_RedSingle').Value); Label173.visible:=true; end else begin Label173.Caption:=''; Label173.visible:=false;end;
if aminallist.FieldByName('Number_RedDouble').Value>0 then begin Label174.Caption:=floattostr(aminallist.FieldByName('Number_RedDouble').Value); Label174.visible:=true; end else begin Label174.Caption:=''; Label174.visible:=false;end;
if aminallist.FieldByName('Number_Blue').Value>0 then begin Label175.Caption:=floattostr(aminallist.FieldByName('Number_Blue').Value); Label175.visible:=true; end else begin Label175.Caption:=''; Label175.visible:=false;end;
if aminallist.FieldByName('Number_BlueSingle').Value>0 then begin Label176.Caption:=floattostr(aminallist.FieldByName('Number_BlueSingle').Value); Label176.visible:=true; end else begin Label176.Caption:=''; Label176.visible:=false;end;
if aminallist.FieldByName('Number_BlueDouble').Value>0 then begin Label177.Caption:=floattostr(aminallist.FieldByName('Number_BlueDouble').Value); Label177.visible:=true; end else begin Label177.Caption:=''; Label177.visible:=false;end;
if aminallist.FieldByName('Number_Green').Value>0 then begin Label178.caption:=floattostr(aminallist.FieldByName('Number_Green').Value); Label178.visible:=true; end else begin Label178.Caption:=''; Label178.visible:=false;end;
if aminallist.FieldByName('Number_GreenSingle').Value>0 then begin Label179.Caption:=floattostr(aminallist.FieldByName('Number_GreenSingle').Value); Label179.visible:=true; end else begin Label179.Caption:=''; Label179.visible:=false;end;
if aminallist.FieldByName('Number_GreenDouble').Value>0 then begin Label180.Caption:=floattostr(aminallist.FieldByName('Number_GreenDouble').Value); Label180.visible:=true; end else begin Label180.Caption:=''; Label180.visible:=false;end;
if aminallist.FieldByName('SHut_Single').Value>0 then begin Label182.Caption:=floattostr(aminallist.FieldByName('SHut_Single').Value); Label182.visible:=true; end else begin Label182.Caption:=''; Label182.visible:=false;end;
if aminallist.FieldByName('Shut_Double').Value>0 then begin Label183.Caption:=floattostr(aminallist.FieldByName('Shut_Double').Value); Label183.visible:=true; end else begin Label183.Caption:=''; Label183.visible:=false;end;
//平码数据
if aminallist.FieldByName('Summation_Sigle').Value>0 then begin Label21.Caption:=floattostr(aminallist.FieldByName('Summation_Sigle').Value); Label21.visible:=true; end else begin Label21.Caption:=''; Label21.visible:=false;end;
if aminallist.FieldByName('Summation_Double').Value>0 then begin LabeL22.caption:=floattostr(aminallist.FieldByName('Summation_Double').Value); Label22.visible:=true; end else begin Label22.Caption:=''; Label22.visible:=false;end;
if aminallist.FieldByName('Summation_Big').Value>0 then begin Label23.Caption:=floattostr(aminallist.FieldByName('Summation_Big').Value); Label23.visible:=true; end else begin Label23.Caption:=''; Label23.visible:=false;end;
if aminallist.FieldByName('Summation_Small').Value>0 then begin Label24.Caption:=floattostr(aminallist.FieldByName('Summation_Small').Value); Label24.visible:=true; end else begin Label24.Caption:=''; Label24.visible:=false;end;
if aminallist.FieldByName('ClamSum').Value>0 then begin Label25.Caption:=floattostr(aminallist.FieldByName('ClamSum').Value); Label25.visible:=true; end else begin Label25.Caption:=''; Label25.visible:=false;end;
if aminallist.FieldByName('SpyBunch').Value>0 then begin Label45.Caption:=floattostr(aminallist.FieldByName('SpyBunch').Value); Label45.visible:=true; end else begin Label45.Caption:=''; Label45.visible:=false;end;
if aminallist.FieldByName('RandamBump').Value>0 then begin Label46.Caption:=floattostr(aminallist.FieldByName('RandamBump').Value); Label46.visible:=true; end else begin Label46.Caption:=''; Label46.visible:=false;end;
//if aminallist.FieldByName('TwoHitTwoSingle').Value>0 then begin Label47.Caption:=floattostr(aminallist.FieldByName('TwoHitTwoSingle').Value); Label47.visible:=true; end else begin Label47.Caption:=''; Label47.visible:=false;end;
if aminallist.FieldByName('TwoHitTwoDouble').Value>0 then begin Label48.caption:=floattostr(aminallist.FieldByName('TwoHitTwoDouble').Value); Label48.visible:=true; end else begin Label48.Caption:=''; Label48.visible:=false;end;
if aminallist.FieldByName('ThreeHitTwoSingle').Value>0 then begin Label49.Caption:=floattostr(aminallist.FieldByName('ThreeHitTwoSingle').Value); Label49.visible:=true; end else begin Label49.Caption:=''; Label49.visible:=false;end;
//if aminallist.FieldByName('ThreeHItThreeSingle').Value>0 then begin Label50.Caption:=floattostr(aminallist.FieldByName('ThreeHItThreeSingle').Value); Label50.visible:=true; end else begin Label50.Caption:=''; Label50.visible:=false;end;
if aminallist.FieldByName('ThreeHitThreeDouble').Value>0 then begin Label51.Caption:=floattostr(aminallist.FieldByName('ThreeHitThreeDouble').Value); Label51.visible:=true; end else begin Label51.Caption:=''; Label51.visible:=false;end;
//1-6数据
if aminallist.FieldByName('OneSix_Sigle').Value>0 then begin Label85.Caption:=floattostr(aminallist.FieldByName('OneSix_Sigle').Value); Label85.visible:=true; end else begin Label85.Caption:=''; Label85.visible:=false;end;
if aminallist.FieldByName('OneSix_Double').Value>0 then begin Label86.Caption:=floattostr(aminallist.FieldByName('OneSix_Double').Value); Label86.visible:=true; end else begin Label86.Caption:=''; Label86.visible:=false;end;
if aminallist.FieldByName('OneSix_Big').Value>0 then begin Label95.Caption:=floattostr(aminallist.FieldByName('OneSix_Big').Value); Label95.visible:=true; end else begin Label95.Caption:=''; Label95.visible:=false;end;
if aminallist.FieldByName('OneSix_Small').Value>0 then begin Label96.caption:=floattostr(aminallist.FieldByName('OneSix_Small').Value); Label96.visible:=true; end else begin Label96.Caption:=''; Label96.visible:=false;end;
if aminallist.FieldByName('OneToSixRed').Value>0 then begin Label97.Caption:=floattostr(aminallist.FieldByName('OneToSixRed').Value); Label97.visible:=true; end else begin Label97.Caption:=''; Label97.visible:=false;end;
if aminallist.FieldByName('OneToSixBlue').Value>0 then begin Label98.Caption:=floattostr(aminallist.FieldByName('OneToSixBlue').Value); Label98.visible:=true; end else begin Label98.Caption:=''; Label98.visible:=false;end;
if aminallist.FieldByName('OneToSixGreen').Value>0 then begin Label99.Caption:=floattostr(aminallist.FieldByName('OneToSixGreen').Value); Label99.visible:=true; end else begin Label99.Caption:=''; Label99.visible:=false;end;
if aminallist.FieldByName('SpecialNumMoney').Value>0 then begin Label100.Caption:=floattostr(aminallist.FieldByName('SpecialNumMoney').Value); Label100.visible:=true; end else begin Label100.Caption:=''; Label100.visible:=false;end;
if aminallist.FieldByName('AminalMoney').Value>0 then begin Label52.Caption:=floattostr(aminallist.FieldByName('AminalMoney').Value); Label52.visible:=true; end else begin Label52.Caption:=''; Label52.visible:=false;end;
if aminallist.FieldByName('ClanNumberSum').Value>0 then begin Label209.Caption:=floattostr(aminallist.FieldByName('ClanNumberSum').Value); Label209.visible:=true; end else begin Label209.Caption:=''; Label209.visible:=false;end;
save_main.Close;
OneSixNumberList(Sender);
end;
end;
procedure TNumberSaleNewtwo_form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TNumberSaleNewtwo_form.BitBtn2Click(Sender: TObject);
begin
OneSixListSp.close;
twothere_sp.Close;
close;
end;
procedure TNumberSaleNewtwo_form.FormShow(Sender: TObject);
var
ClientBz:boolean;
begin
Label1.Caption:='';
Label7.Caption:='';
Label10.Caption:='';
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -