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;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    eMaterShortCut: TEdit;
    dbeMaterName: TDBEdit;
    eStaffID: TEdit;
    dbeStaffName: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    eManufacturerID: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    dbeManufacturer: TDBEdit;
    dbgDictionary: TDBGrid;
    dbgStaff: TDBGrid;
    dbgManufacturer: TDBGrid;
    TabSheet4: TTabSheet;
    dbgWorkshop: TDBGrid;
    dbeWorkShop: TDBEdit;
    eWorkShopID: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    cbFindStyle: TCheckBox;
    TabSheet5: TTabSheet;
    dbgProdDictionary: TDBGrid;
    eProdID: TEdit;
    DBEdit1: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    TabSheet6: TTabSheet;
    dbgRubbMethod: TDBGrid;
    Label11: TLabel;
    Label12: TLabel;
    eRubbMethodID: TEdit;
    dbeMethod: TDBEdit;
    TabSheet7: TTabSheet;
    DBGrid1: TDBGrid;
    Label13: TLabel;
    Label14: TLabel;
    eRubbID: TEdit;
    dbeRubbName: TDBEdit;
    procedure eMaterShortCutChange(Sender: TObject);
    procedure cbFindStyleClick(Sender: TObject);
    procedure eStaffIDChange(Sender: TObject);
    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);
    procedure dbgDictionaryDblClick(Sender: TObject);
    procedure dbgStaffDblClick(Sender: TObject);
    procedure dbgManufacturerDblClick(Sender: TObject);
    procedure dbgWorkshopDblClick(Sender: TObject);
    procedure dbgProdDictionaryDblClick(Sender: TObject);
    procedure dbgRubbMethodDblClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bInDraw:boolean;  //true is InCard   false is DrawCard
  end;

var
  frmCommQueryID: TfrmCommQueryID;

implementation



{$R *.DFM}

procedure TfrmCommQueryID.eMaterShortCutChange(Sender: TObject);
var
  sShortCut:string;
begin
{
  if eMaterShortCut.text = '' then
  begin
    dm.tabMaterDictionary.filtered:=false;
    exit;
  end; //if

  if cbFindStyle.checked then
    sShortCut:=eMaterShortCut.text
  else
    sShortCut:=eMaterShortCut.text+'*';

  with dm.tabMaterDictionary do
  begin
    filter:=format('MaterShortCut = ''%S''',[sShortCut]);
    if not filtered then
      filtered:=true;
    open;
  end; //with
}
end;

procedure TfrmCommQueryID.cbFindStyleClick(Sender: TObject);
begin
  eMaterShortCutChange(sender);
end;

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

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

}
end;

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;

procedure TfrmCommQueryID.dbgDictionaryDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgStaffDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgManufacturerDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgWorkshopDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgProdDictionaryDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgRubbMethodDblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.DBGrid1DblClick(Sender: TObject);
begin
  frmCommQueryID.ModalResult := mrok;
end;

end.