dfm_syspwd.pas

仓库管理系统 仓库管理系统

unit dfm_syspwd;

interface

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

type
  Tdfmsyspwd = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    Label12: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    dstuser: TDataSource;
    Label4: TLabel;
    Edit5: TEdit;
    tbltuser: TADOTable;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsyspwd: Tdfmsyspwd;

implementation

uses chHeadUnit, dbmRainbowMis;

{$R *.DFM}

procedure Tdfmsyspwd.FormCreate(Sender: TObject);
begin
//  dfmflow.Visible:=false;
  edit1.text:=g_uInfo.fuserID;
  edit5.text:=g_uInfo.fuserName;
  tbltuser.active:=true;
end;

procedure Tdfmsyspwd.BitBtn1Click(Sender: TObject);
begin
  with tbltuser do
  begin
    indexfieldnames:='cworkerid';
    if locate('cworkerid',edit1.text,[loPartialKey]) then
      if fieldbyname('cpwd').asstring=edit2.text then
        if edit3.text=edit4.text then
        begin
          edit;
          fieldbyname('cpwd').asstring:=edit4.text;
          post;
          MessageDlg('口令更改成功，将在下次登录系统时生效！', mtConfirmation,[mbYes], 0);
          dfmsyspwd.Close ;
        end
        else
          MessageDlg('新口令确认错误！', mtConfirmation,[mbYes], 0)
      else
        MessageDlg('口令错误！', mtConfirmation,[mbYes], 0)
    else
      MessageDlg('用户名错误！', mtConfirmation,[mbYes], 0);
  end;
end;

procedure Tdfmsyspwd.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tdfmsyspwd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  dfmflow.Visible:=true;
  action:=cafree;
end;

procedure Tdfmsyspwd.FormResize(Sender: TObject);
begin
//  height:=210;
//  width:=289;
end;

procedure Tdfmsyspwd.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  resize:=false;
end;

procedure Tdfmsyspwd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chHeadUnit.tabventer(dfmsyspwd,key); 
end;

end.