usearch.~pas

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

unit USearch;

interface

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

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

var
  frmSearch: TfrmSearch;

implementation

uses UModule, UMain,crypt;

{$R *.dfm}

procedure TfrmSearch.FormCreate(Sender: TObject);
begin
  Main.M_search.Enabled:=False;
  Main.TB_search.Enabled:=False;
  Width:=536;
  Height:=392;
  With DataModule1 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;
  end;

end;

procedure TfrmSearch.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Main.M_search.Enabled:=True;
  Main.TB_search.Enabled:=True;
  DataModule1.T_user_2.Close;
  DataModule1.T_change_list.Close;
end;

procedure TfrmSearch.i_idChange(Sender: TObject);
begin
  With DataModule1 do
  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 TfrmSearch.Button1Click(Sender: TObject);
var
  passwd:String;
begin
  With DataModule1 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;
      i_passwd.Text:='';
    end;
  end;
end;


procedure TfrmSearch.Button2Click(Sender: TObject);
begin
  with DataModule1 do
  begin
    T_user_2.Edit;
    T_user_2.Post;
    T_change_list.Edit;
    T_change_list.Post;
  end;
end;

end.