sys600_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Sys600_01;

interface

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

type
  TSys600_01Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Bevel1: TBevel;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys600_01Form: TSys600_01Form;

implementation

uses SYSDATA, CommFun;

{$R *.DFM}

procedure TSys600_01Form.SetInterface;
begin
  Font.Name:=AFontName;
  Caption:=GetDBString('SYS60001001');  //更改用户密码
  Label1.Caption:=GetDBString('SYS60001002');  //用户名称
  Label2.Caption:=GetDBString('SYS60001003');  //旧密码
  Label3.Caption:=GetDBString('SYS60001004');  //新密码
  Label4.Caption:=GetDBString('SYS60001005');  //确认密码
end;

procedure TSys600_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  Edit1.Text:=AUserName;
end;

procedure TSys600_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TSys600_01Form.bbtnOkClick(Sender: TObject);
begin
  inherited;
//确定
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select S500A_003 from SYS500A where S500A_001= '+IntToStr(AUserID));
  SYSDM.qryQuery.Open;
  if EncDecStr(Edit2.Text,0)<>SYSDM.qryQuery.Fields[0].AsString then
  begin
    ShowMsg('UMS10000036');  //无效的旧密码
    Edit2.SetFocus;
    Exit;
  end;
  if Edit4.Text<>Edit3.Text then
  begin
    ShowMsg('UMS10000023');  //确认密码不正确，请重新输入
    Edit4.SetFocus;
    Exit;
  end;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('update SYS500A set S500A_003='+''''+EncDecStr(Edit3.Text,0)+''''+' where S500A_001='+IntToStr(AUserID));
  SYSDM.qryQuery.ExecSQL;
  ShowMsg('UMS10000037');  //更改密码成功
  Close;
end;

procedure TSys600_01Form.bbtnExitClick(Sender: TObject);
begin
  inherited;
//退出
  Close;
end;

procedure TSys600_01Form.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key in [vk_Return] then Perform(WM_NEXTDLGCTL, 0, 0);
  if Key=VK_F1 then
    HtmlHelp(Application.Handle, AHelpFile+'::/'+AProgramID+'.htm', $0000, nil);
end;

initialization
  RegisterClass(TSys600_01Form);

finalization
  UnRegisterClass(TSys600_01Form);

end.