datamodule.dfm

某公司资料管理系统

object MastData: TMastData
  OldCreateOrder = True
  Left = 147
  Top = 45
  Height = 433
  Width = 645
  object MIBaseSource: TDataSource
    DataSet = MIBase
    Left = 28
    Top = 20
  end
  object MIBase: TTable
    CachedUpdates = True
    AfterOpen = MIBaseAfterOpen
    BeforeClose = MIBaseBeforeClose
    BeforeInsert = MIBaseBeforeInsert
    BeforePost = MIBaseBeforePost
    AfterPost = MIBaseAfterPost
    AfterCancel = MIBaseAfterCancel
    BeforeDelete = MIBaseBeforeDelete
    AfterDelete = MIBaseAfterDelete
    OnCalcFields = MIBaseCalcFields
    OnNewRecord = MIBaseNewRecord
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_MIBase'
    TableName = 'dbo.MIBase'
    Left = 87
    Top = 6
    object MIBasePartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIBaseCustomerNo: TStringField
      FieldName = 'CustomerNo'
      FixedChar = True
      Size = 10
    end
    object MIBaseCustPartNo: TStringField
      FieldName = 'CustPartNo'
      FixedChar = True
    end
    object MIBaseBoardNo: TStringField
      FieldName = 'BoardNo'
      FixedChar = True
      Size = 12
    end
    object MIBaseBoardType: TStringField
      FieldName = 'BoardType'
      FixedChar = True
      Size = 10
    end
    object MIBaseBoardX: TFloatField
      FieldName = 'BoardX'
    end
    object MIBaseBoardY: TFloatField
      FieldName = 'BoardY'
    end
    object MIBaseCutX1: TFloatField
      FieldName = 'CutX1'
      DisplayFormat = '0.00'
    end
    object MIBaseCutY1: TFloatField
      FieldName = 'CutY1'
      DisplayFormat = '0.00'
    end
    object MIBaseCutX2: TFloatField
      FieldName = 'CutX2'
      DisplayFormat = '0.00'
    end
    object MIBaseCutY2: TFloatField
      FieldName = 'CutY2'
      DisplayFormat = '0.00'
    end
    object MIBasePrepregA: TStringField
      FieldName = 'PrepregA'
      FixedChar = True
      Size = 5
    end
    object MIBasePrepregANum: TSmallintField
      FieldName = 'PrepregANum'
    end
    object MIBasePrepregB: TStringField
      FieldName = 'PrepregB'
      FixedChar = True
      Size = 5
    end
    object MIBasePrepregBNum: TSmallintField
      FieldName = 'PrepregBNum'
    end
    object MIBasePrepregC: TStringField
      FieldName = 'PrepregC'
      FixedChar = True
      Size = 5
    end
    object MIBasePrepregCNum: TSmallintField
      FieldName = 'PrepregCNum'
    end
    object MIBaseUnitPerPanel1: TSmallintField
      FieldName = 'UnitPerPanel1'
    end
    object MIBaseUnitPerPanel2: TSmallintField
      FieldName = 'UnitPerPanel2'
    end
    object MIBaseAreaPerUnit: TFloatField
      FieldName = 'AreaPerUnit'
    end
    object MIBaseAreaPerSet: TFloatField
      FieldName = 'AreaPerSet'
    end
    object MIBaseUnitPerSet: TSmallintField
      FieldName = 'UnitPerSet'
    end
    object MIBaseCopperFoil: TFloatField
      FieldName = 'CopperFoil'
      DisplayFormat = '0.0'
    end
    object MIBaseCopperFoilNum: TSmallintField
      FieldName = 'CopperFoilNum'
    end
    object MIBaseIsPosted: TStringField
      FieldName = 'IsPosted'
      FixedChar = True
      Size = 1
    end
    object MIBaseSizePerUnitX: TFloatField
      FieldName = 'SizePerUnitX'
      DisplayFormat = '0.00'
    end
    object MIBaseSizePerUnitY: TFloatField
      FieldName = 'SizePerUnitY'
      DisplayFormat = '0.00'
    end
    object MIBaseSizePerSetX: TFloatField
      FieldName = 'SizePerSetX'
      DisplayFormat = '0.00'
    end
    object MIBaseSizePerSetY: TFloatField
      FieldName = 'SizePerSetY'
      DisplayFormat = '0.00'
    end
    object MIBaseUtilization: TFloatField
      FieldName = 'Utilization'
    end
    object MIBasePPE: TStringField
      FieldName = 'PPE'
      FixedChar = True
      Size = 10
    end
    object MIBasePPEDate: TDateTimeField
      FieldName = 'PPEDate'
    end
    object MIBasePPEAPP: TStringField
      FieldName = 'PPEAPP'
      FixedChar = True
      Size = 10
    end
    object MIBasePPEAPPDate: TDateTimeField
      FieldName = 'PPEAPPDate'
    end
    object MIBaseQACheck: TStringField
      FieldName = 'QACheck'
      FixedChar = True
      Size = 10
    end
    object MIBaseQACheckDate: TDateTimeField
      FieldName = 'QACheckDate'
    end
    object MIBaseQAAPP: TStringField
      FieldName = 'QAAPP'
      FixedChar = True
      Size = 10
    end
    object MIBaseQAAPPDate: TDateTimeField
      FieldName = 'QAAPPDate'
    end
    object MIBaseLayer: TSmallintField
      FieldName = 'Layer'
    end
    object MIBaseGrade: TStringField
      FieldName = 'Grade'
      FixedChar = True
      Size = 1
    end
    object MIBaseCutX11: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CutX11'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseCutY11: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CutY11'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseCutX21: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CutX21'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseCutY21: TFloatField
      FieldKind = fkCalculated
      FieldName = 'CutY21'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseSizePerUnitX1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'SizePerUnitX1'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseSizePerUnitY1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'SizePerUnitY1'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseSizePerSetX1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'SizePerSetX1'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseSizePerSetY1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'SizePerSetY1'
      DisplayFormat = '#0.00'
      Calculated = True
    end
    object MIBaseMemo: TStringField
      FieldName = 'Memo'
      FixedChar = True
      Size = 40
    end
  end
  object Database: TDatabase
    AliasName = 'mis'
    DatabaseName = 'RedDatabase'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    AfterConnect = DatabaseAfterConnect
    BeforeConnect = DatabaseBeforeConnect
    Left = 139
    Top = 65535
  end
  object MIRouteSource: TDataSource
    DataSet = MIRoute
    Left = 32
    Top = 65
  end
  object MIRoute: TTable
    CachedUpdates = True
    AfterOpen = MIRouteAfterOpen
    BeforeClose = MIRouteBeforeClose
    BeforeInsert = MIRouteBeforeInsert
    BeforeEdit = MIRouteBeforeEdit
    AfterPost = MIRouteAfterPost
    BeforeDelete = MIRouteBeforeDelete
    AfterDelete = MIRouteAfterDelete
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_MIRoute'
    MasterFields = 'PartNo'
    MasterSource = MIBaseSource
    TableName = 'dbo.MIRoute'
    Left = 90
    Top = 60
    object MIRoutePartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIRouteRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Required = True
    end
    object MIRouteRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object MIRoutePrice: TFloatField
      FieldName = 'Price'
    end
    object MIRouteUnit: TStringField
      FieldName = 'Unit'
      FixedChar = True
      Size = 5
    end
    object MIRoutePicture: TBlobField
      FieldName = 'Picture'
      Size = 1
    end
    object MIRouteRouteName: TStringField
      FieldKind = fkLookup
      FieldName = 'RouteName'
      LookupDataSet = StandardRoute
      LookupKeyFields = 'RouteCode'
      LookupResultField = 'RouteName'
      KeyFields = 'RouteCode'
      Size = 10
      Lookup = True
    end
    object MIRouteMemo: TStringField
      FieldName = 'Memo'
      FixedChar = True
      Size = 80
    end
  end
  object RouteDetail: TTable
    CachedUpdates = True
    BeforeInsert = RouteDetailBeforeInsert
    BeforeEdit = RouteDetailBeforeEdit
    BeforeDelete = RouteDetailBeforeDelete
    AfterDelete = RouteDetailAfterDelete
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_RouteDetail'
    MasterFields = 'PartNo;RouteNo'
    MasterSource = MIRouteSource
    TableName = 'dbo.RouteDetail'
    Left = 88
    Top = 102
    object RouteDetailPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object RouteDetailRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Required = True
    end
    object RouteDetailItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object RouteDetailName: TStringField
      FieldName = 'Name'
      Size = 40
    end
    object RouteDetailParameter: TStringField
      FieldName = 'Parameter'
      Size = 40
    end
    object RouteDetailMemo: TStringField
      FieldName = 'Memo'
      Size = 40
    end
  end
  object RouteDetailSource: TDataSource
    DataSet = RouteDetail
    Left = 32
    Top = 113
  end
  object SampleRouteSource: TDataSource
    DataSet = SampleRoute
    Left = 35
    Top = 160
  end
  object SampleRoute: TTable
    CachedUpdates = True
    AfterOpen = SampleRouteAfterOpen
    BeforeClose = SampleRouteBeforeClose
    BeforeInsert = SampleRouteBeforeInsert
    AfterPost = SampleRouteAfterPost
    AfterCancel = SampleRouteAfterCancel
    BeforeDelete = SampleRouteBeforeDelete
    AfterDelete = SampleRouteAfterDelete
    AutoRefresh = True
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_SampleRoute'
    TableName = 'dbo.SampleRoute'
    Left = 90
    Top = 145
    object SampleRouteSampleID: TSmallintField
      FieldName = 'SampleID'
      Required = True
    end
    object SampleRouteSampleRouteName: TStringField
      FieldName = 'SampleRouteName'
      FixedChar = True
    end
  end
  object SampleRouteLookup: TTable
    AfterOpen = SampleRouteLookupAfterOpen
    DatabaseName = 'RedDatabase'
    TableName = 'dbo.SampleRoute'
    Left = 90
    Top = 245
  end
  object SampleRouteDetail: TTable
    CachedUpdates = True
    BeforeInsert = SampleRouteDetailBeforeInsert
    AfterEdit = SampleRouteDetailAfterEdit
    BeforeDelete = SampleRouteDetailBeforeDelete
    AutoRefresh = True
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_SampleRouteDetail'
    MasterFields = 'SampleID'
    MasterSource = SampleRouteSource
    TableName = 'dbo.SampleRouteDetail'
    Left = 90
    Top = 195
    object SampleRouteDetailSampleID: TSmallintField
      FieldName = 'SampleID'
      Required = True
    end
    object SampleRouteDetailItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object SampleRouteDetailRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object SampleRouteDetailRouteName: TStringField
      FieldKind = fkLookup
      FieldName = 'RouteName'
      LookupDataSet = StandardRoute
      LookupKeyFields = 'RouteCode'
      LookupResultField = 'RouteName'
      KeyFields = 'RouteCode'
      Size = 10
      Lookup = True
    end
  end
  object SampleRouteDetailSource: TDataSource
    DataSet = SampleRouteDetail
    Left = 35
    Top = 215
  end
  object SampleRouteLookupSource: TDataSource
    DataSet = SampleRouteLookup
    Left = 35
    Top = 265
  end
  object StandardRouteSource: TDataSource
    DataSet = StandardRoute
    Left = 213
    Top = 45
  end
  object StandardRouteParamSource: TDataSource
    DataSet = StandardRouteParam
    Left = 213
    Top = 90
  end
  object StandardRoute: TTable
    CachedUpdates = True
    AfterPost = StandardRouteAfterPost
    AfterCancel = StandardRouteAfterCancel
    AfterDelete = StandardRouteAfterDelete
    DatabaseName = 'RedDatabase'
    IndexName = 'IX_StandardRoute'
    TableName = 'dbo.StandardRoute'
    Left = 268
    Top = 20
    object StandardRouteRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Required = True
    end
    object StandardRouteRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object StandardRouteRouteName: TStringField
      FieldName = 'RouteName'
      Required = True