BVB Source Codes

Recursive read database Delphi example of creating a tree control menu Show Unit1.dfm Source code

Return Download Recursive read database Delphi example of creating a tree control menu: download Unit1.dfm Source code - Download Recursive read database Delphi example of creating a tree control menu Source code - Type:.dfm
  1. object Form1: TForm1
  2.   Left = 190
  3.   Top = 133
  4.   AutoScroll = False
  5.   Caption = #29992#36882#24402#35835#21462#25968#25454#24211#25968#25454#21019#24314#26641#30340#31034#20363#31243#24207'----Copyright by '#39128#25671#23458' 2002'
  6.   ClientHeight = 361
  7.   ClientWidth = 521
  8.   Color = clBtnFace
  9.   Font.Charset = GB2312_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = #23435#20307
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Button1: TButton
  20.     Left = 400
  21.     Top = 20
  22.     Width = 93
  23.     Height = 33
  24.     Caption = #26174#31034
  25.     TabOrder = 0
  26.     OnClick = Button1Click
  27.   end
  28.   object Button2: TButton
  29.     Left = 400
  30.     Top = 64
  31.     Width = 93
  32.     Height = 33
  33.     Caption = #20851#38381#31243#24207
  34.     TabOrder = 1
  35.     OnClick = Button2Click
  36.   end
  37.   object PageControl1: TPageControl
  38.     Left = 0
  39.     Top = 0
  40.     Width = 373
  41.     Height = 361
  42.     ActivePage = TabSheet1
  43.     Align = alLeft
  44.     TabIndex = 0
  45.     TabOrder = 2
  46.     object TabSheet1: TTabSheet
  47.       Caption = #26641#22411#26174#31034
  48.       object TreeView1: TTreeView
  49.         Left = 0
  50.         Top = 0
  51.         Width = 369
  52.         Height = 333
  53.         Align = alLeft
  54.         Indent = 19
  55.         TabOrder = 0
  56.       end
  57.     end
  58.     object TabSheet2: TTabSheet
  59.       Caption = #25968#25454#24211#26174#31034
  60.       ImageIndex = 1
  61.       object DBGrid1: TDBGrid
  62.         Left = 0
  63.         Top = 0
  64.         Width = 365
  65.         Height = 333
  66.         Align = alClient
  67.         DataSource = DataSource1
  68.         TabOrder = 0
  69.         TitleFont.Charset = GB2312_CHARSET
  70.         TitleFont.Color = clWindowText
  71.         TitleFont.Height = -13
  72.         TitleFont.Name = #23435#20307
  73.         TitleFont.Style = []
  74.       end
  75.     end
  76.   end
  77.   object Memo1: TMemo
  78.     Left = 380
  79.     Top = 204
  80.     Width = 133
  81.     Height = 153
  82.     Color = clBtnFace
  83.     Ctl3D = False
  84.     Lines.Strings = (
  85.       #35831#21442#32771#25968#25454#24211#26174#31034#65292
  86.       #30475#25968#25454#24211#20869#20869#23481'.'#36825#37324
  87.       #20165#20165#32473#20986#20102#20351#29992#25968#25454
  88.       #24211#20013#30340#25968#25454#21019#24314#26641#30340
  89.       #31034#20363#65292#33267#20110#21521#25968#25454#24211
  90.       #20013#22686#21152#25968#25454#22823#23478#21487#20197
  91.       #25720#32034#23581#35797#65292#36825#37324#23601#19981
  92.       #20877#32473#20986#12290)
  93.     ParentCtl3D = False
  94.     TabOrder = 3
  95.   end
  96.   object ADOConnection1: TADOConnection
  97.     ConnectionString =
  98.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=CreateTree.mdb;Pers' +
  99.       'ist Security Info=False'
  100.     LoginPrompt = False
  101.     Mode = cmShareDenyNone
  102.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  103.     Left = 416
  104.     Top = 128
  105.   end
  106.   object ADOQuery1: TADOQuery
  107.     Connection = ADOConnection1
  108.     Parameters = <>
  109.     SQL.Strings = (
  110.       'Select * From Type')
  111.     Left = 448
  112.     Top = 128
  113.     object ADOQuery1ID: TAutoIncField
  114.       DisplayLabel = #32534#21495
  115.       FieldName = 'ID'
  116.       ReadOnly = True
  117.     end
  118.     object ADOQuery1ParentID: TIntegerField
  119.       DisplayLabel = #29238'ID'#21495
  120.       FieldName = 'ParentID'
  121.     end
  122.     object ADOQuery1Name: TWideStringField
  123.       DisplayLabel = #21517#31216
  124.       FieldName = 'Name'
  125.       Size = 32
  126.     end
  127.   end
  128.   object DataSource1: TDataSource
  129.     DataSet = ADOQuery1
  130.     Left = 416
  131.     Top = 168
  132.   end
  133. end
  134.  
downloadUnit1.dfm Source code - Download Recursive read database Delphi example of creating a tree control menu Source code
Related Source Codes/Software:
Three Delphi getWord program code - Three Delphi getWord program code, VC and where th... 2012-02-18
Using Api for Delphi multithreaded - Multithreading is one of the very important progra... 2012-02-18
Delphi database automatic backup procedures - Automatically backup the database data, the ADO co... 2012-02-18
General SQL data query generator Delphi Edition - Delphi query expression builder program, generatin... 2012-02-18
Delphi remove the program itself (with code) - Method of Delphi remove the program itself, which ... 2012-02-18
Delphi TThread class implements the multi-threaded example - Delphi TThread class implements the multi-threaded... 2012-02-18
Four memory management program Delphi Source Edition - Collected four Delphi memory management programs, ... 2012-02-18
TPersistent instance using the class, Delphi7 compile directly - TPersistent instance using the class, Delphi7 no c... 2012-02-18
Satisfaction of the Delphi version address book Access - Satisfaction of the Delphi version address book Ac... 2012-02-18
Delphi reads the password box the password - Delphi reads the password box in the form of a pas... 2012-02-18
Sailing (substation) v2.6.4 enterprise website management system - Voyage CMS is based on professional marketing comp... 2016-08-08
In English and responsive corporate website v2.1 - Updated Home slides cannot be circular scrolling B... 2016-08-08
7384 transit system V5.0 - 7384 city public transport network system is a ASP... 2016-08-08
V2.0 WnyCms m table procedures - ASP version of WnyCms meter V2.0, ASP development,... 2016-08-08
Zhirui school course selection system v1.9.0 - Zhirui school course selection system of school ed... 2016-08-08
Cloud payer website payment system (ASP) v1.0 - One-click integrated PayPal, app, card, China Unio... 2016-08-08
UCMS v1.3.5 - Support Gets the child columns articles Optimizat... 2016-08-08
Micro-recorded cell phone video capture program (cached version) v2.3.3 - 1. fixed mobile version of the video address failu... 2016-08-08
Drupal v7.50 - Drupal is an open source content management system... 2016-08-08

 Back to top