unit_mater_outfromincard.~pas

来自「此代码为企业原料管理代码」· ~PAS 代码 · 共 97 行

unit Unit_Mater_OutFromInCard;

interface

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

type
  TForm_Mater_OutFromInCard = class(TForm)
    DBGrid1: TDBGrid;
    Qry_OutFromInCard: TQuery;
    DS_OutFromInCard: TDataSource;
    Panel1: TPanel;
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    If_First:boolean;
    { Public declarations }
  end;

var
  Form_Mater_OutFromInCard: TForm_Mater_OutFromInCard;

implementation

uses Unit_Mater_OutCard;

{$R *.DFM}

procedure TForm_Mater_OutFromInCard.DBGrid1KeyPress(Sender: TObject;
  var Key: Char);
begin
//不是回车键
  if key <> #13 then  exit;

  Form_Mater_OutCard.DBEdit_Per.text:=floattostr(Qry_OutFromInCard.fieldbyname('单价').asfloat);
  Form_Mater_OutCard.DBEdit_OutCardNum.text:=Qry_OutFromInCard.fieldbyname('领料单号').asstring;

  if not Qry_OutFromInCard.fieldbyname('领料标识').asboolean then
  begin
    Form_Mater_OutCard.DBEdit_SourceNum.Text:='HX'+Form_Mater_OutCard.DBEdit_OutCardNum.text;
  end; //if

  Form_Mater_OutCard.DBEdit_OutWt.SetFocus;
  If_First:=false;
//  close;
  Form_Mater_OutCard.show;


end;

procedure TForm_Mater_OutFromInCard.FormShow(Sender: TObject);
begin
 //Qry_OutFromInCard.active:=true;
  Form_Mater_OutFromInCard.Top:=Form_Mater_OutCard.top+Form_Mater_OutCard.Height;
  Form_Mater_OutFromInCard.Left:=Form_Mater_OutCard.Left;

end;

procedure TForm_Mater_OutFromInCard.DBGrid1DblClick(Sender: TObject);
begin
  Form_Mater_OutCard.DBEdit_Per.text:=floattostr(Qry_OutFromInCard.fieldbyname('单价').asfloat);
  Form_Mater_OutCard.DBEdit_OutCardNum.text:=Qry_OutFromInCard.fieldbyname('领料单号').asstring;
  Form_Mater_OutCard.DBEdit2.text:=inttostr(Qry_OutFromInCard.fieldbyname('kuhao').asinteger);
  if not Qry_OutFromInCard.fieldbyname('领料标识').asboolean then
  begin
    Form_Mater_OutCard.DBEdit_SourceNum.Text:='HX'+Form_Mater_OutCard.DBEdit_OutCardNum.text;
  end; //if

  Form_Mater_OutCard.DBEdit_OutWt.SetFocus;
  If_First:=false;
//  close;
    Form_Mater_OutCard.show;


end;

procedure TForm_Mater_OutFromInCard.FormCreate(Sender: TObject);
begin
  If_First:=true;

end;

procedure TForm_Mater_OutFromInCard.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Form_Mater_OutCard.Enabled:=true;
end;

end.