uchangeuser.pas

来自「进销存以及BOM管理,SQl Server数据库程序」· PAS 代码 · 共 106 行

unit uchangeuser;

interface

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

type
  Tfrmchangeuser = class(TfrmBase)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    btnok: TButton;
    btnexit: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnexitClick(Sender: TObject);
    procedure btnokClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmchangeuser: Tfrmchangeuser;

implementation

uses Data, main, Global;

{$R *.dfm}

procedure Tfrmchangeuser.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmchangeuser:=nil;
end;

procedure Tfrmchangeuser.btnexitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmchangeuser.btnokClick(Sender: TObject);
begin
  inherited;
  if edit1.Text='' then
     begin
      messagedlg('登录名称不能为空 !',mtError,[mbok],0);
      exit;
     end;

  if edit2.Text='' then
     begin
      messagedlg('用户不能为空 !',mtError,[mbok],0);
      exit;
     end;

       with datam.adoqlogin do
        begin
                close;
                sql.Clear;
                sql.Add('select * from tuser where fcode=:fcode');
                parameters.ParamValues['fcode']:=Trim(edit1.Text);
                open;
        end;


          if uppercase(Trim(datam.adoqlogin.FieldByName('fpwd').AsString))=
                                                  uppercase(Trim(edit2.Text)) then
                begin
                      gs_userid:=datam.adoQlogin.fieldbyname('fid').AsInteger;
                      gs_usercode:=datam.adoQlogin.fieldbyname('fcode').AsString;
                      gs_username:=datam.adoQlogin.fieldbyname('fname').AsString;
                      gs_password:=Trim(edit2.Text);
                      gs_admin:=datam.adoQlogin.fieldbyname('fadmin').AsBoolean;

                      p_writeMainini('login','UserCode',gs_UserCode);

                      frmmain.StatusBar.Panels[0].Text:=SystemName;
                      frmmain.StatusBar.Panels[1].Text:='当前用户 : '+gs_username;
                      frmmain.StatusBar.Panels[2].Text:='当前使用帐套 : '+AccountName;
                      close;
                end
                else
                begin
                       messagedlg('密码错误 , 请输入正确的密码 ! ',mtError,[mbok],0);
                       edit2.Text:='';
                       edit2.SetFocus();
                end;
end;

procedure Tfrmchangeuser.Button1Click(Sender: TObject);
begin
  inherited;
  showmessage(AccountName);
end;

end.