datamodule.dfm

某公司资料管理系统

      FieldName = 'Memo'
      Size = 40
    end
  end
  object ProductSampleSource: TDataSource
    DataSet = ProductSample
    Left = 453
  end
  object ProductSampleDetailSource: TDataSource
    DataSet = ProductSampleDetail
    Left = 458
    Top = 45
  end
  object Customer: TTable
    CachedUpdates = True
    AfterPost = CustomerAfterPost
    AfterCancel = CustomerAfterCancel
    AfterDelete = CustomerAfterDelete
    OnNewRecord = CustomerNewRecord
    DatabaseName = 'RedDatabase'
    TableName = 'dbo.Customer'
    Left = 283
    Top = 180
    object CustomerCustomerNo: TStringField
      FieldName = 'CustomerNo'
      Required = True
      FixedChar = True
      Size = 10
    end
    object CustomerCompany: TStringField
      FieldName = 'Company'
      Required = True
      FixedChar = True
      Size = 50
    end
    object CustomerDescription: TStringField
      FieldName = 'Description'
      FixedChar = True
      Size = 80
    end
    object CustomerAddress: TStringField
      FieldName = 'Address'
      FixedChar = True
      Size = 80
    end
    object CustomerCity: TStringField
      FieldName = 'City'
      FixedChar = True
      Size = 50
    end
    object CustomerState: TStringField
      FieldName = 'State'
      FixedChar = True
      Size = 50
    end
    object CustomerCountry: TStringField
      FieldName = 'Country'
      FixedChar = True
      Size = 50
    end
    object CustomerZip: TStringField
      FieldName = 'Zip'
      FixedChar = True
      Size = 10
    end
    object CustomerTelephone1: TStringField
      FieldName = 'Telephone1'
      FixedChar = True
    end
    object CustomerTelephone2: TStringField
      FieldName = 'Telephone2'
      FixedChar = True
    end
    object CustomerFax: TStringField
      FieldName = 'Fax'
      FixedChar = True
    end
    object CustomerEmail: TStringField
      FieldName = 'Email'
      FixedChar = True
    end
    object CustomerURI: TStringField
      FieldName = 'URI'
      FixedChar = True
    end
    object CustomerMainCurrency: TStringField
      FieldName = 'MainCurrency'
      FixedChar = True
      Size = 10
    end
    object CustomerContact: TStringField
      FieldName = 'Contact'
      FixedChar = True
    end
    object CustomerTaxID: TStringField
      FieldName = 'TaxID'
      FixedChar = True
      Size = 50
    end
    object CustomerPriceGrade: TStringField
      FieldName = 'PriceGrade'
      FixedChar = True
      Size = 1
    end
    object CustomerValid: TStringField
      FieldName = 'Valid'
      FixedChar = True
      Size = 1
    end
    object CustomerLastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
    end
  end
  object CustLookup: TTable
    DatabaseName = 'RedDatabase'
    Filter = 'Valid='#39'Y'#39
    Filtered = True
    TableName = 'dbo.Customer'
    Left = 283
    Top = 225
    object CustLookupCustomerNo: TStringField
      FieldName = 'CustomerNo'
      Required = True
      FixedChar = True
      Size = 10
    end
    object CustLookupCompany: TStringField
      FieldName = 'Company'
      Required = True
      FixedChar = True
      Size = 50
    end
    object CustLookupValid: TStringField
      FieldName = 'Valid'
      FixedChar = True
      Size = 1
    end
  end
  object SampleNoLookupSource: TDataSource
    DataSet = SampleNoLookup
    Left = 463
    Top = 100
  end
  object SampleNoLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_ProductSample'
    TableName = 'dbo.ProductSample'
    Left = 543
    Top = 105
    object SampleNoLookupSampleNo: TStringField
      FieldName = 'SampleNo'
      Required = True
      FixedChar = True
      Size = 10
    end
    object SampleNoLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object SampleNoLookupProductQty: TIntegerField
      FieldName = 'ProductQty'
    end
    object SampleNoLookupProductDate: TDateTimeField
      FieldName = 'ProductDate'
    end
    object SampleNoLookupFinishQty: TIntegerField
      FieldName = 'FinishQty'
    end
    object SampleNoLookupFinishDate: TDateTimeField
      FieldName = 'FinishDate'
    end
    object SampleNoLookupIsFinish: TStringField
      FieldName = 'IsFinish'
      FixedChar = True
      Size = 1
    end
    object SampleNoLookupOperator: TStringField
      FieldName = 'Operator'
      FixedChar = True
      Size = 10
    end
  end
  object ProductSampleDetail: TTable
    CachedUpdates = True
    BeforeInsert = ProductSampleDetailBeforeInsert
    BeforeEdit = ProductSampleDetailBeforeEdit
    BeforeDelete = ProductSampleDetailBeforeDelete
    DatabaseName = 'RedDatabase'
    IndexFieldNames = 'SampleNo;ItemNo'
    MasterFields = 'SampleNo'
    MasterSource = ProductSampleSource
    TableName = 'dbo.ProductSampleDetail'
    Left = 538
    Top = 60
    object ProductSampleDetailSampleNo: TStringField
      FieldName = 'SampleNo'
      Required = True
      FixedChar = True
      Size = 10
    end
    object ProductSampleDetailItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object ProductSampleDetailRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object ProductSampleDetailRouteName: TStringField
      FieldKind = fkLookup
      FieldName = 'RouteName'
      LookupDataSet = StandardRoute
      LookupKeyFields = 'RouteCode'
      LookupResultField = 'RouteName'
      KeyFields = 'RouteCode'
      Size = 10
      Lookup = True
    end
    object ProductSampleDetailFinishQty: TIntegerField
      FieldName = 'FinishQty'
    end
    object ProductSampleDetailIsFinish: TStringField
      FieldName = 'IsFinish'
      FixedChar = True
      Size = 1
    end
    object ProductSampleDetailMemo: TStringField
      FieldName = 'Memo'
      FixedChar = True
      Size = 30
    end
  end
  object ProductSample: TTable
    CachedUpdates = True
    AfterOpen = ProductSampleAfterOpen
    AfterInsert = ProductSampleAfterInsert
    BeforeEdit = ProductSampleBeforeEdit
    AfterPost = ProductSampleAfterPost
    AfterCancel = ProductSampleAfterCancel
    BeforeDelete = ProductSampleBeforeDelete
    AfterDelete = ProductSampleAfterDelete
    DatabaseName = 'RedDatabase'
    IndexFieldNames = 'SampleNo'
    TableName = 'dbo.ProductSample'
    Left = 543
    Top = 10
    object ProductSampleSampleNo: TStringField
      FieldName = 'SampleNo'
      Required = True
      FixedChar = True
      Size = 10
    end
    object ProductSamplePartNo: TStringField
      FieldName = 'PartNo'
      FixedChar = True
      Size = 15
    end
    object ProductSampleProductQty: TIntegerField
      FieldName = 'ProductQty'
    end
    object ProductSampleProductDate: TDateTimeField
      FieldName = 'ProductDate'
    end
    object ProductSampleFinishQty: TIntegerField
      FieldName = 'FinishQty'
    end
    object ProductSampleFinishDate: TDateTimeField
      FieldName = 'FinishDate'
    end
    object ProductSampleIsFinish: TStringField
      FieldName = 'IsFinish'
      FixedChar = True
      Size = 1
    end
    object ProductSampleOperator: TStringField
      FieldName = 'Operator'
      FixedChar = True
      Size = 10
    end
  end
  object DeleteProductSample: TStoredProc
    DatabaseName = 'RedDatabase'
    StoredProcName = 'PROC_DeleteProductSample;1'
    Left = 543
    Top = 155
    ParamData = <
      item
        DataType = ftInteger
        Name = '@RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@Str'
        ParamType = ptInput
      end>
  end
  object SampleRouteDLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexFieldNames = 'SampleID'
    MasterFields = 'SampleID'
    MasterSource = SampleRouteLookupSource
    TableName = 'dbo.SampleRouteDetail'
    Left = 90
    Top = 310
    object SampleRouteDLookupSampleID: TSmallintField
      FieldName = 'SampleID'
      Required = True
    end
    object SampleRouteDLookupItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object SampleRouteDLookupRouteCode: TStringField
      FieldName = 'RouteCode'
      Required = True
      FixedChar = True
      Size = 5
    end
    object SampleRouteDLookupRouteName: TStringField
      FieldKind = fkLookup
      FieldName = 'RouteName'
      LookupDataSet = StandardRoute
      LookupKeyFields = 'RouteCode'
      LookupResultField = 'RouteName'
      KeyFields = 'RouteCode'
      Size = 10
      Lookup = True
    end
  end
  object SampleRouteDLookupSource: TDataSource
    DataSet = SampleRouteDLookup
    Left = 35
    Top = 330
  end
  object MIDrillSource: TDataSource
    DataSet = MIDrill
    Left = 144
    Top = 56
  end
  object MIDrill: TTable
    CachedUpdates = True
    BeforeInsert = MIDrillBeforeInsert
    BeforeEdit = MIDrillBeforeEdit
    BeforeDelete = MIDrillBeforeDelete
    OnNewRecord = MIDrillNewRecord
    DatabaseName = 'RedDatabase'
    Exclusive = True
    IndexName = 'PK_MIDrill'
    MasterFields = 'PartNo'
    MasterSource = MIBaseSource
    TableName = 'dbo.MIDrill'
    Left = 144
    Top = 104
    object MIDrillPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIDrillDrillType: TStringField
      FieldName = 'DrillType'
      Required = True
      FixedChar = True
      Size = 4
    end
    object MIDrillItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object MIDrillSymbol: TStringField
      FieldName = 'Symbol'
      FixedChar = True
      Size = 2
    end
    object MIDrillDiameter: TStringField
      FieldName = 'Diameter'
      Size = 40
    end
    object MIDrillQty: TIntegerField
      FieldName = 'Qty'
    end
    object MIDrillUnit: TStringField
      FieldName = 'Unit'
      FixedChar = True
      Size = 1
    end
    object MIDrillQtyPerPanel: TIntegerField
      FieldName = 'QtyPerPanel'
    end
    object MIDrillTQty: TIntegerField
      FieldName = 'TQty'
    end
    object MIDrillDrill: TFloatField
      FieldName = 'Drill'
    end
    object MIDrillNPTH: TStringField
      FieldName = 'NPTH'
      FixedChar = True
      Size = 5
    end
    object MIDrillMemo: TStringField
      FieldName = 'Memo'
      Size = 40
    end
  end
  object MIDrillLookupSource: TDataSource
    DataSet = MIDrillLookup
    Left = 360
    Top = 352
  end
  object MIDrillLookup: TTable
    DatabaseName = 'RedDatabase'
    IndexName = 'PK_MIDrill'
    MasterFields = 'PartNo'
    MasterSource = MIBaseLookupSource
    TableName = 'dbo.MIDrill'
    Left = 424
    Top = 344
    object MIDrillLookupPartNo: TStringField
      FieldName = 'PartNo'
      Required = True
      FixedChar = True
      Size = 15
    end
    object MIDrillLookupDrillType: TStringField
      FieldName = 'DrillType'
      Required = True
      FixedChar = True
      Size = 4
    end
    object MIDrillLookupItemNo: TSmallintField
      FieldName = 'ItemNo'
      Required = True
    end
    object MIDrillLookupSymbol: TStringField
      FieldName = 'Symbol'
      FixedChar = True
      Size = 2
    end
    object MIDrillLookupDiameter: TStringField
      FieldName = 'Diameter'
      Size = 40
    end
    object MIDrillLookupQty: TIntegerField
      FieldName = 'Qty'
    end
    object MIDrillLookupUnit: TStringField
      FieldName = 'Unit'
      FixedChar = True
      Size = 1
    end
    object MIDrillLookupQtyPerPanel: TIntegerField
      FieldName = 'QtyPerPanel'
    end
    object MIDrillLookupTQty: TIntegerField
      FieldName = 'TQty'
    end
    object MIDrillLookupDrill: TFloatField
      FieldName = 'Drill'
    end
    object MIDrillLookupNPTH: TStringField
      FieldName = 'NPTH'
      FixedChar = True
      Size = 5
    end
    object MIDrillLookupMemo: TStringField
      FieldName = 'Memo'
      Size = 40
    end
  end
end