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.