rszjz.~dfm

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

object rszjzck: Trszjzck
  Left = 236
  Top = 131
  Width = 745
  Height = 554
  Caption = #26085#25910#25903#35760#24080
  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 AALabel1: TAALabel
    Left = 80
    Top = 16
    Width = 90
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #36873#25321#35760#24080#31185#30446
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
  end
  object dxfColorButton1: TdxfColorButton
    Left = 624
    Top = 0
    Width = 100
    Height = 40
    Caption.Strings = (
      #20445#23384#25968#25454)
    Color = clWhite
    OnClick = dxfColorButton1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 248
    Top = 72
    Width = 473
    Height = 433
    DataSource = DataSource1
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    FooterRowCount = 1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'jzbh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#32534#21495
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'jzkm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#31185#30446
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'jzlx'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#31867#22411
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'je'
        Footers = <
          item
            DisplayFormat = '0.00'
            FieldName = 'je'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #37329#39069
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = 'bz'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 120
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 16
    Top = 32
    Width = 225
    Height = 473
    Hint = #21452#20987#35760#24080
    DataSource = DataSource2
    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 = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh2DblClick
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'mc'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35760#24080#31185#30446#21517#31216
        Width = 130
      end
      item
        EditButtons = <>
        FieldName = 'lx'
        Footers = <>
        KeyList.Strings = (
          #25910#20837
          #25903#20986)
        PickList.Strings = (
          #25910#20837
          #25903#20986)
        Title.Alignment = taCenter
        Title.Caption = #31185#30446#31867#22411
        Width = 56
      end>
  end
  object cxLabel1: TcxLabel
    Left = 256
    Top = 40
    Width = 64
    Height = 17
    Caption = #35760#24080#37329#39069#65306
  end
  object cEdit1: TcxDBCurrencyEdit
    Left = 320
    Top = 40
    Width = 81
    Height = 21
    DataBinding.DataField = 'je'
    DataBinding.DataSource = DataSource1
    TabOrder = 4
    OnExit = cEdit1Exit
  end
  object cxLabel2: TcxLabel
    Left = 408
    Top = 40
    Width = 40
    Height = 17
    Caption = #22791#27880#65306
  end
  object cxDBTextEdit1: TcxDBTextEdit
    Left = 448
    Top = 40
    Width = 281
    Height = 21
    DataBinding.DataField = 'bz'
    DataBinding.DataSource = DataSource1
    TabOrder = 6
  end
  object DataSource1: TDataSource
    DataSet = table1
    Left = 272
    Top = 256
  end
  object table1: TADOQuery
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from zmzk')
    Left = 232
    Top = 256
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 104
    Top = 152
  end
  object Table2: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'jzkm'
    Left = 64
    Top = 152
  end
end