zfrm_changepasswdu.pas

专业的评标管理系统

{
'┌───────────────────────────────────┐
'│**********************************************************************│
'│*** 文件名称：zfrm_projectSetUpdateU                                 *│
'│*** 功能描述：                                                       *│
'│*** 编写人员：朱华　　　　　　　　　　　　　　　      　　　　       *│
'│*** 编写日期：2001-06-06　　　　　　　　　　　　　　　      　       *│
'│*** 修改人员：　　　　　　　　　　　　　　　　　　      　           *│
'│*** 修改日期：                                                       *│
'│**********************************************************************│
'└───────────────────────────────────┘
}

unit zfrm_changepasswdU;

interface

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

type
  Tzfrm_changepasswd = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button4: TButton;
    Button3: TButton;
    Image1: TImage;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Label3: TLabel;
    Query2: TQuery;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zfrm_changepasswd: Tzfrm_changepasswd;

implementation

uses zmod_commonDateU, zmod_CommonFuncProcU;

{$R *.DFM}

procedure Tzfrm_changepasswd.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Edit3.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_changepasswd.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Button3.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_changepasswd.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  //
  if Key=#13 then
  begin
    Edit2.SetFocus ;
    Exit ;
  end;
  //
end;

procedure Tzfrm_changepasswd.Button3Click(Sender: TObject);
begin
  //
  if Trim(Edit1.Text) ='' then
  begin
    Edit1.SetFocus ;
    Exit;
  end;

  if Trim(Edit2.Text) ='' then
  begin
    Edit2.SetFocus ;
    Exit;
  end;

  if Trim(Edit3.Text) ='' then
  begin
    Edit3.SetFocus ;
    Exit;
  end;

  if Edit2.Text<>Edit3.Text then
  begin
    Application.MessageBox(
        '用户密码和确认密码不一致，请您重新输入',
        '密码错误',
        MB_Ok+MB_ICONError);
    Edit2.Text :='';
    Edit3.Text :='';
    Edit2.SetFocus ;
    Exit;
  end;

  // 检测用户
  try  {try <1> S}
    zh_Select_SQL :='select * from tm_customerinfo where ci_loginname=' + '''' + zh_ci_loginname + '''';
    Query2.Close ;
    Query2.SQL.Clear ;
    Query2.SQL.Add(zh_Select_SQL);
    Query2.Prepare ;
    Query2.Open ;
    //Query2.First ;
  except
      // 数据库错
      Application.MessageBox(
      '数据库连接错误，请您检查或系统管理员联系',
      '数据库错',
      MB_OK+MB_ICONError) ;
      Exit ;
  end; {try <1> E}

  if Query2.RecordCount = 0 then
  begin
    // 数据库错
    Edit1.Text := '' ;
    Edit2.Text := '' ;
    Edit3.Text := '' ;
      Application.MessageBox(
      '校验用户错误,请重新输入',
      '校验错误',
      MB_OK+MB_ICONError) ;
    Exit ;
  end;
  {
  zh_ci_id        := Query2.FieldByName('g_ci_id').AsInteger ;
  zh_ci_loginname := Query2.FieldByName('ci_loginname').AsString ;
  zh_ci_password  := Query2.FieldByName('ci_password').AsString ;
  zh_ci_name      := Query2.FieldByName('ci_name').AsString ;
  zh_ci_level     := Query2.FieldByName('ci_level').AsString ;
  }
  if Trim(Edit1.Text) <> (Query2.FieldByName('ci_password').AsString) then
  begin
    // 密码校验错
    // Edit1.Text := '' ;
    Edit1.Text := '' ;
    Application.MessageBox(
      '校验用户旧密码错误,请重新输入',
      '校验错误',
      MB_OK+MB_ICONError) ;
    Exit ;
  end;

  // 更新 <用户密码> 的总得分
  zh_Update_SQL := 'update tm_customerinfo set ci_password=' + Trim(Edit2.Text) + '  where ci_loginname=' + '''' + zh_ci_loginname + '''';
  zh_PublicInsDelUpdQueryP(zh_Update_SQL); //*****//

  Close ;
  //
end;

procedure Tzfrm_changepasswd.Button4Click(Sender: TObject);
begin
  //
  Close ;
  //
end;

end.