gld100_01.dfm

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

inherited Gld100_01Form: TGld100_01Form
  Caption = #24065#21035#36164#26009#32500#25252
  PixelsPerInch = 96
  TextHeight = 12
  inherited ScrollBox1: TScrollBox
    inherited dxDBGrid1: TdxDBGrid
      Filter.Criteria = {00000000}
      object dxDBGrid1G100_002: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 96
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_002'
      end
      object dxDBGrid1G100_003: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 245
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_003'
      end
      object dxDBGrid1G100_004: TdxDBGridCheckColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 79
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_004'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
      object dxDBGrid1G100_005: TdxDBGridCurrencyColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 104
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_005'
        DisplayFormat = ',0.0000;-,0.0000'
        Nullable = False
      end
      object dxDBGrid1G100_006: TdxDBGridMaskColumn
        DisableEditor = True
        HeaderAlignment = taCenter
        Width = 85
        BandIndex = 0
        RowIndex = 0
        FieldName = 'G100_006'
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    SQL.Strings = (
      'select * from GLD100 order by G100_002')
    object ADOQuery1G100_001: TAutoIncField
      FieldName = 'G100_001'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery1G100_002: TStringField
      DisplayLabel = #24065#21035#32534#21495
      FieldName = 'G100_002'
      Size = 10
    end
    object ADOQuery1G100_003: TStringField
      DisplayLabel = #24065#21035#21517#31216
      FieldName = 'G100_003'
      Size = 30
    end
    object ADOQuery1G100_004: TBooleanField
      DisplayLabel = #26412#20301#24065#21542
      FieldName = 'G100_004'
    end
    object ADOQuery1G100_005: TFloatField
      DisplayLabel = #32570#30465#27719#29575
      FieldName = 'G100_005'
      DisplayFormat = '0.0000'
    end
    object ADOQuery1G100_006: TStringField
      DisplayLabel = #24065#21035#31526#21495
      FieldName = 'G100_006'
      Size = 10
    end
  end
end