selectproout.dfm

这是一个实用的软件

inherited cg: Tcg
  Left = 287
  Top = 124
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26465#20214#36873#25321
  ClientHeight = 191
  ClientWidth = 393
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 393
    Height = 153
    Align = alTop
    Caption = ' '#26465#20214#26694' '
    TabOrder = 0
    object lbl1: TLabel
      Left = 8
      Top = 56
      Width = 60
      Height = 13
      Caption = #33647#21697#32534#21495#65306
    end
    object lbl2: TLabel
      Left = 200
      Top = 56
      Width = 60
      Height = 13
      Caption = #33647#21697#21517#31216#65306
    end
    object lbl3: TLabel
      Left = 200
      Top = 88
      Width = 60
      Height = 13
      Caption = #33647#21697#31867#22411#65306
    end
    object lbl5: TLabel
      Left = 8
      Top = 24
      Width = 60
      Height = 13
      Caption = #36215#22987#26085#26399#65306
    end
    object lbl6: TLabel
      Left = 200
      Top = 24
      Width = 60
      Height = 13
      Caption = #32467#27490#26085#26399#65306
    end
    object lbl7: TLabel
      Left = 8
      Top = 88
      Width = 60
      Height = 13
      Caption = #23457#26680#24773#20917#65306
    end
    object lbl8: TLabel
      Left = 200
      Top = 120
      Width = 60
      Height = 13
      Caption = #29983'  '#20135'  '#21830#65306
    end
    object lbl4: TLabel
      Left = 8
      Top = 120
      Width = 60
      Height = 13
      Caption = #25209'        '#21495#65306
    end
    object Edit1: TEdit
      Left = 264
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 264
      Top = 112
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object ComboBox2: TComboBox
      Left = 72
      Top = 80
      Width = 121
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        #20840#37096
        #24050#23457#26680
        #26410#23457#26680)
    end
    object Edit4: TEdit
      Left = 72
      Top = 48
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object dxLookupTreeView1: TdxLookupTreeView
      Left = 264
      Top = 80
      Width = 121
      Height = 21
      CanSelectParents = True
      ParentColor = False
      TabOrder = 4
      TabStop = True
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      DisplayField = 'fcode'
      DividedChar = '.'
      ListSource = DataSource1
      KeyField = 'fcode'
      ListField = 'Ty_name'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'fathercode'
      TextStyle = tvtsShort
      Alignment = taLeftJustify
    end
    object dxDateEdit1: TdxDateEdit
      Left = 72
      Top = 16
      Width = 121
      TabOrder = 5
      Date = -700000.000000000000000000
    end
    object dxDateEdit2: TdxDateEdit
      Left = 264
      Top = 16
      Width = 121
      TabOrder = 6
      Date = -700000.000000000000000000
    end
    object edt1: TEdit
      Left = 72
      Top = 112
      Width = 121
      Height = 21
      TabOrder = 7
    end
  end
  object btn1: TBitBtn
    Left = 312
    Top = 160
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 1
    OnClick = btn1Click
    Glyph.Data = {
      92010000424D9201000000000000920000002800000010000000100000000100
      08000000000000010000120B0000120B0000170000001700000000000000FFFF
      FF00FF00FF00004B0000098611000C9C19000A8615000C9518000D931A000F9E
      1C000F991C000E9D1D000F9D1E0011A4220011A02100139224001CB135001CA1
      340024BC430029B548002EC6520035CA5E0039D4650002020202020202020202
      0202020202020202020202020202020202020202020202020202020303020202
      0202020202020202020203090C03020202020202020202020203100D050E0302
      02020202020202020314120F03080B030202020202020203151611030203060A
      0302020202020202031303020202020307030202020202020203020202020202
      0304030202020202020202020202020202020303020202020202020202020202
      0202020303020202020202020202020202020202020202020202020202020202
      0202020202020202020202020202020202020202020202020202020202020202
      02020202020202020202020202020202020202020202}
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_type')
    Left = 312
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 344
    Top = 104
  end
end