cpkc.~dfm

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

object cpkcck: Tcpkcck
  Left = 146
  Top = 120
  Width = 779
  Height = 558
  Caption = #20135#21697#24211#23384#35843#25972
  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 Button1: TdxfColorButton
    Left = 304
    Top = 0
    Width = 121
    Height = 33
    Caption.Strings = (
      #25353#31181#31867#24635#24211
      #29983#25104#26412#20179#24211#20135#21697)
    Color = clWhite
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = Button1Click
  end
  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 = 1
    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 = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'sjmc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20135#21697#21517#31216
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'spmc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21378#23478#35268#26684
        Width = 110
      end
      item
        EditButtons = <>
        FieldName = 'dw'
        Footers = <>
        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
    OnClick = cxLabel1Click
  end
  object dblp1: TDBLookupComboboxEh
    Left = 96
    Top = 8
    Width = 193
    Height = 21
    DataField = 'mc'
    DataSource = DataSource8
    EditButtons = <>
    KeyField = 'mc'
    ListField = 'mc'
    ListSource = DataSource2
    TabOrder = 4
    Visible = True
    OnChange = dblp1Change
  end
  object Button2: TdxfColorButton
    Left = 448
    Top = 0
    Width = 113
    Height = 33
    Caption.Strings = (
      #20445#23384#20462#25913#25968#25454)
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = Button2Click
  end
  object Button3: TdxfColorButton
    Left = 584
    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 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 = 88
  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
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #22686#21152#24403#21069#20135#21697
      OnClick = N3Click
    end
  end
end