curse.pas

来自「PosEasy收银系统源码,Pos机前后台管理代码」· PAS 代码 · 共 95 行

unit curse;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Db, DBTables;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;

    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private
    { Private declarations }
  public
     key:word
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses show;

{$R *.DFM}








procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_Right then
  dbedit2.SetFocus;
if key=vk_down then
  dbedit3.SetFocus;
end;

procedure TForm1.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_left then
  dbedit1.SetFocus;

if key=vk_down then
  dbedit4.SetFocus;

end;

procedure TForm1.DBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_Right then
  dbedit4.SetFocus;
  if key=vk_up then
  dbedit1.SetFocus;



end;

procedure TForm1.DBEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_left then
  dbedit3.SetFocus;
  if key=vk_up then
  dbedit2.SetFocus;
   if key=vk_escape then
  form2.showmodal;
end;

end.