udm_ysbzjpx_jfjfdj.dfm

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

object dm_ysbzjpx_jfjfdj: Tdm_ysbzjpx_jfjfdj
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 214
  Top = 115
  Height = 252
  Width = 347
  object dst_jfjf: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    OnCalcFields = dst_jfjfCalcFields
    CommandText = 'select * from  zjpx_px where bc=:s_bc and bmbm=:s_bmbm'
    Parameters = <
      item
        Name = 's_bc'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end
      item
        Name = 's_bmbm'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    Left = 80
    Top = 32
    object dst_jfjfbc: TStringField
      FieldName = 'bc'
      Size = 6
    end
    object dst_jfjfzgdm: TStringField
      FieldName = 'zgdm'
    end
    object dst_jfjfxm: TStringField
      FieldName = 'xm'
      Size = 10
    end
    object dst_jfjfbmbm: TStringField
      FieldName = 'bmbm'
      Size = 10
    end
    object dst_jfjfbmmc: TStringField
      FieldName = 'bmmc'
      Size = 50
    end
    object dst_jfjfpxnr: TMemoField
      FieldName = 'pxnr'
      BlobType = ftMemo
    end
    object dst_jfjfllcj: TBCDField
      FieldName = 'llcj'
      Precision = 18
      Size = 2
    end
    object dst_jfjfszcj: TBCDField
      FieldName = 'szcj'
      Precision = 18
      Size = 2
    end
    object dst_jfjfpxss: TStringField
      FieldName = 'pxss'
      Size = 10
    end
    object dst_jfjfpxbm: TStringField
      FieldName = 'pxbm'
      Size = 50
    end
    object dst_jfjfjfqk: TBCDField
      FieldName = 'jfqk'
      Precision = 18
      Size = 2
    end
    object dst_jfjfcyjf: TBooleanField
      FieldName = 'cyjf'
    end
    object dst_jfjfbz: TStringField
      FieldName = 'bz'
      Size = 50
    end
    object dst_jfjfpym: TStringField
      FieldName = 'pym'
      Size = 10
    end
    object dst_jfjfzf_calc: TFloatField
      FieldKind = fkCalculated
      FieldName = 'zf_calc'
      Calculated = True
    end
  end
  object dst_bc: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from ZJPX_PXBC'
    Parameters = <>
    Left = 144
    Top = 32
    object dst_bcBC: TStringField
      FieldName = 'BC'
      Size = 6
    end
    object dst_bcPXKSSJ: TDateTimeField
      FieldName = 'PXKSSJ'
    end
    object dst_bcPXJSSJ: TDateTimeField
      FieldName = 'PXJSSJ'
    end
  end
  object sp_jfjs: TADOStoredProc
    Connection = Dm_YsbZjpx.ADOConnection1
    CommandTimeout = 300
    ProcedureName = 'sp_zjpx_jfjs;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
      end
      item
        Name = '@bc'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = '200505'
      end
      item
        Name = '@bmbm'
        Attributes = [paNullable]
        DataType = ftString
        Size = 10
        Value = '23433'
      end>
    Left = 240
    Top = 32
  end
  object qry_bmbm: TADOQuery
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    DataSource = ds_bc
    Parameters = <
      item
        Name = 'bc'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 6
        Value = Null
      end>
    SQL.Strings = (
      'select distinct(bmbm) bmbm from zjpx_px where bc=:bc ')
    Left = 176
    Top = 128
    object qry_bmbmbmbm: TStringField
      FieldName = 'bmbm'
      Size = 10
    end
    object qry_bmbmbm_lookup: TStringField
      FieldKind = fkLookup
      FieldName = 'bm_lookup'
      LookupDataSet = dst_zzjg
      LookupKeyFields = 'DM'
      LookupResultField = 'DMYY'
      KeyFields = 'bmbm'
      Lookup = True
    end
  end
  object ds_bc: TDataSource
    DataSet = dst_bc
    Left = 224
    Top = 96
  end
  object dst_zzjg: TADODataSet
    Connection = Dm_YsbZjpx.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from dm_zzjg where dm like '#39'0207%'#39
    Parameters = <>
    Left = 80
    Top = 120
    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
end