mima.pas

1.使用某一高级语言和数据库（SOL2000

unit MiMa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,inifiles;

type
  TmimaFrm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mimaFrm: TmimaFrm;

implementation

{$R *.dfm}

procedure TmimaFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   mimaFrm:=nil ;
end;

procedure TmimaFrm.SpeedButton2Click(Sender: TObject);
begin
      close;
end;

procedure TmimaFrm.SpeedButton1Click(Sender: TObject);
var
   systemini :TIniFile ;
   pass :String ;
begin
   systemini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'system.ini');
   pass:=systemini.Readstring('user','pass','');
   if (trim(Edit1.Text)<> pass ) then
        showmessage('输入的原始密码错误!请重新输入!')
   else
       if (trim(Edit2.Text)<>trim(Edit3.Text))  then showmessage('新密码不一致,请确认密码!')
           else begin
           systemini.writestring('user','pass',trim(edit2.Text)) ;
           showmessage('密码修改成功!') ;
           close;
           end;
end;

procedure TmimaFrm.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13  then SpeedButton1.Click;
end;

end.