untdatadm.dfm

适合行业为眼镜业

object dmmain: Tdmmain
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 1
  Top = 1
  Height = 570
  Width = 798
  object cdsStock_contract: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_contract'
    RemoteServer = frm_Data.Socket_Connection
    Left = 32
    Top = 8
  end
  object cdsReceipt: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspReceipt'
    RemoteServer = frm_Data.Socket_Connection
    OnReconcileError = cdsReceiptReconcileError
    Left = 278
    Top = 56
  end
  object cdsStock_contract_detail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_contract_detail'
    RemoteServer = frm_Data.Socket_Connection
    Left = 134
    Top = 8
  end
  object CDSexecsql: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DspSQL'
    RemoteServer = frm_Data.Socket_Connection
    AfterClose = CDSexecsqlAfterClose
    OnReconcileError = CDSexecsqlReconcileError
    Left = 24
    Top = 72
  end
  object CDSquery: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspquery'
    RemoteServer = frm_Data.Socket_Connection
    AfterClose = CDSqueryAfterClose
    Left = 24
    Top = 176
  end
  object CDSquery2: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspquery2'
    RemoteServer = frm_Data.Socket_Connection
    AfterClose = CDSquery2AfterClose
    Left = 24
    Top = 120
  end
  object csdStock_Write: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_Write'
    RemoteServer = frm_Data.Socket_Connection
    Left = 126
    Top = 64
  end
  object cdsStock_Write_detail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_Write_detail'
    RemoteServer = frm_Data.Socket_Connection
    Left = 126
    Top = 112
  end
  object cdsStock_States: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_States'
    RemoteServer = frm_Data.Socket_Connection
    Left = 126
    Top = 176
  end
  object cdsStock_Jion: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspStock_Jion'
    RemoteServer = frm_Data.Socket_Connection
    OnReconcileError = cdsStock_JionReconcileError
    Left = 278
    Top = 8
  end
  object cdsQuality_Check: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspQuality_Check'
    RemoteServer = frm_Data.Socket_Connection
    Left = 278
    Top = 112
  end
  object cdsQuality_Check_detail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspQuality_Check_detail'
    RemoteServer = frm_Data.Socket_Connection
    Left = 278
    Top = 160
  end
  object cdsCancel_strip: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCancel_strip'
    RemoteServer = frm_Data.Socket_Connection
    Left = 382
    Top = 16
  end
  object cdsCanceldetail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCanceldetail'
    RemoteServer = frm_Data.Socket_Connection
    Left = 366
    Top = 80
  end
  object socketpublic: TSocketConnection
    ServerGUID = '{E3485416-8439-4E76-BECB-1F7506164E4C}'
    ServerName = 'GD_Chain_Server.PublicServer'
    Port = 5000
    SupportCallbacks = False
    ObjectBroker = frm_Data.Simple
    Left = 544
    Top = 16
  end
  object cdsstockdetail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspstockdetail'
    RemoteServer = frm_Data.Socket_Connection
    Left = 24
    Top = 232
  end
  object cdspornal: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'p_no'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'dsppornal'
    RemoteServer = frm_Data.Socket_Connection
    Left = 24
    Top = 288
  end
  object cdspart: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'no'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'dsppart'
    RemoteServer = frm_Data.Socket_Connection
    Left = 32
    Top = 336
  end
  object cdspay: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsppay'
    RemoteServer = socketpublic
    Left = 112
    Top = 288
  end
  object cdspaydetail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPAYDETAIL'
    RemoteServer = socketpublic
    Left = 112
    Top = 336
  end
  object cdsmoneyinput: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspmoney'
    RemoteServer = socketpublic
    Left = 184
    Top = 288
  end
  object cdsmoneydetail: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspmoneydetail'
    RemoteServer = socketpublic
    Left = 192
    Top = 336
  end
  object cdsstockwarn: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'no'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'bh'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'dspstockwarning'
    RemoteServer = socketpublic
    OnReconcileError = cdsstockwarnReconcileError
    Left = 232
    Top = 216
  end
  object cdsstorage: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'no'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'dspstorage'
    RemoteServer = socketpublic
    OnReconcileError = cdsstorageReconcileError
    Left = 264