sys900_02.dfm.svn-base

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

object Sys900_02Form: TSys900_02Form
  Left = 210
  Top = 107
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #32534#21495#35268#21017
  ClientHeight = 303
  ClientWidth = 305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Pitch = fpFixed
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 48
    Height = 12
    Caption = #32534#21495#35268#21017
  end
  object Edit1: TEdit
    Left = 64
    Top = 8
    Width = 233
    Height = 20
    TabOrder = 0
  end
  object bbtnOk: TBitBtn
    Left = 120
    Top = 272
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 1
    OnClick = bbtnOkClick
  end
  object bbtnExit: TBitBtn
    Left = 208
    Top = 272
    Width = 75
    Height = 25
    Caption = #36864#20986'(&X)'
    TabOrder = 2
    OnClick = bbtnExitClick
  end
  object dxDBGrid1: TdxDBGrid
    Left = 8
    Top = 40
    Width = 289
    Height = 225
    Bands = <
      item
      end>
    DefaultLayout = False
    HeaderPanelRowCount = 1
    SummaryGroups = <>
    SummarySeparator = ', '
    TabOrder = 3
    OnDblClick = dxDBGrid1DblClick
    DataSource = dsSys900
    Filter.Criteria = {00000000}
    HideFocusRect = True
    LookAndFeel = lfFlat
    OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
    OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
    object dxDBGrid1Code: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 87
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Code'
    end
    object dxDBGrid1Name: TdxDBGridMaskColumn
      DisableEditor = True
      HeaderAlignment = taCenter
      Width = 159
      BandIndex = 0
      RowIndex = 0
      FieldName = 'Name'
    end
  end
  object adsSys900: TADODataSet
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    FieldDefs = <
      item
        Name = 'Code'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Name'
        DataType = ftString
        Size = 20
      end>
    Parameters = <>
    StoreDefs = True
    Left = 144
    Top = 128
    object adsSys900Code: TStringField
      DisplayLabel = #31526#21495
      FieldName = 'Code'
    end
    object adsSys900Name: TStringField
      DisplayLabel = #35828#26126
      FieldName = 'Name'
    end
  end
  object dsSys900: TDataSource
    DataSet = adsSys900
    Left = 176
    Top = 128
  end
end