examples/Delphi/EXUSRMG0.pas

(* ***** BEGIN LICENSE BLOCK *****
 * Version: MPL 1.1
 *
 * The contents of this file are subject to the Mozilla Public License Version
 * 1.1 (the "License"); you may not use this file except in compliance with
 * the License. You may obtain a copy of the License at
 * http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
 * for the specific language governing rights and limitations under the
 * License.
 *
 * The Original Code is TurboPower SysTools
 *
 * The Initial Developer of the Original Code is
 * TurboPower Software
 *
 * Portions created by the Initial Developer are Copyright (C) 1996-2002
 * the Initial Developer. All Rights Reserved.
 *
 * Contributor(s):
 *
 * ***** END LICENSE BLOCK ***** *)

unit EXUSRMG0;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ExtCtrls,

  StNet;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    User1: TMenuItem;
    About1: TMenuItem;
    NewUser1: TMenuItem;
    NewGlobalGroup1: TMenuItem;
    N1: TMenuItem;
    Delete1: TMenuItem;
    Properties1: TMenuItem;
    N2: TMenuItem;
    SelectServer1: TMenuItem;
    N3: TMenuItem;
    Exit1: TMenuItem;
    NewLocalGroup1: TMenuItem;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    ListView1: TListView;
    ListView2: TListView;
    procedure SelectServer1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Properties1Click(Sender: TObject);
    procedure Delete1Click(Sender: TObject);
    procedure ListViewKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure NewUser1Click(Sender: TObject);
    procedure NewGlobalGroup1Click(Sender: TObject);
    procedure NewLocalGroup1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    CS : TStNetServerItem;
    UL : TStringList;
    GL : TStringList;
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

uses EXUSRMG1, EXUSRMG2, EXUSRMG3, EXUSRMG4;

procedure TMainForm.SelectServer1Click(Sender: TObject);
var
  SelectedServer : string;
  I : Integer;
  U : TStNetUserItem;
  G : TStNetGroupItem;
  LI : TListItem;
begin
  if InputQuery('Server name', 'Select the server name to use', SelectedServer) then begin
    CS := StNetwork.Server[SelectedServer];

    if CS <> nil then begin

      { load the users into the listview }
      ListView1.Items.Clear;
      UL := CS.Users;
      for I := 0 to UL.Count-1 do begin
        U := TStNetUserItem(UL.Objects[I]);
        if (U.ItemType = nitLocalUser) or (U.ItemType = nitGlobalUser) then begin
          LI := ListView1.Items.Add;
          LI.Caption := U.Name;
          LI.SubItems.Add(U.FullName);
          LI.SubItems.Add(U.Comment);
        end;
      end;

      { load the groups into the listview }
      ListView2.Items.Clear;
      GL := CS.Groups;
      for I := 0 to GL.Count-1 do begin
        G := TStNetGroupItem(GL.Objects[I]);
        if (G.ItemType = nitLocalGroup) or (G.ItemType = nitGlobalGroup) then begin
          LI := ListView2.Items.Add;
          LI.Caption := G.Name;
          LI.SubItems.Add(G.Comment);
        end;
      end;

      { check for GloableGroup creation on domain controllers }
      if (nsvtDomainCtrl in CS.ServerType) or (nsvtDomainBackupCtrl in CS.ServerType) then
        NewGlobalGroup1.Enabled := True
      else
        NewGlobalGroup1.Enabled := False;
    end;
  end;
end;

procedure TMainForm.About1Click(Sender: TObject);
var
  AdditionalText, Caption : string;
begin
  AdditionalText := 'An network example program from the TurboPower SysTools Library';
  Caption := MainForm.Caption;

  Application.MessageBox(PChar(AdditionalText), PChar(Caption),
    MB_OK or MB_ICONINFORMATION);
end;

procedure TMainForm.Properties1Click(Sender: TObject);
var
  LI : TListItem;
  UPF : TUserPropertiesForm;
  GPF : TGroupPropertiesForm;
begin
  { Are we dealing with a user or group? }
  if (ListView1.Focused) and (ListView1.SelCount > 0) then begin
    LI := ListView1.Selected;

    UPF := TUserPropertiesForm.Create(Self);
    UPF.U := TStNetUserItem(UL.Objects[UL.IndexOf(LI.Caption)]);
    case UPF.ShowModal of
      mrOK :
        begin
          { update the data }
          UPF.U.Name := UPF.UserNameEdit.Text;
          UPF.U.FullName := UPF.FullNameEdit.Text;
          UPF.U.Comment := UPF.CommentEdit.Text;

          if (UPF.Password1Edit.Text <> 'NO PASSWORD CHANGE') then
            UPF.U.Password := UPF.Password1Edit.Text;

          LI.Caption := UPF.U.Name;
          LI.SubItems.Strings[0] := UPF.U.FullName;
          LI.SubItems.Strings[1] := UPF.U.Comment;
        end;

      mrCancel : ;
    end;
    UPF.Free;
  end else if (ListView2.Focused) and (ListView2.SelCount > 0) then begin
    LI := ListView2.Selected;
    GPF := TGroupPropertiesForm.Create(Self);
    GPF.G := TStNetGroupItem(GL.Objects[GL.IndexOf(LI.Caption)]);
    case GPF.ShowModal of
      mrOK :
        begin
          { update the data }
          GPF.G.Name := GPF.GroupNameEdit.Text;
          GPF.G.Comment := GPF.CommentEdit.Text;

          LI.Caption := GPF.G.Name;
          LI.SubItems.Strings[0] := GPF.G.Comment;
        end;

      mrCancel : ;
    end;
    GPF.Free;
  end;
end;

procedure TMainForm.Delete1Click(Sender: TObject);
var
  LI : TListItem;
  U : TStNetUserItem;
  G : TStNetGroupItem;
begin
  { Are we dealing with a user or group? }
  if (ListView1.Focused) and (ListView1.SelCount > 0) then begin
    LI := ListView1.Selected;
    U := TStNetUserItem(UL.Objects[UL.IndexOf(LI.Caption)]);

    if MessageDlg('Are you sure you want to delete the user - [' + U.Name + ']?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      U.Delete;
      LI.Delete;
    end;
  end else if (ListView2.Focused) and (ListView2.SelCount > 0) then begin
    LI := ListView2.Selected;
    G := TStNetGroupItem(GL.Objects[GL.IndexOf(LI.Caption)]);
    if MessageDlg('Are you sure you want to delete the group - [' + G.Name + ']?',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      G.Delete;
      LI.Delete;
    end;
  end;
end;

procedure TMainForm.ListViewKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then begin
    Properties1Click(Sender);
  end;
end;

procedure TMainForm.NewUser1Click(Sender: TObject);
var
  NU : TNewUserForm;
  U : TStNetUserItem;
  LI : TListItem;
begin
  if CS = nil then
    Exit;
  { Create a new user }
  NU := TNewUserForm.Create(Self);
  NU.Caption := Format(NU.Caption, [CS.Name]);
  case NU.ShowModal of
    mrOK :
      begin
        U := CS.AddUser(NU.UserNameEdit.Text, NU.Password1Edit.Text, True);
        U.FullName := NU.FullNameEdit.Text;
        U.Comment  := NU.CommentEdit.Text;

        LI := ListView1.Items.Add;
        LI.Caption := U.Name;
        LI.SubItems.Add(U.FullName);
        LI.SubItems.Add(U.Comment);

        U.Free;                                                        {!!.01}
        UL := CS.Users;
      end;
    mrCancel : ;
  end;
  NU.Free;
end;

procedure TMainForm.NewGlobalGroup1Click(Sender: TObject);
var
  NG : TNewGroupForm;
  G  : TStNetGroupItem;
  LI : TLIstItem;
begin
  if CS = nil then
    Exit;
  { Create a new global group }
  NG := TNewGroupForm.Create(Self);
  NG.Caption := Format(NG.Caption, [CS.Name, 'global']);
  case NG.ShowModal of
    mrOK :
      begin
        G := CS.AddGroup(NG.GroupNameEdit.Text, NG.CommentEdit.Text, True);

        LI := ListView2.Items.Add;
        LI.Caption := G.Name;
        LI.SubItems.Add(G.Comment);

        G.Free;                                                        {!!.01}
        GL := CS.Groups;
      end;
    mrCancel : ;
  end;
  NG.Free;
end;

procedure TMainForm.NewLocalGroup1Click(Sender: TObject);
var
  NG : TNewGroupForm;
  G  : TStNetGroupItem;
  LI : TLIstItem;
begin
  if CS = nil then
    Exit;
  { create a new local group }
  NG := TNewGroupForm.Create(Self);
  NG.Caption := Format(NG.Caption, [CS.Name, 'local']);
  case NG.ShowModal of
    mrOK :
      begin
        G := CS.AddGroup(NG.GroupNameEdit.Text, NG.CommentEdit.Text, False);

        LI := ListView2.Items.Add;
        LI.Caption := G.Name;
        LI.SubItems.Add(G.Comment);

        G.Free;                                                        {!!.01}
        GL := CS.Groups;
      end;
    mrCancel : ;
  end;
  NG.Free;
end;

procedure TMainForm.Exit1Click(Sender: TObject);
begin
  Close;
end;

end.
1	torben	2671	(* *** BEGIN LICENSE BLOCK ***
2			* Version: MPL 1.1
3			*
4			* The contents of this file are subject to the Mozilla Public License Version
5			* 1.1 (the "License"); you may not use this file except in compliance with
6			* the License. You may obtain a copy of the License at
7			* http://www.mozilla.org/MPL/
8			*
9			* Software distributed under the License is distributed on an "AS IS" basis,
10			* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11			* for the specific language governing rights and limitations under the
12			* License.
13			*
14			* The Original Code is TurboPower SysTools
15			*
16			* The Initial Developer of the Original Code is
17			* TurboPower Software
18			*
19			* Portions created by the Initial Developer are Copyright (C) 1996-2002
20			* the Initial Developer. All Rights Reserved.
21			*
22			* Contributor(s):
23			*
24			* *** END LICENSE BLOCK *** *)
25
26			unit EXUSRMG0;
27
28			interface
29
30			uses
31			Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
32			Menus, ComCtrls, ExtCtrls,
33
34			StNet;
35
36			type
37			TMainForm = class(TForm)
38			MainMenu1: TMainMenu;
39			User1: TMenuItem;
40			About1: TMenuItem;
41			NewUser1: TMenuItem;
42			NewGlobalGroup1: TMenuItem;
43			N1: TMenuItem;
44			Delete1: TMenuItem;
45			Properties1: TMenuItem;
46			N2: TMenuItem;
47			SelectServer1: TMenuItem;
48			N3: TMenuItem;
49			Exit1: TMenuItem;
50			NewLocalGroup1: TMenuItem;
51			Panel1: TPanel;
52			Splitter1: TSplitter;
53			Panel2: TPanel;
54			ListView1: TListView;
55			ListView2: TListView;
56			procedure SelectServer1Click(Sender: TObject);
57			procedure About1Click(Sender: TObject);
58			procedure Properties1Click(Sender: TObject);
59			procedure Delete1Click(Sender: TObject);
60			procedure ListViewKeyDown(Sender: TObject; var Key: Word;
61			Shift: TShiftState);
62			procedure NewUser1Click(Sender: TObject);
63			procedure NewGlobalGroup1Click(Sender: TObject);
64			procedure NewLocalGroup1Click(Sender: TObject);
65			procedure Exit1Click(Sender: TObject);
66			private
67			{ Private declarations }
68			public
69			{ Public declarations }
70			CS : TStNetServerItem;
71			UL : TStringList;
72			GL : TStringList;
73			end;
74
75			var
76			MainForm: TMainForm;
77
78			implementation
79
80			{$R *.DFM}
81
82			uses EXUSRMG1, EXUSRMG2, EXUSRMG3, EXUSRMG4;
83
84			procedure TMainForm.SelectServer1Click(Sender: TObject);
85			var
86			SelectedServer : string;
87			I : Integer;
88			U : TStNetUserItem;
89			G : TStNetGroupItem;
90			LI : TListItem;
91			begin
92			if InputQuery('Server name', 'Select the server name to use', SelectedServer) then begin
93			CS := StNetwork.Server[SelectedServer];
94
95			if CS <> nil then begin
96
97			{ load the users into the listview }
98			ListView1.Items.Clear;
99			UL := CS.Users;
100			for I := 0 to UL.Count-1 do begin
101			U := TStNetUserItem(UL.Objects[I]);
102			if (U.ItemType = nitLocalUser) or (U.ItemType = nitGlobalUser) then begin
103			LI := ListView1.Items.Add;
104			LI.Caption := U.Name;
105			LI.SubItems.Add(U.FullName);
106			LI.SubItems.Add(U.Comment);
107			end;
108			end;
109
110			{ load the groups into the listview }
111			ListView2.Items.Clear;
112			GL := CS.Groups;
113			for I := 0 to GL.Count-1 do begin
114			G := TStNetGroupItem(GL.Objects[I]);
115			if (G.ItemType = nitLocalGroup) or (G.ItemType = nitGlobalGroup) then begin
116			LI := ListView2.Items.Add;
117			LI.Caption := G.Name;
118			LI.SubItems.Add(G.Comment);
119			end;
120			end;
121
122			{ check for GloableGroup creation on domain controllers }
123			if (nsvtDomainCtrl in CS.ServerType) or (nsvtDomainBackupCtrl in CS.ServerType) then
124			NewGlobalGroup1.Enabled := True
125			else
126			NewGlobalGroup1.Enabled := False;
127			end;
128			end;
129			end;
130
131			procedure TMainForm.About1Click(Sender: TObject);
132			var
133			AdditionalText, Caption : string;
134			begin
135			AdditionalText := 'An network example program from the TurboPower SysTools Library';
136			Caption := MainForm.Caption;
137
138			Application.MessageBox(PChar(AdditionalText), PChar(Caption),
139			MB_OK or MB_ICONINFORMATION);
140			end;
141
142			procedure TMainForm.Properties1Click(Sender: TObject);
143			var
144			LI : TListItem;
145			UPF : TUserPropertiesForm;
146			GPF : TGroupPropertiesForm;
147			begin
148			{ Are we dealing with a user or group? }
149			if (ListView1.Focused) and (ListView1.SelCount > 0) then begin
150			LI := ListView1.Selected;
151
152			UPF := TUserPropertiesForm.Create(Self);
153			UPF.U := TStNetUserItem(UL.Objects[UL.IndexOf(LI.Caption)]);
154			case UPF.ShowModal of
155			mrOK :
156			begin
157			{ update the data }
158			UPF.U.Name := UPF.UserNameEdit.Text;
159			UPF.U.FullName := UPF.FullNameEdit.Text;
160			UPF.U.Comment := UPF.CommentEdit.Text;
161
162			if (UPF.Password1Edit.Text <> 'NO PASSWORD CHANGE') then
163			UPF.U.Password := UPF.Password1Edit.Text;
164
165			LI.Caption := UPF.U.Name;
166			LI.SubItems.Strings[0] := UPF.U.FullName;
167			LI.SubItems.Strings[1] := UPF.U.Comment;
168			end;
169
170			mrCancel : ;
171			end;
172			UPF.Free;
173			end else if (ListView2.Focused) and (ListView2.SelCount > 0) then begin
174			LI := ListView2.Selected;
175			GPF := TGroupPropertiesForm.Create(Self);
176			GPF.G := TStNetGroupItem(GL.Objects[GL.IndexOf(LI.Caption)]);
177			case GPF.ShowModal of
178			mrOK :
179			begin
180			{ update the data }
181			GPF.G.Name := GPF.GroupNameEdit.Text;
182			GPF.G.Comment := GPF.CommentEdit.Text;
183
184			LI.Caption := GPF.G.Name;
185			LI.SubItems.Strings[0] := GPF.G.Comment;
186			end;
187
188			mrCancel : ;
189			end;
190			GPF.Free;
191			end;
192			end;
193
194			procedure TMainForm.Delete1Click(Sender: TObject);
195			var
196			LI : TListItem;
197			U : TStNetUserItem;
198			G : TStNetGroupItem;
199			begin
200			{ Are we dealing with a user or group? }
201			if (ListView1.Focused) and (ListView1.SelCount > 0) then begin
202			LI := ListView1.Selected;
203			U := TStNetUserItem(UL.Objects[UL.IndexOf(LI.Caption)]);
204
205			if MessageDlg('Are you sure you want to delete the user - [' + U.Name + ']?',
206			mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
207			U.Delete;
208			LI.Delete;
209			end;
210			end else if (ListView2.Focused) and (ListView2.SelCount > 0) then begin
211			LI := ListView2.Selected;
212			G := TStNetGroupItem(GL.Objects[GL.IndexOf(LI.Caption)]);
213			if MessageDlg('Are you sure you want to delete the group - [' + G.Name + ']?',
214			mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
215			G.Delete;
216			LI.Delete;
217			end;
218			end;
219			end;
220
221			procedure TMainForm.ListViewKeyDown(Sender: TObject; var Key: Word;
222			Shift: TShiftState);
223			begin
224			if Key = VK_RETURN then begin
225			Properties1Click(Sender);
226			end;
227			end;
228
229			procedure TMainForm.NewUser1Click(Sender: TObject);
230			var
231			NU : TNewUserForm;
232			U : TStNetUserItem;
233			LI : TListItem;
234			begin
235			if CS = nil then
236			Exit;
237			{ Create a new user }
238			NU := TNewUserForm.Create(Self);
239			NU.Caption := Format(NU.Caption, [CS.Name]);
240			case NU.ShowModal of
241			mrOK :
242			begin
243			U := CS.AddUser(NU.UserNameEdit.Text, NU.Password1Edit.Text, True);
244			U.FullName := NU.FullNameEdit.Text;
245			U.Comment := NU.CommentEdit.Text;
246
247			LI := ListView1.Items.Add;
248			LI.Caption := U.Name;
249			LI.SubItems.Add(U.FullName);
250			LI.SubItems.Add(U.Comment);
251
252			U.Free; {!!.01}
253			UL := CS.Users;
254			end;
255			mrCancel : ;
256			end;
257			NU.Free;
258			end;
259
260			procedure TMainForm.NewGlobalGroup1Click(Sender: TObject);
261			var
262			NG : TNewGroupForm;
263			G : TStNetGroupItem;
264			LI : TLIstItem;
265			begin
266			if CS = nil then
267			Exit;
268			{ Create a new global group }
269			NG := TNewGroupForm.Create(Self);
270			NG.Caption := Format(NG.Caption, [CS.Name, 'global']);
271			case NG.ShowModal of
272			mrOK :
273			begin
274			G := CS.AddGroup(NG.GroupNameEdit.Text, NG.CommentEdit.Text, True);
275
276			LI := ListView2.Items.Add;
277			LI.Caption := G.Name;
278			LI.SubItems.Add(G.Comment);
279
280			G.Free; {!!.01}
281			GL := CS.Groups;
282			end;
283			mrCancel : ;
284			end;
285			NG.Free;
286			end;
287
288			procedure TMainForm.NewLocalGroup1Click(Sender: TObject);
289			var
290			NG : TNewGroupForm;
291			G : TStNetGroupItem;
292			LI : TLIstItem;
293			begin
294			if CS = nil then
295			Exit;
296			{ create a new local group }
297			NG := TNewGroupForm.Create(Self);
298			NG.Caption := Format(NG.Caption, [CS.Name, 'local']);
299			case NG.ShowModal of
300			mrOK :
301			begin
302			G := CS.AddGroup(NG.GroupNameEdit.Text, NG.CommentEdit.Text, False);
303
304			LI := ListView2.Items.Add;
305			LI.Caption := G.Name;
306			LI.SubItems.Add(G.Comment);
307
308			G.Free; {!!.01}
309			GL := CS.Groups;
310			end;
311			mrCancel : ;
312			end;
313			NG.Free;
314			end;
315
316			procedure TMainForm.Exit1Click(Sender: TObject);
317			begin
318			Close;
319			end;
320
321			end.