inv_mnoutaudit_c.pas

一个MRPII系统源代码版本

unit Inv_MnOutAudit_C;

Interface

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

Type
  TFrm_Inv_MnOutAudit_C = Class(TFrm_Base_Condition)
    Extedt_DeptCode1: TExtEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lbl_DeptName1: TLabel;
    cmbbx_Shift: TComboBox;
    lbl_DeptName: TEdit;
    Extedt_DeptCode: TLinkEdit;
    procedure btn_okClick(Sender: TObject);
    procedure Extedt_DeptCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Extedt_DeptCodeButtonClick(Sender: TObject);
    procedure DeptCodeCheck(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDBConnect(AdOConnection:TAdOConnection); Override ;
  end;

var
  Frm_Inv_MnOutAudit_C: TFrm_Inv_MnOutAudit_C;

implementation

uses Sys_Global;

{$R *.DFM}

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

procedure TFrm_Inv_MnOutAudit_C.btn_okClick(Sender: TObject);
begin
  inherited;
  //条件回处Head
  Condition:='(o.DeptCode='''+Extedt_DeptCode.text+''' and o.shiftType='''+cmbbx_Shift.text+'''';
  ConditionHint:='领料部门：'+Trim(Extedt_DeptCode.text)+' '+Trim(lbl_DeptName.text)+',班别：'+cmbbx_Shift.text;
  modalResult:=mrok;
end;

procedure TFrm_Inv_MnOutAudit_C.Extedt_DeptCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');
end;

procedure TFrm_Inv_MnOutAudit_C.Extedt_DeptCodeButtonClick(Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'DeptName','部门名称','DeptCode','部门代码','Dept');

end;

procedure TFrm_Inv_MnOutAudit_C.DeptCodeCheck(Sender: TObject);
begin
  inherited;
  with AdoQry_tmp do
  begin
    Close;
    sql.clear;
    sql.Text :='select DeptName from Dept where DeptCode='''+Trim(Extedt_DeptCode.text)+'''';
    open;
    lbl_DeptName.text:=fieldbyname('DeptName').asstring;
  end;
end;

end.