changepwdformunit.pas

人事管理系统帮助人们管理复杂的关系

unit ChangePwdFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TChangePwdForm = class(TForm)
    Label4: TLabel;
    CBPurview: TComboBox;
    Button2: TButton;
    Button1: TButton;
    edtPwd: TEdit;
    Label3: TLabel;
    Label2: TLabel;
    edtAccount: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }

    Procedure ShowData;
  public
    { Public declarations }
  end;

var
  ChangePwdForm: TChangePwdForm;

implementation

uses DataMUnit, LoginFormUnit;

{$R *.dfm}

Procedure TChangePwdForm.ShowData;
begin
  edtAccount.Text := DataM.ADOLogin.FieldValues['User'];
  edtPwd.Text := DataM.ADOLogin.FieldValues['Pwd'];
  CbPurview.Text := DataM.ADOLogin.FieldValues['Purview'];
end;

procedure TChangePwdForm.FormShow(Sender: TObject);
begin

  if DataM.ADOLogin.Active = true then
    DataM.ADOLogin.Close;
  DataM.ADOLogin.SQL.Clear;

  if (LoginForm.CBPurview.Text<>'总经理') and (LoginForm.CBPurview.Text<>'人事经理') then
    begin
      DBGrid1.Visible:=false;
      DataM.ADOLogin.SQL.Text :='select * from Login Where User = '''+ LoginForm.edtAccount.Text + '''';
    end
  else
    begin
      DBGrid1.Visible:=true;
      DataM.ADOLogin.SQL.Text :='select * from Login';
    end;

  DataM.ADOLogin.Prepared;
  DataM.ADOLogin.Open;
  showData;

end;

procedure TChangePwdForm.Button1Click(Sender: TObject);
var sel:integer;
begin
  
  sel:=MessageBox(0,'确定要修改该帐户密码吗？', '人事管理系统',MB_YESNO+MB_ICONQUESTION);
  if edtPwd.Text <> '' then
    begin
      if sel=IDYES then
        begin
          DataM.ADOLogin.Edit;
          DataM.ADOLogin.FieldByName('Pwd').AsString := edtPwd.Text;
          DataM.ADOLogin.Post;
        end;
    end
  else
    MessageBox(0,'密码不能为空', '人事管理系统',MB_YESNO+MB_ICONWARNING);

end;

procedure TChangePwdForm.Button2Click(Sender: TObject);
begin
  ChangePwdForm.Close;
end;

procedure TChangePwdForm.DBGrid1DblClick(Sender: TObject);
begin
  showData;
end;

end.