unitsulfdictionary.~pas

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

unit UnitSulfDictionary;

interface

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

type
  TFrmSulfDictionary = class(TForm)
    DataSource1: TDataSource;
    TableSulfDic: TTable;
    DataSource2: TDataSource;
    TableSulfName: TTable;
    DataSource3: TDataSource;
    TableSulfCheck: TTable;
    TableSulfDicFigid: TStringField;
    TableSulfDicProdWeight: TFloatField;
    TableSulfDicProdNameID: TStringField;
    TableSulfDicUnitSalary: TFloatField;
    TableSulfDicRubbPice: TFloatField;
    TableSulfDicProdPice: TFloatField;
    TableSulfNameNameID: TStringField;
    TableSulfNameName: TStringField;
    TableSulfCheckCheckID: TStringField;
    TableSulfCheckCheck: TStringField;
    TableSulfDicProdID: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    DBNavigator2: TDBNavigator;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    DBNavigator3: TDBNavigator;
    procedure enameidChange(Sender: TObject);
    procedure enameidKeyPress(Sender: TObject; var Key: Char);
    procedure EcheckidKeyPress(Sender: TObject; var Key: Char);
    procedure EcheckidChange(Sender: TObject);
    procedure EprodChange(Sender: TObject);
    procedure EprodKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBGrid3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSulfDictionary: TFrmSulfDictionary;

implementation

uses UnitSulfInput, UnitSulfSalary, UnitSulfName, UnitSulfDate;

{$R *.DFM}

procedure TFrmSulfDictionary.enameidChange(Sender: TObject);
begin
{
 TableSulfName.Open;
 TableSulfName.Filtered:=true;
 TableSulfName.Filter:=format('NameID=''%s''',[EnameID.text+'*']);
}
end;

procedure TFrmSulfDictionary.enameidKeyPress(Sender: TObject;
  var Key: Char);
begin
{
  if (key = #13)  then
  begin
  end;//if
}
end;

procedure TFrmSulfDictionary.EcheckidKeyPress(Sender: TObject;
  var Key: Char);
begin
{
   if key = #13 then
  begin
   FrmSulfInput.echeck.text:=TableSulfcheck.fieldbyname('check').asstring;
   FrmSulfDictionary.close;
  end;//if
 }
end;

procedure TFrmSulfDictionary.EcheckidChange(Sender: TObject);
begin
{
 TableSulfcheck.Open;
 TableSulfcheck.Filtered:=true;
 TableSulfcheck.Filter:=format('checkid=''%s''',[EcheckID.text+'*']);
}
end;

procedure TFrmSulfDictionary.EprodChange(Sender: TObject);
begin
{
 TableSulfDic.Open;
 TableSulfDic.Filtered:=true;
 TableSulfDic.Filter:=format('Prodid=''%s''',[Eprod.text+'*']);
 }
end;

procedure TFrmSulfDictionary.EprodKeyPress(Sender: TObject; var Key: Char);
begin
{
if key = #13 then
  begin
   FrmSulfInput.DBEprodnameID.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfdate.Ename.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfInput.Efigid.text:=TableSulfDic.fieldbyname('figid').asstring;
   FrmSulfInput.Eprodn.text:=TableSulfDic.fieldbyname('prodnameid').asstring;
   FrmSulfDictionary.close;
 end;//if
}
end;
procedure TFrmSulfDictionary.DBGrid1KeyPress(Sender: TObject;
  var Key: Char);
begin

if key = #13 then
  begin
   FrmSulfInput.DBEprodnameID.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfdate.Ename.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfInput.Efigid.text:=TableSulfDic.fieldbyname('figid').asstring;
   FrmSulfInput.Eprodn.text:=TableSulfDic.fieldbyname('prodnameid').asstring;
   FrmSulfDictionary.close;

  end;//if

end;

procedure TFrmSulfDictionary.DBGrid2KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
  begin
   FrmSulfInput.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfSalary.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfname.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfDictionary.close;
  end;//if

end;

procedure TFrmSulfDictionary.FormShow(Sender: TObject);
begin
tablesulfdic.open;
tablesulfname.open;
tablesulfcheck.open;
tablesulfdic.Filtered:=false;
tablesulfname.Filtered:=false;
tablesulfcheck.Filtered:=false;
if PageControl1.ActivePageIndex = 0 then
   dbgrid1.SetFocus
else if PageControl1.ActivePageIndex =1 then
   dbgrid2.SetFocus
else  dbgrid3.SetFocus;
end;

procedure TFrmSulfDictionary.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
tablesulfdic.close;
tablesulfname.close;
tablesulfcheck.close;
end;

procedure TFrmSulfDictionary.DBGrid1DblClick(Sender: TObject);
begin
   FrmSulfInput.DBEprodnameID.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfInput.Efigid.text:=TableSulfDic.fieldbyname('figid').asstring;
   FrmSulfInput.Eprodn.text:=TableSulfDic.fieldbyname('prodnameid').asstring;
   FrmSulfdate.Ename.text:=TableSulfDic.fieldbyname('prodID').asstring;
   FrmSulfDictionary.close;

end;

procedure TFrmSulfDictionary.DBGrid2DblClick(Sender: TObject);
begin
   FrmSulfInput.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfsalary.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfname.ename.text:=TableSulfName.fieldbyname('name').asstring;
   FrmSulfDictionary.close;

end;

procedure TFrmSulfDictionary.DBGrid3DblClick(Sender: TObject);
begin
   FrmSulfInput.echeck.text:=TableSulfcheck.fieldbyname('check').asstring;
   FrmSulfDictionary.close;
end;

procedure TFrmSulfDictionary.DBGrid3KeyPress(Sender: TObject;
  var Key: Char);
begin
  if key = #13 then
  begin
   FrmSulfInput.echeck.text:=TableSulfcheck.fieldbyname('check').asstring;
   FrmSulfDictionary.close;
  end;//if

end;

end.