u_fhp.pas

相关的销售服务管理行业的一个软件

end;

procedure TF_FHP.FormKeyPress(Sender: TObject; var Key: Char);
begin
  //if key = #13 then
    //perform(WM_NEXTDLGCTL,0,0);

end;

procedure TF_FHP.DateTimePicker1Change(Sender: TObject);
begin
  {if DBEditDingDanNo.Text='' then
    Exit;
  DM.ADOTableFHP.Edit;
  DM.ADOTableFHP.FieldByName('Date').AsDateTime:=DateTimePicker1.Date;//在保存前将日期转为字符串类型}
end;

procedure TF_FHP.FormShow(Sender: TObject);
begin
  FlagFHP:=True;
  SpeedButton4.Enabled:=false;
  if DBEditDingDanNo.text<>'' then
  begin
    DM.ADOTableFHP.Close;
    DM.ADOTableFHP.Open;
    //DateTimePicker1.Date:=DM.ADOTableFHP.FieldByName('Date').AsDateTime;
  end;
  //else
    //DateTimePicker1.Date:=Now;
end;

procedure TF_FHP.Panel1DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_FPCX=NIL THEN APPLICATION.CreateForm(TF_FPCX,F_FPCX);
     F_FPCX.Show;
    F_FPCX.PageControl1.ActivePageIndex:=0;
end;

procedure TF_FHP.Panel2DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_FPCX=NIL THEN APPLICATION.CreateForm(TF_FPCX,F_FPCX);
     F_FPCX.Show;
    F_FPCX.PageControl1.ActivePageIndex:=0;
end;

procedure TF_FHP.Panel3DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_FPCX=NIL THEN APPLICATION.CreateForm(TF_FPCX,F_FPCX);
     F_FPCX.Show;
  F_FPCX.PageControl1.ActivePageIndex:=0;
end;

procedure TF_FHP.Panel4DblClick(Sender: TObject);
begin
  //OUTLOOK1.Visible :=False;
  IF F_FPCX=NIL THEN APPLICATION.CreateForm(TF_FPCX,F_FPCX);
     F_FPCX.Show;
  F_FPCX.PageControl1.ActivePageIndex:=0;
end;

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

procedure TF_FHP.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 // SpeedButton5.Font.Color:=clSilver;
end;

procedure TF_FHP.FormActivate(Sender: TObject);
begin
  RegisterHotKey(Handle,0,MOD_CONTROL,83);
  RegisterHotKey(Handle,1,MOD_CONTROL,65);
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel2.Visible:=False;
  frmmain.Label1.Caption:='发货票管理';
  POPUPM:=0;
  RegisterHotKey(Handle,0,MOD_CONTROL,83);
  RegisterHotKey(Handle,1,MOD_CONTROL,65);
end;

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

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

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

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

procedure TF_FHP.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not((key in ['0'..'9']) or (key in ['(',')','-',#8])) then
    key:=#0;
  if key = #13 then
     DBEdit1.SetFocus
   else
    exit;
end;

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

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

procedure TF_FHP.DBImage1DblClick(Sender: TObject);
var
 //rect:trect;
 externname:string;
 jpg:tjpegimage;
begin
try
  if OpenPictureDialog1.Execute then
   begin
      externname:=ExtractFileExt(OpenPictureDialog1.FileName);
      if StrComp(pchar(uppercase(externname)),pchar(uppercase('.bmp')))=0 then
      begin
          dbimage1.Picture.LoadFromFile(OpenPictureDialog1.filename);
      end
      else
         if StrComp(pchar(uppercase(externname)),pchar(uppercase('.jpg')))=0 then
         begin
          jpg:=tjpegimage.create;
          jpg.LoadFromFile(OpenPictureDialog1.filename);
          dbimage1.Picture.Graphic.Assign (jpg);
          end;
    end;
except
    messagebox(handle,'此文件格式无效！','错误',mb_ok+mb_iconerror);
end;
end;

procedure TF_FHP.HandleMag(var Msg: TMessage);
begin
  case Msg.WParam of
    0:  SpeedButton4.Click;
    1:  SpeedButton5.Click;
  end;
end;

procedure TF_FHP.FormCreate(Sender: TObject);
begin
  Dm.ADOTableFHP.Active:=true;
end;

procedure TF_FHP.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if Dm.ADOTableFHP.RecNo=RecNoFHP then
  begin
    FlagFHP:=False;     //当数据有改动时，如果仍是当前记录，则设保存标志为假
  end
  else  begin
    RecNoFHP:=DM.ADOTableFHP.RecNo;   //保存新记录指针
    //DateTimePicker1.DateTime:=DM.ADOTableFHP.FieldByName('Date').AsDateTime;
    //Dm.ADOTableFHP.Cancel;//9.21
  end;
end;

procedure TF_FHP.N2Click(Sender: TObject);
begin
  if FontDialog1.Execute then
  begin
    DBRichEdit1.SelAttributes.Size:=Fontdialog1.Font.Size;
    DBRichEdit1.SelAttributes.Color:=Fontdialog1.Font.Color;
    DBRichEdit1.SelAttributes.Style:=Fontdialog1.Font.Style;
  end;
end;

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

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

procedure TF_FHP.dwKeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBmemo1.SetFocus
   else
    exit;
end;

procedure TF_FHP.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
   {if key = #13 then
     DBEdit6.SetFocus
   else
    exit;}
end;

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

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

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

procedure TF_FHP.DBImage1KeyPress(Sender: TObject; var Key: Char);
begin
   if key = #13 then
     DBmemo8.SetFocus
   else
    exit;
end;

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

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

end.