📄 maindb.dfm

📁 这是一个正式的项目工程
💻 DFM
字号:
object dmMainDB: TdmMainDB
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 93
  Top = 121
  Height = 479
  Width = 741
  object MainDB: TDatabase
    AliasName = 'JSJ'
    DatabaseName = 'MainDB'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 16
    Top = 8
  end
  object tbCodeDetail: TTable
    BeforeDelete = tbCodeDetailBeforeDelete
    DatabaseName = 'MainDB'
    IndexFieldNames = 'Class'
    MasterFields = 'Class'
    MasterSource = dsCodes
    TableName = 'CodeDetail.DB'
    Left = 192
    Top = 27
    object tbCodeDetailClass: TStringField
      DisplayLabel = '代码种类'
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object tbCodeDetailACode: TStringField
      DisplayLabel = '代码'
      FieldName = 'ACode'
      Required = True
      EditMask = '9999999999;1; '
      Size = 15
    end
    object tbCodeDetailCodeMeaning: TStringField
      DisplayLabel = '代码含义'
      FieldName = 'CodeMeaning'
      Required = True
    end
    object tbCodeDetailParentCode: TStringField
      DisplayLabel = '父类代码'
      FieldName = 'ParentCode'
      EditMask = '9999999999;1; '
      Size = 15
    end
    object tbCodeDetailRemark: TStringField
      DisplayLabel = '备注说明'
      FieldName = 'Remark'
      Size = 30
    end
  end
  object dsCodeDetail: TDataSource
    DataSet = tbCodeDetail
    Left = 176
    Top = 11
  end
  object tbCodes: TTable
    DatabaseName = 'MainDB'
    ReadOnly = True
    TableName = 'Codes.db'
    Left = 104
    Top = 24
    object tbCodesClass: TStringField
      DisplayLabel = '代码种类'
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object tbCodesMeaning: TStringField
      DisplayLabel = '代码种类'
      FieldName = 'Meaning'
    end
    object tbCodesRemark: TStringField
      DisplayLabel = '备注'
      FieldName = 'Remark'
      Size = 40
    end
  end
  object dsCodes: TDataSource
    DataSet = tbCodes
    Left = 80
    Top = 8
  end
  object tbExtension: TTable
    CachedUpdates = True
    AfterPost = tbExtensionAfterPost
    AfterDelete = tbExtensionAfterDelete
    DatabaseName = 'MainDB'
    TableName = 'Extension.db'
    Left = 40
    Top = 96
    object tbExtensionGroupID: TSmallintField
      FieldName = 'GroupID'
    end
    object tbExtensionExtensionID: TSmallintField
      FieldName = 'ExtensionID'
    end
    object tbExtensionGravity: TFloatField
      FieldName = 'Gravity'
    end
  end
  object dsExtension: TDataSource
    DataSet = tbExtension
    Left = 24
    Top = 80
  end
  object qryPublic: TQuery
    DatabaseName = 'MainDB'
    Left = 262
    Top = 21
  end
  object ViewGEDetail: TTable
    DatabaseName = 'MainDB'
    IndexFieldNames = 'ProjectID;HourseID;GroupID'
    MasterFields = 'ProjectID;HourseID;GroupID'
    MasterSource = dsViewGEMaster
    ReadOnly = True
    TableName = 'GE.db'
    Left = 256
    Top = 104
    object ViewGEDetailProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewGEDetailHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewGEDetailGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object ViewGEDetailExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object ViewGEDetailExtensionIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'ExtensionIDLookup'
      LookupDataSet = ViewExtensionID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'ExtensionID'
      Lookup = True
    end
  end
  object dsViewGEDetail: TDataSource
    DataSet = ViewGEDetail
    Left = 240
    Top = 88
  end
  object ViewGroupID: TTable
    DatabaseName = 'MainDB'
    Filter = 'Class='#39'G'#39
    Filtered = True
    ReadOnly = True
    TableName = 'CodeDetail.DB'
    Left = 32
    Top = 160
    object ViewGroupIDClass: TStringField
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object ViewGroupIDACode: TStringField
      FieldName = 'ACode'
      Required = True
      Size = 15
    end
    object ViewGroupIDCodeMeaning: TStringField
      FieldName = 'CodeMeaning'
      Required = True
    end
  end
  object ViewExtensionID: TTable
    DatabaseName = 'MainDB'
    Filter = 'Class='#39'E'#39
    Filtered = True
    ReadOnly = True
    TableName = 'CodeDetail.DB'
    Left = 112
    Top = 160
    object ViewExtensionIDClass: TStringField
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object ViewExtensionIDACode: TStringField
      FieldName = 'ACode'
      Required = True
      Size = 15
    end
    object ViewExtensionIDCodeMeaning: TStringField
      FieldName = 'CodeMeaning'
      Required = True
    end
  end
  object ViewGEMaster: TTable
    DatabaseName = 'MainDB'
    ReadOnly = True
    TableName = 'PHG.db'
    Left = 152
    Top = 112
    object ViewGEMasterProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewGEMasterHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewGEMasterGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object ViewGEMasterGroupIdLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'GroupIdLookup'
      LookupDataSet = ViewGroupID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
  object dsViewGEMaster: TDataSource
    DataSet = ViewGEMaster
    Left = 136
    Top = 96
  end
  object ViewProjectID: TTable
    DatabaseName = 'MainDB'
    Filter = 'Class='#39'P'#39
    Filtered = True
    ReadOnly = True
    TableName = 'CodeDetail.DB'
    Left = 48
    Top = 232
    object ViewProjectIDClass: TStringField
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object ViewProjectIDACode: TStringField
      FieldName = 'ACode'
      Required = True
      Size = 15
    end
    object ViewProjectIDCodeMeaning: TStringField
      FieldName = 'CodeMeaning'
      Required = True
    end
  end
  object dsViewProjectID: TDataSource
    DataSet = ViewProjectID
    Left = 32
    Top = 216
  end
  object ViewPH: TTable
    DatabaseName = 'MainDB'
    IndexFieldNames = 'ProjectID'
    MasterFields = 'ACode'
    MasterSource = dsViewProjectID
    ReadOnly = True
    TableName = 'PH.db'
    Left = 144
    Top = 240
    object ViewPHProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewPHHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewPHHourseIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'HourseIDLookup'
      LookupDataSet = ViewHourseID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'HourseID'
      Lookup = True
    end
  end
  object dsViewPH: TDataSource
    DataSet = ViewPH
    Left = 120
    Top = 216
  end
  object ViewHourseID: TTable
    DatabaseName = 'MainDB'
    Filter = 'Class='#39'H'#39
    Filtered = True
    ReadOnly = True
    TableName = 'CodeDetail.DB'
    Left = 200
    Top = 160
    object ViewHourseIDClass: TStringField
      FieldName = 'Class'
      Required = True
      Size = 10
    end
    object ViewHourseIDACode: TStringField
      FieldName = 'ACode'
      Required = True
      Size = 15
    end
    object ViewHourseIDCodeMeaning: TStringField
      FieldName = 'CodeMeaning'
      Required = True
    end
  end
  object ViewPHG: TTable
    DatabaseName = 'MainDB'
    ReadOnly = True
    TableName = 'PHG.db'
    Left = 232
    Top = 232
    object ViewPHGProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object ViewPHGHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object ViewPHGGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object ViewPHGGroupIDlookup: TStringField
      FieldKind = fkLookup
      FieldName = 'GroupIDlookup'
      LookupDataSet = ViewGroupID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
  object dsViewPHG: TDataSource
    DataSet = ViewPHG
    Left = 216
    Top = 216
  end
  object tbGE: TTable
    CachedUpdates = True
    AfterPost = tbGEAfterPost
    AfterDelete = tbGEAfterDelete
    DatabaseName = 'MainDB'
    TableName = 'GE.db'
    Left = 360
    Top = 112
    object tbGEProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object tbGEHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbGEGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object tbGEExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object tbGEExtensionIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'ExtensionIDLookup'
      LookupDataSet = ViewExtensionID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'ExtensionID'
      Lookup = True
    end
  end
  object dsGE: TDataSource
    DataSet = tbGE
    Left = 336
    Top = 96
  end
  object tbPHG: TTable
    CachedUpdates = True
    AfterPost = tbPHGAfterPost
    AfterDelete = tbPHGAfterDelete
    DatabaseName = 'MainDB'
    TableName = 'PHG.db'
    Left = 304
    Top = 176
    object tbPHGProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object tbPHGHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbPHGGroupID: TStringField
      FieldName = 'GroupID'
      Size = 3
    end
    object tbPHGGroupIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'GroupIDLookup'
      LookupDataSet = ViewGroupID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'GroupID'
      Lookup = True
    end
  end
  object dsPHG: TDataSource
    DataSet = tbPHG
    Left = 288
    Top = 160
  end
  object tbPH: TTable
    CachedUpdates = True
    AfterPost = tbPHAfterPost
    AfterDelete = tbPHAfterDelete
    DatabaseName = 'MainDB'
    TableName = 'PH.db'
    Left = 376
    Top = 184
    object tbPHProjectID: TStringField
      FieldName = 'ProjectID'
      Size = 10
    end
    object tbPHHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbPHRemark: TStringField
      FieldName = 'Remark'
      Size = 30
    end
    object tbPHHourseIDLookup: TStringField
      FieldKind = fkLookup
      FieldName = 'HourseIDLookup'
      LookupDataSet = ViewHourseID
      LookupKeyFields = 'ACode'
      LookupResultField = 'CodeMeaning'
      KeyFields = 'HourseID'
      Lookup = True
    end
  end
  object dsPH: TDataSource
    DataSet = tbPH
    Left = 360
    Top = 168
  end
  object ViewLog: TTable
    DatabaseName = 'MainDB'
    ReadOnly = True
    TableName = 'Log.DB'
    Left = 56
    Top = 296
    object ViewLogUserName: TStringField
      DisplayLabel = '操作用户名'
      FieldName = 'UserName'
    end
    object ViewLogOperation: TStringField
      DisplayLabel = '操作对象'
      FieldName = 'Operation'
    end
    object ViewLogDDate: TDateField
      DisplayLabel = '日期'
      FieldName = 'DDate'
    end
    object ViewLogDTime: TTimeField
      DisplayLabel = '时间'
      FieldName = 'DTime'
    end
    object ViewLogRemark: TStringField
      DisplayLabel = '说明'
      FieldName = 'Remark'
      Size = 40
    end
  end
  object dsViewLog: TDataSource
    DataSet = ViewLog
    Left = 40
    Top = 280
  end
  object tbOriginData: TTable
    CachedUpdates = True
    DatabaseName = 'MainDB'
    TableName = 'Extension.DB'
    Left = 320
    Top = 248
    object tbOriginDataAutoInc: TAutoIncField
      FieldName = 'AutoInc'
      ReadOnly = True
    end
    object tbOriginDataDDate: TDateTimeField
      FieldName = 'DDate'
    end
    object tbOriginDataHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbOriginDataExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object tbOriginDataGravity: TFloatField
      FieldName = 'Gravity'
    end
    object tbOriginDataHeight: TFloatField
      FieldName = 'Height'
    end
    object tbOriginDataHorizonDiff: TFloatField
      FieldName = 'HorizonDiff'
    end
    object tbOriginDataStandardG: TFloatField
      FieldName = 'StandardG'
    end
    object tbOriginDataAverageG: TFloatField
      FieldName = 'AverageG'
    end
    object tbOriginDataAverageH: TFloatField
      FieldName = 'AverageH'
    end
    object tbOriginDataState: TStringField
      FieldName = 'State'
      Size = 2
    end
    object tbOriginDataFlag: TStringField
      FieldName = 'Flag'
      Size = 1
    end
  end
  object dsOriginData: TDataSource
    DataSet = tbOriginData
    Left = 304
    Top = 232
  end
  object tbStandardG: TTable
    DatabaseName = 'MainDB'
    TableName = 'GParameter.db'
    Left = 151
    Top = 301
    object tbStandardGAutoInc: TAutoIncField
      FieldName = 'AutoInc'
      ReadOnly = True
    end
    object tbStandardGHourseID: TStringField
      FieldName = 'HourseID'
      Size = 10
    end
    object tbStandardGExtensionID: TStringField
      FieldName = 'ExtensionID'
      Size = 3
    end
    object tbStandardGValue: TFloatField
      FieldName = 'Value'
    end
  end
  object dsStandardG: TDataSource
    DataSet = tbStandardG
    Left = 128
    Top = 288
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -