unit_rubb_outcard.pas

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

unit Unit_Rubb_OutCard;

interface

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

type
  TForm_Rubb_OutCard = class(TForm)
    Panel1: TPanel;
    Panel5: TPanel;
    Panel9: TPanel;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn1: TBitBtn;
    DBEdit_Sum: TDBEdit;
    DS_Show: TDataSource;
    Qry_OutCard: TQuery;
    DS_OutCard: TDataSource;
    Tab_OutCard: TTable;
    Qry_exe: TQuery;
    DBEdit_Stock: TDBEdit;
    BitBtn3: TBitBtn;
    DBEdit_LastFlag: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit1Exit(Sender: TObject);
    procedure DBEdit1Enter(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Rubb_OutCard: TForm_Rubb_OutCard;

implementation

{$R *.DFM}

procedure TForm_Rubb_OutCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Tab_Outcard.Cancel;
end;

procedure TForm_Rubb_OutCard.DBEdit1Exit(Sender: TObject);
begin
  TEdit(Sender).color:=clwindow;
end;

procedure TForm_Rubb_OutCard.DBEdit1Enter(Sender: TObject);
begin
  TEdit(Sender).color:=claqua;
end;

procedure TForm_Rubb_OutCard.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  end; //if
end;

end.