frm_s_usrconfigpas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 80 行

unit Frm_S_UsrConfigPas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, Menus, StdCtrls, ExtCtrls, YLabelButton, ChangeImage,
  ImgList, UErrDisplay;

type
  TFrm_S_UsrConfig = class(TMyModalForm)
    Label2: TLabel;
    EdtPassword: TEdit;
    ChangeImg15: TChangeImg;
    LabelB16: TLabelB;
    ChangeImg16: TChangeImg;
    LabelB17: TLabelB;
    procedure ChangeImg15Click(Sender: TObject);
    procedure ChangeImg16Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    passnum: integer;
  public
    { Public declarations }
  end;

var
  Frm_S_UsrConfig: TFrm_S_UsrConfig;

implementation

uses DM_DataModal, UGlobal, frm_s_ReparPassWordpas, UGeneralFunc;

{$R *.dfm}

procedure TFrm_S_UsrConfig.ChangeImg15Click(Sender: TObject);
var
   msg: string;
   a_systemtime: _systemtime;
   aComputerName: array[0..254] of Char;
   j: Cardinal;
   sDate: string;
   sTime: string;
begin
   inherited;
   j := sizeof(aComputerName);
   getComputerName(aComputerName, j);
   with winddata.pZx_S_czydl do
   begin
      parameters.ParamByName('@czybh').Value := gtUser.UsrName;
      parameters.ParamByName('@password').Value := Encode(EdtPassword.Text, 13);
      parameters.ParamByName('@jsjmc').Value := trim(aComputerName);
      execproc;
      if parameters.ParamByName('@return_value').Value <> 0 then
      begin
         msg := parameters.ParamByName('@retmsg').Value;
         application.MessageBox(pchar(msg), '用户登录', mb_ok + mb_iconwarning);
         inc(passnum);
         if passnum > 2 then ModalResult := mrCancel;
         exit;
      end;
   end;
   ModalResult := mrOK;
end;

procedure TFrm_S_UsrConfig.ChangeImg16Click(Sender: TObject);
begin
  inherited;
  ModalResult := mrCancel;
end;

procedure TFrm_S_UsrConfig.FormCreate(Sender: TObject);
begin
  inherited;
Passnum := 0;
end;

end.