bas_employee_d.pas

一个MRPII系统源代码版本

unit Bas_Employee_D;

Interface

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

Type
  TFrm_Bas_Employee_D = Class(TFrm_Base_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edt_EmployeeCode: TEdit;
    Edt_EmployeeName: TEdit;
    lbl_DeptName: TLabel;
    ExtEdt_DeptCode: TExtEdit;
    procedure Edt_EmployeeCodeExit(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveData; Override;
    { Public declarations }
  end;

var
  Frm_Bas_Employee_D: TFrm_Bas_Employee_D;

implementation

uses Sys_Global;

{$R *.DFM}

procedure TFrm_Bas_Employee_D.Edt_EmployeeCodeExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
    exit;
  if (not BlankInStrCheck(Edt_EmployeeCode.Text,'人员代码')) or
   (not BlankCheck(Edt_EmployeeCode.text,'人员代码')) then
  begin
    TWinControl(Sender).SetFocus;
    abort;
  end;

  if (Add)or((not Add) and
    (TEdit(Sender).Text<>AdoQry_Maintain.fieldbyname('EmployeeCode').AsString)) then
  begin
    with AdoQry_Tmp do
    begin
      Close;
      SQL.clear;
      SQL.Add('Select EmployeeCode From Employee Where EmployeeCode='''+TEdit(Sender).Text+'''');
      Open;
      if fieldbyname('EmployeeCode').AsString<>'' then
      begin
        DispInfo('  人员代码已经存在，不允许增加或修改！  ',1);
        TWinControl(Sender).SetFocus;
        Abort;
      end;
    end;
  end;
end;

procedure TFrm_Bas_Employee_D.InitControls;
begin
  if Add then
  begin
    SetFocus_Control:=Edt_EmployeeCode;
    Edt_EmployeeCode.Enabled:=True;
  end
  else
    SetFocus_Control:=Edt_EmployeeName;
  inherited;
  with AdoQry_Maintain do
  begin
    Edt_EmployeeCode.Text:=fieldbyname('EmployeeCode').AsString;
    Edt_EmployeeName.Text:=fieldbyname('EmployeeName').AsString;
    ExtEdt_DeptCode.Text:=fieldbyname('DeptCode').AsString;
    lbl_DeptName.Caption:=fieldbyname('DeptName').AsString;
  end;
  if not Add then
    Edt_EmployeeCode.Enabled:=False;
end;

procedure TFrm_Bas_Employee_D.SaveData;
begin
  inherited;
  with AdoQry_Tmp do
  begin
    Close;
    if(Add)then
      SQL.Text:='Insert into Employee(EmployeeCode,EmployeeName,DeptCode)'
        +' Values('
        +' '''+Edt_EmployeeCode.Text+''''
        +','''+Edt_EmployeeName.Text+''''
        +','''+ExtEdt_DeptCode.Text+''''
        +')'
    else
      SQL.Text:='Update Employee'
        +' Set EmployeeName='''+Edt_EmployeeName.Text+''''
        +',DeptCode='''+ExtEdt_DeptCode.Text+''''
        +' Where EmployeeCode='''+AdoQry_Maintain.fieldbyname('EmployeeCode').AsString+'''';
    ExecSQL;
  end;
  with AdoQry_Maintain do
  begin
    fieldbyname('EmployeeCode').AsString:=Edt_EmployeeCode.Text;
    fieldbyname('EmployeeName').AsString:=Edt_EmployeeName.Text;
    fieldbyname('DeptCode').AsString:=ExtEdt_DeptCode.Text;
    fieldbyname('DeptName').AsString:=lbl_DeptName.Caption;
    Post;
  end;
end;

end.