Measure/DataModules/BGLDm.dfm

object BGLData: TBGLData
  OldCreateOrder = False
  Left = 456
  Top = 291
  Height = 220
  Width = 397
  object atBGL: TADOTable
    TableName = 'BGL'
    Left = 32
    Top = 16
  end
  object dspBGL: TDataSetProvider
    DataSet = atBGL
    UpdateMode = upWhereKeyOnly
    Left = 32
    Top = 72
  end
  object cdsBGL: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBGL'
    Left = 32
    Top = 128
    object cdsBGLID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBGLCode: TWideStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsBGLName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBGLTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBGLPos_Reason: TMemoField
      FieldName = 'Pos_Reason'
      BlobType = ftMemo
    end
    object cdsBGLDirection: TMemoField
      FieldName = 'Direction'
      BlobType = ftMemo
    end
    object cdsBGLDrawingCode: TWideStringField
      FieldName = 'DrawingCode'
      Size = 50
    end
    object cdsBGLApprovalCode: TWideStringField
      FieldName = 'ApprovalCode'
      Size = 50
    end
    object cdsBGLCreatePhaseID: TIntegerField
      FieldName = 'CreatePhaseID'
    end
    object cdsBGLExecutionRate: TFloatField
      FieldName = 'ExecutionRate'
    end
    object cdsBGLBGLType: TWideStringField
      FieldName = 'BGLType'
      Size = 10
    end
    object cdsBGLIsCloud: TBooleanField
      FieldName = 'IsCloud'
    end
    object cdsBGLWebID: TIntegerField
      FieldName = 'WebID'
    end
  end
  object cdsBGLView: TClientDataSet
    Aggregates = <>
    Params = <>
    BeforePost = cdsBGLViewBeforePost
    BeforeDelete = cdsBGLViewBeforeDelete
    AfterScroll = cdsBGLViewAfterScroll
    OnNewRecord = cdsBGLViewNewRecord
    Left = 96
    Top = 128
    object cdsBGLViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBGLViewCode: TWideStringField
      FieldName = 'Code'
      OnChange = cdsBGLViewCodeChange
      Size = 50
    end
    object cdsBGLViewName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsBGLViewTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBGLViewPos_Reason: TMemoField
      FieldName = 'Pos_Reason'
      BlobType = ftMemo
    end
    object cdsBGLViewDirection: TMemoField
      FieldName = 'Direction'
      BlobType = ftMemo
    end
    object cdsBGLViewDrawingCode: TWideStringField
      FieldName = 'DrawingCode'
      Size = 50
    end
    object cdsBGLViewApprovalCode: TWideStringField
      FieldName = 'ApprovalCode'
      Size = 50
    end
    object cdsBGLViewCreatePhaseID: TIntegerField
      FieldName = 'CreatePhaseID'
    end
    object cdsBGLViewExecutionRate: TFloatField
      FieldName = 'ExecutionRate'
    end
    object cdsBGLViewBGLType: TWideStringField
      FieldName = 'BGLType'
      Size = 10
    end
    object cdsBGLViewIsCloud: TBooleanField
      FieldName = 'IsCloud'
    end
    object cdsBGLViewWebID: TIntegerField
      FieldName = 'WebID'
    end
  end
  object dsBGL: TDataSource
    DataSet = cdsBGLView
    Left = 160
    Top = 128
  end
  object atBGBills: TADOTable
    TableName = 'BGBills'
    Left = 240
    Top = 16
  end
  object dspBGBills: TDataSetProvider
    DataSet = atBGBills
    UpdateMode = upWhereKeyOnly
    Left = 240
    Top = 72
  end
  object cdsBGBills: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBGBills'
    Left = 240
    Top = 128
    object cdsBGBillsID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBGBillsBGID: TIntegerField
      FieldName = 'BGID'
    end
    object cdsBGBillsB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBGBillsName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBGBillsUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBGBillsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsBGBillsQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsBGBillsTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBGBillsUsedQuantity: TFloatField
      FieldName = 'UsedQuantity'
    end
  end
  object cdsBGBillsView: TClientDataSet
    Aggregates = <>
    Params = <>
    AfterInsert = cdsBGBillsViewAfterInsert
    BeforePost = cdsBGBillsViewBeforePost
    AfterPost = cdsBGBillsViewAfterPost
    BeforeDelete = cdsBGBillsViewBeforeDelete
    AfterDelete = cdsBGBillsViewAfterDelete
    Left = 312
    Top = 128
    object cdsBGBillsViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsBGBillsViewBGID: TIntegerField
      FieldName = 'BGID'
    end
    object cdsBGBillsViewB_Code: TWideStringField
      FieldName = 'B_Code'
      OnChange = cdsBGBillsViewQuantityChange
      Size = 50
    end
    object cdsBGBillsViewName: TWideStringField
      FieldName = 'Name'
      OnChange = cdsBGBillsViewQuantityChange
      Size = 200
    end
    object cdsBGBillsViewUnits: TWideStringField
      FieldName = 'Units'
      OnChange = cdsBGBillsViewQuantityChange
    end
    object cdsBGBillsViewPrice: TFloatField
      FieldName = 'Price'
      OnChange = cdsBGBillsViewQuantityChange
      OnSetText = cdsBGBillsViewPriceSetText
    end
    object cdsBGBillsViewQuantity: TFloatField
      FieldName = 'Quantity'
      OnChange = cdsBGBillsViewQuantityChange
      OnSetText = cdsBGBillsViewQuantitySetText
    end
    object cdsBGBillsViewTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsBGBillsViewUsedQuantity: TFloatField
      FieldName = 'UsedQuantity'
    end
  end
end