sprk.~dfm

汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的学习

object sprkck: Tsprkck
  Left = 131
  Top = 115
  Width = 776
  Height = 558
  Caption = #21830#21697#20837#24211
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object AALabel1: TAALabel
    Left = 504
    Top = 312
    Width = 60
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #20837#24211#28165#21333
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
  end
  object ePanel3: TbsSkinExPanel
    Left = 2
    Top = 296
    Width = 150
    Height = 225
    TabOrder = 6
    SkinDataName = 'expanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    NumGlyphs = 1
    Spacing = 2
    RealWidth = 0
    RealHeight = 0
    ShowRollButton = False
    ShowCloseButton = False
    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollVertical
    Caption = '              '#20837#24211#36164#26009
    Enabled = False
    object cxLabel3: TcxLabel
      Left = 0
      Top = 27
      Width = 40
      Height = 17
      Caption = #36827#36135#21495
    end
    object DBEdit1: TcxDBTextEdit
      Left = 45
      Top = 23
      Width = 100
      Height = 21
      DataBinding.DataField = 'jhbh'
      DataBinding.DataSource = DataSource7
      Properties.ReadOnly = True
      TabOrder = 1
    end
    object cxLabel4: TcxLabel
      Left = 0
      Top = 51
      Width = 52
      Height = 17
      Caption = #36827#36135#26085#26399
    end
    object DateEdit1: TcxDBDateEdit
      Left = 56
      Top = 47
      Width = 89
      Height = 21
      DataBinding.DataField = 'jhrq'
      DataBinding.DataSource = DataSource7
      TabOrder = 3
    end
    object cxLabel5: TcxLabel
      Left = 0
      Top = 75
      Width = 52
      Height = 17
      Caption = #36827#36135#24635#39069
    end
    object cEdit1: TcxDBCurrencyEdit
      Left = 56
      Top = 72
      Width = 89
      Height = 21
      DataBinding.DataField = 'je'
      DataBinding.DataSource = DataSource7
      Properties.ReadOnly = True
      TabOrder = 5
    end
    object cxLabel8: TcxLabel
      Left = 0
      Top = 148
      Width = 52
      Height = 17
      Caption = #27424#27454#37329#39069
    end
    object cEdit4: TcxDBCurrencyEdit
      Left = 56
      Top = 144
      Width = 89
      Height = 21
      DataBinding.DataField = 'qkje'
      DataBinding.DataSource = DataSource7
      Properties.ReadOnly = True
      TabOrder = 7
    end
    object cxLabel9: TcxLabel
      Left = 0
      Top = 172
      Width = 52
      Height = 17
      Caption = #20184#27454#26041#24335
    end
    object cxLabel10: TcxLabel
      Left = 0
      Top = 196
      Width = 52
      Height = 17
      Caption = #32467#24080#26399#38480
    end
    object cBox1: TcxDBComboBox
      Left = 56
      Top = 168
      Width = 89
      Height = 21
      DataBinding.DataField = 'jzfs'
      DataBinding.DataSource = DataSource7
      Properties.Items.Strings = (
        #29616#37329
        #27424#24080)
      TabOrder = 10
    end
    object sEdit1: TcxDBSpinEdit
      Left = 56
      Top = 192
      Width = 89
      Height = 21
      DataBinding.DataField = 'fkqx'
      DataBinding.DataSource = DataSource7
      Properties.OnChange = cxDBSpinEdit1PropertiesChange
      TabOrder = 11
    end
    object cxLabel6: TcxLabel
      Left = 0
      Top = 96
      Width = 52
      Height = 17
      Caption = #23454#25910#37329#39069
    end
    object cEdit2: TcxDBCurrencyEdit
      Left = 56
      Top = 96
      Width = 89
      Height = 21
      DataBinding.DataField = 'ssje'
      DataBinding.DataSource = DataSource7
      Properties.OnChange = cEdit2PropertiesChange
      TabOrder = 13
    end
    object cxLabel7: TcxLabel
      Left = 0
      Top = 120
      Width = 52
      Height = 17
      Caption = #24050#20184#37329#39069
    end
    object cEdit3: TcxDBCurrencyEdit
      Left = 55
      Top = 120
      Width = 89
      Height = 21
      DataBinding.DataField = 'yfje'
      DataBinding.DataSource = DataSource7
      Properties.OnChange = cEdit3PropertiesChange
      TabOrder = 15
    end
  end
  object ePanel4: TbsSkinExPanel
    Left = 152
    Top = 296
    Width = 137
    Height = 225
    TabOrder = 8
    SkinDataName = 'expanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    NumGlyphs = 1
    Spacing = 2
    RealWidth = 0
    RealHeight = 0
    ShowRollButton = False
    ShowCloseButton = False
    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollVertical
    Caption = '            '#20837#24211#26126#32454
    Enabled = False
    object cxLabel11: TcxLabel
      Left = 8
      Top = 32
      Width = 40
      Height = 17
      Caption = #36827#36135#20215
    end
    object cxLabel12: TcxLabel
      Left = 8
      Top = 56
      Width = 40
      Height = 17
      Caption = #25209#21457#20215
    end
    object cxLabel13: TcxLabel
      Left = 8
      Top = 80
      Width = 40
      Height = 17
      Caption = #38144#21806#20215
    end
    object cxLabel14: TcxLabel
      Left = 8
      Top = 112
      Width = 40
      Height = 17
      Caption = #25968'    '#37327
    end
    object cxLabel15: TcxLabel
      Left = 8
      Top = 144
      Width = 40
      Height = 17
      Caption = #37329'    '#39069
    end
    object cEdit5: TcxDBCurrencyEdit
      Left = 56
      Top = 32
      Width = 73
      Height = 21
      DataBinding.DataField = 'jj'
      DataBinding.DataSource = DataSource4
      TabOrder = 5
      OnExit = cEdit5Exit
    end
    object cEdit6: TcxDBCurrencyEdit
      Left = 56
      Top = 56
      Width = 73
      Height = 21
      DataBinding.DataField = 'pfj'
      DataBinding.DataSource = DataSource4
      TabOrder = 6
    end
    object cEdit7: TcxDBCurrencyEdit
      Left = 56
      Top = 80
      Width = 73
      Height = 21
      DataBinding.DataField = 'sj'
      DataBinding.DataSource = DataSource4
      TabOrder = 7
    end
    object cEdit8: TcxDBCurrencyEdit
      Left = 56
      Top = 144
      Width = 73
      Height = 21
      DataBinding.DataField = 'je'
      DataBinding.DataSource = DataSource4
      Properties.ReadOnly = True
      TabOrder = 8
    end
    object DBSEdit1: TcxDBSpinEdit
      Left = 56
      Top = 112
      Width = 73
      Height = 21
      DataBinding.DataField = 'sl'
      DataBinding.DataSource = DataSource4
      TabOrder = 9
      OnExit = DBSEdit1Exit
    end
    object cxButton2: TcxButton
      Left = 8
      Top = 184
      Width = 57
      Height = 25
      Caption = #24405#20837#23436#27605
      TabOrder = 10
      OnClick = cxButton2Click
    end
    object cxButton3: TcxButton
      Left = 72
      Top = 184
      Width = 57
      Height = 25
      Caption = #20837#24211#36864#20986
      Enabled = False
      TabOrder = 11
      OnClick = cxButton3Click
    end
  end
  object dxDBTreeList1: TdxDBTreeList
    Left = 8
    Top = 40
    Width = 281
    Height = 225
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'spbh'
    ParentField = 'sjbh'
    PopupMenu = PopupMenu1
    TabOrder = 1
    DataSource = DataSource0
    TreeLineColor = clGrayText
    object dxDBTreeList1Column1: TdxDBTreeListColumn
      Alignment = taLeftJustify
      Caption = #20135#21697#21517#31216
      HeaderAlignment = taCenter
      Width = 250
      BandIndex = 0
      RowIndex = 0
      FieldName = 'spmc'
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 296
    Top = 40
    Width = 465
    Height = 265
    Hint = #21452#20987#36873#25321#35201#20837#24211#30340#21830#21697
    AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
    DataSource = DataSource1
    Enabled = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sjmc'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'spmc'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21378#23478#35268#26684
        Width = 108
      end
      item
        EditButtons = <>
        FieldName = 'dw'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = 'jj'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #36827#20215
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'pfj'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25209#21457#20215
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'sj'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21806#20215
        Width = 50
      end
      item
        EditButtons = <>
        FieldName = 'sl'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #25968#37327
        Width = 40
      end>
  end
  object cxLabel1: TcxLabel
    Left = 16
    Top = 8
    Width = 76
    Height = 17
    Caption = #35831#36873#25321#20179#24211#65306
  end
  object dblp1: TDBLookupComboboxEh
    Left = 96
    Top = 8
    Width = 193
    Height = 21
    DataField = 'mc'
    DataSource = DataSource8
    EditButtons = <>
    KeyField = 'mc'
    ListField = 'mc'
    ListSource = DataSource2
    TabOrder = 3
    Visible = True
    OnChange = dblp1Change
  end
  object ePanel1: TbsSkinExPanel
    Left = 296
    Top = 8
    Width = 273
    Height = 241
    TabOrder = 4
    SkinDataName = 'expanel'
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultWidth = 0
    DefaultHeight = 0
    UseSkinFont = True
    NumGlyphs = 1
    Spacing = 2
    RealWidth = 0
    RealHeight = 0
    ShowRollButton = True
    ShowCloseButton = False
    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollVertical
    Caption = '                        '#36755#20837#20854#20182#26597#35810#26465#20214
    object DBFc1: TcxDBFilterControl
      Left = 8
      Top = 32
      Width = 257
      Height = 153
      DataSet = ADOQy1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      Items = <
        item
          Caption = #24211#23384#25968#37327
          FieldName = 'sl'
          PropertiesClassName = 'TcxSpinEditProperties'
        end
        item
          Caption = #21378#23478#35268#26684
          FieldName = 'spmc'
          PropertiesClassName = 'TcxLookupComboBoxProperties'
          Properties.KeyFieldNames = 'mc'
          Properties.ListColumns = <
            item
              Caption = #36873#25321#21378#23478
              FieldName = 'mc'
            end>