Solved

Writing Database Explorer

Posted on 1998-11-07
10
161 Views
Last Modified: 2010-04-04
I am trying to write a database explorer similar to the one provided by delphi.  I have no idea how to use the TTreeview on the left side of the application to obtain this.  All examples that I have seen tend to appear over complicated and confusing.  Please help.
0
Comment
Question by:pjerram
10 Comments
 

Author Comment

by:pjerram
ID: 1346001
I have Delphi 2 and 3
0
 
LVL 1

Expert Comment

by:venks
ID: 1346002
Have a look at the example that comes with RXLib components.It is available at Torry's Delphi pages.
regards
venks

0
 
LVL 8

Expert Comment

by:ZifNab
ID: 1346003
pjerram, the easiest way is to use a component for this.... look at TeeTree www.Teemach.com It's shareware dough. But you can also look at RxLib first.
0
 
LVL 1

Expert Comment

by:rpetruni
ID: 1346004
Hi,
I really don't know about TTreeView, but if you don't mind old windows stile, you coul use :
DriveComboBox, DirectoryListBox and FileListBox
from Win3.1 controls. It's really simple to use...
0
 

Author Comment

by:pjerram
ID: 1346005
thankyou for your suggestions but I want to write it.  I want to use TreeView and I was unable to find RXlib components.
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 
LVL 2

Expert Comment

by:333
ID: 1346006
Hi,
there is a little example how to insert intems in TreeView:

procedure TForm1.FormCreate(Sender: TObject);
var
  MyTreeNode:TTreeNode;
begin
  with TreeView1.Items do begin
    Add(nil,'Databases'); {add root node}
    MyTreeNode:=TreeView1.Items[0];
    AddChild(MyTreeNode,'DBDEMOS'); {add child nodes}
    AddChild(MyTreeNode,'DefaultDD');
    AddChild(MyTreeNode,'IBLocal');
    AddChild(MyTreeNode,'Oracle');
    MyTreeNode:=TreeView1.Items[1]; {add '+' to DBDemos, even if it has no child}
    MyTreeNode.HasChildren:=true;
  end;
end;

All items of TreeView can be accessed from Items property.
Look in help on more TTreeNode methods and properties.
If you need more, just say.

A.
0
 

Author Comment

by:pjerram
ID: 1346007
Thank you for all your help. The project is done and all your input was gratefully recieved.
0
 
LVL 1

Expert Comment

by:venks
ID: 1346008
Dear pjerram
Please award the points to someone
regards
venks
0
 

Author Comment

by:pjerram
ID: 1346009
I'm afraid I must split the points between venks and 333.  Both were of help.  Venks = 75% and 333 = 25%.  If this can be done thanx.
0
 
LVL 1

Accepted Solution

by:
venks earned 100 total points
ID: 1346010
Dear pjerram
It is not possible to split the points as per experts exchange
rules.You can throw a question specially for 333 asking him to answer and award him the points.
Regards
venks
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.
Edureka is one of the fastest growing and most effective online learning sites.  We are here to help you succeed.

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now