search.~pas

人事管理系统 具备了很强的功能 你看了就知道！

unit search;

interface

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

type
  TF_search = class(TMDIChild)
    Label1: TLabel;
    Label2: TLabel;
    i_id: TEdit;
    Button1: TButton;
    Label3: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    i_sex: TDBRadioGroup;
    i_passwd: TEdit;
    i_name: TDBEdit;
    i_birthday: TDBEdit;
    i_address: TDBEdit;
    i_tel: TDBEdit;
    i_email: TDBEdit;
    i_specialty: TDBEdit;
    i_remark: TDBMemo;
    i_department: TDBLookupComboBox;
    i_job: TDBLookupComboBox;
    i_edu_level: TDBLookupComboBox;
    Button2: TButton;
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit1: TDBEdit;
    StaticText1: TStaticText;
    DBMemo1: TDBMemo;
    StaticText3: TStaticText;
    DBEdit2: TDBEdit;
    StaticText4: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure i_idChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_search: TF_search;

implementation

uses mainwin, DataModule, crypt;

{$R *.DFM}

procedure TF_search.FormCreate(Sender: TObject);
begin
  F_main.M_search.Enabled:=False;        //禁止"查询"菜单项
  F_main.TB_search.Enabled:=False;       //禁止"查询"按钮
  Width:=536;                            //设置窗体宽度
  Height:=422;                           //设置窗体高度
  With DataModule1 do                    //设置默认前缀为DataModule1
  begin
    if not T_department.Active then T_department.Open;   //打开部门代码表
    if not T_job.Active then T_job.Open;                 //打开职务代码表
    if not T_edu_level.Active then T_edu_level.Open;     //打开教育水平代码表
    if not T_changed.Active then T_changed.Open;         //打开人事变动代码表
    T_user_2.Close;                                      //关闭用户信息表
  end;

end;

procedure TF_search.i_idChange(Sender: TObject);
begin
  With DataModule1 do                                   //设置默认前缀为DataModule1
  begin
    T_user_2.Filter:='ID='''+i_id.Text+'''';            //设置过滤器
    T_user_2.Filtered:=True;                            //激活过滤器
    T_user_2.Open;                                      //打开用户信息表
    T_change_list.Filter:='PERSON='''+i_id.Text+'''';   //设置过滤器
    T_change_list.Filtered:=True;                       //激活过滤器
    T_change_list.Open;                                 //打开人事变更记录表
  end;
end;

procedure TF_search.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;                                   //继承父类
  F_main.M_search.Enabled:=True;               //激活"查询"菜单
  F_main.TB_search.Enabled:=True;              //激活"查询"按钮
  DataModule1.T_user_2.Close;                  //关闭用户信息表
  DataModule1.T_change_list.Close;             //关闭人事变更记录信息表
end;

procedure TF_search.Button1Click(Sender: TObject);
var
  passwd:String;
begin
  With DataModule1 do                       //设置默认前缀为DataModule1
  begin
    if T_user_2.RecordCount=1 then          //判断员工号是否存在
    begin
      passwd:=i_passwd.Text;                //提取密码字段
      passwd:=Copy(passwd+passwd,1,10);
      passwd:=Encrypt(passwd,123);
      T_user_2.Edit;                        //设置为修改状态
      T_user_2['PASSWD']:=passwd;           //修改密码
      T_user_2.Post;                        //保存
      i_passwd.Text:='';                    //清除密码输入框
    end;
  end;
end;

procedure TF_search.Button2Click(Sender: TObject);
begin
  with DataModule1 do                         //设置默认前缀为DataModule1
  begin
    T_user_2.Edit;                            //设置为修改状态
    T_user_2.Post;                            //保存
    T_change_list.Edit;                       //设置为修改状态
    T_change_list['PERSON']:=i_id.Text;       //写员工号到表里
    T_change_list.Post;                       //保存
  end;
end;

end.