main_xtsz_xgmmform.~pas

校园综合管理系统源码 校园综合管理系统源码

unit main_xtsz_xgmmform;

interface

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

type
  Tmain_xtsz_xgmm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Table1: TTable;
    Edit3: TEdit;
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit2Enter(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_xtsz_xgmm: Tmain_xtsz_xgmm;

implementation

uses mainform;

{$R *.DFM}

procedure Tmain_xtsz_xgmm.Edit1Change(Sender: TObject);
begin
 if edit1.Text<>'' then
   begin
     edit2.Enabled:=true;
     label2.Enabled:=true;
    end
    else
     begin
     edit2.Enabled:=false;
     label2.Enabled:=false;
     end;

end;

procedure Tmain_xtsz_xgmm.FormShow(Sender: TObject);
begin
  table1.Filtered:=false;
  table1.Filtered:=true;
end;

procedure Tmain_xtsz_xgmm.Edit2Enter(Sender: TObject);
begin
   if edit1.Text<>table1.Fields[1].Value then
    begin
     messagebox(main_xtsz_xgmm.Handle,'原密码输入错误！','错误提示',mb_iconerror);
    label2.Enabled:=false;
    edit2.Enabled:=false;
     edit1.Text:='';
     edit1.SetFocus;
    end;
end;

procedure Tmain_xtsz_xgmm.Edit2Change(Sender: TObject);
begin
  if edit2.Text<>'' then
   begin
     edit3.Enabled:=true;
     label3.Enabled:=true;
    end
    else
     begin
     edit3.Enabled:=false;
     label3.Enabled:=false;
     end;
end;

procedure Tmain_xtsz_xgmm.BitBtn1Click(Sender: TObject);
begin
   if edit3.Text<>edit2.Text then
   begin
      messagebox(main_xtsz_xgmm.Handle,'请重新确认新密码！','提示',mb_iconerror);
      edit3.Text:='';
      edit3.SetFocus;
   end
   else
    begin
      table1.Edit;
      table1.Fields[1].Value:=edit3.Text;
      table1.Post;
       messagebox(main_xtsz_xgmm.Handle,'您的密码修改成功！','信息',mb_iconasterisk);
      close;
    end;  
end;

procedure Tmain_xtsz_xgmm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (edit1.Text<>'') and (key=#13) then
   begin
    key:=#0;
    edit2.SetFocus;
    end;
end;

procedure Tmain_xtsz_xgmm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   begin
     key:=#0;
     edit3.SetFocus;
   end;
end;

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

end.