uadd.pas

来自「本程序是人事管理系统.对数据进行的操作有数据更新数据查询数据删除.本程序利用Da」· PAS 代码 · 共 105 行

unit UAdd;

interface

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

type
  TfrmAdd = class(TForm)
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    i_sex: TDBRadioGroup;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    edtPwd: TEdit;
    edtUser: TEdit;
    edtName: TEdit;
    edtBirth: TEdit;
    edtDept: TEdit;
    edtJob: TEdit;
    edtEdu_level: TEdit;
    edtMajor: TEdit;
    edtAddress: TEdit;
    edtTel: TEdit;
    edtEmail: TEdit;
    dmoRemark: TDBMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAdd: TfrmAdd;

implementation

uses UModule,crypt,UMain;

{$R *.dfm}

procedure TfrmAdd.Button1Click(Sender: TObject);
var
  passwd:String;
  counter:Integer;
begin
  if length(edtName.Text)>0 then
  begin
    passwd:=edtPwd.Text;
    //passwd:=Copy(passwd+passwd,1,10);
    passwd:=Encrypt(passwd,123);
    With DataModule1 do
    begin
      //累加员工编号计数器
      T_counter.Filter:='ID=''P''';
      T_counter.Filtered:=True;
      T_counter.Open;
      T_counter.Edit;
      T_counter['COUNTER_VALUE']:=T_counter['COUNTER_VALUE']+1;
      T_counter.Post;
      T_counter.Close;
      //增加员工个人信息记录
      T_add_user.Edit;
      T_add_user['PASSWD']:=passwd;
      T_add_user['Authority']:='3';
      T_add_user.Post;
      //获取人事变动记录号
      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_change.Open;
      T_change.Append;
      T_change['ID']:=counter;
      T_change['PERSON']:=edtUser.Text;
      T_change['CHANGE']:='2';
      T_change['RECORD_TIME']:=Now;
      T_change['DESCRIPTION']:='加入公司。';

      T_change.Post;
      T_change.Close;
    end;
    AddInit;
  end;
end;

end.