czy_ghma.pas

人事管理程序源码

unit czy_ghma;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls,ADODB;

type
  TForm_czy_ghmm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Panel2: TPanel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_czy_ghmm: TForm_czy_ghmm;
  czybh,czyxm,czymm:string;
implementation

uses U_gzda_dm, U_main;


{$R *.DFM}

procedure TForm_czy_ghmm.FormActivate(Sender: TObject);
begin

 with gzda_dm.ADOdataset1 do begin
    if active then active:=false;
    commandtext:='select * from czrybm order by bm';
    open;
    first;
 end;
 czybh:=form_main.main_czrybm;
 czyxm:=form_main.main_czryxm;
 czymm:=form_main.main_czymm;
 edit1.Text:=czyxm;
 edit1.Refresh ;
end;

procedure TForm_czy_ghmm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TForm_czy_ghmm.Edit2Exit(Sender: TObject);
begin
  if edit2.Text ='' then abort;
  if czymm<>edit2.Text then
     begin
       showmessage('密码输入不正确,请重新输入!!');
       edit2.SetFocus ;
       abort;
     end;
end;

procedure TForm_czy_ghmm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      if czymm<>edit2.Text then
         begin
           showmessage('密码输入不正确,请重新输入!!');
           edit2.SetFocus ;
           abort;
         end;
      edit3.SetFocus ;   
    end;
end;

procedure TForm_czy_ghmm.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
     begin
       if edit4.Text<>edit3.Text then
          begin
            showmessage('新密码两次输入不相同,请重新输入!!');
            edit3.SetFocus ;
            abort;
          end;
       bitbtn1.SetFocus ;
     end;
end;

procedure TForm_czy_ghmm.BitBtn1Click(Sender: TObject);
begin
  if not ((czymm=edit2.Text) and (edit4.Text=edit3.Text)) then
     begin
       showmessage('密码输入不正确,请重新输入!!');
       edit2.SetFocus ;
       abort;
     end;

   with gzda_dm.ADOdataset1 do begin
     if locate('bm',czybh,[]) then
         begin
           edit;
           fieldbyname('mm').asstring:=edit3.Text;
           post;
         end;
     updateBatch(arALL);
     close;
   end;
   form_main.main_czymm:=edit3.Text;
   showmessage('操作员密码更换成功!!');
   close;
end;

procedure TForm_czy_ghmm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit4.SetFocus ;
end;

procedure TForm_czy_ghmm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  gzda_dm.OnDestroy(self);
end;

end.