ugysxiugai.~pas

我的毕业设计

unit ugysxiugai;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Buttons, DB, DBTables;

type
  Tfrmgysxiugai = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edtgyh: TEdit;
    edtgym: TEdit;
    edttele: TEdit;
    edtadr: TEdit;
    sbtsave: TSpeedButton;
    sbtclose: TSpeedButton;
    procedure edtgyhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtgymKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtteleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtadrKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
      procedure sbtsaveClick(Sender: TObject);
    procedure sbtcloseClick(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgysxiugai: Tfrmgysxiugai;
  hwh:string;

implementation

uses Urkdj, Uhwxg, Ugysxg;

{$R *.dfm}


procedure Tfrmgysxiugai.edtgyhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edtgym.SetFocus; edtgym.SelectAll;
      if key=39 then
  begin
    edttele.SetFocus;
    edttele.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtgym.SetFocus;
    edtgym.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxiugai.edtgymKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edttele.SetFocus; edttele.SelectAll;
   if key=38 then
  begin
    edtgyh.SetFocus;
    edtgyh.SelectAll;
    abort;
  end;
  if key=39 then
  begin
    edtadr.SetFocus;
    edtadr.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxiugai.edtteleKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edtadr.SetFocus; edtadr.SelectAll;
    if key=37 then
  begin
    edtgyh.SetFocus;
    edtgyh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edtadr.SetFocus;
    edtadr.SelectAll;
    abort;
  end;
end;

procedure Tfrmgysxiugai.edtadrKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=38 then
  begin
    edttele.SetFocus;
    edttele.SelectAll;
    abort;
  end;
  if key=37 then
  begin
    edtgym.SetFocus;
    edtgym.SelectAll;
    abort;
  end;
end;
procedure Tfrmgysxiugai.sbtsaveClick(Sender: TObject);
begin
if (edtgyh.Text='')or(edtgym.Text='')or(edttele.Text='')or (edtadr.Text='') then
  application.MessageBox('请输入完整的货物信息！','系统提示',mb_ok + mb_iconinformation)
else
begin
 frmgysxg.table1.Active:=true;
frmgysxg.table1.Edit;
frmgysxg.Table1.FieldByName('供应商号').AsString:= edtgyh.Text;
frmgysxg.table1.FieldByName('供应商名').AsString:= edtgym.Text;
frmgysxg.table1.FieldByName('联系电话').AsString:= edttele.Text;
frmgysxg.table1.FieldByName('地址').AsString:= edtadr.Text;
frmgysxg.table1.Post;
application.MessageBox('保存信息成功！','系统提示',mb_ok + mb_iconinformation);
close;
frmgysxg.edtgyh.Text:=edtgyh.Text ;
frmgysxg.edtgym.Text:=edtgym.Text;
frmgysxg.edttele.Text:=edttele.Text;
frmgysxg.edtadr.Text:=edtadr.Text;
end;
end;


procedure Tfrmgysxiugai.sbtcloseClick(Sender: TObject);
begin
close;
end;
end.