cktk.dfm

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

    DefaultCaptionHeight = 21
    RollState = False
    RollKind = rkRollVertical
    Caption = '      '#36864#24211#26126#32454#25171#21360#23383#27573#35774#32622
    object sBox1: TcxCheckBox
      Left = 8
      Top = 32
      Width = 73
      Height = 21
      Caption = #21830#21697#21517#31216
      Properties.OnChange = sBox1PropertiesChange
      State = cbsChecked
      TabOrder = 0
    end
    object sBox2: TcxCheckBox
      Left = 88
      Top = 32
      Width = 73
      Height = 21
      Caption = #21378#23478#35268#26684
      Properties.OnChange = sBox2PropertiesChange
      State = cbsChecked
      TabOrder = 1
    end
    object sBox3: TcxCheckBox
      Left = 8
      Top = 64
      Width = 65
      Height = 21
      Caption = #21333#20301
      Properties.OnChange = sBox3PropertiesChange
      State = cbsChecked
      TabOrder = 2
    end
    object sBox4: TcxCheckBox
      Left = 88
      Top = 64
      Width = 65
      Height = 21
      Caption = #21806#20215
      Properties.OnChange = sBox4PropertiesChange
      State = cbsChecked
      TabOrder = 3
    end
    object sBox5: TcxCheckBox
      Left = 8
      Top = 96
      Width = 65
      Height = 21
      Caption = #25968#37327
      Properties.OnChange = sBox5PropertiesChange
      State = cbsChecked
      TabOrder = 4
    end
    object sBox6: TcxCheckBox
      Left = 88
      Top = 96
      Width = 73
      Height = 21
      Caption = #37329#39069
      Properties.OnChange = sBox6PropertiesChange
      State = cbsChecked
      TabOrder = 5
    end
    object sBox7: TcxCheckBox
      Left = 8
      Top = 128
      Width = 73
      Height = 21
      Caption = #23454#36864#37329#39069
      Properties.OnChange = sBox7PropertiesChange
      State = cbsChecked
      TabOrder = 6
    end
    object sBox8: TcxCheckBox
      Left = 88
      Top = 128
      Width = 73
      Height = 21
      Caption = #36864#36135#21407#22240
      Properties.OnChange = sBox8PropertiesChange
      State = cbsChecked
      TabOrder = 7
    end
    object cxButton4: TcxButton
      Left = 88
      Top = 160
      Width = 65
      Height = 25
      Caption = #20851#38381#31383#21475
      TabOrder = 8
      OnClick = cxButton4Click
    end
    object sBox9: TcxCheckBox
      Left = 8
      Top = 160
      Width = 73
      Height = 21
      Caption = #38144#21806#32534#21495
      Properties.OnChange = sBox9PropertiesChange
      State = cbsChecked
      TabOrder = 9
    end
  end
  object ePanel2: TbsSkinExPanel
    Left = 624
    Top = 328
    Width = 153
    Height = 193
    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 = #36864#24211#36164#26009
    object cxLabel4: TcxLabel
      Left = 0
      Top = 24
      Width = 52
      Height = 17
      Caption = #36864#24211#32534#21495
    end
    object tEdit1: TcxDBTextEdit
      Left = 56
      Top = 24
      Width = 97
      Height = 21
      DataBinding.DataField = 'tkbh'
      DataBinding.DataSource = DataSource2
      Properties.ReadOnly = True
      TabOrder = 1
    end
    object cxLabel5: TcxLabel
      Left = 0
      Top = 48
      Width = 52
      Height = 17
      Caption = #36864#24211#26085#26399
    end
    object DateEdit1: TcxDBDateEdit
      Left = 56
      Top = 48
      Width = 97
      Height = 21
      DataBinding.DataField = 'tkrq'
      DataBinding.DataSource = DataSource2
      TabOrder = 3
    end
    object cxLabel6: TcxLabel
      Left = 0
      Top = 72
      Width = 52
      Height = 17
      Caption = #36864#24211#24635#39069
    end
    object cEdit1: TcxDBCurrencyEdit
      Left = 56
      Top = 72
      Width = 97
      Height = 21
      DataBinding.DataField = 'je'
      DataBinding.DataSource = DataSource2
      Properties.ReadOnly = True
      TabOrder = 5
    end
    object cxLabel7: TcxLabel
      Left = 0
      Top = 96
      Width = 52
      Height = 17
      Caption = #24212#36864#37329#39069
    end
    object cEdit2: TcxDBCurrencyEdit
      Left = 56
      Top = 96
      Width = 97
      Height = 21
      DataBinding.DataField = 'tkje'
      DataBinding.DataSource = DataSource2
      TabOrder = 7
    end
    object cEdit3: TcxDBCurrencyEdit
      Left = 56
      Top = 120
      Width = 97
      Height = 21
      DataBinding.DataField = 'stje'
      DataBinding.DataSource = DataSource2
      Properties.OnChange = cEdit3PropertiesChange
      TabOrder = 8
    end
    object cxLabel8: TcxLabel
      Left = 0
      Top = 120
      Width = 52
      Height = 17
      Caption = #23454#36864#37329#39069
    end
    object cxButton3: TcxButton
      Left = 38
      Top = 152
      Width = 75
      Height = 25
      Caption = #36864#24211#24182#36864#20986
      TabOrder = 10
      OnClick = cxButton3Click
    end
  end
  object cxLabel2: TcxLabel
    Left = 360
    Top = 304
    Width = 16
    Height = 17
    Caption = #25353
  end
  object sEdit1: TcxSpinEdit
    Left = 376
    Top = 304
    Width = 49
    Height = 21
    Properties.AssignedValues.MinValue = True
    Properties.MaxValue = 100.000000000000000000
    TabOrder = 8
    Value = 1
  end
  object cxLabel3: TcxLabel
    Left = 424
    Top = 304
    Width = 60
    Height = 17
    Caption = '%'#25240#20215#36864#36135
  end
  object cxButton2: TcxButton
    Left = 624
    Top = 296
    Width = 75
    Height = 25
    Caption = #36864#24211#23436#25104
    TabOrder = 10
    OnClick = cxButton2Click
  end
  object dy: TcxCheckBox
    Left = 704
    Top = 304
    Width = 73
    Height = 21
    Caption = #25171#21360#28165#21333
    State = cbsChecked
    TabOrder = 11
  end
  object DBSEdit1: TcxDBSpinEdit
    Left = 560
    Top = 304
    Width = 41
    Height = 21
    DataBinding.DataField = 'sl'
    DataBinding.DataSource = DataSource1
    TabOrder = 12
    OnExit = DBSEdit1Exit
  end
  object cxLabel9: TcxLabel
    Left = 496
    Top = 304
    Width = 64
    Height = 17
    Caption = #36864#24211#25968#37327#65306
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clMaroon
    Style.Font.Height = -11
    Style.Font.Name = 'MS Sans Serif'
    Style.Font.Style = []
  end
  object ePanel3: TbsSkinExPanel
    Left = 8
    Top = 8
    Width = 289
    Height = 281
    TabOrder = 0
    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 = '                                      '#23458#25143#36164#26009
    object cxLabel10: TcxLabel
      Left = 8
      Top = 32
      Width = 52
      Height = 17
      Caption = #23458#25143#21517#65306
    end
    object rBox1: TcxCheckBox
      Left = 216
      Top = 32
      Width = 65
      Height = 21
      Caption = #21161#35760#30721
      TabOrder = 2
      OnClick = rBox1Click
    end
    object kEdit1: TcxTextEdit
      Left = 56
      Top = 32
      Width = 161
      Height = 21
      Properties.OnChange = cxTextEdit1PropertiesChange
      TabOrder = 0
    end
    object DBGridEh4: TDBGridEh
      Left = 8
      Top = 56
      Width = 265
      Height = 217
      Hint = #21452#20987#36873#25321#23458#25143
      DataSource = DataSource6
      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 = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDblClick = DBGridEh4DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'khmc'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #23458#25143#21517#31216
          Width = 170
        end
        item
          EditButtons = <>
          FieldName = 'lxr'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#20154
          Width = 50
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = table1
    Left = 440
    Top = 416
  end
  object PopupMenu2: TPopupMenu
    Left = 344
    Top = 392
    object MenuItem1: TMenuItem
      Caption = #21024#38500#24403#21069#35760#24405
      OnClick = MenuItem1Click
    end
  end
  object rkzk: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spckzk')
    Left = 216
    Top = 128
  end
  object DataSource7: TDataSource
    DataSet = rkzk
    Left = 256
    Top = 128
  end
  object sprk: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spckd')
    Left = 544
    Top = 120
  end
  object DataSource4: TDataSource
    DataSet = sprk
    Left = 576
    Top = 120
  end
  object DataSource6: TDataSource
    DataSet = khzl
    Left = 488
    Top = 120
  end
  object khzl: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from khzl')
    Left = 448
    Top = 120
  end
  object Table5: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'fl5'
    Left = 216
    Top = 208
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 216
    Top = 176
  end
  object PEh2: TPrintDBGridEh
    DBGridEh = DBGridEh2
    Options = [pghFitGridToPageWidth, pghOptimalColWidths]
    Page.BottomMargin = 1.000000000000000000
    Page.LeftMargin = 1.000000000000000000
    Page.RightMargin = 1.000000000000000000
    Page.TopMargin = 1.000000000000000000
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -15
    PageFooter.Font.Name = #23435#20307
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -15
    PageHeader.Font.Name = #23435#20307
    PageHeader.Font.Style = []
    PrintFontName = #23435#20307
    Units = MM
    Left = 272
    Top = 400
  end
  object DataSource2: TDataSource
    DataSet = table2
    Left = 440
    Top = 456
  end
  object table1: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from sptkd')
    Left = 408
    Top = 416
  end
  object table2: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from sptkzk')
    Left = 408
    Top = 456
  end
  object ADOQy1: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spkc')
    Left = 248
    Top = 448
  end
  object DBSum1: TDBSumList
    DataSet = table1
    ExternalRecalc = False
    SumCollection = <
      item
        FieldName = 'lr'
        GroupOperation = goSum
      end>
    VirtualRecords = False
    Left = 232
    Top = 400
  end
end