www.pudn.com > xinshengruxue.rar > modimm.pas

unit modimm; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls,main,modiuser, DB, DBTables, Buttons; 
 
type 
  Tmodimm_Form = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Edit3: TEdit; 
    BitBtn1: TBitBtn; 
    BitBtn2: TBitBtn; 
 
    procedure FormClose(Sender: TObject;var Action:TCloseAction); 
 
    procedure BitBtn1Click(Sender: TObject); 
    procedure BitBtn2Click(Sender: TObject); 
     
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  modimm_Form: Tmodimm_Form; 
 
implementation 
 
{$R *.dfm} 
 
procedure Tmodimm_Form.FormClose(Sender: TObject;var Action:TCloseAction); 
  begin 
      Main_Form.Open_Form_number:=Main_Form.Open_Form_number-1; 
   if  Main_Form.Open_Form_number=0 then 
   Main_Form.N15.Enabled:=true; 
     Main_Form.N13.Enabled:=true; 
    Action:=caFree; 
end; 
procedure Tmodimm_Form.BitBtn1Click(Sender: TObject); 
var 
yhm,oldpass,newpass,qrpass,sqlstr:string; 
 
begin 
    yhm:=Trim(Main_Form.dlname); 
    oldpass:=Trim(Edit1.Text); 
    newpass:=trim(Edit2.Text); 
    if Length(Newpass)<3 then 
     begin 
       ShowMessage('密码由3～20个字符组成!'); 
       exit; 
     end; 
       qrpass:=Trim(Edit3.Text); 
    if Length(qrpass)<3 then 
    begin 
      ShowMessage('密码由3～20个字符组成!'); 
      exit; 
    end; 
    if newpass<>qrpass then 
       begin 
         ShowMessage('确认密码不相同!'); 
         exit; 
       end; 
    sqlstr:='select *from [users] where(用户名='''+yhm+''')and(密码='''+oldpass+''')'; 
    with TQuery.Create(nil) do 
    begin 
        try 
         close; 
          SessionName:=Main_Form.Database1.SessionName; 
          DatabaseName:=Main_Form.Database1.DatabaseName; 
          SQL.Clear; 
          SQl.Add(sqlstr); 
          Open; 
          if RecordCount<1 then 
           begin 
             ShowMessage('原密码错误，'+yhm+',改密无效!'); 
             exit; 
           end; 
          sqlstr:='update [users] set 密码='''+newpass+'''where(用户名='''+yhm+''')'; 
           SQL.Clear; 
           SQL.Add(sqlstr); 
           ExecSQL; 
         finally 
          Free; 
          end; 
        end; 
        ShowMessage('改密成功'); 
        Main_Form.N13.Enabled:=true; 
        close; 
end; 
 
 
procedure Tmodimm_Form.BitBtn2Click(Sender: TObject); 
begin 
    Main_Form.N13.Enabled:=true; 
    close; 
 
end; 
 
end.