dm_unit.dfm

客户关系管理系统 DELPHI7下的

  end
  object dspDepartment: TDataSetProvider
    DataSet = qryDepartment
    Options = [poAllowCommandText]
    Left = 160
    Top = 278
  end
  object dsrDepartment: TDataSource
    DataSet = cdsDepartment
    Left = 368
    Top = 280
  end
  object qryCustomer: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'Select  *  From CustomerType')
    SQLConnection = SQLConn
    Left = 72
    Top = 88
  end
  object cdsCustomer: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustomer'
    Left = 256
    Top = 88
    object cdsCustomerCUSTOMERTYPE: TStringField
      FieldName = 'CUSTOMERTYPE'
      Size = 10
    end
    object cdsCustomerTYPEDESCN: TStringField
      FieldName = 'TYPEDESCN'
      Size = 10
    end
  end
  object dspCustomer: TDataSetProvider
    DataSet = qryCustomer
    Options = [poAllowCommandText]
    Left = 160
    Top = 88
  end
  object qryTransactionLog: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM  TransactionLog')
    SQLConnection = SQLConn
    Left = 64
    Top = 408
  end
  object cdsTransactionLog: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTransactionLog'
    Left = 264
    Top = 408
    object cdsTransactionLogID: TIntegerField
      FieldName = 'ID'
    end
    object cdsTransactionLogTRANSDATE: TSQLTimeStampField
      FieldName = 'TRANSDATE'
    end
    object cdsTransactionLogCOMPANYEMP: TStringField
      FieldName = 'COMPANYEMP'
      Size = 10
    end
    object cdsTransactionLogCUSTEMP: TStringField
      FieldName = 'CUSTEMP'
      Size = 10
    end
    object cdsTransactionLogTRANSTITLE: TStringField
      FieldName = 'TRANSTITLE'
      Size = 30
    end
    object cdsTransactionLogTRANSCONTENT: TStringField
      FieldName = 'TRANSCONTENT'
      Size = 50
    end
    object cdsTransactionLogCONTENTSUM: TStringField
      FieldName = 'CONTENTSUM'
      Size = 30
    end
    object cdsTransactionLogTRANSRESULT: TStringField
      FieldName = 'TRANSRESULT'
      Size = 50
    end
  end
  object dspTransactionLog: TDataSetProvider
    DataSet = qryTransactionLog
    Left = 160
    Top = 408
  end
  object dsrTransactionLog: TDataSource
    DataSet = cdsTransactionLog
    Left = 368
    Top = 408
  end
  object qryTransProduction: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM  TransProduction')
    SQLConnection = SQLConn
    Left = 448
    Top = 120
  end
  object cdsTransProduction: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspTransProduction'
    Left = 648
    Top = 120
    object cdsTransProductionID: TIntegerField
      FieldName = 'ID'
    end
    object cdsTransProductionBEGINDATE: TSQLTimeStampField
      FieldName = 'BEGINDATE'
    end
    object cdsTransProductionENDDATE: TSQLTimeStampField
      FieldName = 'ENDDATE'
    end
    object cdsTransProductionPRODUCTIONID: TStringField
      FieldName = 'PRODUCTIONID'
      Size = 10
    end
    object cdsTransProductionQUANTITY: TIntegerField
      FieldName = 'QUANTITY'
    end
    object cdsTransProductionUOM: TStringField
      FieldName = 'UOM'
      Size = 10
    end
    object cdsTransProductionPRICE: TFloatField
      FieldName = 'PRICE'
    end
    object cdsTransProductionCOMPANYEMP: TStringField
      FieldName = 'COMPANYEMP'
      Size = 10
    end
    object cdsTransProductionCUSTEMP: TStringField
      FieldName = 'CUSTEMP'
      Size = 10
    end
    object cdsTransProductionREMARK: TStringField
      FieldName = 'REMARK'
      Size = 100
    end
  end
  object dspTransProduction: TDataSetProvider
    DataSet = qryTransProduction
    Left = 544
    Top = 120
  end
  object dsrTransProduction: TDataSource
    DataSet = cdsTransProduction
    Left = 744
    Top = 120
  end
  object qryCustomerBooking: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM  CustomerBooking')
    SQLConnection = SQLConn
    Left = 456
    Top = 192
  end
  object cdsCustomerBooking: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustomerBooking'
    Left = 648
    Top = 192
    object cdsCustomerBookingID: TIntegerField
      FieldName = 'ID'
    end
    object cdsCustomerBookingBOOKINGTIME: TSQLTimeStampField
      FieldName = 'BOOKINGTIME'
    end
    object cdsCustomerBookingBOOKINGTYPE: TSQLTimeStampField
      FieldName = 'BOOKINGTYPE'
    end
    object cdsCustomerBookingCUSTOMER: TStringField
      FieldName = 'CUSTOMER'
      Size = 10
    end
    object cdsCustomerBookingCOMPANYEMP: TStringField
      FieldName = 'COMPANYEMP'
      Size = 10
    end
    object cdsCustomerBookingCUSTEMP: TStringField
      FieldName = 'CUSTEMP'
      Size = 10
    end
    object cdsCustomerBookingTITLE: TStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object cdsCustomerBookingADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 50
    end
    object cdsCustomerBookingCONTENT: TStringField
      FieldName = 'CONTENT'
      Size = 100
    end
    object cdsCustomerBookingREMINDTIME: TSQLTimeStampField
      FieldName = 'REMINDTIME'
    end
    object cdsCustomerBookingISREMIND: TStringField
      FieldName = 'ISREMIND'
      FixedChar = True
      Size = 2
    end
  end
  object dspCustomerBooking: TDataSetProvider
    DataSet = qryCustomerBooking
    Left = 552
    Top = 192
  end
  object dsrCustomerBooking: TDataSource
    DataSet = cdsCustomerBooking
    Left = 752
    Top = 192
  end
  object qryProduction: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM  Production')
    SQLConnection = SQLConn
    Left = 456
    Top = 264
  end
  object cdsProduction: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspProduction'
    Left = 648
    Top = 264
    object cdsProductionPRODUCTIONID: TIntegerField
      FieldName = 'PRODUCTIONID'
    end
    object cdsProductionPRODUCTIONDESCN: TStringField
      FieldName = 'PRODUCTIONDESCN'
    end
    object cdsProductionISSUEDATE: TSQLTimeStampField
      FieldName = 'ISSUEDATE'
    end
    object cdsProductionQUALITY: TIntegerField
      FieldName = 'QUALITY'
    end
    object cdsProductionSPEC: TStringField
      FieldName = 'SPEC'
    end
    object cdsProductionPRICE: TFloatField
      FieldName = 'PRICE'
    end
    object cdsProductionKEEPDATE: TStringField
      FieldName = 'KEEPDATE'
      Size = 10
    end
    object cdsProductionMARKETVALUE: TStringField
      FieldName = 'MARKETVALUE'
      Size = 10
    end
    object cdsProductionINTRODUCE: TStringField
      FieldName = 'INTRODUCE'
      Size = 100
    end
  end
  object dspProduction: TDataSetProvider
    DataSet = qryProduction
    Left = 552
    Top = 264
  end
  object dsrProduction: TDataSource
    DataSet = cdsProduction
    Left = 752
    Top = 264
  end
  object qryEventLog: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM  EventLog')
    SQLConnection = SQLConn
    Left = 456
    Top = 336
  end
  object cdsEventLog: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEventLog'
    Left = 648
    Top = 336
    object cdsEventLogID: TIntegerField
      FieldName = 'ID'
    end
    object cdsEventLogEVENTDATE: TSQLTimeStampField
      FieldName = 'EVENTDATE'
    end
    object cdsEventLogEVENTPROPETY: TStringField
      FieldName = 'EVENTPROPETY'
    end
    object cdsEventLogPERSON: TStringField
      FieldName = 'PERSON'
      Size = 10
    end
    object cdsEventLogTITLE: TStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object cdsEventLogCONTENT: TStringField
      FieldName = 'CONTENT'
      Size = 50
    end
  end
  object dspEventLog: TDataSetProvider
    DataSet = qryEventLog
    Left = 552
    Top = 336
  end
  object dsrEventLog: TDataSource
    DataSet = cdsEventLog
    Left = 752
    Top = 336
  end
  object qryCompanyInfo: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQL.Strings = (
      'SELECT * FROM CompanyInfo')
    SQLConnection = SQLConn
    Left = 464
    Top = 16
  end
  object cdsCompanyInfo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCompanyInfo'
    Left = 648
    Top = 16
  end
  object dspCompanyInfo: TDataSetProvider
    DataSet = qryCompanyInfo
    Options = [poAllowCommandText]
    Left = 560
    Top = 16
  end
  object dsrCompanyInfo: TDataSource
    DataSet = cdsCompanyInfo
    Left = 736
    Top = 16
  end
end