f_sel_prod.dfm

用Delphi 开发的一个 户籍管理系统

      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      List = True
      ShowCaptions = True
      TabOrder = 1
      Transparent = False
      UIStyle = WinXP
      ButtonColor = 15717318
      ButtonBorderColor = 13003057
      ButtonDownColor = 14789779
      object edt_prod: TEdit
        Left = 0
        Top = 0
        Width = 177
        Height = 18
        Color = clMoneyGreen
        TabOrder = 0
      end
      object ToolButton4: TToolButton
        Left = 177
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object Label1: TLabel
        Left = 185
        Top = 0
        Width = 24
        Height = 18
        Caption = #31867#21035
        Layout = tlCenter
      end
      object edt_type: TdxLookupTreeView
        Left = 209
        Top = 0
        Width = 145
        Height = 20
        CanSelectParents = False
        DropDownRows = 20
        ParentColor = False
        TabOrder = 1
        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 = True
        TreeViewShowButtons = True
        TreeViewShowHint = False
        TreeViewShowLines = True
        TreeViewShowRoot = True
        TreeViewSortType = stNone
        DisplayField = 'name'
        DividedChar = '.'
        KeyField = 'id'
        ListField = 'name'
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        ParentField = 'pid'
        TextStyle = tvtsShort
        Alignment = taLeftJustify
      end
      object Label2: TLabel
        Left = 354
        Top = 0
        Width = 60
        Height = 18
        Caption = #33258#23450#20041#20998#31867
        Layout = tlCenter
      end
      object edt_seltype: TcxLookupComboBox
        Left = 414
        Top = 0
        Width = 117
        Height = 20
        Properties.KeyFieldNames = 'id'
        Properties.ListColumns = <
          item
            FieldName = 'name'
          end>
        Properties.ListOptions.ShowHeader = False
        TabOrder = 2
      end
      object btn_query: TToolButton
        Left = 531
        Top = 0
        AutoSize = True
        Caption = #26597#25214
        ImageIndex = 16
      end
      object ToolButton1: TToolButton
        Left = 571
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 579
        Top = 0
        Caption = #30830#23450
        ImageIndex = 34
      end
      object ToolButton3: TToolButton
        Left = 615
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 6
        Style = tbsSeparator
      end
      object btn_exit: TToolButton
        Left = 623
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 4
        OnClick = btn_exitClick
      end
    end
    object cxGrid1: TcxGrid
      Left = 0
      Top = 44
      Width = 716
      Height = 349
      Align = alClient
      TabOrder = 2
      LookAndFeel.Kind = lfOffice11
      LookAndFeel.NativeStyle = True
      object tv_prod: TcxGridDBTableView
        DataController.DataSource = dsprod
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        NavigatorButtons.ConfirmDelete = False
        OptionsView.GroupByBox = False
        object lmn__prodid: TcxGridDBColumn
          DataBinding.FieldName = 'id'
        end
        object lmn__prodname: TcxGridDBColumn
          DataBinding.FieldName = 'name'
        end
        object lmn__prodspec: TcxGridDBColumn
          DataBinding.FieldName = 'spec'
        end
        object lmn__prodprice: TcxGridDBColumn
          DataBinding.FieldName = 'price'
        end
        object lmn__produnit: TcxGridDBColumn
          DataBinding.FieldName = 'unit'
        end
        object lmn__prodmap: TcxGridDBColumn
          DataBinding.FieldName = 'map'
        end
        object lmn__prodtype: TcxGridDBColumn
          DataBinding.FieldName = 'type'
        end
        object lmn__prodjp: TcxGridDBColumn
          DataBinding.FieldName = 'jp'
        end
        object lmn__prodwb: TcxGridDBColumn
          DataBinding.FieldName = 'wb'
        end
        object lmn__prodqty: TcxGridDBColumn
          DataBinding.FieldName = 'qty'
        end
        object lmn__proddepot: TcxGridDBColumn
          DataBinding.FieldName = 'depot'
        end
        object lmn__prodtypename: TcxGridDBColumn
          DataBinding.FieldName = 'typename'
        end
        object lmn__prodch: TcxGridDBColumn
          DataBinding.FieldName = 'ch'
        end
        object lmn__prodremark: TcxGridDBColumn
          DataBinding.FieldName = 'remark'
        end
        object lmn__prodsno: TcxGridDBColumn
          DataBinding.FieldName = 'sno'
        end
        object lmn__prodseltype: TcxGridDBColumn
          DataBinding.FieldName = 'seltype'
        end
      end
      object lv_prod: TcxGridLevel
        GridView = tv_prod
      end
    end
  end
  object adoprod: TADODataSet
    CacheSize = 2048
    Connection = RDB.con_ado
    CursorType = ctStatic
    CommandText = 'select * from info_People'
    EnableBCD = False
    ParamCheck = False
    Parameters = <>
    Prepared = True
    Left = 161
    Top = 115
    object adoprodid: TIntegerField
      FieldName = 'id'
    end
    object adoprodname: TStringField
      FieldName = 'name'
      Size = 127
    end
    object adoprodspec: TStringField
      FieldName = 'spec'
      Size = 127
    end
    object adoprodprice: TBCDField
      FieldName = 'price'
      Precision = 15
      Size = 3
    end
    object adoprodunit: TStringField
      FieldName = 'unit'
      Size = 6
    end
    object adoprodmap: TStringField
      FieldName = 'map'
      Size = 30
    end
    object adoprodtype: TIntegerField
      FieldName = 'type'
    end
    object adoprodjp: TStringField
      FieldName = 'jp'
      Size = 30
    end
    object adoprodwb: TStringField
      FieldName = 'wb'
      Size = 30
    end
    object adoprodqty: TBCDField
      FieldName = 'qty'
      Precision = 15
      Size = 1
    end
    object adoproddepot: TIntegerField
      FieldName = 'depot'
    end
    object adoprodtypename: TStringField
      FieldName = 'typename'
    end
    object adoprodch: TBooleanField
      FieldName = 'ch'
    end
    object adoprodremark: TStringField
      FieldName = 'remark'
      Size = 300
    end
    object adoprodsno: TIntegerField
      FieldName = 'sno'
    end
    object adoprodseltype: TIntegerField
      FieldName = 'seltype'
    end
  end
  object dsprod: TDataSource
    DataSet = adoprod
    Left = 239
    Top = 117
  end
end