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

📄 numbersalenewtwo.pas

📁 彩票销售系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
  Label3.Caption:='';
  ChangeNO:=0;
  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 bitbtn59.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=2 then bitbtn60.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=3 then bitbtn62.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=4 then bitbtn61.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=5 then bitbtn63.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=6 then bitbtn64.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=7 then bitbtn65.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=8 then bitbtn66.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=9 then bitbtn67.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=10 then bitbtn68.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=11 then bitbtn69.Caption:= aminallist.Fields[1].value;
    if aminallist.Fields[0].value=12 then bitbtn70.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;

  Trantype:=-10;
  if not SupperUserBz then
  begin
    bitbtn54.Enabled:=false;
  end;
  RadioButton2Click(Sender);
  Timer1.Enabled:=true;
  MainType:=1;
  BitBtn45.Enabled:=false;
end;

procedure TNumberSaleNewtwo_form.FormCreate(Sender: TObject);
begin
   Label164.Caption:=''; 
  Label168.Caption:=''; Label168.visible:=false;
  Label169.Caption:=''; Label169.visible:=false;
  Label170.Caption:=''; Label170.visible:=false;
  Label171.Caption:=''; Label171.visible:=false;
  Label172.Caption:=''; Label172.visible:=false;
  Label173.Caption:=''; Label173.visible:=false;
  Label174.Caption:=''; Label174.visible:=false;
  Label175.Caption:=''; Label175.visible:=false;
  Label176.Caption:=''; Label176.visible:=false;
  Label177.Caption:=''; Label177.visible:=false;
  Label178.Caption:=''; Label178.visible:=false;
  Label179.Caption:=''; Label179.visible:=false;
  Label180.Caption:=''; Label180.visible:=false;
  Label182.Caption:=''; Label182.visible:=false;
  Label183.Caption:=''; Label183.visible:=false;
  Label21.Caption:=''; Label21.visible:=false;
  Label22.Caption:=''; Label22.visible:=false;
  Label23.Caption:=''; Label23.visible:=false;
  Label24.Caption:=''; Label24.visible:=false;
  Label25.Caption:=''; Label25.visible:=false;
  Label45.Caption:=''; Label45.visible:=false;
  Label46.Caption:=''; Label46.visible:=false;
  Label48.Caption:=''; Label48.visible:=false;
  Label49.Caption:=''; Label49.visible:=false;
  Label51.Caption:=''; Label51.visible:=false;
  Label52.Caption:=''; Label52.visible:=false;
  Label100.Caption:=''; Label100.visible:=false;
  Label209.Caption:=''; Label209.visible:=false;
  OneSixLabelList(Sender);
  Application.OnMessage:=OnMouseWheel; // 截获鼠标滚动事件
  EntryId:=0;
end;

procedure TNumberSaleNewtwo_form.ClientButton1Click(Sender: TObject);
begin
  ClientId:=1;
  EntryId:=-1;
  Label5.Caption:='1';
  ClientNameList(Sender);
  ClientWorkList(Sender);
  Timer1.Enabled:=true;
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton2Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=2;
  EntryId:=-1;
  Label5.Caption:='2';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton3Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=3;
  EntryId:=-1;
  Label5.Caption:='3';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton4Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=4;
  EntryId:=-1;
  Label5.Caption:='4';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton5Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=5;
  EntryId:=-1;
  Label5.Caption:='5';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton20Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=20;
  EntryId:=-1;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  Label5.Caption:='20';
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton19Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=19;
  EntryId:=-1;
  Label5.Caption:='19';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton18Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=18;
  EntryId:=-1;
  Label5.Caption:='18';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton17Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=17;
  EntryId:=-1;
  Label5.Caption:='17';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton16Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=16;
  EntryId:=-1;
  Label5.Caption:='16';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton15Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=15;
  EntryId:=-1;
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  Label5.Caption:='15';
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton14Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=14;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='14';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton13Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=13;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='13';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton12Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=12;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='客户12';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=TRUE;
  ClientWorkList(Sender);
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;
12345

⌨️ 快捷键说明

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