gsry.dfm

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

object gsryck: Tgsryck
  Left = 166
  Top = 117
  Width = 707
  Height = 480
  Caption = #20844#21496#26426#26500#21450#20154#21592#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 = 24
    Top = 392
    Width = 100
    Height = 40
    Caption.Strings = (
      #20445#23384#37096#38376#25968#25454)
    Color = clWhite
    OnClick = dxfColorButton1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 16
    Width = 121
    Height = 361
    Hint = #21452#20987#25353#37096#38376#26597#35810
    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]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'bm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376#21517#31216
        Width = 80
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 136
    Top = 16
    Width = 553
    Height = 361
    DataSource = DataSource2
    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]
    SumList.Active = True
    SumList.VirtualRecords = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = 'xm'
        Footers = <
          item
            FieldName = 'xm'
            ValueType = fvtCount
          end>
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 56
      end
      item
        EditButtons = <>
        FieldName = 'bm'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #37096#38376
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'dh'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32852#31995#30005#35805
        Width = 90
      end
      item
        EditButtons = <>
        FieldName = 'zz'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #20303#22336
        Width = 180
      end
      item
        EditButtons = <>
        FieldName = 'ygz'
        Footers = <
          item
            FieldName = 'ygz'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #26376#24037#36164
        Width = 60
      end
      item
        EditButtons = <>
        FieldName = 'qkje'
        Footers = <
          item
            FieldName = 'qkje'
            ValueType = fvtSum
          end>
        Title.Alignment = taCenter
        Title.Caption = #27424#27454#37329#39069
        Width = 60
      end>
  end
  object dxfColorButton2: TdxfColorButton
    Left = 376
    Top = 392
    Width = 100
    Height = 40
    Caption.Strings = (
      #20445#23384#20154#21592#25968#25454)
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    OnClick = dxfColorButton2Click
  end
  object Table1: TADOTable
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    TableName = 'gsjg'
    Left = 80
    Top = 160
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 120
    Top = 160
  end
  object DataSource2: TDataSource
    DataSet = table2
    Left = 352
    Top = 168
  end
  object table2: TADOQuery
    Connection = Dm1.qpsjk
    LockType = ltBatchOptimistic
    OnNewRecord = table2NewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from gsry')
    Left = 320
    Top = 168
  end
end