cktk.dfm

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

object cktkck: Tcktkck
  Left = 130
  Top = 114
  Width = 790
  Height = 571
  Caption = #20986#24211#21830#21697#36864#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 = 288
    Top = 304
    Width = 60
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #36864#24211#26126#32454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
  end
  object AALabel2: TAALabel
    Left = 328
    Top = 16
    Width = 135
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #20986#24211#28165#21333#21450#35814#32454#36164#26009
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 40
    Width = 385
    Height = 249
    Hint = #21452#20987#26597#30475#27492#26465#30340#20837#24211#26126#32454
    DataSource = DataSource7
    Enabled = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'jhbh'
        Footers = <
          item
            DisplayFormat = #21512#35745
            FieldName = 'jhbh'
            Value = #21512#35745
          end>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#32534#21495
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'khmc'
        Footers = <
          item
            FieldName = 'khmc'
            ValueType = fvtCount
          end>
        Title.Alignment = taCenter
        Title.Caption = #23458#25143#21517#31216
        Width = 120
      end
      item
        EditButtons = <>
        FieldName = 'jhrq'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#26085#26399
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            FieldName = 'je'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#24635#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'ssje'
        Footers = <
          item
            FieldName = 'ssje'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #23454#25910#37329#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'yfje'
        Footers = <
          item
            FieldName = 'yfje'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #24050#20184#37329#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'qkje'
        Footers = <
          item
            FieldName = 'qkje'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #27424#27454#37329#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'jzfs'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#26041#24335
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'fkrq'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32467#28165#26085#26399
        Width = 70
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 397
    Top = 40
    Width = 380
    Height = 249
    Hint = #21452#20987#22635#20837#36864#24211#26126#32454
    AllowedOperations = [alopInsertEh, alopUpdateEh, alopDeleteEh]
    DataSource = DataSource4
    Enabled = False
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    PopupMenu = PopupMenu2
    ShowHint = True
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh2DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sjmc'
        Footers = <
          item
            DisplayFormat = #21512#35745
            FieldName = 'sjmc'
            Value = #21512#35745
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#21517#31216
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = 'spmc'
        Footers = <
          item
            FieldName = 'spmc'
            ValueType = fvtCount
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #29983#20135#21378#23478
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'jhbh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#32534#21495
        Width = 86
      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
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            DisplayFormat = '0.00'
            FieldName = 'je'
            Value = '0'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 60
      end>
  end
  object ePanel1: TbsSkinExPanel
    Left = 504
    Top = 8
    Width = 273
    Height = 281
    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#20986#24211#28165#21333#26597#35810#26465#20214
    Enabled = False
    object DBFc1: TcxDBFilterControl
      Left = 8
      Top = 32
      Width = 257
      Height = 193
      DataSet = rkzk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      Items = <
        item
          Caption = #38144#21806#32534#21495
          FieldName = 'jhbh'
          PropertiesClassName = 'TcxTextEditProperties'
        end
        item
          Caption = #38144#21806#26085#26399
          FieldName = 'jhrq'
          PropertiesClassName = 'TcxDateEditProperties'
        end
        item
          Caption = #38144#21806#24635#39069
          FieldName = 'je'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end
        item
          Caption = #23454#25910#37329#39069
          FieldName = 'ssje'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end
        item
          Caption = #24050#20184#37329#39069
          FieldName = 'yfje'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end
        item
          Caption = #27424#27454#37329#39069
          FieldName = 'qkje'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end
        item
          Caption = #35760#24080#26041#24335
          FieldName = 'jzfs'
          PropertiesClassName = 'TcxComboBoxProperties'
          Properties.Items.Strings = (
            #29616#37329
            #27424#24080)
        end
        item
          Caption = #20184#27454#26399#38480
          FieldName = 'fkqx'
          PropertiesClassName = 'TcxSpinEditProperties'
        end
        item
          Caption = #20184#27454#26085#26399
          FieldName = 'fkrq'
          PropertiesClassName = 'TcxDateEditProperties'
        end>
      ParentFont = False
      TabOrder = 0
      TabStop = True
    end
    object cxButton1: TcxButton
      Left = 48
      Top = 240
      Width = 163
      Height = 25
      Caption = #25353#19978#36848#26465#20214#26597#35810
      TabOrder = 1
      OnClick = cxButton1Click
    end
  end
  object DBGridEh3: TDBGridEh
    Left = 5
    Top = 328
    Width = 620
    Height = 193
    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 = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu2
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sjmc'
        Footers = <
          item
            DisplayFormat = #21512#35745
            FieldName = 'sjmc'
            Value = #21512#35745
            ValueType = fvtCount
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21830#21697#21517#31216
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = 'spmc'
        Footers = <
          item
            FieldName = 'spmc'
            ValueType = fvtCount
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21378#23478#35268#26684
        Width = 86
      end
      item
        EditButtons = <>
        FieldName = 'dw'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #21333#20301
        Width = 30
      end
      item
        EditButtons = <>
        FieldName = 'sj'
        Footers = <>
        ReadOnly = True
        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
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            DisplayFormat = '0.00'
            FieldName = 'je'
            Value = '0'
            ValueType = fvtSum
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'stje'
        Footers = <
          item
            DisplayFormat = '0.00'
            FieldName = 'stje'
            ValueType = fvtSum
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #23454#36864#37329#39069
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'tkyy'
        Footers = <>
        KeyList.Strings = (
          #36136#37327#38382#39064
          #20854#20182#38382#39064)
        PickList.Strings = (
          #36136#37327#38382#39064
          #20854#20182#38382#39064)
        Title.Alignment = taCenter
        Title.Caption = #36864#36135#21407#22240
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'jhbh'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #38144#21806#32534#21495
        Width = 86
      end>
  end
  object ePanel4: TbsSkinExPanel
    Left = 6
    Top = 296
    Width = 169
    Height = 209
    TabOrder = 3
    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