uhwxiugai.pas

我的毕业设计

unit uhwxiugai;

interface

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

type
  Tfrmhwxiugai = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    edhwh: TEdit;
    edhwm: TEdit;
    edhwjg: TEdit;
    edgysm: TEdit;
    edhws: TEdit;
    edckh: TEdit;
    GroupBox3: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton2Click(Sender: TObject);
    procedure edhwhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhwmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhwsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edckhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edhwjgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edgysmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmhwxiugai: Tfrmhwxiugai;
  hwh:string;

implementation

uses Urkdj, Uhwxg;

{$R *.dfm}

procedure Tfrmhwxiugai.SpeedButton2Click(Sender: TObject);
begin
close;

end;

procedure Tfrmhwxiugai.edhwhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edhwm.SetFocus; edhwm.SelectAll;
      if key=39 then
  begin
    edhwjg.SetFocus;
    edhwjg.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edhwm.SetFocus;
    edhwm.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxiugai.edhwmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edhws.SetFocus; edhws.SelectAll;
   if key=38 then
  begin
    edhwh.SetFocus;
    edhwh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edhws.SetFocus;
    edhws.SelectAll;
    abort;
  end;
  if key=39 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxiugai.edhwsKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=13 then edhwjg.SetFocus; edhwjg.SelectAll;
     if key=38 then
  begin
    edhwm.SetFocus;
    edhwm.SelectAll;
    abort;
  end;
     if key=39 then
  begin
    edckh.SetFocus;
    edckh.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxiugai.edckhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=38 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
   if key=37 then
  begin
    edhws.SetFocus;
    edhws.SelectAll;
    abort;
  end;
end;


procedure Tfrmhwxiugai.edhwjgKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then edgysm.SetFocus; edgysm.SelectAll;
    if key=37 then
  begin
    edhwh.SetFocus;
    edhwh.SelectAll;
    abort;
  end;
  if key=40 then
  begin
    edgysm.SetFocus;
    edgysm.SelectAll;
    abort;
  end;
end;

procedure Tfrmhwxiugai.edgysmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then edckh.SetFocus; edckh.SelectAll;
    if key=37 then
  begin
    edhwm.SetFocus;
    edhwm.SelectAll;
    abort;
  end;
   if key=38 then
  begin
    edhwjg.SetFocus;
    edhwjg.SelectAll;
    abort;
  end;
   if key=40 then
  begin
    edckh.SetFocus;
    edckh.SelectAll;
    abort;
  end;


end;



procedure Tfrmhwxiugai.SpeedButton1Click(Sender: TObject);
begin
if (edhwh.Text='')or(edhwm.Text='')or(edhws.Text='')or (edckh.Text='')or
(edhws.Text='') or(edgysm.Text='') then
  application.MessageBox('请输入完整的货物信息！','系统提示',mb_ok + mb_iconinformation)
else
  begin
  if (strtoint(edckh.Text)=1) or  (strtoint(edckh.Text)=2) or  (strtoint(edckh.Text)=3)or  (strtoint(edckh.Text)=4)or  (strtoint(edckh.Text)=5) then
        begin
    frmhwxg.table1.Active:=true;
    frmhwxg.table1.Edit;
    frmhwxg.Table1.FieldByName('货物名').AsString:= edhwm.Text;
    frmhwxg.table1.FieldByName('货物号').AsString:= edhwh.Text;
    frmhwxg.table1.FieldByName('货物数').AsString:= edhws.Text;
    frmhwxg.table1.FieldByName('仓库号').AsString:= edckh.Text;
    frmhwxg.table1.FieldByName('货物价格').AsString:= edhwjg.Text;
    frmhwxg.table1.FieldByName('供应商号').AsString:= edgysm.Text;
    frmhwxg.table1.Post;
    application.MessageBox('保存信息成功！','系统提示',mb_ok + mb_iconinformation);
   close;
   frmhwxg.edhwh.Text:=edhwh.Text ;
  frmhwxg.edhum.Text:=edhwm.Text;
  frmhwxg.edhus.Text:=edhws.Text;
  frmhwxg.edhujg.Text:=edhwjg.Text;
   frmhwxg.edgysm.Text:=edgysm.Text;
   frmhwxg.edckh.Text:=edckh.Text;
end
else
  begin
   application.MessageBox('请 填写正确的仓库号1-5！','系统提示',mb_ok + mb_iconinformation);
   edckh.SetFocus;
  end;
end;
end;

end.