passwordset.~pa

来自「进销存程序设计」· ~PA 代码 · 共 51 行

unit PasswordSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, fcButton, fcImgBtn, fcShapeBtn, Db, DBTables,
  Wwquery;

type
  TfmPasswordSet = class(TfmBaseDialog)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edUserID: TEdit;
    edUserName: TEdit;
    edPrevPassword: TEdit;
    edNewPassword: TEdit;
    edConfirmNewPassword: TEdit;
    Label5: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; override;
  end;

var
  fmPasswordSet: TfmPasswordSet;

implementation

uses PublicFunction, Main, DataModule;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmPasswordSet.OKBtnClick(Sender: TObject);
begin
  inherited;
  edPrevPassword.Text := UpperCase(edPrevPassword.Text);
  edNewPassword.Text := UpperCase(edNewPassword.Text);
  edConfirmNewPassword.Text := UpperCase(edConfirmNewPassword.Text);
  if Trim(edPrevPassword.Text) = '' then
  begin
    MyWarning('