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 eManufacturerIDChange(Sender: TObject);
    procedure eWorkShopIDChange(Sender: TObject);
    procedure eMaterShortCutKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eProdIDChange(Sender: TObject);
    procedure eRubbMethodIDChange(Sender: TObject);
    procedure eStaffIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eManufacturerIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eWorkShopIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eProdIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eRubbMethodIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eRubbIDChange(Sender: TObject);
  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.eManufacturerIDChange(Sender: TObject);
begin
  if eManufacturerID.text = '' then
  begin
    dm.tabMaterDictionary.filtered:=false;
    exit;
  end; //if


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

end;

procedure TfrmCommQueryID.eWorkShopIDChange(Sender: TObject);
begin
  if eWorkShopID.text = '' then
  begin
    dm.tabMaterDictionary.filtered:=false;
    exit;
  end; //if


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

end;

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


end;

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.eRubbMethodIDChange(Sender: TObject);
begin
  if eRubbMethodID.text = '' then
  begin
    dm.tabRubbMethod.filtered:=false;
    exit;
  end; //if

  with dm.tabRubbMethod do
  begin
    filter:=format('RubbMethodID = ''%S''',[eRubbMethodID.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.eManufacturerIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key =38 then
  begin
    dbgManufacturer.setfocus;
    dm.tabManufacturer.Prior;
  end
  else if key = 40 then
  begin
    dbgManufacturer.setfocus;
    dm.tabManufacturer.next;
  end
  else  exit;

end;

procedure TfrmCommQueryID.eWorkShopIDKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key =38 then
  begin
    dbgWorkshop.setfocus;
    dm.tabWorkshop.Prior;
  end
  else if key = 40 then
  begin
    dbgWorkshop.setfocus;
    dm.tabWorkshop.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;

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

end;

procedure TfrmCommQueryID.eRubbIDChange(Sender: TObject);
begin
  if eRubbID.text = '' then
  begin
    dm.tabRubbDictionary.filtered:=false;
    exit;
  end; //if

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

end;

end.