calmquery.pas

彩票销售系统

end;

procedure TCalmQueryForm.BitBtn4Click(Sender: TObject);
var
  savestring:string;
  OneSix_PrintForm: TOneSix_PrintForm;
begin
  OneSix_Save.Close;
  OneSix_Save.sql.Clear;
  OneSix_Save.SQL.Add('delete from T_OutOneSix');
  OneSix_Save.ExecSQL;
  OneSix_Save.Close;
  //1-6单
  savestring:='INsert into T_OutOneSix (FSaleName, FSumMoney, FNumber1, FNumber2, FNumber3,FNumber4, FNumber5, FNumber6)' ;
  savestring:=savestring+' Values (:SaleName,:SumMoney,:Number1,:Number2,:Number3,:Number4,:Number5,:Number6)';
  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);
  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6单';
  if Label85.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label85.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label56.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label56.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label101.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label101.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label102.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label102.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label103.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label103.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label104.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label104.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label105.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label105.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6双

  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);
  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6双';
  if Label86.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label86.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label106.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label106.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label107.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label107.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label108.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label108.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label109.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label109.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label110.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label110.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label111.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label111.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6大

  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);

  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6大';
  if Label95.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label95.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label112.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label112.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label113.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label113.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label114.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label114.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label165.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label165.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label181.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label181.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label184.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label184.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6小
  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);

  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6小';
  if Label96.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label96.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label185.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label185.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label186.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label186.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label187.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label187.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label188.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label188.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label189.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label189.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label190.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label190.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6红
  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);

  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6红';
  if Label97.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label97.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label191.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label191.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label192.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label192.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label193.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label193.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label194.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label194.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label195.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label195.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label196.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label196.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6绿
  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);

  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6绿';
  if Label99.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label99.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label197.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label197.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label198.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label198.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label199.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label199.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label200.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label200.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label201.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label201.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label202.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label202.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  //1-6蓝
  OneSix_Save.close;
  OneSix_Save.SQL.Clear;
  OneSix_Save.sql.Add(savestring);

  OneSix_Save.Parameters.ParamByName('SaleName').Value:='1-6蓝';
  if Label98.visible then
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=StrtoFloat(Label98.Caption)
  else
    OneSix_Save.Parameters.ParamByName('SumMoney').Value:=Null;
  if Label203.visible then
    OneSix_Save.Parameters.ParamByName('Number1').Value:=StrtoFloat(Label203.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number1').Value:=Null;
  if Label204.visible then
    OneSix_Save.Parameters.ParamByName('Number2').Value:=StrtoFloat(Label204.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number2').Value:=Null;

  if Label205.visible then
    OneSix_Save.Parameters.ParamByName('Number3').Value:=StrtoFloat(Label205.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number3').Value:=Null;

  if Label206.visible then
    OneSix_Save.Parameters.ParamByName('Number4').Value:=StrtoFloat(Label206.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number4').Value:=Null;
  if Label207.visible then
    OneSix_Save.Parameters.ParamByName('Number5').Value:=StrtoFloat(Label207.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number5').Value:=Null;
  if Label208.visible then
    OneSix_Save.Parameters.ParamByName('Number6').Value:=StrtoFloat(Label208.Caption)
  else
    OneSix_Save.Parameters.ParamByName('Number6').Value:=Null;
  OneSix_Save.ExecSQL;
  OneSix_Save.close;
  OneSix_PrintForm:=TOneSix_PrintForm.Create(application);
end;

end.