inv_qry_currentinv_employee_c.pas

一个MRPII系统源代码版本

unit Inv_Qry_CurrentInv_Employee_C;

Interface

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

Type
  TFrm_Inv_Qry_CurrentInv_Employee_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    CmBx_WhEmployee: TComboBox;
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_Qry_CurrentInv_Employee_C: TFrm_Inv_Qry_CurrentInv_Employee_C;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Inv_Qry_CurrentInv_Employee_C.btn_okClick(Sender: TObject);
var I: integer;
begin
  inherited;
  Condition:='Item.WH_EmployeeCode='''+GetCode(CmBx_WhEmployee.Text)+'''';
  ConditionHint:='仓管员： '+CmBx_WhEmployee.Text;
  ModalResult:=mrOk;
end;

procedure TFrm_Inv_Qry_CurrentInv_Employee_C.FormActivate(Sender: TObject);
begin
  inherited;
  if CmBx_WhEmployee.Items.Count=0 then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Select WhEmployee.EmployeeCode+'' ''+Employee.EmployeeName As EmployeeCodeName'
      +' From WhEmployee'
      +' Join Employee On WhEmployee.EmployeeCode=Employee.EmployeeCode'
      +' Where WhEmployee.WhEmployeeUsable=1';
    AdoQry_Tmp.Open;
    CmBx_WhEmployee.clear;
    AdoQry_Tmp.First;
    while not AdoQry_Tmp.Eof do
    begin
      CmBx_WhEmployee.Items.Add(AdoQry_Tmp.fieldbyname('EmployeeCodeName').AsString);
      AdoQry_Tmp.Next;
    end;
    CmBx_WhEmployee.ItemIndex:=0;
  end;
end;

end.