fghs.dfm

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

object fghsck: Tfghsck
  Left = 218
  Top = 124
  Width = 552
  Height = 480
  Caption = #20184#20379#36135#21830#27424#27454
  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 = 440
    Top = 120
    Width = 92
    Height = 40
    Caption.Strings = (
      #20445#23384#36864#20986)
    Color = clWhite
    OnClick = dxfColorButton1Click
  end
  object ePanel2: TbsSkinExPanel
    Left = 8
    Top = 13
    Width = 417
    Height = 420
    TabOrder = 1
    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 = '                                                    '#36873#25321#36824#27424#27454#30340#20379#36135#21830
    object cxLabel2: TcxLabel
      Left = 64
      Top = 32
      Width = 52
      Height = 17
      Caption = #20379#36135#21830#65306
    end
    object rBox1: TcxCheckBox
      Left = 288
      Top = 32
      Width = 65
      Height = 21
      Caption = #21161#35760#30721
      TabOrder = 2
    end
    object Edit1: TcxTextEdit
      Left = 112
      Top = 32
      Width = 177
      Height = 21
      Properties.OnChange = Edit1PropertiesChange
      TabOrder = 0
    end
    object DBGridEh3: TDBGridEh
      Left = 8
      Top = 56
      Width = 401
      Height = 353
      Hint = #21452#20987#36873#25321#20379#36135#21830
      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 = DBGridEh3DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'khmc'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20379#36135#21830#21517#31216
          Width = 170
        end
        item
          EditButtons = <>
          FieldName = 'lxr'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#20154
          Width = 50
        end
        item
          EditButtons = <>
          FieldName = 'ljxf'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32047#31215#28040#36153
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'ljqk'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32047#31215#27424#27454
          Width = 70
        end>
    end
  end
  object cxLabel1: TcxLabel
    Left = 448
    Top = 48
    Width = 76
    Height = 17
    Caption = #20184#27424#27454#37329#39069#65306
  end
  object cEdit1: TcxDBCurrencyEdit
    Left = 440
    Top = 72
    Width = 89
    Height = 21
    DataBinding.DataField = 'je'
    DataBinding.DataSource = DataSource1
    TabOrder = 3
  end
  object Table1: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'zmzk'
    Left = 80
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 160
  end
  object khzl: TADOQuery
    Connection = Dm1.qpsjk
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from ghszl')
    Left = 112
    Top = 248
  end
  object DataSource6: TDataSource
    DataSet = khzl
    Left = 152
    Top = 248
  end
end