📄 u_wtd.pas

📁 相关的销售服务管理行业的一个软件
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  0:  DBEditDingDanNo.SetFocus;
  1:  DBEdit23.SetFocus;
  end;        //将输入焦点放在当前活动页的第一个可编辑框
  //
  DM.ADOQuerySGOODS.Active:=False;
  DM.ADOQuerySGOODS.SQL.Clear;
  DM.ADOQuerySGOODS.SQL.Add('select * from s_goods');
  DM.ADOQuerySGOODS.Open;
  DBComboBox2.Items.Clear;
  while not DM.ADOQuerySGOODS.Eof do begin
    DBComboBox2.Items.Add(DM.ADOQuerySGOODS.FieldByName('NGDName').asString);
    DM.ADOQuerySGOODS.Next;
  end;
  DM.ADOQuerySGOODS.Active:=False;
  //
end;

procedure TF_WTS.Panel1DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_WTDCX=NIL THEN APPLICATION.CreateForm(TF_WTDCX,F_WTDCX);
  //F_WTDCX:=TF_WTDCX.Create(self);
  F_WTDCX.PageControl1.ActivePageIndex:=0;
  F_WTDCX.Show;
end;

procedure TF_WTS.FormActivate(Sender: TObject);
begin
  DM.ADOTableWTS.Last;
  Frmmain.Panel1.Visible:=True;
  RegisterHotKey(Handle,0,MOD_CONTROL,83);
  RegisterHotKey(Handle,1,MOD_CONTROL,65);
  frmmain.Label1.Caption:='委托书管理';
  POPUPM:=0;
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
end;

procedure TF_WTS.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton1.Cursor:=crHandPoint;
end;

procedure TF_WTS.SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton2.Cursor:=crHandPoint;
end;

procedure TF_WTS.SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton3.Cursor:=crHandPoint;
end;

procedure TF_WTS.SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton4.Cursor:=crHandPoint;
end;

procedure TF_WTS.SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
SpeedButton5.Cursor:=crHandPoint;
end;

procedure TF_WTS.N3Click(Sender: TObject);
begin
  close;
end;

procedure TF_WTS.N1Click(Sender: TObject);
begin
  POPUPM:=6;
  Application.createform(Tf_xgdw,f_xgdw);
  F_XGDW.Showmodal;
end;

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

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

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

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

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

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

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

procedure TF_WTS.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
     if key =#13 then
      DBEdit9.SetFocus
     else
     exit;
end;

procedure TF_WTS.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
     if key =#13 then
      DBComboBox2.SetFocus
     else
     exit;
end;

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

procedure TF_WTS.DBMemo1KeyPress(Sender: TObject; var Key: Char);
begin
     if key =#13 then
      DBEdit12.SetFocus
     else
     exit;
end;

procedure TF_WTS.DBEdit12KeyPress(Sender: TObject; var Key: Char);
begin
     if key =#13 then
      DBEdit13.SetFocus
     else
     exit;
end;

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

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

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

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

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

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

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

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

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

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

procedure TF_WTS.DBEdit23KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit24.SetFocus
  else
    exit;
end;

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

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

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

procedure TF_WTS.DBEdit27KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit28.SetFocus
  else
    exit;
end;

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

procedure TF_WTS.DBEdit29KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit30.SetFocus
    else
     exit;
end;

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

procedure TF_WTS.DBEdit31KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit32.SetFocus
    else
     exit;
end;

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

procedure TF_WTS.DBEdit33KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit34.SetFocus
  else
     exit;
end;

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

procedure TF_WTS.DBEdit35KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8,','])  then
    key:=#0;
if key =#13 then
  DBEdit36.SetFocus
  else
    exit;
end;
procedure TF_wts.HandleMag(var Msg: TMessage);
begin
 case msg.wparam of
  0:SpeedButton2.Click;
  1:SpeedButton1.Click;
end;
end;
procedure TF_WTS.DataSourceWTSDataChange(Sender: TObject; Field: TField);
begin
  if DM.ADOTableWTS.RecNo=RecNoWTS then
  begin
    FlagWTS:=False;     //当数据有改动时，如果仍是当前记录，则设保存标志为假
  end
  else  begin
    RecNoWTS:=DM.ADOTableWTS.RecNo;   //保存新记录指针
    DateTimePicker1.Date:=Date;//DM.ADOTableWTS.FieldByName('WeiTuoDate').AsDateTime; //9.21
    //Dm.ADOTableWTS.Cancel;  //9.21
{    case PageControl1.ActivePageIndex of
     0:
     begin
     DBEditDingDanNo.Enabled:=true;
     //DBEditDingDanNo.SetFocus;
     end;
     1:
     begin
     DBEdit23.Enabled:=true;
     //DBEdit23.SetFocus;
     end;

    end;  }
  end;
end;

procedure TF_WTS.FormCreate(Sender: TObject);
begin
Dm.ADOTableWTS.Active:=true;
end;

procedure TF_WTS.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if SpeedButton2.Enabled then
   if  (Application.MessageBox('数据尚未保存，是否保存'+#13+'该数据并推出应用程序？','提示',4+32)=IDYes) then
    SpeedButton2Click(self)
    else begin
      DM.ADOTablewts.Cancel;
      exit;
    end;
  if SpeedButton2.Enabled then
    begin
      CanClose := False;
      Exit;
    end;
end;

end.
上一页 12
⌨️ 快捷键说明

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