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

📄 u_bgd.~pas

📁 相关的销售服务管理行业的一个软件
💻 ~PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
      with DM.ADOQueryBGDChild do
      begin
        close;
        SQL.Clear;
        SQL.Add('select * from xs_BGDChild where DingDanNo='''+DBEditDingDanNo.Text+''' ');
        Open;
      end;
    end;
   // Dm.ADOTableBGD.Cancel;
  end;
end;

procedure TF_BGD.DBEdit24KeyPress(Sender: TObject; var Key: Char);
begin
   if not(key in ['0'..'9',#8,','])  then
    key:=#0;
end;

procedure TF_BGD.DBEdit25KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9',#8,',','.'])  then
    key:=#0;
  
end;

procedure TF_BGD.DBEdit26KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,',','.'])  then
    key:=#0;

end;

procedure TF_BGD.DBEditDingDanNoKeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit2.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit3.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DateTimePicker3.SetFocus
   else
    exit;
end;

procedure TF_BGD.DateTimePicker3KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit4.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBComboBox1.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit7.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit5.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit40.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit40KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBcombobox2.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit11.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DateTimePicker1.SetFocus
   else
    exit;
end;

procedure TF_BGD.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBcombobox3.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit8.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBcombobox4.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox4KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit1.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit13KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBComboBox5.SetFocus
   else
    exit;

end;

procedure TF_BGD.DBComboBox5KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBedit22.SetFocus
   else
    exit;

end;

procedure TF_BGD.DBEdit22KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit27.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit19KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEDIT20.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox6KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit16.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit16KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit17.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit28.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit20KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit21.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit17KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBcombobox7.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBComboBox7KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit19.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit28KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit29.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit21KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit22.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit24.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit23KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit25.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit30KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit32.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit32KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit31.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit31KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit33.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit33KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit34.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit34KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBEdit35.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
{if DBmemo1.ReadOnly=false then
   if key = #13 then
     DBmemo2.SetFocus
   else
    exit;}
end;

procedure TF_BGD.DBEdit24KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 13 then
     DBEdit23.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit25KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 13 then
     DBEdit26.SetFocus
   else
    exit;
end;

procedure TF_BGD.DBEdit26KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = 13 then
     DBEdit30.SetFocus
   else
    exit;
end;

procedure TF_BGD.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if SpeedButton2.Enabled then
   if  (Application.MessageBox('数据尚未保存，是否保存'+#13+'该数据并退出应用程序？','提示',4+32)=IDYes) then
    SpeedButton2Click(self)
   else begin
      with DM.ADOQueryBGDChild do
        begin //003
          Close;
          SQL.Clear;
          SQL.Add('delete from xs_BGDChild ');
          SQL.Add('where DingDanNo=:DingDanNo ');
          Parameters.ParamByName('DingDanNo').value :=DBEditDingDanNo.Text;
          ExecSQL;
        end; //003
        DM.ADOTableBGD.Cancel;
        exit;
   end;
  if SpeedButton2.Enabled then
    begin
      CanClose := False;
      Exit;
    end;
end;

procedure TF_BGD.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
     DBedit13.SetFocus
   else
    exit;
end;

end.
123

⌨️ 快捷键说明

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