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

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

Delphi控件源码

开发平台：

Delphi

DBTreeSample2.pas：源码内容
  1. unit DBTreeSample2;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, fcdbtreeview, Db, DBTables, Grids, fcTreeView, DBGrids,
  8.   ComCtrls, StdCtrls, Mask, DBCtrls, ExtCtrls, fcScrollBar, fcButton,
  9.   fcImgBtn, fcShapeBtn,
  10.   fcOutlookList, fcDemoRichEdit, Wwdatsrc, Wwtable, Menus;
  12. type
  13.   TDMTreeViewForm2= class(TForm)
  14.     fcDBTreeView1: TfcDBTreeView;
  15.     CustomerDS: TDataSource;
  16.     CustomerTbl: TTable;
  17.     CustomerTblCustNo: TFloatField;
  18.     CustomerTblCompany: TStringField;
  19.     CustomerTblAddr1: TStringField;
  20.     CustomerTblAddr2: TStringField;
  21.     CustomerTblCity: TStringField;
  22.     CustomerTblState: TStringField;
  23.     CustomerTblZip: TStringField;
  24.     CustomerTblCountry: TStringField;
  25.     CustomerTblPhone: TStringField;
  26.     CustomerTblFAX: TStringField;
  27.     CustomerTblTaxRate: TFloatField;
  28.     CustomerTblContact: TStringField;
  29.     CustomerTblLastInvoiceDate: TDateTimeField;
  30.     CustomerTblLookupOrders: TIntegerField;
  31.     OrdersDS: TDataSource;
  32.     OrdersTbl: TTable;
  33.     OrdersTblOrderNo: TFloatField;
  34.     OrdersTblCustNo: TFloatField;
  35.     OrdersTblSaleDate: TDateTimeField;
  36.     OrdersTblShipDate: TDateTimeField;
  37.     OrdersTblEmpNo: TIntegerField;
  38.     OrdersTblShipToContact: TStringField;
  39.     OrdersTblShipToAddr1: TStringField;
  40.     OrdersTblShipToAddr2: TStringField;
  41.     OrdersTblShipToCity: TStringField;
  42.     OrdersTblShipToState: TStringField;
  43.     OrdersTblShipToZip: TStringField;
  44.     OrdersTblShipToCountry: TStringField;
  45.     OrdersTblShipToPhone: TStringField;
  46.     OrdersTblShipVIA: TStringField;
  47.     OrdersTblPO: TStringField;
  48.     OrdersTblTerms: TStringField;
  49.     OrdersTblPaymentMethod: TStringField;
  50.     OrdersTblItemsTotal: TCurrencyField;
  51.     OrdersTblTaxRate: TFloatField;
  52.     OrdersTblFreight: TCurrencyField;
  53.     OrdersTblAmountPaid: TCurrencyField;
  54.     ItemsDS: TDataSource;
  55.     ItemsTbl: TTable;
  56.     ItemsTblOrderNo: TFloatField;
  57.     ItemsTblItemNo: TFloatField;
  58.     ItemsTblPartNo: TFloatField;
  59.     ItemsTblQty: TIntegerField;
  60.     ItemsTblDiscount: TFloatField;
  61.     ItemsTblLookupPartDescription: TStringField;
  62.     ItemsTblLookupPartPrice: TFloatField;
  63.     LookupPartTbl: TTable;
  64.     LookupOrderTbl: TTable;
  65.     PageControl1: TPageControl;
  66.     CustomersTabSheet: TTabSheet;
  67.     OrdersTabSheet: TTabSheet;
  68.     ItemsTabSheet: TTabSheet;
  69.     Label1: TLabel;
  70.     Label2: TLabel;
  71.     EditCustNo: TDBEdit;
  72.     EditCompany: TDBEdit;
  73.     EditAddr: TDBEdit;
  74.     Label3: TLabel;
  75.     EditAddr2: TDBEdit;
  76.     Label4: TLabel;
  77.     EditZip: TDBEdit;
  78.     Label7: TLabel;
  79.     EditState: TDBEdit;
  80.     Label6: TLabel;
  81.     Label5: TLabel;
  82.     EditCity: TDBEdit;
  83.     Label8: TLabel;
  84.     EditCountry: TDBEdit;
  85.     EditPhone: TDBEdit;
  86.     Label9: TLabel;
  87.     Label10: TLabel;
  88.     EditFAX: TDBEdit;
  89.     EditLastInvoiceDate: TDBEdit;
  90.     Label13: TLabel;
  91.     EditContact: TDBEdit;
  92.     Label12: TLabel;
  93.     EditTaxRate: TDBEdit;
  94.     Label11: TLabel;
  95.     TreeStateLabel: TLabel;
  96.     ImageList1: TImageList;
  97.     Label14: TLabel;
  98.     EditOrderNo: TDBEdit;
  99.     DBEdit1: TDBEdit;
  100.     Label15: TLabel;
  101.     EditSaleDate: TDBEdit;
  102.     Label16: TLabel;
  103.     EditEmpNo: TDBEdit;
  104.     Label17: TLabel;
  105.     EditShipDate: TDBEdit;
  106.     Label18: TLabel;
  107.     EditShipVIA: TDBEdit;
  108.     Label25: TLabel;
  109.     EditPO: TDBEdit;
  110.     Label28: TLabel;
  111.     EditTerms: TDBEdit;
  112.     Label29: TLabel;
  113.     EditPaymentMethod: TDBEdit;
  114.     Label30: TLabel;
  115.     EditItemsTotal: TDBEdit;
  116.     Label31: TLabel;
  117.     EditAmountPaid: TDBEdit;
  118.     Label32: TLabel;
  119.     EditFreight: TDBEdit;
  120.     Label33: TLabel;
  121.     DBEdit2: TDBEdit;
  122.     Label34: TLabel;
  123.     EditDiscount: TDBEdit;
  124.     Label35: TLabel;
  125.     DBEdit3: TDBEdit;
  126.     Label36: TLabel;
  127.     Label37: TLabel;
  128.     EditItemNo: TDBEdit;
  129.     EditPartNo: TDBEdit;
  130.     Label38: TLabel;
  131.     EditQty: TDBEdit;
  132.     Label39: TLabel;
  133.     PartsDS: TDataSource;
  134.     PartsTbl: TTable;
  135.     GroupBox1: TGroupBox;
  136.     DBEdit6: TDBEdit;
  137.     Label42: TLabel;
  138.     DBEdit4: TDBEdit;
  139.     Label40: TLabel;
  140.     DBEdit5: TDBEdit;
  141.     Label41: TLabel;
  142.     DBEdit7: TDBEdit;
  143.     Label43: TLabel;
  144.     DBEdit8: TDBEdit;
  145.     Label44: TLabel;
  146.     DBEdit9: TDBEdit;
  147.     Label45: TLabel;
  148.     LabelsTbl: TwwTable;
  149.     TreeLabelsDS: TwwDataSource;
  150.     VendorsDS: TwwDataSource;
  151.     VendorsTbl: TwwTable;
  152.     VendorsTabSheet: TTabSheet;
  153.     Label21: TLabel;
  154.     DBEdit10: TDBEdit;
  155.     Label22: TLabel;
  156.     DBEdit11: TDBEdit;
  157.     Label23: TLabel;
  158.     DBEdit12: TDBEdit;
  159.     Label24: TLabel;
  160.     DBEdit13: TDBEdit;
  161.     Label26: TLabel;
  162.     DBEdit14: TDBEdit;
  163.     Label27: TLabel;
  164.     DBEdit15: TDBEdit;
  165.     Label46: TLabel;
  166.     DBEdit16: TDBEdit;
  167.     Label47: TLabel;
  168.     DBEdit17: TDBEdit;
  169.     Label48: TLabel;
  170.     DBEdit18: TDBEdit;
  171.     Label49: TLabel;
  172.     DBEdit19: TDBEdit;
  173.     DBCheckBox1: TDBCheckBox;
  174.     procedure fcDBTreeView1Change(TreeView: TfcDBCustomTreeView;
  175.       Node: TfcDBTreeNode);
  176.     procedure PageControl1Change(Sender: TObject);
  177.     procedure fcDBTreeView1UserExpand(TreeView: TfcDBCustomTreeView;
  178.       Node: TfcDBTreeNode);
  179.     procedure fcDBTreeView1CalcNodeAttributes(
  180.       TreeView: TfcDBCustomTreeView; Node: TfcDBTreeNode);
  181.     procedure SpeedButton1Click(Sender: TObject);
  182.   private
  183.     procedure ChangeDataSources(TreeView: TfcDBCustomTreeView; RootLabel: string);
  184.     { Private declarations }
  185.   public
  186.     { Public declarations }
  187.   end;
  189. var
  190.   DMTreeViewForm2: TDMTreeViewForm2;
  192. implementation
  194. {$R *.DFM}
  196. procedure TDMTreeViewForm2.fcDBTreeView1Change(TreeView: TfcDBCustomTreeView;
  197.   Node: TfcDBTreeNode);
  198. var s: string;
  199.     tempNode: TfcDBTreeNode;
  200. begin
  201.    if Node.Level=0 then ChangeDataSources(TreeView, Node.Text);
  203.   { Compute label to indicate tree state }
  204.   s:= '';
  205.   tempNode:= node;
  206.   repeat
  207.      s:= tempNode.Text + #13 + s;
  208.      tempNode:= tempNode.parent;
  209.   until tempNode=nil;
  210.   TreeStateLabel.caption:= s;
  212.   { Select appropriate tab sheet based on active node }
  213.   if Node.dataset=CustomerTbl then PageControl1.activePage:= CustomersTabSheet
  214.   else if node.dataset=OrdersTbl then PageControl1.activePage:= OrdersTabSheet
  215.   else if node.dataset=ItemsTbl then PageControl1.activePage:= ItemsTabSheet
  216.   else if node.dataset=VendorsTbl then PageControl1.activePage:= VendorsTabSheet;
  218. end;
  220. procedure TDMTreeViewForm2.PageControl1Change(Sender: TObject);
  221. begin
  222.    { This code causes the treeview to highlight the
  223.      dataset associated with the ActivePage of the tab control }
  224.    if PageControl1.ActivePage = OrdersTabSheet then
  225.    begin
  226.       LabelsTbl.Locate('TreeRootLabels', 'Customers', []);
  227.       fcDBTreeView1.MakeActiveDataSet(OrdersTbl, False)
  228.    end
  229.    else if PageControl1.ActivePage = ItemsTabSheet then
  230.    begin
  231.       LabelsTbl.Locate('TreeRootLabels', 'Customers', []);
  232.       fcDBTreeView1.MakeActiveDataSet(ItemsTbl, False)
  233.    end
  234.    else if PageControl1.ActivePage = CustomersTabSheet then
  235.    begin
  236.       LabelsTbl.Locate('TreeRootLabels', 'Customers', []);
  237.       fcDBTreeView1.MakeActiveDataSet(CustomerTbl, False)
  238.    end
  239.    else if PageControl1.ActivePage = VendorsTabSheet then
  240.    begin
  241.       LabelsTbl.Locate('TreeRootLabels', 'Vendors', []);
  242.       fcDBTreeView1.MakeActiveDataSet(VendorsTbl, False)
  243.    end;
  244. end;
  246. procedure TDMTreeViewForm2.fcDBTreeView1UserExpand(
  247.   TreeView: TfcDBCustomTreeView; Node: TfcDBTreeNode);
  248. begin
  249.    if Node.Level=0 then ChangeDataSources(TreeView, Node.Text)
  250. end;
  252. { Change current list of datasources based on the active root node (label) }
  253. procedure TDMTreeViewForm2.ChangeDataSources(TreeView: TfcDBCustomTreeView; RootLabel: string);
  254. begin
  255.    if RootLabel='Customers' then begin
  256.      TreeView.DataSources:= 'TreeLabelsDS;CustomerDS;OrdersDS;ItemsDS';
  257.      TreeView.DisplayFields[1]:= '"CustNo", "Company"';
  258.    end
  259.    else begin
  260.      TreeView.DataSources:= 'TreeLabelsDS;VendorsDS';
  261.      TreeView.DisplayFields[1]:= '"VendorName"';
  262.    end
  263. end;
  265. procedure TDMTreeViewForm2.fcDBTreeView1CalcNodeAttributes(
  266.   TreeView: TfcDBCustomTreeView; Node: TfcDBTreeNode);
  267. begin
  268.    if Node.DataSet = CustomerTbl then begin
  270.       { Use lookupfield to determine if expand icon (+) should be displayed }
  271.       Node.HasChildren:= not node.dataset.fieldbyname('LookupOrders').isNull;
  273.       { Use US bitmap for US customers }
  274.       if Node.DataSet.FieldByname('Country').asString ='US' then
  275.          Node.StateIndex:= 0
  276.       else Node.StateIndex:= 1;
  277.    end
  279. end;
  281. procedure TDMTreeViewForm2.SpeedButton1Click(Sender: TObject);
  282. begin
  283.   Customertbl.free;
  284. end;
  286. end.