u_search.pas

主要是对人员信息和工资进行管理

unit U_search;

interface

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

type
  TF_search = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    i_id: TEdit;
    i_passwd: TEdit;
    Button1: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    DBEdit1: TDBEdit;
    DBMemo1: TDBMemo;
    Button2: TButton;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label12: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBCtrlGrid1: TDBCtrlGrid;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo2: TDBMemo;
    procedure FormCreate(Sender: TObject);
    procedure i_idChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_search: TF_search;

implementation
   uses U_data,u_main,u_crypt;
{$R *.dfm}

procedure TF_search.FormCreate(Sender: TObject);
begin
f_main.M_search.Enabled:=False;
F_main.TB_search.Enabled:=false;
width:=546;
height:=454;
with datam do
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;
t_user_2.Close;
t_chage_list.Close;
end;
end;

procedure TF_search.i_idChange(Sender: TObject);
begin
with datam do
 begin
  t_user_2.Filter:='ID='''+i_id.Text+'''';
  t_user_2.Filtered:=true;
  t_user_2.Open;
  T_chage_list.Filter:='personid='''+i_id.Text+'''';
  T_chage_list.Filtered:=true;
  t_chage_list.Open;
 end;
end;

procedure TF_search.Button1Click(Sender: TObject);
var
passwd:string;
begin
with datam do
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;
    showmessage('密码修改成功！');
    i_passwd.Text:='';
   end;
 end;
end;

procedure TF_search.Button2Click(Sender: TObject);
begin
datam.T_user_2.Edit;
datam.T_user_2.Post;
datam.T_chage_list.edit;
datam.T_chage_list.Post;
end;

procedure TF_search.FormClose(Sender: TObject; var Action: TCloseAction);
begin
f_main.M_search.Enabled:=true;
F_main.TB_search.Enabled:=true;
datam.T_user_2.Cancel;
datam.T_user_2.Close;
datam.T_chage_list.Cancel;
datam.T_chage_list.Close;
action:=cafree;
end;

end.