DBTreeSample.h
上传用户:hylc_2004
上传日期:2014-01-23
资源大小:46800k
文件大小:7k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #ifndef DBTreeSampleH
  3. #define DBTreeSampleH
  4. //---------------------------------------------------------------------------
  5. #include <Classes.hpp>
  6. #include <Controls.hpp>
  7. #include <StdCtrls.hpp>
  8. #include <Forms.hpp>
  9. #include "fcdbtreeview.hpp"
  10. #include "fcDemoRichEdit.hpp"
  11. #include <Buttons.hpp>
  12. #include <ComCtrls.hpp>
  13. #include <Db.hpp>
  14. #include <DBCtrls.hpp>
  15. #include <DBTables.hpp>
  16. #include <ImgList.hpp>
  17. #include <Mask.hpp>
  18. #include "fcImager.hpp"
  19. #include <Graphics.hpp>
  20. //---------------------------------------------------------------------------
  21. class TDMTreeViewForm : public TForm
  22. {
  23. __published: // IDE-managed Components
  24.         TLabel *TreeStateLabel;
  25.         TSpeedButton *SpeedButton1;
  26.         TPageControl *PageControl1;
  27.         TTabSheet *CustomersTabSheet;
  28.         TLabel *Label1;
  29.         TLabel *Label2;
  30.         TLabel *Label3;
  31.         TLabel *Label4;
  32.         TLabel *Label7;
  33.         TLabel *Label6;
  34.         TLabel *Label5;
  35.         TLabel *Label8;
  36.         TLabel *Label9;
  37.         TLabel *Label10;
  38.         TLabel *Label13;
  39.         TLabel *Label12;
  40.         TLabel *Label11;
  41.         TDBEdit *EditCustNo;
  42.         TDBEdit *EditCompany;
  43.         TDBEdit *EditAddr;
  44.         TDBEdit *EditAddr2;
  45.         TDBEdit *EditZip;
  46.         TDBEdit *EditState;
  47.         TDBEdit *EditCity;
  48.         TDBEdit *EditCountry;
  49.         TDBEdit *EditPhone;
  50.         TDBEdit *EditFAX;
  51.         TDBEdit *EditLastInvoiceDate;
  52.         TDBEdit *EditContact;
  53.         TDBEdit *EditTaxRate;
  54.         TTabSheet *OrdersTabSheet;
  55.         TLabel *Label14;
  56.         TLabel *Label15;
  57.         TLabel *Label16;
  58.         TLabel *Label17;
  59.         TLabel *Label18;
  60.         TLabel *Label25;
  61.         TLabel *Label28;
  62.         TLabel *Label29;
  63.         TLabel *Label30;
  64.         TLabel *Label31;
  65.         TLabel *Label32;
  66.         TLabel *Label33;
  67.         TLabel *Label34;
  68.         TDBEdit *EditOrderNo;
  69.         TDBEdit *DBEdit1;
  70.         TDBEdit *EditSaleDate;
  71.         TDBEdit *EditEmpNo;
  72.         TDBEdit *EditShipDate;
  73.         TDBEdit *EditShipVIA;
  74.         TDBEdit *EditPO;
  75.         TDBEdit *EditTerms;
  76.         TDBEdit *EditPaymentMethod;
  77.         TDBEdit *EditItemsTotal;
  78.         TDBEdit *EditAmountPaid;
  79.         TDBEdit *EditFreight;
  80.         TDBEdit *DBEdit2;
  81.         TTabSheet *ItemsTabSheet;
  82.         TLabel *Label35;
  83.         TLabel *Label36;
  84.         TLabel *Label37;
  85.         TLabel *Label38;
  86.         TLabel *Label39;
  87.         TDBEdit *EditDiscount;
  88.         TDBEdit *DBEdit3;
  89.         TDBEdit *EditItemNo;
  90.         TDBEdit *EditPartNo;
  91.         TDBEdit *EditQty;
  92.         TGroupBox *GroupBox1;
  93.         TLabel *Label42;
  94.         TLabel *Label40;
  95.         TLabel *Label41;
  96.         TLabel *Label43;
  97.         TLabel *Label44;
  98.         TLabel *Label45;
  99.         TDBEdit *DBEdit6;
  100.         TDBEdit *DBEdit4;
  101.         TDBEdit *DBEdit5;
  102.         TDBEdit *DBEdit7;
  103.         TDBEdit *DBEdit8;
  104.         TDBEdit *DBEdit9;
  105.         TPageControl *PageControl2;
  106.         TTabSheet *TabSheet1;
  107.         TLabel *Label19;
  108.         TLabel *Label20;
  109.         TComboBox *ComboBox1;
  110.         TComboBox *FilterCombo;
  111.         TfcDemoRichEdit *fcDemoRichEdit1;
  112.         TTabSheet *TabSheet2;
  113.         TCheckBox *CheckBox1;
  114.         TCheckBox *CheckBox2;
  115.         TCheckBox *CheckBox3;
  116.         TCheckBox *CheckBox4;
  117.         TfcDemoRichEdit *fcDemoRichEdit2;
  118.         TDataSource *CustomerDS;
  119.         TTable *CustomersTbl;
  120.         TFloatField *CustomersTblCustNo;
  121.         TStringField *CustomersTblCompany;
  122.         TStringField *CustomersTblAddr1;
  123.         TStringField *CustomersTblAddr2;
  124.         TStringField *CustomersTblCity;
  125.         TStringField *CustomersTblState;
  126.         TStringField *CustomersTblZip;
  127.         TStringField *CustomersTblCountry;
  128.         TStringField *CustomersTblPhone;
  129.         TStringField *CustomersTblFAX;
  130.         TFloatField *CustomersTblTaxRate;
  131.         TStringField *CustomersTblContact;
  132.         TDateTimeField *CustomersTblLastInvoiceDate;
  133.         TIntegerField *CustomersTblLookupOrders;
  134.         TDataSource *OrdersDS;
  135.         TTable *OrdersTbl;
  136.         TFloatField *OrdersTblOrderNo;
  137.         TFloatField *OrdersTblCustNo;
  138.         TDateTimeField *OrdersTblSaleDate;
  139.         TDateTimeField *OrdersTblShipDate;
  140.         TIntegerField *OrdersTblEmpNo;
  141.         TStringField *OrdersTblShipToContact;
  142.         TStringField *OrdersTblShipToAddr1;
  143.         TStringField *OrdersTblShipToAddr2;
  144.         TStringField *OrdersTblShipToCity;
  145.         TStringField *OrdersTblShipToState;
  146.         TStringField *OrdersTblShipToZip;
  147.         TStringField *OrdersTblShipToCountry;
  148.         TStringField *OrdersTblShipToPhone;
  149.         TStringField *OrdersTblShipVIA;
  150.         TStringField *OrdersTblPO;
  151.         TStringField *OrdersTblTerms;
  152.         TStringField *OrdersTblPaymentMethod;
  153.         TCurrencyField *OrdersTblItemsTotal;
  154.         TFloatField *OrdersTblTaxRate;
  155.         TCurrencyField *OrdersTblFreight;
  156.         TCurrencyField *OrdersTblAmountPaid;
  157.         TDataSource *ItemsDS;
  158.         TTable *ItemsTbl;
  159.         TFloatField *ItemsTblOrderNo;
  160.         TFloatField *ItemsTblItemNo;
  161.         TFloatField *ItemsTblPartNo;
  162.         TIntegerField *ItemsTblQty;
  163.         TFloatField *ItemsTblDiscount;
  164.         TStringField *ItemsTblLookupPartDescription;
  165.         TFloatField *ItemsTblLookupPartPrice;
  166.         TTable *LookupPartTbl;
  167.         TTable *LookupOrderTbl;
  168.         TImageList *ImageList1;
  169.         TDataSource *PartsDS;
  170.         TTable *PartsTbl;
  171.         TfcDBTreeView *fcDBTreeView1;
  172.         TfcImager *fcImager1;
  173.         TCheckBox *CheckBox5;
  174.         void __fastcall fcDBTreeView1CalcNodeAttributes(
  175.           TfcDBCustomTreeView *TreeView, TfcDBTreeNode *Node);
  176.         void __fastcall fcDBTreeView1Change(TfcDBCustomTreeView *TreeView,
  177.           TfcDBTreeNode *Node);
  178.         void __fastcall PageControl2Change(TObject *Sender);
  179.         void __fastcall ComboBox1Change(TObject *Sender);
  180.         void __fastcall FilterComboChange(TObject *Sender);
  181.         void __fastcall CustomersTblFilterRecord(TDataSet *DataSet,
  182.           bool &Accept);
  183.         void __fastcall CheckBox1Click(TObject *Sender);
  184.         void __fastcall CheckBox2Click(TObject *Sender);
  185.         void __fastcall CheckBox3Click(TObject *Sender);
  186.         void __fastcall CheckBox4Click(TObject *Sender);
  187.         void __fastcall CheckBox5Click(TObject *Sender);
  188. private: // User declarations
  189. public: // User declarations
  190.         __fastcall TDMTreeViewForm(TComponent* Owner);
  191. };
  192. //---------------------------------------------------------------------------
  193. extern PACKAGE TDMTreeViewForm *DMTreeViewForm;
  194. //---------------------------------------------------------------------------
  195. #endif