【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了FrmChangePW.pas提供大家参考，希望对大家有所帮助!

    unit FrmChangePW;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DB, ADODB, StdCtrls;
    
    type
      TFormChangePW = class(TForm)
        Label1: TLabel;
        Label2: TLabel;
        EditUserName: TEdit;
        EditPassword: TEdit;
        BtnOK: TButton;
        BtnCancel: TButton;
        EditConfirmPassword: TEdit;
        Label3: TLabel;
        CmdChangePW: TADOCommand;
        procedure BtnOKClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FormChangePW: TFormChangePW;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFormChangePW.BtnOKClick(Sender: TObject);
    begin
            ModalResult := mrNone;
            if not(EditUserName.Text = '') and not(EditPassword.Text = '') and not(EditConfirmPassword.Text = '') then
            begin
                    if EditPassword.Text = EditConfirmPassword.Text then
                            CmdChangePW.CommandText := 'UPDATE SysUser set password = ''' + EditConfirmPassword.Text +''' where name = ''' + EditUserName.Text + '''';
                            CmdChangePW.Execute;
            end
    end;
    
    end.
    

上一篇：frmBook.pas
下一篇：临床前药物安全性评价中毒性病理学新技术的应用