database.dfm

一个项目工程监理系统的全部源码

object Data1: TData1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 95
  Top = 61
  Height = 464
  Width = 609
  object ZongBaoT: TTable
    Left = 16
    Top = 10
  end
  object ZongBaoTDS: TDataSource
    DataSet = ZongBaoT
    Left = 16
    Top = 50
  end
  object ZBShangGangT: TTable
    Left = 48
    Top = 10
  end
  object ZBShangGangTDS: TDataSource
    DataSet = ZBShangGangT
    Left = 48
    Top = 66
  end
  object ZBYiQiT: TTable
    Left = 80
    Top = 10
  end
  object ZBYiQiTDS: TDataSource
    DataSet = ZBYiQiT
    Left = 80
    Top = 50
  end
  object ShiYanShiT: TTable
    Left = 112
    Top = 10
  end
  object ShiYanShiTDS: TDataSource
    DataSet = ShiYanShiT
    Left = 112
    Top = 50
  end
  object JiaoBanTDS: TDataSource
    DataSet = JiaoBanT
    Left = 144
    Top = 50
  end
  object JiaoBanT: TTable
    Left = 144
    Top = 10
  end
  object CJZiZhiT: TTable
    Left = 176
    Top = 10
  end
  object CJZiZhiTDS: TDataSource
    DataSet = CJZiZhiT
    Left = 176
    Top = 50
  end
  object CJShangGangT: TTable
    Left = 208
    Top = 10
  end
  object CJShangGangTDS: TDataSource
    DataSet = CJShangGangT
    Left = 208
    Top = 50
  end
  object CJYiQiT: TTable
    Left = 240
    Top = 10
  end
  object CJYiQiTDS: TDataSource
    DataSet = CJYiQiT
    Left = 240
    Top = 50
  end
  object XiuGaiT: TTable
    Left = 281
    Top = 22
  end
  object XiuGaiTDS: TDataSource
    DataSet = XiuGaiT
    Left = 278
    Top = 62
  end
  object DecisionCube1: TDecisionCube
    DataSet = DecisionQuery1
    DimensionMap = <
      item
        ActiveFlag = diAsNeeded
        Format = 'mm-dd'
        FieldType = ftDate
        Fieldname = 'RiQi'
        BaseName = '"JinDu.DB".RiQi'
        Name = '日期'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 23
        Active = True
        StartValue = 36892
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'TianQi'
        BaseName = '"JinDu.DB".TianQi'
        Name = '天气'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftSmallint
        Fieldname = 'ZhuangJiHao'
        BaseName = '"JinDu.DB".ZhuangJiHao'
        Name = '桩机号'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 9
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftString
        Fieldname = 'WeiZhi'
        BaseName = '"JinDu.DB".WeiZhi'
        Name = '位置'
        DerivedFrom = -1
        DimensionType = dimDimension
        BinType = binNone
        ValueCount = 3
        Active = True
      end
      item
        ActiveFlag = diAsNeeded
        FieldType = ftInteger
        Fieldname = 'COUNT OF ZhuangHao'
        BaseName = '"JinDu.DB".ZhuangHao'
        Name = '桩数'
        DerivedFrom = -1
        DimensionType = dimCount
        BinType = binNone
        ValueCount = -1
        Active = True
      end>
    ShowProgressDialog = True
    MaxDimensions = 5
    MaxSummaries = 10
    MaxCells = 0
    Left = 310
    Top = 62
  end
  object DecisionQuery1: TDecisionQuery
    SQL.Strings = (
      'SELECT RiQi, TianQi, ZhuangJiHao, WeiZhi, COUNT( ZhuangHao )'
      'FROM "JinDu.DB"'
      'GROUP BY RiQi, TianQi, ZhuangJiHao, WeiZhi')
    Left = 310
    Top = 22
  end
  object DecisionSource1: TDecisionSource
    DecisionCube = DecisionCube1
    ControlType = xtCheck
    SparseRows = False
    SparseCols = False
    Left = 310
    Top = 102
    DimensionCount = 4
    SummaryCount = 1
    CurrentSummary = 0
    SparseRows = False
    SparseCols = False
    DimensionInfo = (
      2
      0
      1
      0
      0
      2
      -1
      2
      1
      0
      1
      0
      1
      0
      0
      1
      -1
      2
      1
      0)
  end
  object TongJiQ: TQuery
    Left = 382
    Top = 20
  end
  object ZhuangShuT: TTable
    DatabaseName = 'd:\tiecsc\data\桩基'
    Exclusive = True
    TableName = 'ZhuangShu.db'
    Left = 342
    Top = 26
  end
  object ZhuangShuTDS: TDataSource
    DataSet = ZhuangShuT
    Left = 346
    Top = 70
  end
  object TuShuGuanT: TTable
    DatabaseName = 'd:\tiecsc\data\桩基'
    Exclusive = True
    TableName = 'TuShuGuan.db'
    Left = 382
    Top = 76
  end
  object DiXiaShiT: TTable
    AutoCalcFields = False
    DatabaseName = 'd:\tiecsc\data\桩基'
    Exclusive = True
    TableName = 'DiXiaShi.db'
    Left = 422
    Top = 76
  end
  object DangAnGuanT: TTable
    DatabaseName = 'd:\tiecsc\data\桩基'
    Exclusive = True
    TableName = 'DangAnGuan.db'
    Left = 430
    Top = 20
  end
  object TuFangZT: TTable
    DatabaseName = 'd:\Tiecsc\data\地下室'
    Filtered = True
    TableName = '土方质量控制.db'
    Left = 16
    Top = 116
  end
  object TuFangZTDS: TDataSource
    DataSet = TuFangZT
    Left = 16
    Top = 162
  end
  object TuFangJT: TTable
    DatabaseName = 'd:\Tiecsc\data\地下室'
    Filtered = True
    TableName = '土方进度控制.db'
    Left = 51
    Top = 120
  end
  object TuFangJTDS: TDataSource
    DataSet = TuFangJT
    Left = 48
    Top = 162
  end
  object DianCengZT: TTable
    DatabaseName = 'd:\Tiecsc\data\地下室'
    TableName = '垫层质量控制.db'
    Left = 80
    Top = 116
  end
  object DianCengZTDS: TDataSource
    DataSet = DianCengZT
    Left = 80
    Top = 164
  end
  object DianCengJT: TTable
    DatabaseName = 'd:\Tiecsc\data\地下室'
    TableName = '垫层进度控制.db'
    Left = 112
    Top = 116
  end
  object DianCengJTDS: TDataSource
    DataSet = DianCengJT
    Left = 112
    Top = 164
  end
  object DingWeiT: TTable
    Left = 144
    Top = 118
  end
  object DingWeiTDS: TDataSource
    DataSet = DingWeiT
    Left = 144
    Top = 166
  end
  object DiBanZT: TTable
    DatabaseName = 'd:\tiecsc\data\地下室'
    TableName = '底板质量控制.db'
    Left = 176
    Top = 120
  end
  object DiBanZTDS: TDataSource
    DataSet = DiBanZT
    Left = 176
    Top = 168
  end
  object DiBanJT: TTable
    Left = 208
    Top = 128
  end
  object DiBanJTDS: TDataSource
    DataSet = DiBanJT
    Left = 208
    Top = 170
  end
  object DiFangZT: TTable
    DatabaseName = 'd:\tiecsc\data\地下室'
    TableName = '底防质量控制.db'
    Left = 248
    Top = 134
  end
  object DiFangZTDS: TDataSource
    DataSet = DiFangZT
    Left = 248
    Top = 174
  end
  object DiFangJT: TTable
    Left = 288
    Top = 150
  end
  object DiFangJDS: TDataSource
    DataSet = DiFangJT
    Left = 288
    Top = 190
  end
  object DiFangZiZhiT: TTable
    Left = 328
    Top = 152
  end
  object DiFangZiZhiTDS: TDataSource
    DataSet = DiFangZiZhiT
    Left = 328
    Top = 200
  end
  object DiFangST: TTable
    Left = 376
    Top = 152
  end
  object DiFangSTDS: TDataSource
    DataSet = DiFangST
    Left = 376
    Top = 200
  end
  object DingBanZT: TTable
    Left = 16
    Top = 208
  end
  object DingBanZTDS: TDataSource
    DataSet = DingBanZT
    Left = 16
    Top = 256
  end
  object DingBanJT: TTable
    Left = 56
    Top = 224
  end
  object DingBanJTDS: TDataSource
    DataSet = DingBanJT
    Left = 56
    Top = 272
  end
  object HuiTianTuZT: TTable
    DatabaseName = 'd:\tiecsc\data\地下室'
    TableName = '回填土质量控制.db'
    Left = 104
    Top = 208
  end
  object HuiTianTuZTDS: TDataSource
    DataSet = HuiTianTuZT
    Left = 104
    Top = 256
  end
  object HuiTianTuJT: TTable
    DatabaseName = 'd:\tiecsc\data\地下室'
    TableName = '回填土进度控制.db'
    Left = 152
    Top = 232
  end
  object HuiTianTuJTDS: TDataSource
    DataSet = HuiTianTuJT
    Left = 152
    Top = 280
  end
  object CeFangJT: TTable
    Left = 200
    Top = 224
  end
  object CeFangJTDS: TDataSource
    DataSet = CeFangJT
    Left = 200
    Top = 264
  end
  object CeFangZT: TTable
    Left = 240
    Top = 240
  end
  object CeFangZTDS: TDataSource
    DataSet = CeFangZT
    Left = 240
    Top = 288
  end
  object CeFangZiZhiT: TTable
    Left = 280
    Top = 256
  end
  object CeFangZiZhiTDS: TDataSource
    DataSet = CeFangZiZhiT
    Left = 280
    Top = 304
  end
  object CeFangST: TTable
    Left = 320
    Top = 256
  end
  object CeFangSTDS: TDataSource
    DataSet = CeFangST
    Left = 320
    Top = 304
  end
  object JianLiQiangZT: TTable
    DatabaseName = 'e:\tiecsc\data\地下室'
    TableName = '剪力墙质量控制.db'
    Left = 360
    Top = 264
  end
  object JianLiQiangZTDS: TDataSource
    DataSet = JianLiQiangZT
    Left = 360
    Top = 312
  end
  object JianLiQiangJT: TTable
    DatabaseName = 'e:\tiecsc\data\地下室'
    TableName = '剪力墙进度控制.db'
    Left = 408
    Top = 264
  end
  object JianLiQiangJTDS: TDataSource
    DataSet = JianLiQiangJT
    Left = 400
    Top = 312
  end
end