u_web_dm.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

object F_WEB_DM: TF_WEB_DM
  OldCreateOrder = False
  Left = 283
  Top = 190
  Height = 323
  Width = 474
  object WEBDB: TDatabase
    AliasName = 'webmis'
    DatabaseName = 'WEBDB'
    KeepConnection = False
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=liaosy'
      'PASSWORD=518')
    SessionName = 'Default'
    Left = 40
    Top = 32
  end
  object qy_wangy: TQuery
    DatabaseName = 'WEBDB'
    Left = 104
    Top = 32
  end
  object sp_chkpwd_wangy: TStoredProc
    DatabaseName = 'WEBDB'
    StoredProcName = 'dbo.sp_chkpwd_wangy'
    Left = 40
    Top = 88
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = '@vaccno'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@vpwd'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@vipaddr'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@vport'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@vflag'
        ParamType = ptOutput
      end>
  end
end