sy140.~pas

一套融入了系统营销管理思想的管理软件产品

unit SY140;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseDialog, StdCtrls, Db, DBTables, Buttons;

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

var
  fmSY140: TfmSY140;

implementation

uses PublicFunction, Main, DataModule;

var
  sPrevPassword : String;

{$R *.DFM}

procedure TfmSY140.PrepareDlg;
begin
  with qyTemp do begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT UserID, UserName, PasswordCode ');
    SQL.Add('FROM Users ');
    SQL.Add('WHERE CompanyID = :CompanyID AND UserID = :UserID ');
    ParamByName('CompanyID').AsString := sCompanyID;
    ParamByName('UserID').AsString := sUserID;
    Open;
  end;
  sPrevPassword := qyTemp.FieldByName('PasswordCode').AsString;
  edUserID.Text := qyTemp.FieldByName('UserID').AsString;
  edUSerName.Text := qyTemp.FieldByName('UserName').AsString;
  edPrevPassword.Text := '';
  edNewPassword.Text := '';
  edConfirmNewPassword.Text := '';
end;

procedure TfmSY140.bnOKClick(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('