146 lines
3.6 KiB
Plaintext
146 lines
3.6 KiB
Plaintext
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.
|