Home arrow Delphi-Kylix arrow Page 5 - Constructing the Interface for an Internet Access Control Application
DELPHI-KYLIX

Constructing the Interface for an Internet Access Control Application


In this third part to a six-part article that shows how to build an application for Internet access control, such as you might find in an Internet cafe, we will mainly be dealing with the functionality of the main server application. This is the application that will provide us with both the interface and capability to manage client sessions.

Author Info:
By: David Web
Rating: 5 stars5 stars5 stars5 stars5 stars / 2
September 02, 2008
TABLE OF CONTENTS:
  1. · Constructing the Interface for an Internet Access Control Application
  2. · The Main Server Application
  3. · Code continued
  4. · Still More Code
  5. · Code Concluded

print this article
SEARCH DEVARTICLES

Constructing the Interface for an Internet Access Control Application - Code Concluded
(Page 5 of 5 )


procedure TForm1.newOpClick(Sender: TObject);

begin

form5.show;

end;


procedure TForm1.btnExitClick(Sender: TObject);

begin

form1.level:='';

form1.Caption:='';

form1.Close;

form3.isLogon:=false;

form3.Visible:=true;

end;


procedure TForm1.FormCreate(Sender: TObject);

begin

theT:='minute(s)';

end;


procedure TForm1.activateClick(Sender: TObject);

begin

ts.DefaultPort:=1150;

if ts.Active then

begin

showmessage('Server already active.');

end

else

begin

ts.Active:=true;

activate.Glyph.LoadFromFile('ledon.bmp');

memo1.Lines.Add('Server activated' + #13#10 +'Please switch on the other computers.');

end;

end;







procedure TForm1.AddClient1Click(Sender: TObject);

begin


//form2.Show;

end;


procedure TForm1.lvDblClick(Sender: TObject);

begin

if lv.Items.count < 1 then

begin


end

else

if lv.Selected.SubItems.Strings[4] <> 'free' then

begin

messagedlg('This workstation is not available.',mtinformation,[mbOk], 0);

end

else

begin

form2.label1.caption:=lv.Selected.Caption;

form2.show;

end;


end;


procedure TForm1.shut_downClick(Sender: TObject);

begin

broadcastAll;


end;


end.



As you can see from the screen shot, the user interface is very simple, yet user friendly. In the next coupe of articles we will look in depth at the code that makes up both the user interface and the server application itself.


DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

blog comments powered by Disqus
DELPHI-KYLIX ARTICLES

- Loading an XML Document into the DOM
- Delphi Wrapper Classes and XML
- Delphi and the DOM
- Delphi and XML
- Internet Access: Client Service
- Finishing the Client for an Internet Access ...
- The Client for an Internet Access Control Ap...
- User Management for an Internet Access Contr...
- Important Procedures for an Internet Access ...
- Server Code for an Internet Access Control A...
- Constructing the Interface for an Internet A...
- Building a Server Application for an Interne...
- Building an Internet Access Control Applicat...
- Client Dataset: Working with Data Packets an...
- Using the Client Dataset in an N-Tiered Appl...

Watch our Tech Videos 
Dev Articles Forums 
 RSS  Articles
 RSS  Forums
 RSS  All Feeds
Write For Us 
Weekly Newsletter
 
Developer Updates  
Free Website Content 
Contact Us 
Site Map 
Privacy Policy 
Support 

Developer Shed Affiliates

 




© 2003-2017 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap
Popular Web Development Topics
All Web Development Tutorials