dabrprojectclass.dfm

详细的ERP设计资料

inherited DAProjectClassBrowseForm: TDAProjectClassBrowseForm
  Left = 191
  Top = 259
  Caption = #39033#30446#20998#31867
  PixelsPerInch = 96
  TextHeight = 12
  inherited ToolBar: TToolBar
    ButtonHeight = 35
    ButtonWidth = 73
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Action = AddNewAction
    end
    object ToolButton2: TToolButton
      Left = 73
      Top = 2
      Action = DeleteAction
    end
    object ToolButton3: TToolButton
      Left = 146
      Top = 2
      Action = EditAction
    end
    object ToolButton5: TToolButton
      Left = 219
      Top = 2
      Width = 8
      Caption = 'ToolButton5'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton4: TToolButton
      Left = 227
      Top = 2
      Action = RefreshAction
    end
    object ToolButton6: TToolButton
      Left = 300
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 8
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 308
      Top = 2
      Action = ExitAction
      ImageIndex = 8
    end
  end
  inherited ActionList: TActionList
    Left = 171
    Top = 67
  end
  inherited DataSource: TDataSource
    DataSet = tblDAAreasBrowse
    Left = 228
    Top = 67
  end
  object tblDAAreasBrowse: TADOTable
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    Filtered = True
    TableName = 'DAProjectClass'
    Left = 90
    Top = 65
    object tblDAAreasBrowseID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblDAAreasBrowseCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object tblDAAreasBrowseCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object tblDAAreasBrowseRecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object tblDAAreasBrowseName: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object tblDAAreasBrowseUpID: TIntegerField
      FieldName = 'UpID'
    end
    object tblDAAreasBrowseLevelCode: TStringField
      FieldName = 'LevelCode'
      Size = 30
    end
  end
end