cpkczl.~dfm

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

object cpkczlck: Tcpkczlck
  Left = 154
  Top = 109
  Width = 752
  Height = 569
  Caption = #20135#21697#24211#23384#31181#31867#24635#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 zjEdit1: TcxTextEdit
    Left = 592
    Top = 312
    Width = 121
    Height = 21
    TabOrder = 15
    Visible = False
  end
  object DBTree1: TdxDBTreeView
    Left = 8
    Top = 8
    Width = 521
    Height = 329
    ShowNodeHint = True
    AutoExpand = True
    DataSource = DataSource0
    DisplayField = 'spmc'
    KeyField = 'spbh'
    ListField = 'spmc'
    ParentField = 'sjbh'
    SeparatedSt = ' - '
    RaiseOnError = True
    Indent = 19
    ParentColor = False
    Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
    SelectedIndex = -1
    TabOrder = 0
    PopupMenu = PopupMenu1
  end
  object ePanel1: TbsSkinExPanel
    Left = 536
    Top = 8
    Width = 201
    Height = 329
    TabOrder = 1
    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 = '                    '#20998#39033#20449#24687#32534#36753
    object cxLabel1: TcxLabel
      Left = 8
      Top = 32
      Width = 64
      Height = 17
      Caption = #20998#39033#21517#31216#65306
    end
    object cxLabel2: TcxLabel
      Left = 8
      Top = 56
      Width = 64
      Height = 17
      Caption = #20998#39033#32534#21495#65306
    end
    object cxLabel3: TcxLabel
      Left = 8
      Top = 104
      Width = 64
      Height = 17
      Caption = #19978#32423#32534#21495#65306
    end
    object cxLabel4: TcxLabel
      Left = 11
      Top = 128
      Width = 61
      Height = 17
      Caption = #21161' '#35760'  '#30721#65306
    end
    object cxLabel5: TcxLabel
      Left = 8
      Top = 176
      Width = 64
      Height = 17
      Caption = #36827#36135#20215#26684#65306
    end
    object cxLabel6: TcxLabel
      Left = 8
      Top = 248
      Width = 64
      Height = 17
      Caption = #21021#22987#24211#23384#65306
    end
    object cxLabel7: TcxLabel
      Left = 8
      Top = 224
      Width = 64
      Height = 17
      Caption = #38144#21806#20215#26684#65306
    end
    object cxLabel8: TcxLabel
      Left = 8
      Top = 200
      Width = 64
      Height = 17
      Caption = #25209#21457#20215#26684#65306
    end
    object cxButton1: TcxButton
      Left = 24
      Top = 296
      Width = 75
      Height = 25
      Caption = #30830#35748
      TabOrder = 8
      OnClick = cxButton1Click
    end
    object cxButton2: TcxButton
      Left = 112
      Top = 296
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 9
      OnClick = cxButton2Click
    end
    object Edit1: TcxTextEdit
      Left = 72
      Top = 32
      Width = 121
      Height = 21
      Properties.OnChange = Edit1PropertiesChange
      TabOrder = 10
    end
    object Edit2: TcxTextEdit
      Left = 72
      Top = 56
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 11
    end
    object Edit3: TcxTextEdit
      Left = 72
      Top = 104
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 12
    end
    object Edit4: TcxTextEdit
      Left = 72
      Top = 128
      Width = 121
      Height = 21
      TabOrder = 13
    end
    object cEdit1: TcxCurrencyEdit
      Left = 72
      Top = 176
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 14
    end
    object cEdit2: TcxCurrencyEdit
      Left = 72
      Top = 200
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 15
    end
    object cEdit3: TcxCurrencyEdit
      Left = 72
      Top = 224
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 16
    end
    object cEdit4: TcxSpinEdit
      Left = 72
      Top = 248
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 17
    end
    object cxLabel9: TcxLabel
      Left = 8
      Top = 80
      Width = 64
      Height = 17
      Caption = #19978#32423#21517#31216#65306
    end
    object Edit5: TcxTextEdit
      Left = 72
      Top = 80
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 19
    end
    object cBox1: TcxCheckBox
      Left = 56
      Top = 272
      Width = 105
      Height = 21
      Caption = #20135#21697#20998#31867#23436#25104
      Enabled = False
      TabOrder = 20
    end
    object cxLabel16: TcxLabel
      Left = 8
      Top = 152
      Width = 64
      Height = 17
      Caption = #21830#21697#21333#20301#65306
    end
    object dblp1: TDBLookupComboboxEh
      Left = 72
      Top = 152
      Width = 121
      Height = 21
      Enabled = False
      EditButtons = <>
      KeyField = 'mc'
      ListField = 'mc'
      ListSource = DataSource9
      TabOrder = 22
      Visible = True
    end
    object Button2: TButton
      Left = 72
      Top = 56
      Width = 75
      Height = 28
      Caption = #30830#35748#20462#25913
      TabOrder = 23
      Visible = False
      OnClick = Button2Click
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 16
    Top = 368
    Width = 113
    Height = 153
    DataSource = DataSource1
    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]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh1CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 128
    Top = 368
    Width = 113
    Height = 153
    DataSource = DataSource2
    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]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh2CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object DBGridEh3: TDBGridEh
    Left = 240