numbersale.~pas

彩票销售系统

    if NumberTotal_sp.FieldByName('Number_16_money').Value>0 then begin Label130.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_16_money').Value); Label130.visible:=true; end else begin Label130.Caption:=''; Label130.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_17_money').Value>0 then begin Label131.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_17_money').Value); Label131.visible:=true; end else begin Label131.Caption:=''; Label131.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_18_money').Value>0 then begin Label132.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_18_money').Value); Label132.visible:=true; end else begin Label132.Caption:=''; Label132.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_19_money').Value>0 then begin Label133.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_19_money').Value); Label133.visible:=true; end else begin Label133.Caption:=''; Label133.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_20_money').Value>0 then begin Label134.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_20_money').Value); Label134.visible:=true; end else begin Label134.Caption:=''; Label134.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_21_money').Value>0 then begin Label135.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_21_money').Value); Label135.visible:=true; end else begin Label135.Caption:=''; Label135.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_22_money').Value>0 then begin Label136.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_22_money').Value); Label136.visible:=true; end else begin Label136.Caption:=''; Label136.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_23_money').Value>0 then begin Label137.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_23_money').Value); Label137.visible:=true; end else begin Label137.Caption:=''; Label137.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_24_money').Value>0 then begin Label138.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_24_money').Value); Label138.visible:=true; end else begin Label138.Caption:=''; Label138.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_25_money').Value>0 then begin Label139.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_25_money').Value); Label139.visible:=true; end else begin Label139.Caption:=''; Label139.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_26_money').Value>0 then begin Label140.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_26_money').Value); Label140.visible:=true; end else begin Label140.Caption:=''; Label140.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_27_money').Value>0 then begin Label141.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_27_money').Value); Label141.visible:=true; end else begin Label141.Caption:=''; Label141.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_28_money').Value>0 then begin Label142.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_28_money').Value); Label142.visible:=true; end else begin Label142.Caption:=''; Label142.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_29_money').Value>0 then begin Label143.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_29_money').Value); Label143.visible:=true; end else begin Label143.Caption:=''; Label143.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_30_money').Value>0 then begin Label144.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_30_money').Value); Label144.visible:=true; end else begin Label144.Caption:=''; Label144.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_31_money').Value>0 then begin Label145.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_31_money').Value); Label145.visible:=true; end else begin Label145.Caption:=''; Label145.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_32_money').Value>0 then begin Label146.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_32_money').Value); Label146.visible:=true; end else begin Label146.Caption:=''; Label146.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_33_money').Value>0 then begin Label147.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_33_money').Value); Label147.visible:=true; end else begin Label147.Caption:=''; Label147.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_34_money').Value>0 then begin Label148.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_34_money').Value); Label148.visible:=true; end else begin Label148.Caption:=''; Label148.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_35_money').Value>0 then begin Label149.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_35_money').Value); Label149.visible:=true; end else begin Label149.Caption:=''; Label149.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_36_money').Value>0 then begin Label150.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_36_money').Value); Label150.visible:=true; end else begin Label150.Caption:=''; Label150.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_37_money').Value>0 then begin Label151.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_37_money').Value); Label151.visible:=true; end else begin Label151.Caption:=''; Label151.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_38_money').Value>0 then begin Label152.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_38_money').Value); Label152.visible:=true; end else begin Label152.Caption:=''; Label152.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_39_money').Value>0then begin Label153.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_39_money').Value); Label153.visible:=true; end else begin Label153.Caption:=''; Label153.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_40_money').Value>0 then begin Label154.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_40_money').Value); Label154.visible:=true; end else begin Label154.Caption:=''; Label154.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_41_money').Value>0 then begin Label155.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_41_money').Value); Label155.visible:=true; end else begin Label155.Caption:=''; Label155.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_42_money').Value>0 then begin Label156.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_42_money').Value); Label156.visible:=true; end else begin Label156.Caption:=''; Label156.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_43_money').Value>0 then begin Label157.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_43_money').Value); Label157.visible:=true; end else begin Label157.Caption:=''; Label157.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_44_money').Value>0 then begin Label158.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_44_money').Value); Label158.visible:=true; end else begin Label158.Caption:=''; Label158.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_45_money').Value>0 then begin Label159.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_45_money').Value); Label159.visible:=true; end else begin Label159.Caption:=''; Label159.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_46_money').Value>0 then begin Label160.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_46_money').Value); Label160.visible:=true; end else begin Label160.Caption:=''; Label160.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_47_money').Value>0 then begin Label161.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_47_money').Value); Label161.visible:=true; end else begin Label161.Caption:=''; Label161.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_48_money').Value>0 then begin Label162.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_48_money').Value); Label162.visible:=true; end else begin Label162.Caption:=''; Label162.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_49_money').Value>0 then begin Label163.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_49_money').Value); Label163.visible:=true; end else begin Label163.Caption:=''; Label163.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Sum_money').Value>0 then begin Label164.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_Sum_money').Value); Label164.visible:=true; end else begin Label164.Caption:=''; Label164.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Avg_money').Value>0 then begin Label165.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_Avg_money').Value); Label165.visible:=true; end else begin Label165.Caption:=''; Label165.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Single').Value>0 then begin Label168.caption:=floattostr(NumberTotal_sp.FieldByName('Number_Single').Value); Label168.visible:=true; end else begin Label168.Caption:=''; Label168.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Double').Value>0 then begin Label169.caption:=floattostr(NumberTotal_sp.FieldByName('Number_Double').Value); Label169.visible:=true; end else begin Label169.Caption:=''; Label169.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Big').Value>0 then begin Label170.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_Big').Value); Label170.visible:=true; end else begin Label170.Caption:=''; Label170.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Small').Value>0 then begin LabeL171.caption:=floattostr(NumberTotal_sp.FieldByName('Number_Small').Value); Label171.visible:=true; end else begin Label171.Caption:=''; Label171.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Red').Value>0 then begin Label172.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_Red').Value); Label172.visible:=true; end else begin Label172.Caption:=''; Label172.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_RedSingle').Value>0 then begin Label173.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_RedSingle').Value); Label173.visible:=true; end else begin Label173.Caption:=''; Label173.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_RedDouble').Value>0 then begin Label174.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_RedDouble').Value); Label174.visible:=true; end else begin Label174.Caption:=''; Label174.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Blue').Value>0 then begin Label175.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_Blue').Value); Label175.visible:=true; end else begin Label175.Caption:=''; Label175.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_BlueSingle').Value>0 then begin Label176.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_BlueSingle').Value); Label176.visible:=true; end else begin Label176.Caption:=''; Label176.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_BlueDouble').Value>0 then begin Label177.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_BlueDouble').Value); Label177.visible:=true; end else begin Label177.Caption:=''; Label177.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_Green').Value>0 then begin Label178.caption:=floattostr(NumberTotal_sp.FieldByName('Number_Green').Value); Label178.visible:=true; end else begin Label178.Caption:=''; Label178.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_GreenSingle').Value>0 then begin Label179.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_GreenSingle').Value); Label179.visible:=true; end else begin Label179.Caption:=''; Label179.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_GreenDouble').Value>0 then begin Label180.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_GreenDouble').Value); Label180.visible:=true; end else begin Label180.Caption:=''; Label180.visible:=false;end;
    if NumberTotal_sp.FieldByName('SHut_Single').Value>0 then begin Label182.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_GreenSingle').Value); Label182.visible:=true; end else begin Label182.Caption:=''; Label182.visible:=false;end;
    if NumberTotal_sp.FieldByName('Shut_Double').Value>0 then begin Label183.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_GreenDouble').Value); Label183.visible:=true; end else begin Label183.Caption:=''; Label183.visible:=false;end;
    NumberTotal_sp.Close;
  end;
end;

procedure TNumberSale_Form.ClientButton1Click(Sender: TObject);
begin
  ClientId:=1;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton2Click(Sender: TObject);
begin
  ClientId:=2;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton3Click(Sender: TObject);
begin
  ClientId:=3;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton4Click(Sender: TObject);
begin
  ClientId:=4;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton5Click(Sender: TObject);
begin
  ClientId:=5;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton6Click(Sender: TObject);
begin
  ClientId:=6;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton7Click(Sender: TObject);
begin
  ClientId:=7;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton8Click(Sender: TObject);
begin
  ClientId:=8;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton9Click(Sender: TObject);
begin
  ClientId:=9;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton10Click(Sender: TObject);
begin
  ClientId:=10;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton11Click(Sender: TObject);
begin
  ClientId:=11;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton12Click(Sender: TObject);
begin
  ClientId:=12;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton13Click(Sender: TObject);
begin
  ClientId:=13;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton14Click(Sender: TObject);
begin
  ClientId:=14;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton15Click(Sender: TObject);
begin
  ClientId:=15;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton16Click(Sender: TObject);
begin
  ClientId:=16;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton17Click(Sender: TObject);
begin
  ClientId:=17;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton18Click(Sender: TObject);
begin
  ClientId:=18;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton19Click(Sender: TObject);
begin
  ClientId:=19;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButton20Click(Sender: TObject);
begin
  ClientId:=20;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.ClientButtonAllClick(Sender: TObject);
begin
  ClientId:=0;
  TMNumBer_InfList(Sender);
end;

procedure TNumberSale_Form.TSaveDate(Sender:Tobject);
begin
  save_main.Close;
  save_main.Parameters[1].Value:=saleperiod;
  save_main.Parameters[2].Value:=dlUserMain;
  save_main.Parameters[3].Value:=ClientId;
  save_main.Parameters[4].Value:=MainType;
  save_main.Parameters[5].Value:=TypeMain;
  save_main.Parameters[6].Value:=Trantype;
  save_main.Parameters[7].Value:=0;
  if ((Trantype>1) or (Trantype=22)) and ((Trantype>=28) and (Trantype<=37)) then
  begin
    save_main.Parameters[8].Value:=edit1.Text;
  end
  else
  begin
    save_main.Parameters[8].Value:=Null ;
  end;

  save_main.Parameters[9].Value:=edit2.Text;
  save_main.Parameters[10].Value:=Null;
  save_main.Parameters[11].Value:=Null;
  save_main.Prepared;
  save_main.ExecProc;
  if save_main.Parameters[11].Value<>Null then
  begin
    showmessage(save_main.Parameters[11].Value);
    edit1.SetFocus;
    exit;
  end;
  save_main.Close;
  TMNumBer_InfList(Sender);
  //更新状态栏
  if radiobutton1.Checked then
    StatusBar1.Panels[1].Text:=TypeName
  else
    StatusBar1.Panels[1].Text:=TypeName;
  if radiobutton1.Checked then
    StatusBar1.Panels[5].Text:='新增--'+TypeName
  else
    StatusBar1.Panels[5].Text:='翻工--'+TypeName;
  StatusBar1.Panels[7].Text:=edit1.Text;
  edit1.Clear;edit2.Clear;
  if (Trantype>=0) or ((Trantype<=17) or (Trantype>=38)) then
  begin
    edit1.Clear;edit1.Enabled:=false ; edit2.SetFocus;
  end
  else
  begin
   edit1.Clear; edit1.Enabled:=true ;Edit1.SetFocus;
  end;
end;

end.