change.~pas

一个很好的企业内部人事管理系统,具有基本的框架和标准的结构,很容易改成具体的复杂的应用系统

unit change;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  childwin, StdCtrls, ExtCtrls, DBCtrls, Mask;

type
  TF_change = class(TMDIChild)
    Label1: TLabel;
    i_id: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    i_change: TRadioGroup;
    Button1: TButton;
    Label5: TLabel;
    i_department: TDBLookupComboBox;
    i_name: TDBEdit;
    i_job: TDBLookupComboBox;
    Label6: TLabel;
    i_description: TMemo;
    i_time: TMaskEdit;
    procedure i_idChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure ChangeInit;
  public
    { Public declarations }
  end;

var
  F_change: TF_change;

implementation

uses DataModule, mainwin;

{$R *.DFM}

procedure TF_change.ChangeInit;
begin
  i_id.Text:='';
  DataModule1.T_user.Close;
  i_change.ItemIndex:=0;
  i_time.Text:=DateToStr(Now);
  i_description.Clear;
end;

procedure TF_change.i_idChange(Sender: TObject);
begin
  With DataModule1 do
  begin
    T_user.Filter:='ID='''+i_id.Text+'''';
    T_user.Filtered:=True;
    T_user.Open;
  end;
end;

procedure TF_change.FormCreate(Sender: TObject);
begin
  F_main.M_change.Enabled:=False;
  F_main.TB_change.Enabled:=False;
  Width:=282;
  Height:=429;
  With DataModule1 do
  begin
    if not T_department.Active then T_department.Open;
    if not T_job.Active then T_job.Open;
  end;
  ChangeInit;
end;

procedure TF_change.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  F_main.M_change.Enabled:=True;
  F_main.TB_change.Enabled:=True;
end;

procedure TF_change.Button1Click(Sender: TObject);
var
  counter:integer;
begin
  With DataModule1 do
  begin
    if T_user.RecordCount=1 then
    begin
      //获取人事变动记录号
      T_counter.Filter:='ID=''C''';
      T_counter.Filtered:=True;
      T_counter.Open;
      counter:=T_counter['COUNTER_VALUE'];
      Inc(counter);
      T_counter.Edit;
      T_counter['COUNTER_VALUE']:=counter;
      T_counter.Post;
      T_counter.Close;
      //追加人事变动记录
      T_user.Edit;
      if i_change.ItemIndex=1 then
      begin
        T_user['STATE']:='F';
      end;
      T_user.Post;
      T_change.Open;
      T_change.Append;
      T_change['ID']:=counter;
      T_change['PERSON']:=i_id.Text;
      T_change['CHANGE']:=IntToStr(i_change.ItemIndex);
      T_change['RECORD_TIME']:=StrToDate(i_time.Text);
      T_change['DESCRIPTION']:=i_description.Text;
      T_change.Post;
      T_change.Close;
      ChangeInit;
    end
    else
      Application.MessageBox('请确认员工号！','输入错误',MB_OK);
  end;
end;

end.