开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DBTreeSample.cpp
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：6k
源码类别：

Delphi控件源码

开发平台：

Delphi

DBTreeSample.cpp：源码内容
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include <stdio.h>
  4. #pragma hdrstop
  6. #include "DBTreeSample.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma link "fcdbtreeview"
  10. #pragma link "fcDemoRichEdit"
  11. #pragma link "fcImager"
  12. #pragma resource "*.dfm"
  13. TDMTreeViewForm *DMTreeViewForm;
  14. //---------------------------------------------------------------------------
  15. __fastcall TDMTreeViewForm::TDMTreeViewForm(TComponent* Owner)
  16.         : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TDMTreeViewForm::fcDBTreeView1CalcNodeAttributes(
  21.       TfcDBCustomTreeView *TreeView, TfcDBTreeNode *Node)
  22. {
  23.    if (Node->DataSet == CustomersTbl) {
  24.       // Use lookupfield to determine if expand icon (+) should be displayed
  25.       Node->HasChildren = !(Node->DataSet->FieldByName("LookupOrders")->IsNull);
  27.       // Use US bitmap for US customers
  28.       if (Node->DataSet->FieldByName("Country")->AsString == "US") {
  29.          Node->StateIndex = 0;
  30.       } else Node->StateIndex = 1;
  31.    }
  32. }
  33. //---------------------------------------------------------------------------
  34. void __fastcall TDMTreeViewForm::fcDBTreeView1Change(
  35.       TfcDBCustomTreeView *TreeView, TfcDBTreeNode *Node)
  36. {
  37.   String s;
  38.   char temps[500];
  39.   TfcDBTreeNode * tempNode;
  40.   for (int i=0;i<100;i++) temps[i] = ' ';
  42.   // Compute label to indicate tree state
  43.   tempNode=Node;
  44.   do {
  45.      s=temps;
  46.      sprintf(temps,"%srn%s",tempNode->Text,s);
  47.      tempNode = tempNode->Parent;
  48.   } while (tempNode!=NULL);
  50.   TreeStateLabel->Caption = temps;
  52.   // Select appropriate tab sheet based on active node
  53.   if (Node->DataSet==CustomersTbl) {
  54.     PageControl1->ActivePage = CustomersTabSheet;
  55.   } else if (Node->DataSet==OrdersTbl) {
  56.     PageControl1->ActivePage = OrdersTabSheet;
  57.   } else if (Node->DataSet==ItemsTbl) {
  58.     PageControl1->ActivePage = ItemsTabSheet;
  59.   }
  60. }
  61. //---------------------------------------------------------------------------
  62. void __fastcall TDMTreeViewForm::PageControl2Change(TObject *Sender)
  63. {
  64.    /* This code causes the treeview to highlight the
  65.       dataset associated with the ActivePage of the tab control */
  66.    if (PageControl1->ActivePage == OrdersTabSheet) {
  67.       fcDBTreeView1->MakeActiveDataSet(OrdersTbl, False);
  68.    } else if (PageControl1->ActivePage == ItemsTabSheet) {
  69.       fcDBTreeView1->MakeActiveDataSet(ItemsTbl, False);
  70.    } else if (PageControl1->ActivePage == CustomersTabSheet) {
  71.       fcDBTreeView1->MakeActiveDataSet(CustomersTbl, False);
  72.    }
  73. }
  74. //---------------------------------------------------------------------------
  75. void __fastcall TDMTreeViewForm::ComboBox1Change(TObject *Sender)
  76. {
  77.    // Update treeview's fields based on active index }
  78.    if (((TComboBox *)Sender)->Text == "By Company") {
  79.       CustomersTbl->IndexName = "ByCompany";
  80.       fcDBTreeView1->DisplayFields->Strings[0] = ""Company" ("CustNo")";
  81.    } else {
  82.       CustomersTbl->IndexName = "";
  83.       fcDBTreeView1->DisplayFields->Strings[0] = ""CustNo", "Company"";
  84.    }
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TDMTreeViewForm::FilterComboChange(TObject *Sender)
  88. {
  89.   if (((TComboBox *)Sender)->ItemIndex==0) {
  90.     CustomersTbl->Filtered = False;
  91.   } else if (((TComboBox *)Sender)->ItemIndex>0) CustomersTbl->Filtered = True;
  92. }
  93. //---------------------------------------------------------------------------
  94. void __fastcall TDMTreeViewForm::CustomersTblFilterRecord(TDataSet *DataSet,
  95.       bool &Accept)
  96. {
  97.    if (FilterCombo->ItemIndex==1) {
  98.       Accept = (DataSet->FieldByName("Country")->AsString == "US");
  99.    } else if (FilterCombo->ItemIndex==2)
  100.       Accept = !(DataSet->FieldByName("Country")->AsString == "US");
  101. }
  102. //---------------------------------------------------------------------------
  103. void __fastcall TDMTreeViewForm::CheckBox1Click(TObject *Sender)
  104. {
  105.      if (((TCheckBox *)Sender)->Checked == True){
  106.         fcDBTreeView1->Options << dtvoExpandButtons3D;
  107.      }
  108.      else fcDBTreeView1->Options >> dtvoExpandButtons3D;
  109.      fcDBTreeView1->Invalidate();
  110. }
  111. //---------------------------------------------------------------------------
  112. void __fastcall TDMTreeViewForm::CheckBox2Click(TObject *Sender)
  113. {
  114.      if (((TCheckBox *)Sender)->Checked == True){
  115.         fcDBTreeView1->Options << dtvoRowSelect;
  116.      }
  117.      else fcDBTreeView1->Options >> dtvoRowSelect;
  118.      fcDBTreeView1->Invalidate();
  119. }
  120. //---------------------------------------------------------------------------
  121. void __fastcall TDMTreeViewForm::CheckBox3Click(TObject *Sender)
  122. {
  123.      if (((TCheckBox *)Sender)->Checked == True){
  124.         fcDBTreeView1->MultiSelectAttributes->Enabled = true;
  125.         fcDBTreeView1->MultiSelectAttributes->MultiSelectCheckbox = True;
  126.      }
  127.      else {
  128.         fcDBTreeView1->MultiSelectAttributes->Enabled = false;
  129.         fcDBTreeView1->MultiSelectAttributes->MultiSelectCheckbox = False;
  130.      }
  131. }
  132. //---------------------------------------------------------------------------
  133. void __fastcall TDMTreeViewForm::CheckBox4Click(TObject *Sender)
  134. {
  135.      if (((TCheckBox *)Sender)->Checked == True){
  136.         fcDBTreeView1->Options << dtvoHotTracking;
  137.      }
  138.      else fcDBTreeView1->Options >> dtvoHotTracking;
  139. }
  140. //---------------------------------------------------------------------------
  141. void __fastcall TDMTreeViewForm::CheckBox5Click(TObject *Sender)
  142. {
  143.    if (((TCheckBox *)Sender)->Checked)
  144.    {
  145.       fcDBTreeView1->Imager= fcImager1;
  146.       fcDBTreeView1->InactiveFocusColor= clNone;
  147.       fcDBTreeView1->LineColor= clWhite;
  148.       fcDBTreeView1->Font->Color= clWhite;
  149.       fcDBTreeView1->Font->Style << fsBold;
  150.    }
  151.    else {
  152.      fcDBTreeView1->Imager=NULL;
  153.      fcDBTreeView1->InactiveFocusColor= clBtnFace;
  154.      fcDBTreeView1->LineColor= clBtnShadow;
  155.      fcDBTreeView1->Font->Color= clBlack;
  156.      fcDBTreeView1->Font->Style >> fsBold;
  157.    }
  159. }
  160. //---------------------------------------------------------------------------