uchange.pas

本程序是人事管理系统.对数据进行的操作有数据更新数据查询数据删除.本程序利用DataModuleado操作数据库,通过ado+Sqlserver数据库达成人事系统的建立.

unit UChange;

interface

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

type
  TfrmChange = class(TfrmChild)
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    edtId: TEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    dlucDept: TDBLookupComboBox;
    dName: TDBEdit;
    dlucJob: TDBLookupComboBox;
    rgChange: TRadioGroup;
    Button1: TButton;
    mmDesc: TMemo;
    meTime: TMaskEdit;
    procedure Button1Click(Sender: TObject);
    procedure edtIdChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    procedure ChangeInit;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChange: TfrmChange;

implementation

uses UModule, UMain;

{$R *.dfm}

procedure TfrmChange.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 rgChange.ItemIndex=1 then
        T_user['STATE']:='F';
      T_user.Post;
      T_change.Open;
      T_change.Append;
      T_change['ID']:=counter;
      T_change['PERSON']:=edtId.Text;
      T_change['CHANGE']:=IntToStr(rgChange.ItemIndex);
      T_change['RECORD_TIME']:=StrToDate(meTime.Text);
      T_change['DESCRIPTION']:=mmDesc.Text;
      T_change.Post;
      T_change.Close;
      ChangeInit;
    end
    else
      Application.MessageBox('请确认员工号！','输入错误',MB_OK);
  end;
end;


procedure TfrmChange.ChangeInit;
begin
  edtId.Text:='';
  DataModule1.T_user.Close;
  rgChange.ItemIndex:=0;
  meTime.Text:=DateToStr(Now);
  mmDesc.Clear;
end;

procedure TfrmChange.edtIdChange(Sender: TObject);
begin
  With DataModule1 do
  begin
    T_user.Filter:='ID='''+edtId.Text+'''';
    T_user.Filtered:=True;
    T_user.Open;
  end;
end;

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

procedure TfrmChange.FormCreate(Sender: TObject);
begin
  Main.M_change.Enabled:=False;
  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;

end.