udm_ysbzjpx_px.dfm

运输培训管理束）录像等四个按钮。 [Conferencing_Vidio_system.rar] - 用微软实时通信（RTC）API创建音频和视频会议、共享应用程序、共享白板、简单的点对点聊天对话

object dm_ysbZjpx_px: Tdm_ysbZjpx_px
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 376
  Top = 269
  Height = 237
  Width = 431
  object dst_px: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    OnNewRecord = dst_pxNewRecord
    CommandText = 'select * from zjpx_px where bc=:s_bc'
    Parameters = <
      item
        Name = 's_bc'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end>
    Left = 96
    Top = 112
    object dst_pxbc: TStringField
      FieldName = 'bc'
      Size = 6
    end
    object dst_pxzgdm: TStringField
      FieldName = 'zgdm'
      OnChange = dst_pxzgdmChange
    end
    object dst_pxxm: TStringField
      FieldName = 'xm'
      Size = 10
    end
    object dst_pxpxnr: TMemoField
      FieldName = 'pxnr'
      BlobType = ftMemo
    end
    object dst_pxllcj: TBCDField
      FieldName = 'llcj'
      Precision = 18
      Size = 2
    end
    object dst_pxszcj: TBCDField
      FieldName = 'szcj'
      Precision = 18
      Size = 2
    end
    object dst_pxpxss: TStringField
      FieldName = 'pxss'
      Size = 10
    end
    object dst_pxpxbm: TStringField
      FieldName = 'pxbm'
      Size = 50
    end
    object dst_pxjfqk: TBCDField
      FieldName = 'jfqk'
      Precision = 18
      Size = 2
    end
    object dst_pxcyjf: TBooleanField
      FieldName = 'cyjf'
    end
    object dst_pxbz: TStringField
      FieldName = 'bz'
      Size = 50
    end
    object dst_pxbmbm: TStringField
      FieldName = 'bmbm'
      Size = 10
    end
    object dst_pxbmmc: TStringField
      FieldName = 'bmmc'
      Size = 50
    end
    object dst_pxpym: TStringField
      FieldName = 'pym'
      Size = 10
    end
  end
  object dst_zgxx: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select zgxx.zgdm,zgxx.xm,zgxx.pym,zzjg_ry.dwbm ,dm_zzjg.dmyy dwm' +
      'c,'#13#10'          zgxx.xbdm,zgxx.aqkpbh,zgxx.csrq,zgxx.mzdm,zgxx.cjg' +
      'zsj,'#13#10'          zgxx.jguan,zgxx.jtzz,zgxx.gz,zgxx.rdsj,zgxx.deby' +
      'yx,zgxx.dezy,'#13#10'          zgxx.whcd,zgxx.debysj,zgxx.zw,zgxx.aqzg' +
      'zh,zgxx.jnjdjb,zgxx.jnjdzh'#13#10'from zgxx,zzjg_ry ,dm_zzjg'#13#10'where zg' +
      'xx.zgdm=zzjg_ry.zgdm and '#13#10'           zzjg_ry.dwbm=dm_zzjg.dm an' +
      'd '#13#10'           zzjg_ry.dwbm like :dm + '#39'%'#39
    Parameters = <
      item
        Name = 'dm'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = '0207'
      end>
    Left = 96
    Top = 48
    object dst_zgxxzgdm: TStringField
      FieldName = 'zgdm'
      Size = 10
    end
    object dst_zgxxxm: TStringField
      FieldName = 'xm'
      Size = 16
    end
    object dst_zgxxpym: TStringField
      FieldName = 'pym'
    end
    object dst_zgxxdwbm: TStringField
      FieldName = 'dwbm'
      Size = 8
    end
    object dst_zgxxdwmc: TStringField
      FieldName = 'dwmc'
      Size = 50
    end
    object dst_zgxxxbdm: TStringField
      FieldName = 'xbdm'
      Size = 1
    end
    object dst_zgxxaqkpbh: TStringField
      FieldName = 'aqkpbh'
      Size = 8
    end
    object dst_zgxxcsrq: TDateTimeField
      FieldName = 'csrq'
    end
    object dst_zgxxmzdm: TStringField
      FieldName = 'mzdm'
      Size = 2
    end
    object dst_zgxxcjgzsj: TDateTimeField
      FieldName = 'cjgzsj'
    end
    object dst_zgxxjguan: TStringField
      FieldName = 'jguan'
      Size = 40
    end
    object dst_zgxxjtzz: TStringField
      FieldName = 'jtzz'
      Size = 40
    end
    object dst_zgxxgz: TStringField
      FieldName = 'gz'
    end
    object dst_zgxxrdsj: TDateTimeField
      FieldName = 'rdsj'
    end
    object dst_zgxxdebyyx: TStringField
      FieldName = 'debyyx'
      Size = 40
    end
    object dst_zgxxdezy: TStringField
      FieldName = 'dezy'
    end
    object dst_zgxxwhcd: TStringField
      FieldName = 'whcd'
      Size = 2
    end
    object dst_zgxxdebysj: TDateTimeField
      FieldName = 'debysj'
    end
    object dst_zgxxzw: TStringField
      FieldName = 'zw'
      Size = 100
    end
    object dst_zgxxaqzgzh: TStringField
      FieldName = 'aqzgzh'
    end
    object dst_zgxxjnjdjb: TStringField
      FieldName = 'jnjdjb'
    end
    object dst_zgxxjnjdzh: TStringField
      FieldName = 'jnjdzh'
    end
    object dst_zgxxxb_lookup: TStringField
      FieldKind = fkLookup
      FieldName = 'xb_lookup'
      LookupDataSet = dst_xbbm
      LookupKeyFields = 'DM'
      LookupResultField = 'DMYY'
      KeyFields = 'xbdm'
      Size = 10
      Lookup = True
    end
    object dst_zgxxwhcd_lookup: TStringField
      FieldKind = fkLookup
      FieldName = 'whcd_lookup'
      LookupDataSet = dst_whcddm
      LookupKeyFields = 'DM'
      LookupResultField = 'DMYY'
      KeyFields = 'whcd'
      Lookup = True
    end
  end
  object dst_bc: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from ZJPX_PXBC'
    Parameters = <>
    Left = 176
    Top = 64
  end
  object dst_zzjg: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from dm_zzjg where dm like '#39'0207%'#39
    Parameters = <>
    Left = 184
    Top = 128
    object dst_zzjgDM: TStringField
      FieldName = 'DM'
      Size = 8
    end
    object dst_zzjgDMYY: TStringField
      FieldName = 'DMYY'
      Size = 50
    end
    object dst_zzjgPYM: TStringField
      FieldName = 'PYM'
      Size = 25
    end
    object dst_zzjgJGLB: TStringField
      FieldName = 'JGLB'
      Size = 1
    end
    object dst_zzjgFLAG: TStringField
      FieldName = 'FLAG'
      Size = 1
    end
  end
  object dst_whcddm: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from B_DM_WHCDDM'
    Parameters = <>
    Left = 304
    Top = 32
  end
  object dst_xbbm: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from c_bm where ob_bs='#39'xbdm'#39
    Parameters = <>
    Left = 304
    Top = 96
  end
end