unit Startfrm;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, NwBindry, NWConn, NWServ, StdCtrls, User, Buttons,
  ExtCtrls, PassForm, SvrUTil;

type
  TForm1 = class(TForm)

    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure AppActivate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    FirstTime: Boolean;
    { Public declarations }
  end;

var
  Form1: TForm1;
  UzerID: String;
implementation

{$R *.DFM}



procedure TForm1.AppActivate(Sender: TObject);
begin
  if FirstTime=FALSE then
  begin
    FirstTime:=True;

  end;
  FormActivate(Sender);
end;


procedure TForm1.FormCreate(Sender: TObject);
var Lvl, ID: Byte;
    UserName: String;
    OwnID: Longint;
begin
  Application.OnActivate:=AppActivate;
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  BtnBottomDlg.ShowModal;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  BtnBottomDlg.ShowModal;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var IDz: Byte;
begin
  {Password Util}
  UzerID:='';
  GetPrimaryConnectionID(IDz);
  if GetUserAtConnection(IDz,UzerID)=TRUE then
  begin
    if BtnBottomDlg1.ShowModal=mrOK then
    begin
      if VerifyEncrBinderyObjectPassword(UzerID, OT_USER, BtnBottomDlg1.Edit1.Text)=FALSE
      then MessageDlg('Could not verify password!', mtError, [mbOK], 0)
      else begin
        {Change Password}
        if BtnBottomDlg1.Edit2.Text=BtnBottomDlg1.Edit3.Text then
        begin
          if ChangeEncrBinderyObjectPassword(UzerID, OT_USER, BtnBottomDlg1.Edit1.Text, BtnBottomDlg1.Edit2.Text)=FALSE
          then MessageDlg('Could not Change Password', mtError, [mbOK], 0) else
            MessageDlg('Password Changed', mtInformation, [mbOK], 0);
        end else MessageDlg('New Passwords don''t match!', mtError, [mbOK], 0);
      end
    end
  end else MessageDlg('Could not fetch User Name!', mtError, [mbOK], 0);
end;

procedure TForm1.FormActivate(Sender: TObject);
var ID, Lvl: Byte;
    OwnID: Longint;
    UserIDB, UserName: String;
begin
  UserIDB:='';
  SpeedButton3.Enabled:=CheckConsolePrivileges;
  GetBinderyAccessLevel(Lvl, OwnID);
  SpeedButton2.Enabled:=(Lvl=$33);
  GetPrimaryConnectionID(ID);
  GetUserAtConnection(ID,UserIDB);
  Panel2.Caption:=UserIDB;
  UserNAme:='';
  GetFileServerName(ID,UserName);
  if UserName='' then
  begin
    UserName:='No Server!';
    SpeedButton1.Enabled:=False;
  end else SpeedButton1.Enabled:=True;
  Panel1.Caption:=UserName;

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  FormActivate(Self);
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  BtnRightDlg1.ShowModal;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  MessageDlg('Welcome to NWE Administrator by James Jeffrey. Please read README for licence/warning etc. info.',
    mtInformation, [mbOK], 0);
end;

end.