cpkczl.~dfm

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

    Top = 368
    Width = 113
    Height = 153
    DataSource = DataSource3
    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 = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh3CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object DBGridEh4: TDBGridEh
    Left = 352
    Top = 368
    Width = 113
    Height = 153
    DataSource = DataSource4
    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 = 5
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh4CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object DBGridEh5: TDBGridEh
    Left = 576
    Top = 368
    Width = 113
    Height = 153
    DataSource = DataSource5
    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 = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh5CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object DBGridEh6: TDBGridEh
    Left = 464
    Top = 368
    Width = 113
    Height = 153
    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]
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridEh6CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20998#31867#21517#31216
        Width = 76
      end>
  end
  object Button1: TdxfColorButton
    Left = 696
    Top = 376
    Width = 41
    Height = 129
    Caption.Strings = (
      #20135#21697
      #20998#31867
      #25968#25454
      #20445#23384)
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = Button1Click
  end
  object cxLabel10: TcxLabel
    Left = 608
    Top = 344
    Width = 52
    Height = 17
    Caption = #21378#23478#35268#26684
  end
  object cxLabel11: TcxLabel
    Left = 496
    Top = 344
    Width = 52
    Height = 17
    Caption = #38646#20214#21517#31216
  end
  object cxLabel12: TcxLabel
    Left = 48
    Top = 344
    Width = 52
    Height = 17
    Caption = #37096#20214#21517#31216
  end
  object cxLabel13: TcxLabel
    Left = 160
    Top = 344
    Width = 52
    Height = 17
    Caption = #37096#20214#31867#22411
  end
  object cxLabel14: TcxLabel
    Left = 272
    Top = 344
    Width = 52
    Height = 17
    Caption = #37197#20214#21517#31216
  end
  object cxLabel15: TcxLabel
    Left = 384
    Top = 344
    Width = 52
    Height = 17
    Caption = #37197#20214#31867#22411
  end
  object spzl: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spk')
    Left = 304
    Top = 104
  end
  object DataSource0: TDataSource
    DataSet = spzl
    Left = 296
    Top = 152
  end
  object Table1: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl1'
    Left = 112
    Top = 240
  end
  object Table2: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl2'
    Left = 144
    Top = 240
  end
  object Table3: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl3'
    Left = 176
    Top = 240
  end
  object Table4: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl4'
    Left = 208
    Top = 240
  end
  object Table5: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl5'
    Left = 240
    Top = 240
  end
  object Table6: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl6'
    Left = 272
    Top = 240
  end
  object Table7: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl7'
    Left = 304
    Top = 240
  end
  object Table8: TADOTable
    Connection = Dm1.qpsjk
    TableName = 'fl8'
    Left = 336
    Top = 240
  end
  object Table9: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'spdw'
    Left = 368
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 112
    Top = 280
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 144
    Top = 280
  end
  object DataSource3: TDataSource
    DataSet = Table3
    Left = 176
    Top = 280
  end
  object DataSource4: TDataSource
    DataSet = Table4
    Left = 208
    Top = 280
  end
  object DataSource5: TDataSource
    DataSet = Table5
    Left = 240
    Top = 280
  end
  object DataSource6: TDataSource
    DataSet = Table6
    Left = 272
    Top = 280
  end
  object DataSource7: TDataSource
    DataSet = Table7
    Left = 304
    Top = 280
  end
  object DataSource8: TDataSource
    DataSet = Table8
    Left = 336
    Top = 280
  end
  object DataSource9: TDataSource
    DataSet = Table9
    Left = 368
    Top = 280
  end
  object PopupMenu1: TPopupMenu
    Left = 200
    Top = 32
    object N3: TMenuItem
      Caption = #22686#21152#27425#32423#20135#21697#20998#31867
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Caption = #21024#38500#24403#21069#20998#31867
      OnClick = N5Click
    end
  end
  object ADOQy1: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from spk')
    Left = 336
    Top = 104
  end
  object py: THzSpell
    Left = 112
    Top = 176
  end
end