Measure/DataModules/BGLDm.dfm

object BGLData: TBGLData
  OldCreateOrder = False
  Left = 456
  Top = 291
  Height = 274
  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 cdsBGLPeg: TWideStringField
      DisplayWidth = 50
      FieldName = 'Peg'
      Size = 50
    end
    object cdsBGLStartDateTime: TWideStringField
      FieldName = 'StartDateTime'
      Size = 50
    end
    object cdsBGLLxCode: TWideStringField
      FieldName = 'LxCode'
      Size = 50
    end
    object cdsBGLLxTotalPrice: TFloatField
      FieldName = 'LxTotalPrice'
    end
    object cdsBGLPfCode: TWideStringField
      FieldName = 'PfCode'
      Size = 50
    end
    object cdsBGLPfTotalPrice: TFloatField
      FieldName = 'PfTotalPrice'
    end
    object cdsBGLMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 255
    end
  end
  object cdsBGLView: TClientDataSet
    Aggregates = <>
    Params = <>
    BeforePost = cdsBGLViewBeforePost
    BeforeDelete = cdsBGLViewBeforeDelete
    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 cdsBGLViewPeg: TWideStringField
      DisplayWidth = 50
      FieldName = 'Peg'
      Size = 50
    end
    object cdsBGLViewStartDateTime: TWideStringField
      FieldName = 'StartDateTime'
      Size = 50
    end
    object cdsBGLViewLxCode: TWideStringField
      FieldName = 'LxCode'
      Size = 50
    end
    object cdsBGLViewLxTotalPrice: TFloatField
      FieldName = 'LxTotalPrice'
    end
    object cdsBGLViewPfCode: TWideStringField
      FieldName = 'PfCode'
      Size = 50
    end
    object cdsBGLViewPfTotalPrice: TFloatField
      FieldName = 'PfTotalPrice'
    end
    object cdsBGLViewMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 255
    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
  object cdsScjtBGlView: TClientDataSet
    Aggregates = <>
    Params = <>
    BeforePost = cdsScjtBGlViewBeforePost
    BeforeDelete = cdsScjtBGlViewBeforeDelete
    OnNewRecord = cdsScjtBGlViewNewRecord
    Left = 95
    Top = 188
    object cdsScjtBGLViewID: TIntegerField
      FieldName = 'ID'
    end
    object cdsScjtBGLViewCode: TWideStringField
      FieldName = 'Code'
      OnChange = cdsBGLViewCodeChange
      Size = 50
    end
    object cdsScjtBGLViewName: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsScjtBGLViewTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsScjtBGLViewPos_Reason: TMemoField
      FieldName = 'Pos_Reason'
      BlobType = ftMemo
    end
    object cdsScjtBGLViewDirection: TMemoField
      FieldName = 'Direction'
      BlobType = ftMemo
    end
    object cdsScjtBGLViewDrawingCode: TWideStringField
      FieldName = 'DrawingCode'
      Size = 50
    end
    object cdsScjtBGLViewApprovalCode: TWideStringField
      FieldName = 'ApprovalCode'
      Size = 50
    end
    object cdsScjtBGLViewCreatePhaseID: TIntegerField
      FieldName = 'CreatePhaseID'
    end
    object cdsScjtBGLViewExecutionRate: TFloatField
      FieldName = 'ExecutionRate'
    end
    object cdsScjtBGLViewBGLType: TWideStringField
      FieldName = 'BGLType'
      Size = 10
    end
    object cdsScjtBGlViewPeg: TWideStringField
      FieldName = 'Peg'
      Size = 50
    end
    object cdsScjtBGlViewStartDateTime: TWideStringField
      FieldName = 'StartDateTime'
      Size = 50
    end
    object cdsScjtBGlViewLxCode: TWideStringField
      FieldName = 'LxCode'
      Size = 50
    end
    object cdsScjtBGlViewLxTotalPrice: TFloatField
      FieldName = 'LxTotalPrice'
    end
    object cdsScjtBGlViewPfCode: TWideStringField
      FieldName = 'PfCode'
      Size = 50
    end
    object cdsScjtBGlViewPfTotalPrice: TFloatField
      FieldName = 'PfTotalPrice'
    end
    object cdsScjtBGlViewMemoStr: TWideStringField
      FieldName = 'MemoStr'
      Size = 255
    end
  end
end