u_bgdchild.pas

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

unit U_BGDChild;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, ExtCtrls, Buttons;

type
  TF_BGDChild = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    Panel2: TPanel;
    BitBtn2: TBitBtn;
    DBEdit10: TDBEdit;
    BitBtn1: TBitBtn;
    DBMemo1: TDBMemo;
    DBMemo2: TDBMemo;
    BitBtn3: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit9KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure HandleMag(var Msg: TMessage);message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  F_BGDChild: TF_BGDChild;
  FlagBGDChild: Boolean;

implementation

uses U_BGD,umain, U_DM;

{$R *.DFM}

procedure TF_BGDChild.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  F_BGDChild:=nil;
  Action:=caFree;
end;

procedure TF_BGDChild.BitBtn2Click(Sender: TObject);
begin
  //DM.ADOQueryBGDChild.Cancel;
  //DM.ADOQueryBGDChild.Active :=true;
  Close;
end;

procedure TF_BGDChild.BitBtn1Click(Sender: TObject);
begin
  if FlagBGDChild then
    begin
      Application.MessageBox('该数据已保存！','提示',0+64);
      Exit;
    end;
  if DBEdit1.Text='' then
  begin
    Application.MessageBox('项号不可以为空，请重新输入！','报关单货物信息',0+64);
    DBEdit1.SetFocus;
    Exit;
  end;
  try
  DBEdit10.Text:=F_BGD.DBEditDingDanNo.Text;
  DM.ADOQueryBGDChild.Edit;
  DM.ADOQueryBGDChild.Post;
 // Dm.ADOTableBGDchild.Close;
  //Dm.ADOTableBGDchild.Open;
  Application.MessageBox('数据保存成功！','提示',0+64);
  DBEdit1.ReadOnly:=true;
  DBEdit3.ReadOnly:=true;
  DBEdit4.ReadOnly:=true;
  DBEdit5.ReadOnly:=true;
  DBEdit7.ReadOnly:=true;
  DBEdit8.ReadOnly:=true;
  DBEdit9.ReadOnly:=true;
  DBMemo1.ReadOnly:=true;
  DBMemo2.ReadOnly:=true;
  FlagBGDChild:=true;
  except
  end;
  //
  //DM.ADOTableBGDChild.Close;
 // DM.ADOTableBGDChild.Open;
  //DM.ADOTableBGDChild.Refresh;
  //DM.ADOTableBGDChild.Locate('DingDanNo',edit1.Text,[loCaseInsensitive]);
end;

procedure TF_BGDChild.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
BitBtn1.Cursor:=crHandPoint;
end;

procedure TF_BGDChild.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
BitBtn2.Cursor:=crHandPoint;
end;

procedure TF_BGDChild.HandleMag(var Msg: TMessage);
begin
 {case msg.WParam of
   0: bitbtn1.Click;
   1: bitbtn3.Click;
 end; }
  bitbtn1.Click;
end;
procedure TF_BGDChild.FormActivate(Sender: TObject);
begin
//RegisterHotKey(Handle,0,MOD_CONTROL,83);
//RegisterHotKey(Handle,1,MOD_CONTROL,65);
end;
procedure TF_BGDChild.BitBtn3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
BitBtn3.Cursor:=crHandPoint;
end;

procedure TF_BGDChild.BitBtn3Click(Sender: TObject);
begin
  if F_BGD.DBEditDingDanNo.Text='' then
  begin
    Application.MessageBox('请先输入订单编号！','报关单货物信息',0+64);
    F_BGD.DBEditDingDanNo.SetFocus;
    Exit;
  end;
  DBEdit1.ReadOnly:=False;
  DBEdit3.ReadOnly:=False;
  DBEdit4.ReadOnly:=False;
  DBEdit5.ReadOnly:=False;
  DBEdit7.ReadOnly:=False;
  DBEdit8.ReadOnly:=False;
  DBEdit9.ReadOnly:=False;
  DBMemo1.ReadOnly:=False;
  DBMemo2.ReadOnly:=False;
  //DM.ADOQueryBGDChild.Close;
  //DM.ADOQueryBGDChild.Open;
  DM.ADOQueryBGDChild.Append;
  DBEdit1.SetFocus;
end;

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

procedure TF_BGDChild.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit3.ReadOnly=false then
   if key = #13 then
     DBmemo2.SetFocus
   else
    exit;
end;

procedure TF_BGDChild.DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit4.ReadOnly=false then
   if key = #13 then
     DBEdit7.SetFocus
   else
    exit;
end;

procedure TF_BGDChild.DBEdit5KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit5.ReadOnly=false then
   if key = #13 then
     DBmemo1.SetFocus
   else
    exit;
end;

procedure TF_BGDChild.DBEdit7KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit7.ReadOnly=false then
   if key = #13 then
     DBEdit5.SetFocus
   else
    exit;
end;

procedure TF_BGDChild.DBEdit8KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit8.ReadOnly=false then
   if key = #13 then
     DBEdit9.SetFocus
   else
    exit;
end;

procedure TF_BGDChild.DBEdit9KeyPress(Sender: TObject; var Key: Char);
begin
if DBEdit9.ReadOnly=false then
   if key = #13 then
     bitbtn1.SetFocus
   else
    exit;
end;

end.