⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 numbersale.~pas

📁 彩票销售系统
💻 ~PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
  key:=#0;
end;

procedure TNumberSale_Form.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    if ClientId=0 then
    begin
      application.MessageBox('请选择客户！','系统提示',MB_ICONERROR);
      exit;
    end;
    if ((Trantype>1) or (Trantype=22)) and ((Trantype>=28) and (Trantype<=37)) then
    begin
      if edit1.text='' then
      begin
        application.MessageBox('请录入工号！','系统提示',MB_ICONERROR);
        edit1.SetFocus;
        exit;
      end;
    end;
    TSaveDate(Sender);
  end;
  if not (key in ['0'..'9',Chr(8),'.'])  then
  key:=#0;
end;

procedure TNumberSale_Form.FormShow(Sender: TObject);
begin
  aminallist.Close;
  aminallist.SQL.Clear;
  aminallist.SQL.Add('select FAminalId,FAminalName from T_aminal order by FAminalId');
  aminallist.Open;
  while not aminallist.Eof do
  begin
    if aminallist.Fields[0].value=1 then Label6.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=2 then Label82.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=3 then Label83.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=4 then Label84.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=5 then Label87.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=6 then Label88.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=7 then Label89.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=8 then Label90.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=9 then Label91.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=10 then Label92.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=11 then Label93.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=12 then Label94.Caption:= aminallist.Fields[1].value;
    aminallist.next;
  end;
  aminallist.Close;
  aminallist.SQL.Clear;
  aminallist.SQL.Add('select FClientid,FVisible from T_Client order by FClientid');
  aminallist.Open;
  if aminallist.RecordCount <1 then
  begin
    application.MessageBox('无客户信息，请设置客户信息！','系统提示',MB_ICONERROR);
    close;
  end
  else
  begin
    while not aminallist.Eof do
    begin
      if aminallist.Fields[1].asboolean=true then
      begin
        if aminallist.Fields[0].value=1 then ClientButton1.Visible:=true;
        if aminallist.Fields[0].value=2 then ClientButton2.Visible:=true;
        if aminallist.Fields[0].value=3 then ClientButton3.Visible:=true;
        if aminallist.Fields[0].value=4 then ClientButton4.Visible:=true;
        if aminallist.Fields[0].value=5 then ClientButton5.Visible:=true;
        if aminallist.Fields[0].value=6 then ClientButton6.Visible:=true;
        if aminallist.Fields[0].value=7 then ClientButton7.Visible:=true;
        if aminallist.Fields[0].value=8 then ClientButton8.Visible:=true;
        if aminallist.Fields[0].value=9 then ClientButton9.Visible:=true;
        if aminallist.Fields[0].value=10 then ClientButton10.Visible:=true;
        if aminallist.Fields[0].value=11 then ClientButton11.Visible:=true;
        if aminallist.Fields[0].value=12 then ClientButton12.Visible:=true;
        if aminallist.Fields[0].value=13 then ClientButton13.Visible:=true;
        if aminallist.Fields[0].value=14 then ClientButton14.Visible:=true;
        if aminallist.Fields[0].value=15 then ClientButton15.Visible:=true;
        if aminallist.Fields[0].value=16 then ClientButton16.Visible:=true;
        if aminallist.Fields[0].value=17 then ClientButton17.Visible:=true;
        if aminallist.Fields[0].value=18 then ClientButton18.Visible:=true;
        if aminallist.Fields[0].value=19 then ClientButton19.Visible:=true;
        if aminallist.Fields[0].value=20 then ClientButton20.Visible:=true;
        ClientBz:=true;
      end;
      aminallist.Next;
    end;
  end;
  if not ClientBz then
  begin
    application.MessageBox('无可用的客户信息，请设置客户信息！','系统提示',MB_ICONERROR);
    //close;
  end;
  RadioButton1Click(sender);
end;

procedure TNumberSale_Form.HotKeyDown(var Msg: Tmessage);
var
    H: THandle;
    function GetFocusWnd: HWND;
    var
        Wnd: HWND;
    begin
        Result := 0;
        Wnd := GetForegroundWindow;
        if AttachThreadInput(GetCurrentThreadID, GetWindowThreadProcessID(Wnd, nil), true) then {//附加线程，关键之处！} begin
            Wnd := GetFocus;
            AttachThreadInput(GetCurrentThreadID, GetWindowThreadProcessID(Wnd, nil), false); //脱离线程
            Result := Wnd;
        end;
    end;
begin
    if (Msg.LparamLo = MOD_ALT) and (Msg.LParamHi = VK_F8) then begin // 假设热键为ALT+F8
      showmessage('F8');
      PostMessage(H, WM_PASTE, 0, 0);
    end;
    if (Msg.LparamLo = MOD_ALT) and (Msg.LParamHi = VK_F9) then begin // 假设热键为ALT+F8
       showmessage('ok');
       PostMessage(H, WM_PASTE, 0, 0);
    end;
end;


procedure TNumberSale_Form.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, HotKeyId); //注销HotKey, 释放资源。
  DeleteAtom(HotKeyId);
  UnRegisterHotKey(Handle, HotKeyId_1); //注销HotKey, 释放资源。
  DeleteAtom(HotKeyId_1);
end;



procedure TNumberSale_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)+'''';
    sql_str:=sql_str+' and FBillerId='''+floattostr(BillerId)+'''';
    aminallist.Close;
    aminallist.SQL.Clear;
    aminallist.SQL.Add(sql_str);
    aminallist.Open;
    //数据回显 20051117 START
    if aminallist.FieldByName('Number_1_money').Value>0 then begin Label115.Caption:=floattostr(aminallist.FieldByName('Number_1_money').Value); Label115.visible:=true; end else begin Label115.Caption:=''; Label115.visible:=false;end;
    if aminallist.FieldByName('Number_2_money').Value>0 then begin Label116.Caption:=floattostr(aminallist.FieldByName('Number_2_money').Value); Label116.visible:=true; end else begin Label116.Caption:=''; Label116.visible:=false;end;
    if aminallist.FieldByName('Number_3_money').Value>0 then begin Label117.Caption:=floattostr(aminallist.FieldByName('Number_3_money').Value); Label117.visible:=true; end else begin Label117.Caption:=''; Label117.visible:=false;end;
    if aminallist.FieldByName('Number_4_money').Value>0 then begin Label118.Caption:=floattostr(aminallist.FieldByName('Number_4_money').Value); Label118.visible:=true; end else begin Label118.Caption:=''; Label118.visible:=false;end;
    if aminallist.FieldByName('Number_5_money').Value>0 then begin Label119.Caption:=floattostr(aminallist.FieldByName('Number_5_money').Value); Label119.visible:=true; end else begin Label119.Caption:=''; Label119.visible:=false;end;
    if aminallist.FieldByName('Number_6_money').Value>0 then begin Label120.Caption:=floattostr(aminallist.FieldByName('Number_6_money').Value); Label120.visible:=true; end else begin Label120.Caption:=''; Label120.visible:=false;end;
    if aminallist.FieldByName('Number_7_money').Value>0 then begin Label121.Caption:=floattostr(aminallist.FieldByName('Number_7_money').Value); Label121.visible:=true; end else begin Label121.Caption:=''; Label121.visible:=false;end;
    if aminallist.FieldByName('Number_8_money').Value>0 then begin Label122.Caption:=floattostr(aminallist.FieldByName('Number_8_money').Value); Label122.visible:=true; end else begin Label122.Caption:=''; Label122.visible:=false;end;
    if aminallist.FieldByName('Number_9_money').Value>0 then begin Label123.Caption:=floattostr(aminallist.FieldByName('Number_9_money').Value); Label123.visible:=true; end else begin Label123.Caption:=''; Label123.visible:=false;end;
    if aminallist.FieldByName('Number_10_money').Value>0 then begin Label124.Caption:=floattostr(aminallist.FieldByName('Number_10_money').Value); Label124.visible:=true; end else begin Label124.Caption:=''; LabeL124.visible:=false;end;
    if aminallist.FieldByName('Number_11_money').Value>0 then begin Label125.Caption:=floattostr(aminallist.FieldByName('Number_11_money').Value); Label125.visible:=true; end else begin Label125.Caption:=''; LabeL125.visible:=false;end;
    if aminallist.FieldByName('Number_12_money').Value>0 then begin Label126.Caption:=floattostr(aminallist.FieldByName('Number_12_money').Value); Label126.visible:=true; end else begin Label126.Caption:=''; Label126.visible:=false;end;
    if aminallist.FieldByName('Number_13_money').Value>0 then begin Label127.Caption:=floattostr(aminallist.FieldByName('Number_13_money').Value); Label127.visible:=true; end else begin Label127.Caption:=''; Label127.visible:=false;end;
    if aminallist.FieldByName('Number_14_money').Value>0 then begin Label128.Caption:=floattostr(aminallist.FieldByName('Number_14_money').Value); Label128.visible:=true; end else begin Label128.Caption:=''; Label128.visible:=false;end;
    if aminallist.FieldByName('Number_15_money').Value>0 then begin Label129.Caption:=floattostr(aminallist.FieldByName('Number_15_money').Value); Label129.visible:=true; end else begin Label129.Caption:=''; Label129.visible:=false;end;
    if aminallist.FieldByName('Number_16_money').Value>0 then begin Label130.Caption:=floattostr(aminallist.FieldByName('Number_16_money').Value); Label130.visible:=true; end else begin Label130.Caption:=''; Label130.visible:=false;end;
    if aminallist.FieldByName('Number_17_money').Value>0 then begin Label131.Caption:=floattostr(aminallist.FieldByName('Number_17_money').Value); Label131.visible:=true; end else begin Label131.Caption:=''; Label131.visible:=false;end;
    if aminallist.FieldByName('Number_18_money').Value>0 then begin Label132.Caption:=floattostr(aminallist.FieldByName('Number_18_money').Value); Label132.visible:=true; end else begin Label132.Caption:=''; Label132.visible:=false;end;
    if aminallist.FieldByName('Number_19_money').Value>0 then begin Label133.Caption:=floattostr(aminallist.FieldByName('Number_19_money').Value); Label133.visible:=true; end else begin Label133.Caption:=''; Label133.visible:=false;end;
    if aminallist.FieldByName('Number_20_money').Value>0 then begin Label134.Caption:=floattostr(aminallist.FieldByName('Number_20_money').Value); Label134.visible:=true; end else begin Label134.Caption:=''; Label134.visible:=false;end;
    if aminallist.FieldByName('Number_21_money').Value>0 then begin Label135.Caption:=floattostr(aminallist.FieldByName('Number_21_money').Value); Label135.visible:=true; end else begin Label135.Caption:=''; Label135.visible:=false;end;
    if aminallist.FieldByName('Number_22_money').Value>0 then begin Label136.Caption:=floattostr(aminallist.FieldByName('Number_22_money').Value); Label136.visible:=true; end else begin Label136.Caption:=''; Label136.visible:=false;end;
    if aminallist.FieldByName('Number_23_money').Value>0 then begin Label137.Caption:=floattostr(aminallist.FieldByName('Number_23_money').Value); Label137.visible:=true; end else begin Label137.Caption:=''; Label137.visible:=false;end;
    if aminallist.FieldByName('Number_24_money').Value>0 then begin Label138.Caption:=floattostr(aminallist.FieldByName('Number_24_money').Value); Label138.visible:=true; end else begin Label138.Caption:=''; Label138.visible:=false;end;
    if aminallist.FieldByName('Number_25_money').Value>0 then begin Label139.Caption:=floattostr(aminallist.FieldByName('Number_25_money').Value); Label139.visible:=true; end else begin Label139.Caption:=''; Label139.visible:=false;end;
    if aminallist.FieldByName('Number_26_money').Value>0 then begin Label140.Caption:=floattostr(aminallist.FieldByName('Number_26_money').Value); Label140.visible:=true; end else begin Label140.Caption:=''; Label140.visible:=false;end;
    if aminallist.FieldByName('Number_27_money').Value>0 then begin Label141.Caption:=floattostr(aminallist.FieldByName('Number_27_money').Value); Label141.visible:=true; end else begin Label141.Caption:=''; Label141.visible:=false;end;
    if aminallist.FieldByName('Number_28_money').Value>0 then begin Label142.Caption:=floattostr(aminallist.FieldByName('Number_28_money').Value); Label142.visible:=true; end else begin Label142.Caption:=''; Label142.visible:=false;end;
    if aminallist.FieldByName('Number_29_money').Value>0 then begin Label143.Caption:=floattostr(aminallist.FieldByName('Number_29_money').Value); Label143.visible:=true; end else begin Label143.Caption:=''; Label143.visible:=false;end;
    if aminallist.FieldByName('Number_30_money').Value>0 then begin Label144.Caption:=floattostr(aminallist.FieldByName('Number_30_money').Value); Label144.visible:=true; end else begin Label144.Caption:=''; Label144.visible:=false;end;
    if aminallist.FieldByName('Number_31_money').Value>0 then begin Label145.Caption:=floattostr(aminallist.FieldByName('Number_31_money').Value); Label145.visible:=true; end else begin Label145.Caption:=''; Label145.visible:=false;end;
    if aminallist.FieldByName('Number_32_money').Value>0 then begin Label146.Caption:=floattostr(aminallist.FieldByName('Number_32_money').Value); Label146.visible:=true; end else begin Label146.Caption:=''; Label146.visible:=false;end;
    if aminallist.FieldByName('Number_33_money').Value>0 then begin Label147.Caption:=floattostr(aminallist.FieldByName('Number_33_money').Value); Label147.visible:=true; end else begin Label147.Caption:=''; Label147.visible:=false;end;
    if aminallist.FieldByName('Number_34_money').Value>0 then begin Label148.Caption:=floattostr(aminallist.FieldByName('Number_34_money').Value); Label148.visible:=true; end else begin Label148.Caption:=''; Label148.visible:=false;end;
    if aminallist.FieldByName('Number_35_money').Value>0 then begin Label149.Caption:=floattostr(aminallist.FieldByName('Number_35_money').Value); Label149.visible:=true; end else begin Label149.Caption:=''; Label149.visible:=false;end;
    if aminallist.FieldByName('Number_36_money').Value>0 then begin Label150.Caption:=floattostr(aminallist.FieldByName('Number_36_money').Value); Label150.visible:=true; end else begin Label150.Caption:=''; Label150.visible:=false;end;
    if aminallist.FieldByName('Number_37_money').Value>0 then begin Label151.Caption:=floattostr(aminallist.FieldByName('Number_37_money').Value); Label151.visible:=true; end else begin Label151.Caption:=''; Label151.visible:=false;end;
    if aminallist.FieldByName('Number_38_money').Value>0 then begin Label152.Caption:=floattostr(aminallist.FieldByName('Number_38_money').Value); Label152.visible:=true; end else begin Label152.Caption:=''; Label152.visible:=false;end;
    if aminallist.FieldByName('Number_39_money').Value>0 then begin Label153.Caption:=floattostr(aminallist.FieldByName('Number_39_money').Value); Label153.visible:=true; end else begin Label153.Caption:=''; Label153.visible:=false;end;
    if aminallist.FieldByName('Number_40_money').Value>0 then begin Label154.Caption:=floattostr(aminallist.FieldByName('Number_40_money').Value); Label154.visible:=true; end else begin Label154.Caption:=''; Label154.visible:=false;end;
    if aminallist.FieldByName('Number_41_money').Value>0 then begin Label155.Caption:=floattostr(aminallist.FieldByName('Number_41_money').Value); Label155.visible:=true; end else begin Label155.Caption:=''; Label155.visible:=false;end;
    if aminallist.FieldByName('Number_42_money').Value>0 then begin Label156.Caption:=floattostr(aminallist.FieldByName('Number_42_money').Value); Label156.visible:=true; end else begin Label156.Caption:=''; Label156.visible:=false;end;
    if aminallist.FieldByName('Number_43_money').Value>0 then begin Label157.Caption:=floattostr(aminallist.FieldByName('Number_43_money').Value); Label157.visible:=true; end else begin Label157.Caption:=''; Label157.visible:=false;end;
    if aminallist.FieldByName('Number_44_money').Value>0 then begin Label158.Caption:=floattostr(aminallist.FieldByName('Number_44_money').Value); Label158.visible:=true; end else begin Label158.Caption:=''; Label158.visible:=false;end;
    if aminallist.FieldByName('Number_45_money').Value>0 then begin Label159.Caption:=floattostr(aminallist.FieldByName('Number_45_money').Value); Label159.visible:=true; end else begin Label159.Caption:=''; Label159.visible:=false;end;
    if aminallist.FieldByName('Number_46_money').Value>0 then begin Label160.Caption:=floattostr(aminallist.FieldByName('Number_46_money').Value); Label160.visible:=true; end else begin Label160.Caption:=''; Label160.visible:=false;end;
    if aminallist.FieldByName('Number_47_money').Value>0 then begin Label161.Caption:=floattostr(aminallist.FieldByName('Number_47_money').Value); Label161.visible:=true; end else begin Label161.Caption:=''; Label161.visible:=false;end;
    if aminallist.FieldByName('Number_48_money').Value>0 then begin Label162.Caption:=floattostr(aminallist.FieldByName('Number_48_money').Value); Label162.visible:=true; end else begin Label162.Caption:=''; Label162.visible:=false;end;
    if aminallist.FieldByName('Number_49_money').Value>0 then begin Label163.Caption:=floattostr(aminallist.FieldByName('Number_49_money').Value); Label163.visible:=true; end else begin Label163.Caption:=''; Label163.visible:=false;end;
    if aminallist.FieldByName('Number_Sum_money').Value>0 then begin Label164.Caption:=floattostr(aminallist.FieldByName('Number_Sum_money').Value); Label164.visible:=true; end else begin Label164.Caption:=''; Label164.visible:=false;end;
    if aminallist.FieldByName('Number_Avg_money').Value>0 then begin Label165.Caption:=floattostr(aminallist.FieldByName('Number_Avg_money').Value); Label165.visible:=true; end else begin Label165.Caption:=''; Label165.visible:=false;end;
    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('Number_GreenSingle').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('Number_GreenDouble').Value); Label183.visible:=true; end else begin Label183.Caption:=''; Label183.visible:=false;end;
    save_main.Close;
  end
  else
  begin
    NumberTotal_sp.Close;
    NumberTotal_sp.Parameters[1].value:=SalePeriod;
    NumberTotal_sp.Open;
    //数据回显 20051117 START
    if NumberTotal_sp.FieldByName('Number_1_money').Value>0 then begin Label115.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_1_money').Value); Label115.visible:=true; end else begin Label115.Caption:=''; Label115.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_2_money').Value>0 then begin Label116.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_2_money').Value); Label116.visible:=true; end else begin Label116.Caption:=''; Label116.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_3_money').Value>0 then begin Label117.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_3_money').Value); Label117.visible:=true; end else begin Label117.Caption:=''; Label117.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_4_money').Value>0 then begin Label118.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_4_money').Value); Label118.visible:=true; end else begin Label118.Caption:=''; Label118.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_5_money').Value>0 then begin Label119.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_5_money').Value); Label119.visible:=true; end else begin Label119.Caption:=''; Label119.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_6_money').Value>0 then begin Label120.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_6_money').Value); Label120.visible:=true; end else begin Label120.Caption:=''; Label120.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_7_money').Value>0 then begin Label121.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_7_money').Value); Label121.visible:=true; end else begin Label121.Caption:=''; Label121.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_8_money').Value>0 then begin Label122.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_8_money').Value); Label122.visible:=true; end else begin Label122.Caption:=''; Label122.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_9_money').Value>0 then begin Label123.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_9_money').Value); Label123.visible:=true; end else begin Label123.Caption:=''; Label123.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_10_money').Value>0 then begin Label124.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_10_money').Value); Label124.visible:=true; end else begin Label124.Caption:=''; LabeL124.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_11_money').Value>0 then begin Label125.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_11_money').Value); Label125.visible:=true; end else begin Label125.Caption:=''; LabeL125.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_12_money').Value>0 then begin Label126.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_12_money').Value); Label126.visible:=true; end else begin Label126.Caption:=''; Label126.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_13_money').Value>0 then begin Label127.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_13_money').Value); Label127.visible:=true; end else begin Label127.Caption:=''; Label127.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_14_money').Value>0 then begin Label128.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_14_money').Value); Label128.visible:=true; end else begin Label128.Caption:=''; Label128.visible:=false;end;
    if NumberTotal_sp.FieldByName('Number_15_money').Value>0 then begin Label129.Caption:=floattostr(NumberTotal_sp.FieldByName('Number_15_money').Value); Label129.visible:=true; end else begin Label129.Caption:=''; Label129.visible:=false;end;
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -