مقاله : روشی برای نمایش گروهها و زیرگروه ها در یک برنامه بانک اطلاعاتی در یک TreeView

فرض کنیم ما در برناممون 3 تا جدول داریم :

• جدولی برای نام گروهها
• جدولی برای نام زیرگروهها
• جدولی به عنوان جدول اصلی

چون من در یک برنامه مدیریت کتابخانه از این روش استفاده کردم ، مراحل کار در یک برنامه کتابخانه رو مثال می زنم ( البته فرقی نداره چه نرم افزاری باشه )
فرض میکنیم که نام جداول به صورت زیر هست :

• GroupTable : برای لیست گروهها
• SubGroupTable : برای لیست زیرگروهها
• MainTable : جدول اصلی

نکته مهم :
در این برنامه ما سعی خواهیم کرد که مشخصات کتابها را در زیرگروه ها ثبت کنیم پس برای درج شدن مشخصات یک کتاب ، انتخاب گروه و زیرگروه الزامی است !
حالا نوبت به ساخت فیلدهای بانک های مورد نظر میرسه :

فیلد مربوط به جدول مربوط به گروه ها : ( فقط یک فیلد )

1. GName : برای نام گروهها

فیلدهای مربوط به جدول مربوط به زیرگروه ها :

1. GName : برای نام گروه ها
2. SGName : برای نام زیرگروه ها

فیلدهای بانک اصلی : ( چون قصد نوشتن یک برنامه نمونه و کوچک رو داریم تنها به ساخت چند فیلد برای این جدول اکتفا میکنیم )

1. BName : نام کتاب
2. AName : نام نویسنده کتاب
3. ...
4. GName : نام گروه
5. SGName : نام زیرگروه

بعد از ساخت جداول و فیدهای مربوطه ، سه ADOTable روی فرم گذاشته و نامهایی که در بالا اشاره شد را به آنها نسبت دهید ( درواقع جداول مربوط به گروه ها ، زیرگروه ها و جدول اصلی ) و درآخر یک TreeView روی فرم قرار داده و نام آن را به "MTreeView " تغییر دهید ...

بعد از مراحل بالا ما باید یک Procedure بنویسیم که اطلاعات موجود در جدول گروهها و زیرگروهها رو در یک TreeView ثبت کنه ...

Procedure مورد نظر باید به شکل زیر باشه :
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
[/TD]
[TD="class: code"]procedure TMainFrm.UpdateTreeView;
var
I, I2 : Integer;
S : String;
MyNode, Node, Parent : TTreeNode;
begin
MTreeView.Items.Clear;
GroupTable.First;
SubGroupTable.First;
Node := nil;
for I := 0 to GroupTable.RecordCount-1 do
begin
S := GroupTableGName.Text;
MyNode := MTreeView.Items.Add(Node, S);
Parent := MyNode;
SubGroupTable.Filter := 'GName = ' + QuotedStr(Parent.Text);
SubGroupTable.Filtered := True;
for I2 := 0 to SubGroupTable.RecordCount-1 do
begin
MTreeView.Items.AddChild(Parent, SubGroupTableSGName.Text);
SubGroupTable.Next;
end;
Node := MyNode;
GroupTable.Next;
end;
SubGroupTable.Filtered := False;
GroupTable.Filtered := False;
end;

[/TD]
[/TR]
[/TABLE]



توجه کنید که برای این Procedure نام " UpdateTreeView " انتخاب شده است ...
روش کار بسیار ساده و جالب هست ... !
در ابتدای این Proceure ، ما چند متغیر تعریف کردیم :

• متغیرهای I, I2 برای استفاده در دو حلقه For ( از نوع Integer )
• متغیر S برای گرفتن و نوشتن متن نام گروه ها و زیرگروهها ( از نوع String )
• متغیرهای MyNode ، ChildNode و Parent برای مشخص کردن آیتم های TreeView در Procedure ( از نوع TTreeNode )

در ابتدای این Procedure ما جداول GroupTable ( گروهها ) و SubGroupTable ( زیرگروه ها ) رو به ابتدا ( اولین رکورد ) می بریم ( با دستور First ) ، و متغیر MyNode را برابر با Nil قرار می دهیم.
سپس در ما در دو حلقه For تودرتو اقدام به نوشتن مقادیر در TreeView میکنیم ، در ابتدا حلقه For اول ما متغیر S را برابر با مقدار موجود در اولین رکورد جدول گروهها ( نام اولین گروه ) قرار میدهیم ، سپس یک آیتم در TreeView ایجاد کرده و متغیر MyNode را برابر با آیتم خواسته شده قرار می دهیم ، بعد متغیر Parent را برابر را مقدار MyNode قرار میدهیم و آن را به عنوان یک گروه که درواقع Parent چند زیرگروه است میشناسیم ، سپس جدول زیرگروهها رو با مقدار موجود در این آیتم TreeView فیلتر میکنیم ...
در مرحله بعد ، ما اقدام به ثبت یک آیتم Child در TreeView میکنیم ( با دستور AddChild ) ، دستور AddChild که در بالا استفاده شده ، دارای دو متغیر است که اولی برای Parent مربوط به آیتم ثبت شده و دیگری برای متن آیتم است.
توجه کنید که در هر دو حلقه For از دستور Next برای رفتن به رکورد بعدی در جدول مورد نظر استفاده کنید وگرنه کار با موفقیت انجام نخواهد شد ...
در مرحله بعد ما متغیر Node را برابر با MyNode قرار میدهیم و جدول گروهها را به رکورد بعدی برده و در آخر دو جدول را از حالت فیلتر خارج می کنیم.
نکته ای که در بالا باید توضیح داده بشه ، اینه که چرا در قسمت آخر ما متغیر Node رو برابر با MyNode قرار میدهیم ... !
اگه توجه کنید ما در اول کار با دستور Add ، یک آیتم به TreeView اضافه کردیم که " همانند اون " ( پارامتر اول دستور Add ) ، برابر با Nil بود چون آیتمی در TreeView نبود ، و وقتی که ما آیتم جدید را در TreeView ثبت میکنیم ( به عنوان یک گروه ) باید برای ایجاد آیتم بعدی ( گروه بعدی ) ، یک آیتم که از نوع گروه است به عنوان "همانند" به آیتم جدید اختصاص بدیم که با قرار مقدار MyNode در متغیر Node ، این کار در حلقه For اول انجام میشه ...

همانطور که در ابتدا اشاره شد بهتر است که ثبت اطلاعات در زیرگروه ها انجام بشه ، برای این کار می تونید در فرم مربوط به ثبت اطلاعات جدید دو تا ComboBox قرار بدید با همین روش و با کمی تغییر ، لیست گروه ها و زیرگروه ها رو در اون دو ComboBox بریزید و در هنگام ثبت اطلاعات از انتخاب شدن گروه و زیرگروه اطمینان حاصل کنید ...

نمایش رکوردهای مربوط به گروه یا زیرگروه انتخاب شده در TreeView ، در DBGrid :
برای این که وقتی کاربر یک گروه و یا زیرگروه رو در TreeView انتخاب کرد ، DBGrid فقط رکوردهای مربوط به همون گروه یا زیرگروه انتخاب شده رو نشون بده ، باید در هنگام انتخاب کردن آیتم های TreeView ، تشخیص بدید که آیا آیتم انتخاب شده Parent است یا Child ، اگر Parent ( گروه ) بود ، باید فیلد GName در جدول اصلی ( MainTable ) را با مقدار آیتم انتخاب شده فیلتر کنید همچنین در صورت Child بودن آیتم انتخاب شده ، باید عمل فیلتر را بر روی فیلد SGName مربوط به جدول اصلی انجام بدید ...

تصویری از TreeView ایجاد شده توسط این Procedure :

--------------------

--------------------​

نکته آخر
مشکل اصلی که همه ما دنبال حل اون هستیم ، اینه که TreeView ما راست به چپ باشه ! که فکر کنم آقای کرامتی کدی رو برای آیینه ای کردن یک WinControl نوشته بودند که میتونید از اون استفاده کنید ( در سایت جستجو کنید پیدا میکنید )

در ضمن مقاله آقای کرامتی در مورد یک DBTreeView ی راست به چپ هم میتونه توی حل مشکل این قسمت از برنامه های بانک اطلاعاتی مفید باشه ( باز هم با جستجو در سایت پیدا خواهد کرد )

پایان ...