mrp_enter_passmo_c.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 56 行

unit Mrp_Enter_PassMo_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Dialog, StdCtrls, ExtEdit, Db, AdODB;

Type
  TFrm_Mrp_Enter_PassMo_C = Class(TFrm_Base_Dialog)
    Label1: TLabel;
    ExtEdit1: TExtEdit;
    Label2: TLabel;
    Label3: TLabel;
    cmblinestatus: TComboBox;
    procedure ExtEdit1Exit(Sender: TObject);
    procedure btn_CancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Mrp_Enter_PassMo_C: TFrm_Mrp_Enter_PassMo_C;

implementation
 uses Sys_Global;
{$R *.DFM}

procedure TFrm_Mrp_Enter_PassMo_C.ExtEdit1Exit(Sender: TObject);
begin
 // inherited;
if activecontrol.Name='btn_Cancel' then
exit;
if Trim(Extedit1.Text)='' then
 exit;
Executesql(AdoQry_tmp,'select DeptCode,DeptName from Dept where DeptCode='+quotedstr(Trim(Extedit1.text)),0);
if AdoQry_tmp.RecordCount=0 then
  begin
   DispInfo('受单部门输入错误！',3);
   Extedit1.SetFocus;
   exit;
  end
else 
label2.Caption:=AdoQry_tmp.fieldbyname('DeptName').asstring;
end;

procedure TFrm_Mrp_Enter_PassMo_C.btn_CancelClick(Sender: TObject);
begin
  inherited;
Close;
end;

end.