inv_mnrequest_c.pas

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

unit Inv_MnRequest_C;

Interface

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

Type
  TFrm_Inv_MnRequest_C = Class(TFrm_Base_Condition)
    Extedt_DeptCode: TExtEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lbl_DeptName: TLabel;
    cmbbx_Shift: TComboBox;
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection); Override ;
  end;

var
  Frm_Inv_MnRequest_C: TFrm_Inv_MnRequest_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Inv_MnRequest_C.SetDBConnect(AdOConnection:TAdOConnection);
begin
  inherited;
  InitShiftCmBx(AdoQry_tmp,cmbbx_Shift,True);
end;
//根据数据表的内容初始化ComboBox的内容

procedure TFrm_Inv_MnRequest_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='(m.DeptCode='''+Extedt_DeptCode.text+''' and l.MoLineStatus=6)';
  ConditionHint:='领料部门：'+Trim(Extedt_DeptCode.text)+' '+Trim(lbl_DeptName.Caption)+',订单状态：下达';
  modalResult:=mrok;
end;

end.