unitqueryid.pas

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

unit UnitQueryID;

interface

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

type
  TfrmCommQueryID = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    eStaffID: TEdit;
    Label4: TLabel;
    Label3: TLabel;
    dbgStaff: TDBGrid;
    TabSheet5: TTabSheet;
    dbgProdDictionary: TDBGrid;
    TabSheet3: TTabSheet;
    dbgManufacturer: TDBGrid;
    Query1: TQuery;
    dbeStaffName: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    Query3: TQuery;
    TabSheet1: TTabSheet;
    Query2: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Query4: TQuery;
    DataSource4: TDataSource;
    procedure eStaffIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure eProdIDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure dbgProdDictionaryDblClick(Sender: TObject);
    procedure dbgStaffDblClick(Sender: TObject);
    procedure eStaffIDChange(Sender: TObject);
    procedure dbeStaffNameChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dbgStaffKeyPress(Sender: TObject; var Key: Char);
    procedure dbgManufacturerKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    bInDraw:boolean;  //true is InCard   false is DrawCard
  end;

var
  frmCommQueryID: TfrmCommQueryID;
   k:integer;
implementation

uses UnitDM, UnitSulfInput, UnitSulfName, UnitSulfDate;

{$R *.DFM}

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;

procedure TfrmCommQueryID.FormCreate(Sender: TObject);
begin
   k:=0;
  tabsheet1.TabVisible:=false;
  tabsheet2.TabVisible:=false;
  tabsheet3.TabVisible:=false;
  tabsheet5.TabVisible:=false;

end;

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

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

procedure TfrmCommQueryID.eStaffIDChange(Sender: TObject);
begin
   with Query3 do
    begin
    close;
    sql.Clear;
    sql.add('select * from CommStaff where  StaffID like :mi order by StaffID');
    paramByName('mi').asstring:= eStaffID.text+'%';
    open;
    if recordcount = 0 then
     begin
      eStaffID.text:='';
      showmessage('没找到该名字!');
      exit;
    end;
  end; //with
{//==========清空table1=========
 with table1 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
  //=========抄写到table1========
  query1.First;
while  not query1.eof do
 begin
  table1.append;
  table1.FieldByName('StaffID').asstring:=query1.fieldbyname('StaffID').asstring;
  table1.FieldByName('StaffName').asstring:=query1.fieldbyname('StaffName').asstring;
  table1.post;
  query1.next;
 end;//while
   table1.open;
   table1.first;
   // if FrmcommqueryID.PageControl1.ActivePageIndex=0 then
  // FrmcommqueryID.dbgStaff.SetFocus;}
end;

procedure TfrmCommQueryID.dbeStaffNameChange(Sender: TObject);
begin
    with Query3 do
    begin
    close;
    sql.Clear;
    sql.add('select * from CommStaff where  StaffName like :mi order by StaffID');
    paramByName('mi').asstring:= dbeStaffName.text+'%';
    open;
    if recordcount = 0 then
     begin
      dbeStaffName.text:='';
      showmessage('没找到该名字!');
      exit;
     end;
  end; //with
{ //==========清空table1=========
 with table1 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
  //=========抄写到table1========
  query1.First;
while  not query1.eof do
 begin
  table1.append;
  table1.FieldByName('StaffID').asstring:=query1.fieldbyname('StaffID').asstring;
  table1.FieldByName('StaffName').asstring:=query1.fieldbyname('StaffName').asstring;
  table1.post;
  query1.next;
 end;//while
   table1.open;
   table1.first;
   //if FrmcommqueryID.PageControl1.ActivePageIndex=0 then
  // FrmcommqueryID.dbgStaff.SetFocus; }
end;

procedure TfrmCommQueryID.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  // eStaffID.text:='';
  // dbeStaffName.text:='';
  // Edit1.text:='';
  // Edit2.text:='';
   //query2.active:=false;
   FrmSulfName.table1.active:=false;
   FrmSulfDate.tableone.active:=false;
end;

procedure TfrmCommQueryID.Edit2Change(Sender: TObject);
begin
    with Query1 do
    begin
    close;
    sql.Clear;
    sql.add('select * from ProdDictionary where  ProdName like :mi order by prodID');
    paramByName('mi').asstring:= Edit2.text+'%';
    open;
    if recordcount = 0 then
     begin
      Edit2.text:='';
      showmessage('没找到该产品!');
      exit;
    end;
  end; //with
{ //==========清空table2=========
 with table2 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
  //=========抄写到table2========
  query2.First;
while  not query2.eof do
 begin
  table2.append;
  table2.FieldByName('FigID').asstring:=query2.fieldbyname('FigID').asstring;
  table2.FieldByName('ProdName').asstring:=query2.fieldbyname('ProdName').asstring;
  table2.FieldByName('prodid').asstring:=query2.fieldbyname('prodid').asstring;
  table2.FieldByName('tanhuang').asinteger:=query2.fieldbyname('tanhuang').asinteger;
  table2.FieldByName('gujia').asinteger:=query2.fieldbyname('gujia').asinteger;
  table2.post;
  query2.next;
 end;//while
   table2.open;
    if FrmcommqueryID.PageControl1.ActivePageIndex=1 then
   dbgProdDictionary.SetFocus; }
end;

procedure TfrmCommQueryID.Edit1Change(Sender: TObject);
begin
    with Query1 do
    begin
    close;
    sql.Clear;
    sql.add('select * from ProdDictionary where  FigID like :mi order by prodID');
    paramByName('mi').asstring:= Edit1.text+'%';
    open;
    if recordcount = 0 then
     begin
      Edit1.text:='';
      showmessage('没找到该类产品!');
      exit;
    end;
  end; //with
{ //==========清空table2=========
 with table2 do begin
  first;
  while not eof do
  delete;
  next;
 end;//with
  //=========抄写到table2========
  query2.First;
while  not query2.eof do
 begin
  table2.append;
  table2.FieldByName('FigID').asstring:=query2.fieldbyname('FigID').asstring;
  table2.FieldByName('ProdName').asstring:=query2.fieldbyname('ProdName').asstring;
  table2.FieldByName('prodid').asstring:=query2.fieldbyname('prodid').asstring;
  table2.FieldByName('tanhuang').asinteger:=query2.fieldbyname('tanhuang').asinteger;
  table2.FieldByName('gujia').asinteger:=query2.fieldbyname('gujia').asinteger;
  table2.post;
  query2.next;
 end;//while
   table2.open;
   table2.first;
    if FrmcommqueryID.PageControl1.ActivePageIndex=1 then
   dbgProdDictionary.SetFocus;}
end;

procedure TfrmCommQueryID.FormShow(Sender: TObject);
begin
   eStaffID.text:='';
   dbeStaffName.text:='';
   Edit1.text:='';
   Edit2.text:='';
    if FrmcommqueryID.PageControl1.ActivePageIndex=0 then
    begin
    with Query3 do
    begin
    close;
    sql.Clear;
    sql.add('select * from CommStaff ');
    open;
     if recordcount = 0 then
     begin
      showmessage('无记录!');
      exit;
     end;
    end;
     FrmcommqueryID.dbgStaff.SetFocus;
    exit;
    end;
{
 //==========清空table1=========

 with table1 do begin
   open;
  first;
  while not eof do
  delete;
  next;
 end;//with
  //=========抄写到table1========

  query1.First;
while  not query1.eof do
 begin
  table1.append;
  table1.FieldByName('StaffID').asstring:=query1.fieldbyname('StaffID').asstring;
  table1.FieldByName('StaffName').asstring:=query1.fieldbyname('StaffName').asstring;
  table1.post;
  query1.next;
 end;//while
   table1.open;
   table1.First;
   if FrmcommqueryID.PageControl1.ActivePageIndex=0 then
   FrmcommqueryID.dbgStaff.SetFocus; }
//=======显示产品============
   if FrmcommqueryID.PageControl1.ActivePageIndex=1 then
   begin
    with Query1 do
    begin
    close;
    sql.Clear;
    sql.add('select * from ProdDictionary ');
    open;
    if recordcount = 0 then
     begin
      showmessage('无记录!');
      exit;
    end;
  end; //with
   dbgProdDictionary.SetFocus;
   exit;
    end;
   if FrmcommqueryID.PageControl1.ActivePageIndex=3 then
   begin
    with Query2 do
    begin
    close;
    sql.Clear;
    sql.add('select * from Commworkshop ');
    open;
     if recordcount = 0 then
     begin
      showmessage('无记录!');
      exit;
     end;
    end;
    DBGrid1.SetFocus;
    exit;
    end;

     with Query4 do
    begin
    close;
    sql.Clear;
    sql.add('select * from CommManufacturer ');
    open;
     if recordcount = 0 then
     begin
      showmessage('无记录!');
      exit;
     end;
    end;
    dbgManufacturer.SetFocus;
  end;

procedure TfrmCommQueryID.dbgStaffKeyPress(Sender: TObject; var Key: Char);
begin
  if key <> #13 then  exit;
  frmCommQueryID.ModalResult := mrok;
end;

procedure TfrmCommQueryID.dbgManufacturerKeyPress(Sender: TObject;
  var Key: Char);
begin
  if key <> #13 then  exit;
  frmCommQueryID.ModalResult := mrok;
end;

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

end.