query.dfm

来自「一个简单的家庭财务管理软件。」· DFM 代码 · 共 97 行

object study: Tstudy
  Left = 435
  Top = 176
  Width = 696
  Height = 521
  Caption = #26641#24418#32467#26500
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 185
    Top = 0
    Width = 2
    Height = 494
    Cursor = crHSplit
    MinSize = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 185
    Height = 494
    Align = alLeft
    TabOrder = 0
    object tree: TTreeView
      Left = 1
      Top = 26
      Width = 183
      Height = 467
      Align = alClient
      Indent = 19
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 183
      Height = 25
      Align = alTop
      Caption = 'Panel2'
      TabOrder = 1
      DesignSize = (
        183
        25)
      object ComboBox1: TComboBox
        Left = 3
        Top = 2
        Width = 177
        Height = 21
        Anchors = [akTop]
        ItemHeight = 13
        TabOrder = 0
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 187
    Top = 0
    Width = 501
    Height = 494
    Align = alClient
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my_prog\delphi\h' +
      'ome\home.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 40
  end
  object treedb: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select fssj from t_lsh')
    Left = 40
    Top = 40
  end
end