ghszl.~dfm

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

object ghszlck: Tghszlck
  Left = 195
  Top = 116
  Width = 763
  Height = 576
  Caption = #20379#36135#21830#36164#26009#20449#24687
  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 dxfColorButton1: TdxfColorButton
    Left = 632
    Top = 8
    Width = 100
    Height = 32
    Caption.Strings = (
      #20445#23384#25968#25454)
    Color = clWhite
    OnClick = dxfColorButton1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 16
    Top = 48
    Width = 729
    Height = 481
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, 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 = 'khbh'
        Footers = <>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #32534#21495
        Width = 36
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'khmc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20379#36135#21830#21517#31216
        Width = 160
        OnUpdateData = DBGridEh1Columns1UpdateData
      end
      item
        EditButtons = <>
        FieldName = 'dz'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22320#22336
        Width = 150
      end
      item
        EditButtons = <>
        FieldName = 'lxr'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#20154
        Width = 48
      end
      item
        EditButtons = <>
        FieldName = 'dh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #30005#35805
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'ljxf'
        Footers = <
          item
            Alignment = taRightJustify
            DisplayFormat = '0.00'
            FieldName = 'ljxf'
            ValueType = fvtSum
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#28040#36153
        Width = 72
      end
      item
        EditButtons = <>
        FieldName = 'ljqk'
        Footers = <
          item
            Alignment = taRightJustify
            DisplayFormat = '0.00'
            FieldName = 'ljqk'
            ValueType = fvtSum
          end>
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #32047#35745#27424#27454
        Width = 72
      end
      item
        EditButtons = <>
        FieldName = 'zjm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #21161#35760#30721
        Width = 72
      end>
  end
  object ePanel1: TbsSkinExPanel
    Left = 16
    Top = 16
    Width = 361
    Height = 361
    TabOrder = 2
    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#26597#35810#26465#20214#36827#34892#26597#35810
    object DBFc1: TcxDBFilterControl
      Left = 8
      Top = 32
      Width = 345
      Height = 281
      DataSet = table1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      Items = <
        item
          Caption = #23458#25143#21517#31216
          FieldName = 'khmc'
          PropertiesClassName = 'TcxTextEditProperties'
        end
        item
          Caption = #23458#25143#22320#22336
          FieldName = 'dz'
          PropertiesClassName = 'TcxTextEditProperties'
        end
        item
          Caption = #30005#35805
          FieldName = 'dh'
          PropertiesClassName = 'TcxTextEditProperties'
        end
        item
          Caption = #32852#31995#20154
          FieldName = 'lxr'
          PropertiesClassName = 'TcxTextEditProperties'
        end
        item
          Caption = #32047#35745#28040#36153
          FieldName = 'ljxf'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end
        item
          Caption = #32047#35745#27424#27454
          FieldName = 'ljqk'
          PropertiesClassName = 'TcxCurrencyEditProperties'
        end>
      ParentFont = False
      TabOrder = 0
      TabStop = True
    end
    object cxButton1: TcxButton
      Left = 120
      Top = 328
      Width = 113
      Height = 25
      Caption = #25353#36755#20837#26465#20214#26597#35810
      TabOrder = 1
      OnClick = cxButton1Click
    end
  end
  object DataSource1: TDataSource
    DataSet = table1
    Left = 120
    Top = 160
  end
  object table1: TADOQuery
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    OnNewRecord = table1NewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from ghszl')
    Left = 80
    Top = 160
  end
  object py: THzSpell
    Left = 152
    Top = 160
  end
  object PopupMenu1: TPopupMenu
    Left = 408
    Top = 248
    object N1: TMenuItem
      Caption = #21024#38500#24403#21069#35760#24405
      OnClick = N1Click
    end
  end
end