changepwd.pas

三层ERP系统 (SQL)

unit Changepwd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Base_C;

type
  Tfrmchangepwd = class(TfrmBase_C)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    btnExit: TButton;
    btnOK: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnExitClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangepwd: Tfrmchangepwd;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmchangepwd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmchangepwd:=nil;
end;

procedure Tfrmchangepwd.btnExitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmchangepwd.btnOKClick(Sender: TObject);
var
  strsql:string;
begin
  inherited;
  if edit1.Text='' then
    begin
      messagedlg('