xgmm_u.pas

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

unit xgmm_u;

interface

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

type
  Tfrm_xgmm = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1userid: TWideStringField;
    ADOTable1password: TWideStringField;
    Label1: TLabel;
    old_Edit: TEdit;
    Label2: TLabel;
    new_Edit1: TEdit;
    Label3: TLabel;
    new_Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_xgmm: Tfrm_xgmm;

implementation

uses LOGIN_U;

{$R *.dfm}

procedure Tfrm_xgmm.BitBtn1Click(Sender: TObject);
begin
  if old_edit.Text<>adotable1.Lookup('password',old_edit.Text,'password') then
  begin
    messagebox(0,'原密码输入错误!','错误提示',mb_iconerror+mb_ok);
    exit;
  end;
  if new_edit1.Text<>new_edit2.Text then
  begin
    messagebox(0,'两次输入的新密码不同!','错误提示',mb_iconerror+mb_ok);
  end
  else
  begin
    adotable1.Locate('userid',userid_v,[]);
    if datasource1.DataSet.State<>dsedit then
    begin
      datasource1.DataSet.Edit;
      adotable1.FieldByName('password').Value:=new_edit2.text;
      datasource1.dataset.post;
      messagebox(0,'密码修改成功,请牢记新密码!','密码修改',mb_iconinformation+mb_ok);
      self.Close;
    end;
  end;
end;

procedure Tfrm_xgmm.BitBtn2Click(Sender: TObject);
begin
  if datasource1.DataSet.State=dsedit then
  begin
    if messagebox(0,'是否保存数据?','提示信息',mb_iconquestion+mb_yesno)=idyes then
      datasource1.DataSet.Post
    else
      datasource1.DataSet.Cancel;
  end;
  self.Close;
end;

procedure Tfrm_xgmm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Free;
end;

procedure Tfrm_xgmm.FormCreate(Sender: TObject);
var
  dbfilename,connstr:string;
begin
  dbfilename:=extractfilepath(application.ExeName)+'data\sfsb.mdb';
  connstr:='Provider=Microsoft.Jet.OLEDB.4.0;'+
          'Data Source=%s;Persist Security Info=False;'+
          'Jet OLEDB:Database Password=%s';
  adoconnection1.ConnectionString:=format(connstr,[dbfilename,'tjz929']);
  if datasource1.DataSet.State=dsinactive then datasource1.DataSet.Open;
end;

end.