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

📄 numbersalenewtwo.~pas

📁 彩票销售系统
💻 ~PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
procedure TNumberSaleNewtwo_form.ClientButton11Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=11;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='11';
  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.ClientButton10Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=10;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='10';
  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.ClientButton9Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=9;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='9';
  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.ClientButton8Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=8;
  EntryId:=-1;
  ClientNameList(Sender);
  ClientWorkList(Sender);
  Label5.Caption:='8';
  Timer1.Enabled:=FALSE;
  Timer1.Interval:=4000;
  Timer1.Enabled:=true;
  TMNumBer_InfList(Sender);
  if edit1.Enabled then  edit1.SetFocus else edit2.SetFocus;
end;

procedure TNumberSaleNewtwo_form.ClientButton7Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=7;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='7';
  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.ClientButton6Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  ClientId:=6;
  EntryId:=-1;
  ClientNameList(Sender);
  Label5.Caption:='6';
  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.TSaveDate(Sender:Tobject);
begin
  if ClientWorkList_Q.FieldByName('录入序号').value<>Null then
    EntryId:=ClientWorkList_Q.FieldByName('录入序号').value
  else
    EntryId:=0;
  //明细操作
    TRY
      NumberMangerMain.NumberManger_Adocon.BeginTrans ;
      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 OneSixInputBz then
      begin
        save_main.Parameters[8].Value:=SaveStr;
      end
      else
      begin
        if edit1.Enabled then
          save_main.Parameters[8].Value:=edit1.Text
        else
          save_main.Parameters[8].Value:=Null;
      end;
      if OneSixInputBz then
        save_main.Parameters[9].Value:=0
      else
        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);
        save_main.Close;
        edit1.SetFocus;
        exit;
      end;
      save_main.Close;
      // 事务提交
      NumberMangerMain.NumberManger_Adocon.CommitTrans;
      TMNumBer_InfList(Sender);
      //更新状态栏
      RadioButton2.Checked:=true;RadioButton3.Checked:=false;
      Label10.Caption:='新增';
      StatusBar1.Panels[3].Text:=Edit2.Text;
      StatusBar1.Panels[1].Text:=edit1.Text;
      edit1.Clear;edit2.Clear;
      ChangeNO:=0;
      if edit1.Enabled then
      BEGIN
        edit1.Color:=clYellow;
        edit2.Color:=clWindow;
        edit1.SetFocus;
      END
      else
      BEGIN
        edit1.Color:=clWindow;
        edit2.Color:=clYellow;
        edit2.SetFocus;
      END;
      ClientWorkList(Sender);
      RadioButton2Click(Sender);
    EXCEPT
      NumberMangerMain.NumberManger_Adocon.RollbackTrans;
      application.MessageBox('数据提交失败。原因：该操作可能引发小于零的金额！','系统提示',MB_ICONERROR);
    END;


end;

procedure TNumberSaleNewtwo_form.BitBtn3Click(Sender: TObject);
begin
  TypeMain:=-1;
  Trantype:=12;
  edit1.Clear;edit1.Enabled:=false; BitBtn45.Enabled:=true;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn3.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn4Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='特双';  BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=13;
  edit2.SetFocus;  edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonColor(Sender);
  ButtonEanble(Sender);
  BitBtn4.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn5Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='特大'; BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=14;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn5.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn6Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='特小';   BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=15;
  edit2.SetFocus;   edit1.Color:=clWindow;   edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn6.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn7Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='特合单';   BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=10;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn7.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn8Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='特合双';    BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=11;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn8.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn9Click(Sender: TObject);
begin
  TypeMain:=-2;
  Label3.Caption:='总分单';   BitBtn45.Enabled:=false;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=38;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn9.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn10Click(Sender: TObject);
begin
  TypeMain:=-2;
  Label3.Caption:='总分双';  BitBtn45.Enabled:=false;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=39;
  edit2.SetFocus;  edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn10.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn11Click(Sender: TObject);
begin
  TypeMain:=-2;
  Label3.Caption:='总分大';  BitBtn45.Enabled:=false;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=40;
  edit2.SetFocus;   edit1.Color:=clWindow;   edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn11.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn13Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='红波'; BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=1;
  edit2.SetFocus;  edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn13.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn14Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='红波单'; BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=2;
  edit2.SetFocus;   edit1.Color:=clWindow;   edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn14.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn15Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='红波双'; BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=3;
  edit2.SetFocus;   edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn15.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn16Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='蓝波'; BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=4;
  edit2.SetFocus;    edit1.Color:=clWindow;  edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn16.Enabled:=FALSE;
end;

procedure TNumberSaleNewtwo_form.BitBtn17Click(Sender: TObject);
begin
  TypeMain:=-1;
  Label3.Caption:='蓝波单';  BitBtn45.Enabled:=true;
  edit1.Clear;edit1.Enabled:=false;
  Trantype:=5;
  edit2.SetFocus;   edit1.Color:=clWindow;   edit2.Color:=clYellow;
  ButtonEanble(Sender);
  BitBtn17.Enab
12345

⌨️ 快捷键说明

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