datamodule.dfm

某公司资料管理系统

      FixedChar = True
      Size = 10
    end
    object StandardRoutePrice: TFloatField
      FieldName = 'Price'
    end
    object StandardRouteUnit: TStringField
      FieldName = 'Unit'
      FixedChar = True
      Size = 5
    end
  end
  object StandardRouteParam: TTable
    CachedUpdates = True
    BeforeInsert = StandardRouteParamBeforeInsert
    BeforeEdit = StandardRouteParamBeforeEdit
    BeforeDelete = StandardRouteParamBeforeDelete
    DatabaseName = 'RedDatabase'
    IndexFieldNames = 'RouteCode;ItemNo'
    MasterFields = 'RouteCode'
    MasterSource = StandardRouteSource
    TableName = 'dbo.StandardRouteParam'
    Left = 273
    Top = 65
    object StandardRouteParamRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object StandardRouteParamItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object StandardRouteParamParameter: TStringField
      FieldName = 'Parameter'
      FixedChar = True
      Size = 30
    end
  end
  object StandardRouteLookupSource: TDataSource
    DataSet = StandardRouteLookup
    Left = 213
    Top = 135
  end
  object StandardRouteLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexName = 'IX_StandardRoute'
    TableName = 'dbo.StandardRoute'
    Left = 278
    Top = 115
  end
  object CustomerSource: TDataSource
    DataSet = Customer
    Left = 213
    Top = 185
  end
  object CustLookupSource: TDataSource
    DataSet = CustLookup
    Left = 213
    Top = 230
  end
  object BoardSource: TDataSource
    DataSet = Board
    Left = 338
    Top = 5
  end
  object Board: TTable
    CachedUpdates = True
    AfterPost = BoardAfterPost
    AfterCancel = BoardAfterCancel
    AfterDelete = BoardAfterDelete
    DatabaseName = 'RedDatabase'
    TableName = 'dbo.Board'
    Left = 398
    Top = 10
    object BoardBoardNo: TStringField
      FieldName = 'BoardNo'
      Required = True
      FixedChar = True
    end
    object BoardBoardDesc: TStringField
      FieldName = 'BoardDesc'
      FixedChar = True
      Size = 40
    end
    object BoardThick: TFloatField
      FieldName = 'Thick'
      DisplayFormat = '#0.0'
    end
    object BoardCuThick: TFloatField
      FieldName = 'CuThick'
      DisplayFormat = '#0.0'
    end
    object BoardPrice: TFloatField
      FieldName = 'Price'
      DisplayFormat = '#0.0000'
    end
    object BoardHolePrice: TFloatField
      FieldName = 'HolePrice'
      DisplayFormat = '#,##0.0000'
    end
    object BoardConsumption: TFloatField
      FieldName = 'Consumption'
      DisplayFormat = '#0.0000'
    end
    object BoardDrillConsumption: TFloatField
      FieldName = 'DrillConsumption'
      DisplayFormat = '#0.0000'
    end
    object BoardColor: TStringField
      FieldName = 'Color'
      FixedChar = True
      Size = 10
    end
  end
  object BoardLookup: TTable
    DatabaseName = 'RedDatabase'
    TableName = 'dbo.Board'
    Left = 398
    Top = 65
    object BoardLookupBoardNo: TStringField
      FieldName = 'BoardNo'
      Required = True
      FixedChar = True
    end
    object BoardLookupBoardDesc: TStringField
      FieldName = 'BoardDesc'
      FixedChar = True
      Size = 40
    end
    object BoardLookupThick: TFloatField
      FieldName = 'Thick'
      DisplayFormat = '#0.0'
    end
    object BoardLookupCuThick: TFloatField
      FieldName = 'CuThick'
      DisplayFormat = '#0.0'
    end
    object BoardLookupPrice: TFloatField
      FieldName = 'Price'
      DisplayFormat = '#0.0000'
    end
    object BoardLookupHolePrice: TFloatField
      FieldName = 'HolePrice'
      DisplayFormat = '#0.0000'
    end
    object BoardLookupColor: TStringField
      FieldName = 'Color'
      FixedChar = True
      Size = 10
    end
  end
  object BoardLookupSource: TDataSource
    DataSet = BoardLookup
    Left = 343
    Top = 55
  end
  object PartNoLookupSource: TDataSource
    DataSet = PartNoLookup
    Left = 343
    Top = 105
  end
  object PartNoLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexName = 'PartNo'
    TableName = 'dbo.MIBase'
    Left = 403
    Top = 120
    object PartNoLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object PartNoLookupCustomerNo: TStringField
      FieldName = 'CustomerNo'
      FixedChar = True
      Size = 10
    end
    object PartNoLookupCustPartNo: TStringField
      FieldName = 'CustPartNo'
      FixedChar = True
    end
  end
  object PrepregSource: TDataSource
    DataSet = Prepreg
    Left = 348
    Top = 155
  end
  object Prepreg: TTable
    CachedUpdates = True
    AfterPost = PrepregAfterPost
    AfterCancel = PrepregAfterCancel
    AfterDelete = PrepregAfterDelete
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_Prepreg'
    TableName = 'dbo.Prepreg'
    Left = 403
    Top = 175
  end
  object UserGroupSource: TDataSource
    DataSet = UserGroup
    Left = 348
    Top = 205
  end
  object UserGroup: TQuery
    DatabaseName = 'RedDatabase'
    SQL.Strings = (
      
        'Select UserName,GroupName from UserGroup where UserName=:UserNam' +
        'e')
    Left = 408
    Top = 220
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'UserName'
        ParamType = ptUnknown
      end>
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'RedDatabase'
    StoredProcName = 'PROC_GetUserName;1'
    Left = 353
    Top = 255
    ParamData = <
      item
        DataType = ftInteger
        Name = '@RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@UserName'
        ParamType = ptInputOutput
      end>
  end
  object MIBaseLookupSource: TDataSource
    DataSet = MIBaseLookup
    Left = 213
    Top = 280
  end
  object MIRouteLookupSource: TDataSource
    DataSet = MIRouteLookup
    Left = 283
    Top = 290
  end
  object RouteDetailLookupSource: TDataSource
    DataSet = RouteDetailLookup
    Left = 358
    Top = 305
  end
  object MIBaseLookup: TTable
    AfterOpen = MIBaseLookupAfterOpen
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_MIBase'
    TableName = 'dbo.MIBase'
    Left = 205
    Top = 346
    object MIBaseLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIBaseLookupCustomerNo: TStringField
      FieldName = 'CustomerNo'
      FixedChar = True
      Size = 10
    end
    object MIBaseLookupCustPartNo: TStringField
      FieldName = 'CustPartNo'
      FixedChar = True
    end
    object MIBaseLookupBoardNo: TStringField
      FieldName = 'BoardNo'
      FixedChar = True
      Size = 12
    end
    object MIBaseLookupBoardType: TStringField
      FieldName = 'BoardType'
      FixedChar = True
      Size = 1
    end
    object MIBaseLookupBoardX: TFloatField
      FieldName = 'BoardX'
    end
    object MIBaseLookupBoardY: TFloatField
      FieldName = 'BoardY'
    end
    object MIBaseLookupLayer: TSmallintField
      FieldName = 'Layer'
    end
    object MIBaseLookupGrade: TStringField
      FieldName = 'Grade'
      FixedChar = True
      Size = 1
    end
    object MIBaseLookupPPE: TStringField
      FieldName = 'PPE'
      FixedChar = True
      Size = 10
    end
    object MIBaseLookupPPEDate: TDateTimeField
      FieldName = 'PPEDate'
    end
    object MIBaseLookupPPEAPP: TStringField
      FieldName = 'PPEAPP'
      FixedChar = True
      Size = 10
    end
    object MIBaseLookupPPEAPPDate: TDateTimeField
      FieldName = 'PPEAPPDate'
    end
    object MIBaseLookupQACheck: TStringField
      FieldName = 'QACheck'
      FixedChar = True
      Size = 10
    end
    object MIBaseLookupQACheckDate: TDateTimeField
      FieldName = 'QACheckDate'
    end
    object MIBaseLookupQAAPP: TStringField
      FieldName = 'QAAPP'
      FixedChar = True
      Size = 10
    end
    object MIBaseLookupQAAPPDate: TDateTimeField
      FieldName = 'QAAPPDate'
    end
    object MIBaseLookupCutX1: TFloatField
      FieldName = 'CutX1'
    end
    object MIBaseLookupCutY1: TFloatField
      FieldName = 'CutY1'
    end
    object MIBaseLookupCutX2: TFloatField
      FieldName = 'CutX2'
    end
    object MIBaseLookupCutY2: TFloatField
      FieldName = 'CutY2'
    end
    object MIBaseLookupPrepregA: TStringField
      FieldName = 'PrepregA'
      FixedChar = True
      Size = 5
    end
    object MIBaseLookupPrepregANum: TSmallintField
      FieldName = 'PrepregANum'
    end
    object MIBaseLookupPrepregB: TStringField
      FieldName = 'PrepregB'
      FixedChar = True
      Size = 5
    end
    object MIBaseLookupPrepregBNum: TSmallintField
      FieldName = 'PrepregBNum'
    end
    object MIBaseLookupPrepregC: TStringField
      FieldName = 'PrepregC'
      FixedChar = True
      Size = 5
    end
    object MIBaseLookupPrepregCNum: TSmallintField
      FieldName = 'PrepregCNum'
    end
    object MIBaseLookupUnitPerPanel1: TSmallintField
      FieldName = 'UnitPerPanel1'
    end
    object MIBaseLookupUnitPerPanel2: TSmallintField
      FieldName = 'UnitPerPanel2'
    end
    object MIBaseLookupAreaPerUnit: TFloatField
      FieldName = 'AreaPerUnit'
    end
    object MIBaseLookupAreaPerSet: TFloatField
      FieldName = 'AreaPerSet'
    end
    object MIBaseLookupUnitPerSet: TSmallintField
      FieldName = 'UnitPerSet'
    end
    object MIBaseLookupCopperFoil: TFloatField
      FieldName = 'CopperFoil'
    end
    object MIBaseLookupCopperFoilNum: TSmallintField
      FieldName = 'CopperFoilNum'
    end
    object MIBaseLookupIsPosted: TStringField
      FieldName = 'IsPosted'
      FixedChar = True
      Size = 1
    end
    object MIBaseLookupSizePerUnitX: TFloatField
      FieldName = 'SizePerUnitX'
    end
    object MIBaseLookupSizePerUnitY: TFloatField
      FieldName = 'SizePerUnitY'
    end
    object MIBaseLookupSizePerSetX: TFloatField
      FieldName = 'SizePerSetX'
    end
    object MIBaseLookupSizePerSetY: TFloatField
      FieldName = 'SizePerSetY'
    end
    object MIBaseLookupUtilization: TFloatField
      FieldName = 'Utilization'
    end
  end
  object MIRouteLookup: TTable
    AfterOpen = MIRouteLookupAfterOpen
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_MIRoute'
    MasterFields = 'PartNo'
    MasterSource = MIBaseLookupSource
    TableName = 'dbo.MIRoute'
    Left = 278
    Top = 345
    object MIRouteLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIRouteLookupRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Required = True
    end
    object MIRouteLookupRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object MIRouteLookupPrice: TFloatField
      FieldName = 'Price'
    end
    object MIRouteLookupUnit: TStringField
      FieldName = 'Unit'
      FixedChar = True
      Size = 5
    end
    object MIRouteLookupPicture: TBlobField
      FieldName = 'Picture'
      Size = 1
    end
  end
  object RouteDetailLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_RouteDetail'
    MasterFields = 'PartNo;RouteNo'
    MasterSource = MIRouteLookupSource
    TableName = 'dbo.RouteDetail'
    Left = 413
    Top = 280
    object RouteDetailLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object RouteDetailLookupRouteNo: TSmallintField
      FieldName = 'RouteNo'
      Required = True
    end
    object RouteDetailLookupItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object RouteDetailLookupName: TStringField
      FieldName = 'Name'
      Size = 40
    end
    object RouteDetailLookupParameter: TStringField
      FieldName = 'Parameter'
      Size = 40
    end
    object RouteDetailLookupMemo: TStringField