inv_mninaudit_c.pas

一个MRPII系统源代码版本

unit Inv_MnInAudit_C;

Interface

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

Type
  TFrm_Inv_MnInAudit_C = Class(TFrm_Base_Condition)
    Lbl_DeptName: TLabel;
    ExtEdt_DeptCode: TExtEdit;
    Cmbx_MoFinishShift: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ExtEdt_WhCode: TExtEdit;
    lbl_WhName: TLabel;
    procedure btn_okClick(Sender: TObject);
    procedure Cmbx_MoFinishShiftExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    MOFinishShift :string;
    DeptCode      :String;
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;
  end;

var
  Frm_Inv_MnInAudit_C: TFrm_Inv_MnInAudit_C;

implementation
uses Sys_Global;
{$R *.DFM}

{ TFrm_Base_Condition2 }

procedure TFrm_Inv_MnInAudit_C.SetDBConnect(AdOConnection: TAdOConnection);
begin
  inherited;
  InitShiftCmBx(AdoQry_tmp,Cmbx_MoFinishShift,True);
  Cmbx_MoFinishShift.Enabled:=True;
  ExtEdt_DeptCode.Enabled:=True;
end;

procedure TFrm_Inv_MnInAudit_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  ConditionHint:=ConditionHint+'生产部门:'+ExtEdt_DeptCode.Text+' '+Lbl_DeptName.Caption+
                 '  班别：'+Cmbx_MoFinishShift.Text;
  MOFinishShift:=Cmbx_MoFinishShift.Text;
  DeptCode:=ExtEdt_DeptCode.Text;
  Condition:=Condition+' I.DeptCode='''+DeptCode+'''';
  if Cmbx_MoFinishShift.text<>'' then
  Condition:=condition+'  And I.ShiftType='''+MOFinishShift+'''';
  if ExtEdt_WhCode.text<>'' then
  Condition:=Condition+'  And I.whCode='''+ExtEdt_WhCode.text+'''';
end;

procedure TFrm_Inv_MnInAudit_C.Cmbx_MoFinishShiftExit(Sender: TObject);
begin
  inherited;
{  If Cmbx_MoFinishShift.Text='' then
  begin
    DispInfo('请选择一个班别！',1);
    Cmbx_MoFinishShift.SetFocus;
    Abort;
  end; }
end;

end.