examples/CBuilder/ExUsrMg0.cpp

// ***** 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 *****
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ExUsrMg0.h"
#include "ExUsrMg1.h"
#include "ExUsrMg2.h"
#include "ExUsrMg3.h"
#include "ExUsrMg4.h"
#pragma link "stnet"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::SelectServer1Click(TObject *Sender)
{
  String SelectedServer;
  if (InputQuery("Server name", "Select the server name to use", SelectedServer)) {
    CS = StNetwork->Server[SelectedServer];

    if (CS) {

      // load the users into the listview
      ListView1->Items->Clear();
      UL = CS->Users;
      for (int i=0;i<UL->Count;i++) {
        TStNetUserItem* U = (TStNetUserItem*)UL->Objects[i];
        if ((U->ItemType == nitLocalUser) || (U->ItemType == nitGlobalUser)) {
          TListItem* LI = ListView1->Items->Add();
          LI->Caption = U->Name;
          LI->SubItems->Add(U->FullName);
          LI->SubItems->Add(U->Comment);
        }
      }

      // load the groups into the listview
      ListView2->Items->Clear();
      GL = CS->Groups;
      for (int i=0;i<GL->Count;i++) {
        TStNetGroupItem* G = (TStNetGroupItem*)GL->Objects[i];
        if ((G->ItemType == nitLocalGroup) || (G->ItemType == nitGlobalGroup)) {
          TListItem* LI = ListView2->Items->Add();
          LI->Caption = G->Name;
          LI->SubItems->Add(G->Comment);
        }
      }

      // check for GloableGroup creation on domain controllers
      if (CS->ServerType.Contains(nsvtDomainCtrl) || CS->ServerType.Contains(nsvtDomainBackupCtrl))
        NewGlobalGroup1->Enabled = true;
      else
        NewGlobalGroup1->Enabled = false;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::About1Click(TObject *Sender)
{
  String AdditionalText = "An network example program from the TurboPower SysTools Library";
  String Caption = MainForm->Caption;
  Application->MessageBox(AdditionalText.c_str(), Caption.c_str(), MB_OK | MB_ICONINFORMATION);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Properties1Click(TObject *Sender)
{
  TListItem* LI;
  // Are we dealing with a user or group?
  if (ListView1->Focused() && ListView1->SelCount > 0) {
    LI = ListView1->Selected;

    TUserPropertiesForm* UPF = new TUserPropertiesForm(this);
    UPF->U = (TStNetUserItem*)UL->Objects[UL->IndexOf(LI->Caption)];
    if (UPF->ShowModal() == mrOk) {
      // 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"))
        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;
    }
    delete UPF;
  } else if (ListView2->Focused() && ListView2->SelCount > 0) {
    LI = ListView2->Selected;
    TGroupPropertiesForm* GPF = new TGroupPropertiesForm(this);
    GPF->G = (TStNetGroupItem*)GL->Objects[GL->IndexOf(LI->Caption)];
    if (GPF->ShowModal()) {
      // 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;
    }
    delete GPF;
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Delete1Click(TObject *Sender)
{
  TListItem* LI;
  // Are we dealing with a user or group?
  if (ListView1->Focused() && ListView1->SelCount > 0) {
    LI = ListView1->Selected;
    TStNetUserItem* U = (TStNetUserItem*)UL->Objects[UL->IndexOf(LI->Caption)];

    if (MessageDlg("Are you sure you want to delete the user - [" + U->Name + "]?",
      mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
      U->Delete();
      LI->Delete();
    }
  } else if (ListView2->Focused() && ListView2->SelCount > 0) {
    LI = ListView2->Selected;
    TStNetGroupItem* G = (TStNetGroupItem*)GL->Objects[GL->IndexOf(LI->Caption)];
    if (MessageDlg("Are you sure you want to delete the group - [" + G->Name + "]?",
      mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
      G->Delete();
      LI->Delete();
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ListViewKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if (Key == VK_RETURN) {
    Properties1Click(Sender);
  }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NewUser1Click(TObject *Sender)
{
  if (!CS)
    return;
  // Create a new user
  TNewUserForm* NU = new TNewUserForm(this);
  NU->Caption = CS->Name + " - New User Account";
  if (NU->ShowModal() == mrOk) {
    TStNetUserItem* U = CS->AddUser(NU->UserNameEdit->Text, NU->Password1Edit->Text, true);
    U->FullName = NU->FullNameEdit->Text;
    U->Comment  = NU->CommentEdit->Text;

    TListItem* LI = ListView1->Items->Add();
    LI->Caption = U->Name;
    LI->SubItems->Add(U->FullName);
    LI->SubItems->Add(U->Comment);

    UL = CS->Users;
  }
  delete NU;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NewGlobalGroup1Click(TObject *Sender)
{
  if (!CS)
    return;
  // Create a new global group
  TNewGroupForm* NG = new TNewGroupForm(this);
  NG->Caption = CS->Name + " - New Global Group";
  if (NG->ShowModal() == mrOk) {
    TStNetGroupItem* G = CS->AddGroup(NG->GroupNameEdit->Text, NG->CommentEdit->Text, true);

    TListItem* LI = ListView2->Items->Add();
    LI->Caption = G->Name;
    LI->SubItems->Add(G->Comment);

    GL = CS->Groups;
  }
  delete NG;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::NewLocalGroup1Click(TObject *Sender)
{
  if (!CS)
    return;
  // create a new local group
  TNewGroupForm* NG = new TNewGroupForm(this);
  NG->Caption = CS->Name + " - New Local Group";
  if (NG->ShowModal() == mrOk) {
    TStNetGroupItem* G = CS->AddGroup(NG->GroupNameEdit->Text, NG->CommentEdit->Text, false);

    TListItem* LI = ListView2->Items->Add();
    LI->Caption = G->Name;
    LI->SubItems->Add(G->Comment);

    GL = CS->Groups;
  }
  delete NG;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Exit1Click(TObject *Sender)
{
  Close();    
}
//---------------------------------------------------------------------------
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			#include <vcl.h>
27			#pragma hdrstop
28
29			#include "ExUsrMg0.h"
30			#include "ExUsrMg1.h"
31			#include "ExUsrMg2.h"
32			#include "ExUsrMg3.h"
33			#include "ExUsrMg4.h"
34			#pragma link "stnet"
35			//---------------------------------------------------------------------------
36			#pragma package(smart_init)
37			#pragma resource "*.dfm"
38			TMainForm *MainForm;
39			//---------------------------------------------------------------------------
40			__fastcall TMainForm::TMainForm(TComponent* Owner)
41			: TForm(Owner)
42			{
43			}
44			//---------------------------------------------------------------------------
45			void __fastcall TMainForm::SelectServer1Click(TObject *Sender)
46			{
47			String SelectedServer;
48			if (InputQuery("Server name", "Select the server name to use", SelectedServer)) {
49			CS = StNetwork->Server[SelectedServer];
50
51			if (CS) {
52
53			// load the users into the listview
54			ListView1->Items->Clear();
55			UL = CS->Users;
56			for (int i=0;i<UL->Count;i++) {
57			TStNetUserItem* U = (TStNetUserItem*)UL->Objects[i];
58			if ((U->ItemType == nitLocalUser) \|\| (U->ItemType == nitGlobalUser)) {
59			TListItem* LI = ListView1->Items->Add();
60			LI->Caption = U->Name;
61			LI->SubItems->Add(U->FullName);
62			LI->SubItems->Add(U->Comment);
63			}
64			}
65
66			// load the groups into the listview
67			ListView2->Items->Clear();
68			GL = CS->Groups;
69			for (int i=0;i<GL->Count;i++) {
70			TStNetGroupItem* G = (TStNetGroupItem*)GL->Objects[i];
71			if ((G->ItemType == nitLocalGroup) \|\| (G->ItemType == nitGlobalGroup)) {
72			TListItem* LI = ListView2->Items->Add();
73			LI->Caption = G->Name;
74			LI->SubItems->Add(G->Comment);
75			}
76			}
77
78			// check for GloableGroup creation on domain controllers
79			if (CS->ServerType.Contains(nsvtDomainCtrl) \|\| CS->ServerType.Contains(nsvtDomainBackupCtrl))
80			NewGlobalGroup1->Enabled = true;
81			else
82			NewGlobalGroup1->Enabled = false;
83			}
84			}
85			}
86			//---------------------------------------------------------------------------
87			void __fastcall TMainForm::About1Click(TObject *Sender)
88			{
89			String AdditionalText = "An network example program from the TurboPower SysTools Library";
90			String Caption = MainForm->Caption;
91			Application->MessageBox(AdditionalText.c_str(), Caption.c_str(), MB_OK \| MB_ICONINFORMATION);
92			}
93			//---------------------------------------------------------------------------
94			void __fastcall TMainForm::Properties1Click(TObject *Sender)
95			{
96			TListItem* LI;
97			// Are we dealing with a user or group?
98			if (ListView1->Focused() && ListView1->SelCount > 0) {
99			LI = ListView1->Selected;
100
101			TUserPropertiesForm* UPF = new TUserPropertiesForm(this);
102			UPF->U = (TStNetUserItem*)UL->Objects[UL->IndexOf(LI->Caption)];
103			if (UPF->ShowModal() == mrOk) {
104			// update the data
105			UPF->U->Name = UPF->UserNameEdit->Text;
106			UPF->U->FullName = UPF->FullNameEdit->Text;
107			UPF->U->Comment = UPF->CommentEdit->Text;
108
109			if ((UPF->Password1Edit->Text != "NO PASSWORD CHANGE"))
110			UPF->U->Password = UPF->Password1Edit->Text;
111
112			LI->Caption = UPF->U->Name;
113			LI->SubItems->Strings[0] = UPF->U->FullName;
114			LI->SubItems->Strings[1] = UPF->U->Comment;
115			}
116			delete UPF;
117			} else if (ListView2->Focused() && ListView2->SelCount > 0) {
118			LI = ListView2->Selected;
119			TGroupPropertiesForm* GPF = new TGroupPropertiesForm(this);
120			GPF->G = (TStNetGroupItem*)GL->Objects[GL->IndexOf(LI->Caption)];
121			if (GPF->ShowModal()) {
122			// update the data
123			GPF->G->Name = GPF->GroupNameEdit->Text;
124			GPF->G->Comment = GPF->CommentEdit->Text;
125
126			LI->Caption = GPF->G->Name;
127			LI->SubItems->Strings[0] = GPF->G->Comment;
128			}
129			delete GPF;
130			}
131			}
132			//---------------------------------------------------------------------------
133			void __fastcall TMainForm::Delete1Click(TObject *Sender)
134			{
135			TListItem* LI;
136			// Are we dealing with a user or group?
137			if (ListView1->Focused() && ListView1->SelCount > 0) {
138			LI = ListView1->Selected;
139			TStNetUserItem* U = (TStNetUserItem*)UL->Objects[UL->IndexOf(LI->Caption)];
140
141			if (MessageDlg("Are you sure you want to delete the user - [" + U->Name + "]?",
142			mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
143			U->Delete();
144			LI->Delete();
145			}
146			} else if (ListView2->Focused() && ListView2->SelCount > 0) {
147			LI = ListView2->Selected;
148			TStNetGroupItem* G = (TStNetGroupItem*)GL->Objects[GL->IndexOf(LI->Caption)];
149			if (MessageDlg("Are you sure you want to delete the group - [" + G->Name + "]?",
150			mtConfirmation, TMsgDlgButtons() << mbYes << mbNo, 0) == mrYes) {
151			G->Delete();
152			LI->Delete();
153			}
154			}
155			}
156			//---------------------------------------------------------------------------
157			void __fastcall TMainForm::ListViewKeyDown(TObject *Sender, WORD &Key,
158			TShiftState Shift)
159			{
160			if (Key == VK_RETURN) {
161			Properties1Click(Sender);
162			}
163			}
164			//---------------------------------------------------------------------------
165			void __fastcall TMainForm::NewUser1Click(TObject *Sender)
166			{
167			if (!CS)
168			return;
169			// Create a new user
170			TNewUserForm* NU = new TNewUserForm(this);
171			NU->Caption = CS->Name + " - New User Account";
172			if (NU->ShowModal() == mrOk) {
173			TStNetUserItem* U = CS->AddUser(NU->UserNameEdit->Text, NU->Password1Edit->Text, true);
174			U->FullName = NU->FullNameEdit->Text;
175			U->Comment = NU->CommentEdit->Text;
176
177			TListItem* LI = ListView1->Items->Add();
178			LI->Caption = U->Name;
179			LI->SubItems->Add(U->FullName);
180			LI->SubItems->Add(U->Comment);
181
182			UL = CS->Users;
183			}
184			delete NU;
185			}
186			//---------------------------------------------------------------------------
187			void __fastcall TMainForm::NewGlobalGroup1Click(TObject *Sender)
188			{
189			if (!CS)
190			return;
191			// Create a new global group
192			TNewGroupForm* NG = new TNewGroupForm(this);
193			NG->Caption = CS->Name + " - New Global Group";
194			if (NG->ShowModal() == mrOk) {
195			TStNetGroupItem* G = CS->AddGroup(NG->GroupNameEdit->Text, NG->CommentEdit->Text, true);
196
197			TListItem* LI = ListView2->Items->Add();
198			LI->Caption = G->Name;
199			LI->SubItems->Add(G->Comment);
200
201			GL = CS->Groups;
202			}
203			delete NG;
204			}
205			//---------------------------------------------------------------------------
206			void __fastcall TMainForm::NewLocalGroup1Click(TObject *Sender)
207			{
208			if (!CS)
209			return;
210			// create a new local group
211			TNewGroupForm* NG = new TNewGroupForm(this);
212			NG->Caption = CS->Name + " - New Local Group";
213			if (NG->ShowModal() == mrOk) {
214			TStNetGroupItem* G = CS->AddGroup(NG->GroupNameEdit->Text, NG->CommentEdit->Text, false);
215
216			TListItem* LI = ListView2->Items->Add();
217			LI->Caption = G->Name;
218			LI->SubItems->Add(G->Comment);
219
220			GL = CS->Groups;
221			}
222			delete NG;
223			}
224			//---------------------------------------------------------------------------
225			void __fastcall TMainForm::Exit1Click(TObject *Sender)
226			{
227			Close();
228			}
229			//---------------------------------------------------------------------------