青牛平台 - 业务开发中级培训教程.pdf

青牛业务开发 中级培训 讲师： 一培训内容大纲 1.业务组件的使用 2.SLEE 内置对象讲解 3.外拨服务器的安装部署与应用 1.1 业务组件分类 数据库应用组件 写日志组件 HTTP访问组件 INI文件操作组件 TTS接口组件 1.1.1 数据库应用组件 • 接口类名：QNDBCOM.clsQueryDB • 属性：TimeOut • 方法一: CnExe • 方法二: GetRs • 方法三: GetRsString 1.1.2 数据库应用组件 • CnExe Public Function CnExe(ByVal strCn, ByVal strSQL) As Boolean 功能描述:根据指定的连接字符串执行指定的SQL语句. • 参数说明： strCn 执行SQL语句使用的连接字符串； strSQL 执行的SQL语句； • 返回值： SQL语句执行成功返回TRUE ； SQL语句执行失败返回FALSE； 1.1.3 数据库应用组件 • CnExe方法使用参考样例：VB代码 Dim Obj As New QNDBCOM.clsQueryDB Dim strCn Dim strRet strCn = Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;PWd=XXXX;Data Source=Info Debug.Print Obj.CnExe(strCn, Update tbl_oper set op_Honor = 26666 Where op_Name = XXXX) 1.1.4 数据库应用组件 • GetRs Public Function GetRs(ByVal strCn, ByVal strSQL, ByRef AdoRs) As Boolean 功能描述:根据指定的SQL语句返回ADO RecordSet纪录集（脱机纪录集）. • 参数说明： strCn 执行SQL语句使用的连接字符串； strSQL 执行的SQL语句； AdoRs 返回的纪录集；（输出参数） • 返回值： SQL语句执行成功返回TRUE ； SQL语句执行失败返回FALSE； 1.1.5 数据库应用组件 • GetRS方法参考样例:VB • Dim Obj • Dim strCn • Dim NumRews • Dim strRet • set Obj= CreateObject(QNDBCOM.clsQueryDB) • strCn = DSN=Info;User ID=sa;PWd=1; • strRet = Obj.GetRs (strCn, Select * from tbl_oper, AdoRs) • msgbox strRet AdoRs 1.1.6 数据库应用组件 • GetRsString Public Function GetRsString(ByVal strCn, ByVal strSQL, ByRef NumRows, Optional ByVal ColumnDelimiter = CstColDelimiter, Optional ByVal RowDelimiter = CstRowDelimiter) As String • 功能描述:根据指定的SQL语句返回使用列分隔符和行分隔符形式的 RecordSet纪录集（脱机纪录集）字符串. • 参数说明： • strCn 执行SQL语句使用的连接字符串； • strSQL 执行的SQL语句； •