p_ggmm.pas

小学上课排课系统,非常实用,是实际使用软件

unit p_ggmm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,p_mc, XPMenu;

type
  Tf_ggmm = class(Tf_mc)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    XPMenu1: TXPMenu;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_ggmm: Tf_ggmm;

implementation
uses p_dm,p_password;
{$R *.dfm}

procedure Tf_ggmm.FormCreate(Sender: TObject);
begin
  f_ggmm.ShowModal;
end;

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

procedure Tf_ggmm.BitBtn1Click(Sender: TObject);
begin
with dm do
begin
    t_user.Filter:='name='''+user_name+'''';
    t_user.Filtered:=true;
    if edit1.Text=t_user['password'] then  //旧密码是否正确
       begin
          if edit2.Text=edit3.Text then  //两次输入的新密码是不正确
            begin
                t_user.Edit;
                t_user['password']:=edit2.Text;
                t_user.Post;
                application.MessageBox('密码修改成功，请记住新密码!','信息',mb_ok+mb_iconinformation);
                edit1.Text:='';
                edit2.Text:='';
                edit3.Text:='';
            end
          else    //两次输入新密码不正确时
            begin
               application.MessageBox('两次输入的新密码有误，请重新输入！','错误',mb_ok+mb_iconinformation);
               edit2.Text:='';
               edit3.Text:='';
               edit2.SetFocus;
            end;
       end
    else  //旧密码不正确时
       begin
          application.MessageBox('旧密码不正确，请重新输入！','错误',mb_ok+mb_iconinformation);
          edit1.Text:='';
          edit1.SetFocus;
       end;
    t_user.Filtered:=false;
end;  //with dm do 语句完成
end;

procedure Tf_ggmm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then edit2.SetFocus;
end;

procedure Tf_ggmm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then edit3.SetFocus;
end;

procedure Tf_ggmm.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then bitbtn1.Click;
end;

end.