hrm130_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Hrm130_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_06, dxExEdtr, dxTL, dxDBCtrl, dxDBGrid, DB, ADODB,
  ActnList, Menus, dxCntner, ComCtrls,
  ToolWin, ExtCtrls;

type
  THrm130_01Form = class(TBas200_06Form)
    ADOQuery1H130_001: TAutoIncField;
    ADOQuery1H130_002: TStringField;
    ADOQuery1H130_003: TStringField;
    ADOQuery1H130_004: TStringField;
    dxDBGrid1H130_002: TdxDBGridMaskColumn;
    dxDBGrid1H130_003: TdxDBGridMaskColumn;
    dxDBGrid1H130_004: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ActDeleteExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm130_01Form: THrm130_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure THrm130_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM13001001');  //员工状态维护
  ADOQuery1H130_002.DisplayLabel:=GetDBString('HRM13001002');  //状态编号
  ADOQuery1H130_003.DisplayLabel:=GetDBString('HRM13001003');  //状态说明
  ADOQuery1H130_004.DisplayLabel:=GetDBString('HRM13001004');  //备注
end;

procedure THrm130_01Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure THrm130_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure THrm130_01Form.ActDeleteExecute(Sender: TObject);
begin
//删除
  if ADOQuery1.IsEmpty then
  begin
    ShowMsg('UMS10000002');  //表记录为空，操作无效
    Abort;
  end;

  //系统保留的员工状态，不能删除(1=在职,2=离职)
  if (ADOQuery1.FieldByName('H130_001').AsString='1') or
     (ADOQuery1.FieldByName('H130_001').AsString='2') then
  begin
    ShowMsg('UMS10000173');  //系统保留的员工状态，不能删除
    Abort;
  end;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select 1 from HRM150 where H150_012='+ADOQuery1.FieldByName('H130_001').AsString);
  SYSDM.qryQuery.Open;
  if not SYSDM.qryQuery.IsEmpty then
  begin
    ShowMsg('UMS10000174');  //该状态编号被员工资料表引用，不能删除
    Abort;
  end;
  inherited;
end;

procedure THrm130_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='USENM' then ParValue:=AUserName
  else if ParName='PRNDT' then ParValue:=GetDBString('COM00006006')  //列印日期
  else if ParName='PRNNM' then ParValue:=GetDBString('COM00006007')  //列印人員
  else if ParName='REPNM' then ParValue:=AReportTitle

  else if ParName='H130_002' then ParValue:=GetDBString('HRM13001002')  //状态编号
  else if ParName='H130_003' then ParValue:=GetDBString('HRM13001003')  //状态说明
  else if ParName='H130_004' then ParValue:=GetDBString('HRM13001004')  //备注
end;

initialization
  RegisterClass(THrm130_01Form);

finalization
  UnRegisterClass(THrm130_01Form);

end.