Delphi控件源码

开发平台：
Delphi

DMs.dfm：源码内容
							object DM: TDM
  OldCreateOrder = False
  Left = 327
  Top = 210
  Height = 608
  Width = 790
  object pass: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_user'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 8
    Top = 8
  end
  object xt_rz: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_rz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 48
    Top = 8
  end
  object xt_yhz: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from Xt_UserGroup'
    IndexFieldNames = 'js_dm'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 83
    Top = 8
  end
  object xt_js: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_js'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 121
    Top = 8
  end
  object ug_js: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from ug_js'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 48
    Top = 58
  end
  object am_dz: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from am_dz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 48
    Top = 300
  end
  object sz_zjlb: TClientDataSet
    Aggregates = <>
    CommandText = 'Select *  from sz_zjlb'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket3
    Left = 85
    Top = 109
  end
  object V_DZ: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_dz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 83
    Top = 58
  end
  object am_jygz: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from am_jygz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 83
    Top = 300
  end
  object sz_jyfs: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_jyfs'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 121
    Top = 109
  end
  object sz_jymd: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_jymd'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 157
    Top = 109
  end
  object am_jygl: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from am_jygl'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 121
    Top = 300
  end
  object v_jy: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_jy'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 121
    Top = 58
  end
  object v_gh: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_gh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 157
    Top = 58
  end
  object sz_bm: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_bm'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 196
    Top = 109
  end
  object xt_lbjs: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from xt_lbjs'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 157
    Top = 8
  end
  object xt_ajcs: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_ajcs'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 196
    Top = 8
  end
  object sz_bgqx: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_bgqx'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 235
    Top = 109
  end
  object sz_mj: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_mj'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 284
    Top = 109
  end
  object sz_ztlb: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_ztlb'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 46
    Top = 200
  end
  object sz_xtajlb: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_xtajlb'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 84
    Top = 200
  end
  object sz_wjlb: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_wjlb'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 196
    Top = 200
  end
  object sz_yg: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from sz_yg'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 235
    Top = 200
  end
  object Am_wjgl: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from am_wjgl'
    IndexFieldNames = 'aj_xh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 157
    Top = 300
  end
  object Am_wjfj: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from Am_wjfj'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 196
    Top = 300
  end
  object Am_kwzk: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from Am_kwzk'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 282
    Top = 300
  end
  object lbjs: TDataSource
    DataSet = xt_lbjs
    Left = 8
    Top = 58
  end
  object sz_kw: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_kw'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 121
    Top = 200
  end
  object v_yggl: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_yggl'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 196
    Top = 58
  end
  object sz_ztcl: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_ztcl'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 284
    Top = 200
  end
  object sz_ztck: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_ztck'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 322
    Top = 200
  end
  object sz_qz: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_qz'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 44
    Top = 109
  end
  object sz_ajlb: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_ajlb'
    IndexFieldNames = 'qz_dm'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket4
    Left = 157
    Top = 200
  end
  object Am_ajgl: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from am_ajgl'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket5
    Left = 326
    Top = 300
  end
  object Ds_mj: TDataSource
    DataSet = sz_mj
    Left = 284
    Top = 154
  end
  object Ds_Bgqx: TDataSource
    DataSet = sz_bgqx
    Left = 235
    Top = 154
  end
  object Ds_Ajlb: TDataSource
    DataSet = sz_ajlb
    Left = 157
    Top = 248
  end
  object V_ylj: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 235
    Top = 58
  end
  object Ds_Ajgl: TDataSource
    DataSet = Am_ajgl
    Left = 326
    Top = 350
  end
  object Ds_Wjgl: TDataSource
    DataSet = Am_wjgl
    Left = 157
    Top = 350
  end
  object Ds_Ztlb: TDataSource
    DataSet = sz_ztlb
    Left = 46
    Top = 248
  end
  object Ds_bm: TDataSource
    DataSet = sz_bm
    Left = 197
    Top = 156
  end
  object V_Wjgl: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from V_Wjgl'
    IndexFieldNames = 'aj_xh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 283
    Top = 58
  end
  object Ds_wjlb: TDataSource
    DataSet = sz_wjlb
    Left = 200
    Top = 248
  end
  object V_ajgl: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from v_ajgl'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 324
    Top = 57
  end
  object DS_v_ajgl: TDataSource
    DataSet = V_ajgl
    Left = 326
    Top = 107
  end
  object Ds_Kw: TDataSource
    DataSet = sz_kw
    Left = 120
    Top = 248
  end
  object Am_Ajyj: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from am_ajyj'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket6
    Left = 368
    Top = 300
  end
  object v_ajgl_gd: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_ajgl_gd'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 368
    Top = 56
  end
  object V_Wjgl2: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from V_Wjgl2'
    IndexFieldNames = 'aj_xh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 416
    Top = 56
  end
  object am_YJml: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from am_yjml'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket6
    Left = 416
    Top = 300
  end
  object V_YJDY: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_yjdy'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 460
    Top = 56
  end
  object am_ajxh: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from am_ajxh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket6
    Left = 463
    Top = 300
    object am_ajxhaj_xh: TIntegerField
      FieldName = 'aj_xh'
    end
    object am_ajxhaj_ajxh: TAutoIncField
      FieldName = 'aj_ajxh'
      ReadOnly = True
    end
    object am_ajxhajxh_jdrq: TDateTimeField
      FieldName = 'ajxh_jdrq'
    end
    object am_ajxhajxh_jdyy: TStringField
      FieldName = 'ajxh_jdyy'
      Size = 200
    end
    object am_ajxhajxh_jdyj: TStringField
      FieldName = 'ajxh_jdyj'
      Size = 200
    end
    object am_ajxhajxh_xhr: TStringField
      FieldName = 'ajxh_xhr'
      Size = 30
    end
    object am_ajxhajxh_jdr: TStringField
      FieldName = 'ajxh_jdr'
      Size = 30
    end
    object am_ajxhajxh_xhrq: TDateTimeField
      FieldName = 'ajxh_xhrq'
    end
  end
  object V_ajgl_yxh: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from V_Ajgl_gd where ajzt_mc='#39#24050#38144#27585#26696#21367#39
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 507
    Top = 56
  end
  object V_ajgl_Dxh: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from V_Ajgl_gd where ajzt_mc='#39#24453#38144#27585#26696#21367#39
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 562
    Top = 55
  end
  object V_AJGD: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from v_ajgd'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 613
    Top = 56
  end
  object Ds_Zjlb: TDataSource
    DataSet = sz_zjlb
    Left = 84
    Top = 160
  end
  object Ds_Jygz: TDataSource
    DataSet = am_jygz
    Left = 83
    Top = 346
  end
  object xt_user: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_user'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 240
    Top = 8
  end
  object xt_UandG: TClientDataSet
    Aggregates = <>
    CommandText = 'select  * from xt_UandG'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 283
    Top = 8
  end
  object V_UandG: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    CommandText = 'Select * from  V_UandG'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 661
    Top = 55
  end
  object xt_cdqx: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_cdqx'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 328
    Top = 8
  end
end

						