clientdm_unit.dfm

货源代理管理系统 同样是DELPHI7下的

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 203
  Top = 132
  Height = 500
  Width = 657
  object SocketConn: TSocketConnection
    Connected = True
    ServerGUID = '{EFB3760F-98F6-4BDC-8052-C4416EACEBC0}'
    ServerName = 'Server.LogisticsServer'
    Address = '127.0.0.1'
    Left = 32
    Top = 24
  end
  object cdsUsers: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUser'
    RemoteServer = SocketConn
    BeforePost = cdsUsersBeforePost
    Left = 96
    Top = 24
  end
  object cdsFeeType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspFeeType'
    RemoteServer = SocketConn
    Left = 168
    Top = 24
    object cdsFeeTypeFeeTypeID: TStringField
      FieldName = 'FeeTypeID'
      Size = 16
    end
    object cdsFeeTypeFeeDescn: TStringField
      FieldName = 'FeeDescn'
    end
  end
  object dsrFeeType: TDataSource
    DataSet = cdsFeeType
    Left = 168
    Top = 72
  end
  object dsrAreaType: TDataSource
    DataSet = cdsAreaType
    Left = 264
    Top = 72
  end
  object cdsAreaType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspAreaType'
    RemoteServer = SocketConn
    Left = 264
    Top = 24
    object cdsAreaTypeAreaCode: TStringField
      FieldName = 'AreaCode'
      Size = 10
    end
    object cdsAreaTypeAreaDescn: TStringField
      FieldName = 'AreaDescn'
      Size = 30
    end
  end
  object cdsCallingType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCallingType'
    RemoteServer = SocketConn
    Left = 360
    Top = 24
    object cdsCallingTypeCallingCode: TStringField
      FieldName = 'CallingCode'
      Size = 10
    end
    object cdsCallingTypeCallingDescn: TStringField
      FieldName = 'CallingDescn'
    end
  end
  object dsrCallingType: TDataSource
    DataSet = cdsCallingType
    Left = 360
    Top = 72
  end
  object cdsInsuranceType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspInsuranceType'
    RemoteServer = SocketConn
    Left = 456
    Top = 24
    object cdsInsuranceTypeInsuranceCode: TStringField
      FieldName = 'InsuranceCode'
      Size = 10
    end
    object cdsInsuranceTypeInsuranceDescn: TStringField
      FieldName = 'InsuranceDescn'
    end
  end
  object dsrInsuranceType: TDataSource
    DataSet = cdsInsuranceType
    Left = 456
    Top = 72
  end
  object cdsPersonnelType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPersonnelType'
    RemoteServer = SocketConn
    Left = 168
    Top = 144
    object cdsPersonnelTypePersonnelType: TStringField
      FieldName = 'PersonnelType'
      Size = 10
    end
    object cdsPersonnelTypePersonnelDescn: TStringField
      FieldName = 'PersonnelDescn'
    end
  end
  object dsrPersonnelType: TDataSource
    DataSet = cdsPersonnelType
    Left = 168
    Top = 192
  end
  object cdsPaymentType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPaymentType'
    RemoteServer = SocketConn
    Left = 272
    Top = 144
    object cdsPaymentTypePaymentCode: TStringField
      FieldName = 'PaymentCode'
      Size = 10
    end
    object cdsPaymentTypePaymentDescn: TStringField
      FieldName = 'PaymentDescn'
      Size = 32
    end
  end
  object dsrPaymentType: TDataSource
    DataSet = cdsPaymentType
    Left = 272
    Top = 192
  end
  object cdsPerson: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPerson'
    RemoteServer = SocketConn
    Left = 360
    Top = 144
    object cdsPersonPersonID: TStringField
      FieldName = 'PersonID'
      Size = 10
    end
    object cdsPersonName: TStringField
      FieldName = 'Name'
      Size = 8
    end
    object cdsPersonSex: TStringField
      FieldName = 'Sex'
      FixedChar = True
      Size = 2
    end
    object cdsPersonBirthday: TDateTimeField
      FieldName = 'Birthday'
    end
    object cdsPersonIDCard: TStringField
      FieldName = 'IDCard'
    end
    object cdsPersonTelephone: TStringField
      FieldName = 'Telephone'
    end
    object cdsPersonEMail: TStringField
      FieldName = 'EMail'
      Size = 32
    end
    object cdsPersonAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object cdsPersonWorkingPlace: TStringField
      FieldName = 'WorkingPlace'
      Size = 50
    end
  end
  object dsrPerson: TDataSource
    DataSet = cdsPerson
    Left = 360
    Top = 192
  end
  object cdsCustomer: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCustomer'
    RemoteServer = SocketConn
    Left = 456
    Top = 144
    object cdsCustomerCustomerID: TStringField
      FieldName = 'CustomerID'
      Size = 16
    end
    object cdsCustomerCustomerDescn: TStringField
      FieldName = 'CustomerDescn'
      Size = 32
    end
    object cdsCustomerAreaType: TStringField
      FieldName = 'AreaType'
      Size = 10
    end
    object cdsCustomerCallingType: TStringField
      FieldName = 'CallingType'
      Size = 10
    end
    object cdsCustomerContact: TStringField
      FieldName = 'Contact'
      Size = 10
    end
    object cdsCustomerContactTel: TStringField
      FieldName = 'ContactTel'
    end
    object cdsCustomerContactAddress: TStringField
      FieldName = 'ContactAddress'
      Size = 50
    end
  end
  object dsrCustomer: TDataSource
    DataSet = cdsCustomer
    Left = 456
    Top = 192
  end
  object cdsCarType: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCarType'
    RemoteServer = SocketConn
    Left = 552
    Top = 24
    object cdsCarTypeCarType: TStringField
      FieldName = 'CarType'
      Size = 16
    end
    object cdsCarTypeCarDescn: TStringField
      FieldName = 'CarDescn'
    end
  end
  object dsrCarType: TDataSource
    DataSet = cdsCarType
    Left = 552
    Top = 72
  end
  object cdsCar: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCar'
    RemoteServer = SocketConn
    BeforePost = cdsCarBeforePost
    Left = 552
    Top = 144
    object cdsCarCarNumber: TStringField
      FieldName = 'CarNumber'
      Size = 16
    end
    object cdsCarCarType: TStringField
      FieldName = 'CarType'
      Size = 10
    end
    object cdsCarInsuranceType: TStringField
      FieldName = 'InsuranceType'
      Size = 10
    end
    object cdsCarDriver: TStringField
      FieldName = 'Driver'
      Size = 10
    end
    object cdsCarStatus: TStringField
      FieldName = 'Status'
      Size = 8
    end
  end
  object dsrCar: TDataSource
    DataSet = cdsCar
    Left = 552
    Top = 192
  end
  object dsrUsers: TDataSource
    DataSet = cdsUsers
    Left = 96
    Top = 88
  end
  object cdsShippingHeader: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspShippingHeader'
    RemoteServer = SocketConn
    OnReconcileError = cdsShippingHeaderReconcileError
    Left = 160
    Top = 272
  end
  object dsrShippingHeader: TDataSource
    DataSet = cdsShippingHeader
    Left = 160
    Top = 320
  end
  object cdsShippingBody: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'ShippingNumber'
    MasterFields = 'ShippingNumber'
    MasterSource = dsrShippingHeader
    PacketRecords = 0
    Params = <>
    ProviderName = 'dspShippingBody'
    RemoteServer = SocketConn
    AfterInsert = cdsShippingBodyAfterInsert
    AfterPost = cdsShippingBodyAfterPost
    Left = 272
    Top = 272
  end
  object dsrShippingBody: TDataSource
    DataSet = cdsShippingBody
    Left = 272
    Top = 320
  end
  object SimpleObjectBroker1: TSimpleObjectBroker
    Left = 48
    Top = 144
  end
end