inv_mnlistaudit_c.pas

一个MRPII系统源代码版本

unit Inv_MnListAudit_C;
 
Interface

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

Type
  TFrm_Inv_MnListAudit_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label3: TLabel;
    cmbbx_Shift: TComboBox;
    cmbbx_DeptCode: TExtEdit;
    lbl_DeptName: TLabel;
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure cmbbx_DeptCodeExit(Sender: TObject);
    procedure cmbbx_DeptCodeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_MnListAudit_C: TFrm_Inv_MnListAudit_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Inv_MnListAudit_C.btn_okClick(Sender: TObject);
begin
  inherited;
  //条件设置与参数传递
  Condition:='(m.DeptCode='''+cmbbx_DeptCode.text+''') ';
  ConditionHint:='领料部门：'+cmbbx_DeptCode.text+' '+lbl_DeptName.Caption ;
  FatherForm.SetFormParam(cmbbx_Shift.text,cmbbx_DeptCode.text,'',lbl_DeptName.Caption,'','');
  modalResult:=mrok;
end;

procedure TFrm_Inv_MnListAudit_C.FormActivate(Sender: TObject);
begin
  inherited;
  InitShiftCmBx(AdoQry_tmp,cmbbx_Shift,True);
end;

procedure TFrm_Inv_MnListAudit_C.cmbbx_DeptCodeExit(Sender: TObject);
begin
  inherited;
 { if (activecontrol.Name ='btn_Cancel') then
     abort;
  if cmbbx_DeptCode.Text<>'' then    }
     DeptCodecheck(sender);

end;

procedure TFrm_Inv_MnListAudit_C.cmbbx_DeptCodeChange(Sender: TObject);
begin
  inherited;
  if cmbbx_DeptCode.Text ='' then
     lbl_DeptName.Caption :='';
end;

end.