kccx.dfm

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

object kccxck: Tkccxck
  Left = 140
  Top = 112
  Width = 779
  Height = 558
  Caption = #20135#21697#24211#23384#26597#35810
  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 dxDBTreeList1: TdxDBTreeList
    Left = 8
    Top = 40
    Width = 281
    Height = 465
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'spbh'
    ParentField = 'sjbh'
    PopupMenu = PopupMenu1
    TabOrder = 0
    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 = 465
    AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
    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 = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    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 = 110
      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 Button3: TdxfColorButton
    Left = 624
    Top = 0
    Width = 113
    Height = 33
    Caption.Strings = (
      #25171#21360#24403#21069#25968#25454)
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
  end
  object ePanel1: TbsSkinExPanel
    Left = 296
    Top = 8
    Width = 273
    Height = 297
    TabOrder = 5
    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 = 217
      DataSet = ADOQy1
      FilterOptions.SupportedBetween = False
      FilterOptions.SupportedIn = False
      Items = <
        item
          Caption = #24211#23384#25968#37327
          FieldName = 'sl'
          PropertiesClassName = 'TcxSpinEditProperties'
        end
        item
          Caption = #21378#23478#35268#26684
          FieldName = 'spmc'
          PropertiesClassName = 'TcxTextEditProperties'
        end>
      TabOrder = 0
      TabStop = True
    end
    object cxButton1: TcxButton
      Left = 56
      Top = 264
      Width = 163
      Height = 25
      Caption = #25353#24403#21069#20998#31867#19982#19978#36848#26465#20214#26597#35810
      TabOrder = 1
      OnClick = cxButton1Click
    end
  end
  object Table2: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'ckh'
    Left = 304
    Top = 168
  end
  object Table3: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'fl3'
    Left = 304
    Top = 200
  end
  object DataSource0: TDataSource
    DataSet = spzl
    Left = 336
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 336
    Top = 168
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 336
    Top = 200
  end
  object py: THzSpell
    Left = 416
    Top = 200
  end
  object spzl: TADOQuery
    Active = True
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spk')
    Left = 304
    Top = 104
  end
  object ADOQy1: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spkc')
    Left = 304
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ADOQy1
    Left = 336
    Top = 136
  end
  object spzk: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spk')
    Left = 376
    Top = 136
  end
  object Table8: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'ckhfk'
    Left = 376
    Top = 168
  end
  object DataSource8: TDataSource
    DataSet = Table8
    Left = 408
    Top = 168
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 232
    object N1: TMenuItem
      Caption = #26597#35810#24403#21069#20998#31867
      OnClick = N1Click
    end
  end
  object Table5: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'fl5'
    Left = 240
    Top = 240
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 240
    Top = 208
  end
end