unitqueryid.pas

此代码为企业原料管理代码

unit UnitQueryID;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons, ComCtrls;

type
  TfrmCommQueryID = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    eStaffID: TEdit;
    dbeStaffName: TDBEdit;
    Label4: TLabel;
    Label3: TLabel;
    dbgStaff: TDBGrid;
    TabSheet5: TTabSheet;
    dbgProdDictionary: TDBGrid;
    eProdID: TEdit;
    DBEdit1: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    procedure eProdIDChange(Sender: TObject);
    procedure eStaffIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eProdIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    bInDraw:boolean;  //true is InCard   false is DrawCard
  end;

var
  frmCommQueryID: TfrmCommQueryID;

implementation

uses UnitDM;

{$R *.DFM}

procedure TfrmCommQueryID.eProdIDChange(Sender: TObject);
begin
  if eProdID.text = '' then
  begin
    dm.tabProdDictionary.filtered:=false;
    exit;
  end; //if

  with dm.tabProdDictionary do
  begin
    filter:=format('ProdID = ''%S''',[eProdID.text+'*']);
    if not filtered then
      filtered:=true;
    open;
  end; //with

end;

procedure TfrmCommQueryID.eStaffIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key =38 then
  begin
    dbgStaff.setfocus;
    dm.tabStaff.Prior;
  end
  else if key = 40 then
  begin
    dbgStaff.setfocus;
    dm.tabStaff.next;
  end
  else  exit;

end;

procedure TfrmCommQueryID.eProdIDKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key =38 then
  begin
    dbgProdDictionary.setfocus;
    dm.tabProdDictionary.Prior;
  end
  else if key = 40 then
  begin
    dbgProdDictionary.setfocus;
    dm.tabProdDictionary.next;
  end
  else  exit;

end;

end.