hrm200_01.pas.svn-base

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

unit Hrm200_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Db,
  Grids, ExtCtrls, ComCtrls, ToolWin, Buttons, StdCtrls,
  Bas200_03, ADODB, wwDialog, Wwlocate, Wwintl,
  wwfltdlg, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, ActnList, dxdbtrel;

type
  THrm200_01Form = class(TBas200_03Form)
    lblDept: TLabel;
    lblPosition: TLabel;
    cbPosit: TComboBox;
    dsHrm100: TDataSource;
    lblStatus: TLabel;
    cbStatus: TComboBox;
    ADOQuery1H150_001: TAutoIncField;
    ADOQuery1H150_003: TStringField;
    ADOQuery1H150_004: TStringField;
    ADOQuery1H150_005: TIntegerField;
    ADOQuery1H100_002: TStringField;
    ADOQuery1H150_006: TIntegerField;
    ADOQuery1H150_007: TStringField;
    ADOQuery1H150_008: TIntegerField;
    ADOQuery1H120_003: TStringField;
    ADOQuery1H150_009: TStringField;
    ADOQuery1H150_010: TStringField;
    ADOQuery1H150_011: TDateTimeField;
    ADOQuery1H150_012: TIntegerField;
    ADOQuery1H130_003: TStringField;
    ADOQuery1H150_013: TDateTimeField;
    ADOQuery1H150_014: TStringField;
    ADOQuery1H150_015: TStringField;
    ADOQuery1H150_016: TStringField;
    ADOQuery1H150_017: TStringField;
    ADOQuery1H150_018: TDateTimeField;
    ADOQuery1H150_019: TIntegerField;
    ADOQuery1H150_021: TStringField;
    ADOQuery1H150_022: TStringField;
    ADOQuery1H150_023: TStringField;
    ADOQuery1H150_024: TIntegerField;
    qryHrm100: TADOQuery;
    qryHrm120: TADOQuery;
    qryHrm130: TADOQuery;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1H150_004: TdxDBGridColumn;
    dxDBGrid1H100_002: TdxDBGridColumn;
    dxDBGrid1H150_007: TdxDBGridColumn;
    dxDBGrid1H120_003: TdxDBGridColumn;
    dxDBGrid1H150_009: TdxDBGridColumn;
    dxDBGrid1H150_010: TdxDBGridColumn;
    dxDBGrid1H150_011: TdxDBGridDateColumn;
    dxDBGrid1H130_003: TdxDBGridColumn;
    dxDBGrid1H150_013: TdxDBGridDateColumn;
    dxDBGrid1H150_014: TdxDBGridColumn;
    dxDBGrid1H150_015: TdxDBGridColumn;
    dxDBGrid1H150_016: TdxDBGridColumn;
    dxDBGrid1H150_017: TdxDBGridColumn;
    dxDBGrid1H150_022: TdxDBGridColumn;
    dxDBGrid1H150_023: TdxDBGridColumn;
    cbDept: TComboBox;
    ADOQuery1H150_002: TStringField;
    ADOQuery1H150_020: TBooleanField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQuery1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure cbDeptChange(Sender: TObject);
  private
    { Private declarations }
  public
    datab:string;
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Hrm200_01Form: THrm200_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure THrm200_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('HRM20001001');  //人事查询报表
  lblDept.Caption:=GetDBString('HRM20001002');  //部门
  lblPosition.Caption:=GetDBString('HRM20001003');  //职务
  lblStatus.Caption:=GetDBString('HRM20001004');  //状态
  ADOQuery1H150_002.DisplayLabel:=GetDBString('HRM20001005');  //员工编号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('HRM20001006');  //员工姓名
  ADOQuery1H150_004.DisplayLabel:=GetDBString('HRM20001007');  //英文名
  ADOQuery1H100_002.DisplayLabel:=GetDBString('HRM20001008');  //部门名称
  ADOQuery1H150_007.DisplayLabel:=GetDBString('HRM20001009');  //性别
  ADOQuery1H120_003.DisplayLabel:=GetDBString('HRM20001010');  //职务名称
  ADOQuery1H150_009.DisplayLabel:=GetDBString('HRM20001011');  //籍贯
  ADOQuery1H150_010.DisplayLabel:=GetDBString('HRM20001012');  //身份字号
  ADOQuery1H150_011.DisplayLabel:=GetDBString('HRM20001013');  //到职日期
  ADOQuery1H130_003.DisplayLabel:=GetDBString('HRM20001014');  //员工状态
  ADOQuery1H150_013.DisplayLabel:=GetDBString('HRM20001015');  //出生日期
  ADOQuery1H150_014.DisplayLabel:=GetDBString('HRM20001016');  //档案编号
  ADOQuery1H150_015.DisplayLabel:=GetDBString('HRM20001017');  //住址
  ADOQuery1H150_016.DisplayLabel:=GetDBString('HRM20001018');  //婚姻状况
  ADOQuery1H150_017.DisplayLabel:=GetDBString('HRM20001019');  //电话号码
  ADOQuery1H150_022.DisplayLabel:=GetDBString('HRM20001020');  //学历
  ADOQuery1H150_023.DisplayLabel:=GetDBString('HRM20001021');  //备注
end;

procedure THrm200_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  //部门资料
  cbDept.Items.Clear;
  cbDept.Items.Add(GetDBString('COM00004007'));  //所有部门
  qryHrm100.Close;
  qryHrm100.SQL.Clear;
  qryHrm100.SQL.Add('select * from HRM100 where H100_004='+GetBoolean(True));
  qryHrm100.Open;
  while not qryHrm100.Eof do
  begin
    cbDept.Items.Add(qryHrm100.FieldByName('H100_002').AsString);
    qryHrm100.Next;
  end;
  cbDept.ItemIndex:=0;

  //职务
  cbPosit.Items.Clear;
  cbPosit.Items.Add(GetDBString('COM00004029'));  //所有职务
  qryHrm120.Close;
  qryHrm120.SQL.Clear;
  qryHrm120.SQL.Add('select * from HRM120');
  qryHrm120.Open;
  while not qryHrm120.Eof do
  begin
    cbPosit.Items.Add(qryHrm120.FieldByName('H120_003').AsString);
    qryHrm120.Next;
  end;
  cbPosit.ItemIndex:=0;

  //状态
  cbStatus.Items.Clear;
  cbStatus.Items.Add(GetDBString('COM00004030'));  //所有状态
  qryHrm130.Close;
  qryHrm130.SQL.Clear;
  qryHrm130.SQL.Add('select * from HRM130');
  qryHrm130.Open;
  while not qryHrm130.Eof do
  begin
    cbStatus.Items.Add(qryHrm130.FieldByName('H130_003').AsString);
    qryHrm130.Next;
  end;
  cbStatus.ItemIndex:=0;

  ADOQuery1.Close;
  ADOQuery1.Open;
  SetInterface;
end;

procedure THrm200_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryHrm100.Close;
  qryHrm120.Close;
end;

procedure THrm200_01Form.ADOQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  inherited;
  //所有部门
  if cbDept.ItemIndex=0 then
  begin
    //所有职务
    if cbPosit.ItemIndex=0 then
      if cbStatus.ItemIndex=0 then
        Accept:=True
      else
        Accept:=cbStatus.Text=ADOQuery1H130_003.AsString
    //某一职务
    else
      if cbStatus.ItemIndex=0 then
        Accept:=cbPosit.Text=ADOQuery1H120_003.AsString
      else
        Accept:=(cbPosit.Text=ADOQuery1H120_003.AsString) and
                (cbStatus.Text=ADOQuery1H130_003.AsString)
  end else
  //某一部门
  begin
      //所有职务
      if cbPosit.ItemIndex=0 then
        if cbStatus.ItemIndex=0 then
          Accept:=cbDept.Text=ADOQuery1H100_002.AsString
        else
          Accept:=(cbDept.Text=ADOQuery1H100_002.AsString) and
                  (cbStatus.Text=ADOQuery1H130_003.AsString)
      else  //某一职务
        if cbStatus.ItemIndex=0 then
          Accept:=(cbDept.Text=ADOQuery1H100_002.AsString) and
                  (cbPosit.Text=ADOQuery1H120_003.AsString)
        else
          Accept:=(cbDept.Text=ADOQuery1H100_002.AsString) and
                  (cbPosit.Text=ADOQuery1H120_003.AsString) and
                  (cbStatus.Text=ADOQuery1H130_003.AsString)
  end;
end;

procedure THrm200_01Form.cbDeptChange(Sender: TObject);
begin
  inherited;
  ADOQuery1.Close;
  ADOQuery1.Open;
end;

procedure THrm200_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

initialization
  RegisterClass(THrm200_01Form);

finalization
  UnRegisterClass(THrm200_01Form);

end.