stk_whemployee_d.pas

一个MRPII系统源代码版本

unit Stk_WhEmployee_D;

Interface

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

Type
  TFrm_Stk_WhEmployee_D = Class(TFrm_Base_Detail)
    Label4: TLabel;
    CmBx_Usable: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Lbl_EmployeeName1: TLabel;
    Extedt_EmployeeCode1: TExtEdit;
    Extedt_EmployeeCode: TLinkEdit;
    Lbl_EmployeeName: TEdit;
    procedure EmployeeCodeCheck(Sender: TObject);
    procedure Extedt_EmployeeCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Extedt_EmployeeCodeButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetStatus(CurrentStatus:String;var EnableControls:String);Override;
    procedure InitControls; Override;
    procedure SaveData; Override;
  end;

var
  Frm_Stk_WhEmployee_D: TFrm_Stk_WhEmployee_D;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Stk_WhEmployee_D.InitControls;
begin
  inherited;
  with AdoQry_Maintain do
  begin
    ExtEdt_EmployeeCode.Text:=fieldbyname('EmployeeCode').AsString;
    Lbl_EmployeeName.text:=fieldbyname('EmployeeName').AsString;
    if fieldbyname('WhEmployeeUsable').AsInteger=1 then
      CmBx_Usable.ItemIndex:=1
    else
      CmBx_Usable.ItemIndex:=0;
  end;
  Lbl_EmployeeName.Enabled :=False;
end;

procedure TFrm_Stk_WhEmployee_D.SaveData;
begin
  inherited;
  AdoQry_Tmp.Close;
  if(Status='Add')then
    AdoQry_Tmp.SQL.Text:='Insert WhEmployee(EmployeeCode,WhEmployeeUsable)'
      +' Values('
      +' '''+ExtEdt_EmployeeCode.Text+''''
      +','+IntToStr(CmBx_Usable.ItemIndex)+''
      +')'
  else
    AdoQry_Tmp.SQL.Text:='Update WhEmployee'
      +' Set WhEmployeeUsable='+IntToStr(CmBx_Usable.ItemIndex)+''
      +' Where EmployeeCode='''+AdoQry_Maintain.fieldbyname('EmployeeCode').AsString+'''';
  AdoQry_Tmp.ExecSQL;
  
  with AdoQry_Maintain do
  begin
    fieldbyname('EmployeeCode').AsString:=ExtEdt_EmployeeCode.Text;
    fieldbyname('EmployeeName').AsString:=Lbl_EmployeeName.text;
    fieldbyname('WhEmployeeUsable').AsInteger:=CmBx_Usable.ItemIndex;
    Post;
  end;
end;

procedure TFrm_Stk_WhEmployee_D.EmployeeCodeCheck(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    Exit;
  if Status='Add' then
  begin
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:=' Select EmployeeCode  From WhEmployee '
      +' where EmployeeCode='''+Trim(ExtEdt_EmployeeCode.Text)+'''';
    AdoQry_Tmp.Open;
    if not AdoQry_Tmp.Eof then
    begin
      DispInfo('该仓管员己经定义！',1);
      TWinControl(Sender).SetFocus;
      Abort;
    end ;
    with AdoQry_Tmp do
    begin
      Close;
      sql.clear;
      SQL.Text:=' Select EmployeeName where EmployeeCode= '
                  +' where EmployeeCode='''+Trim(ExtEdt_EmployeeCode.Text)+'''';
      Open;
      if not isempty then
        Lbl_EmployeeName.text:=fieldbyname('EmployeeName').asstring;
    end;
  end;
end;

procedure TFrm_Stk_WhEmployee_D.SetStatus(CurrentStatus:String;
  var EnableControls:String);
begin
  if CurrentStatus='Edit' then
    EnableControls:='CmBx_Usable,'
  else if CurrentStatus='Add' then
    EnableControls:='CmBx_Usable,Extedt_EmployeeCode,';
  if Status='Add' then
    SetFocus_Control:=Extedt_EmployeeCode
  else
    SetFocus_Control:=CmBx_Usable;
end;

procedure TFrm_Stk_WhEmployee_D.Extedt_EmployeeCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  if(Key=120)then
    CommonHint(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');

end;

procedure TFrm_Stk_WhEmployee_D.Extedt_EmployeeCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommonHint(Sender,AdoQry_Tmp,'EmployeeName','人员名称','EmployeeCode','人员代码','Employee');
end;

end.