这个问题迷惑我很久了,哪位大哥能否详细讲解一下
有书本上讲应用程序模型分为三层:用户层,业务层,数据服务层。
那我们经常做的C/S结构的系统,也可以以DLL编写出这三层,那它到底是三层结构的?还是两层的呢?真的很迷惑?还包括我们平时做的单机版的,也可以用DLL来写这三层啊?那又是什么样的结构
有书本上讲应用程序模型分为三层:用户层,业务层,数据服务层。
那我们经常做的C/S结构的系统,也可以以DLL编写出这三层,那它到底是三层结构的?还是两层的呢?真的很迷惑?还包括我们平时做的单机版的,也可以用DLL来写这三层啊?那又是什么样的结构
本例中我们将编写一个MTS组件,运行于中间层的应用服务器上,由它建立与数据库服务器的连接,完成对某课程的授课教师信息的查询。 启动Visual Basic,新建一ActiveX DLL项目。选择工程选单,在引用窗口中选中Microsoft ActiveX Object Library 和Microsoft Transaction Sever Type Library。按“确定”将这两项加到项目中。 从工程选单中选择工程属性,在通用选项中将项目名称改为MtsDemo。线程模块选择分部线程DLL,将类模块名称改为Course,将下列程序加入类模块的通用声明中: Option Explicit Public Function ListCourses( ByVal mcourse as String) As ADODB.Recordset On Error GoTo ErrorHandle Dim strSQL As String Dim objContext As.ObjectContext Set objContext = GetObjectContext() ' 建立事务性组件 Dim objADOConn As ADODB.Connection ' 利用ADO访问数据库 Dim objRS As ADODB.Recordset Set objADOConn = New ADODB.Connection With objADOConn .connectiontimeout=10 .connectionstring="Provider=SQLOLEDB.1;UserID=sa;Initial Catalog=DBcourse" ' 通过OLEDB建立与数据库的连接 .Open End with Set ObjRS = New ADODB.Recordset StrSQL="SELECT Teacher.name,Teacher.sex,Techer.age,Teacher.edu_level,Teacher.tiltle" strSQL=strSQL&&" From Teacher,TeacherCourse,Courses " strSQL=strSQL&& "Where Teacher.teacher_NO=TeacherCourse.teacher_no and TeacherCourse.course_no=Courses.course_no and Courses.course like'" && mCourse && "'" '“like”关键字可实现模糊查询 ObjRS.Open strSQL, ObjADOConn ' 进行数据库查询 Set ListCourses = ObjRS ObjContext.SetComplte ' 若事务成功完成,则提交该事务 objADOConn.Close Set objADOConn = Nothing Set objRS=Nothing strSQL = "" '关闭数据库连接,释放所有对象 Exit Function ErrorHandle: ObjContext. SetAbort Set ListCourses=Nothing ' 若事务失败,则回滚事务 End Function
2. 注册MTS组件
所有运行于服务器端的ActiveX DLL都应在MTS中注册,这是通过Transaction Server Explorer完成的。其过程如下: (1)创建软件包 软件包是在同一进程中运行的组件集合,不同软件包中的组件以进程隔离的方式运行在隔离的进程中。在创建软件包时,开发者应尽量把共享资源的组件分配在同一软件包内;考虑到软件包中各个组件所共享的资源类型,可以把那些共享“昂贵”资源(如对某个特定数据库的连接)的组件编为一组。 (2)向软件包添加组件 在想安装组件的包中选择Component文件夹,单击Install New Component(s) 按钮,当提示添加文件时找到新生成的MtsDemo.dll文件将其加入。 3. 编写客户端程序
创建一个标准EXE项目。选择工程选单,接着选择引用,在引用窗口中选中刚才创建的MtsDemo,加入到项目中。 向窗体中添加如下内容: 名称 标题 标签 label1 请输入课程名: 文本框 txtcourse 命令按扭 cmdok 查询 数据网格 dgresult 再将下列程序加入通用声明中: Private Sub cmdOK_Click() Dim rsResult As ADODB.Recordset Dim objMts As Object Dim mCourse As String mCourse = Trim(txtCourse.Text) Set objMts = CreateObject(mtsDemo.Course) Set rsResult = objCourse.ListCourses(mCourse) If rsResult.EOF Then MsgBox ("无满足条件的记录!") Exit Sub End If Set dgResult.DataSource = rsResult Dgresult.Columns(0).Caption = "姓名" Dgresult.Columns(1).Caption = "性别" DgResult.Columns(2).Caption = "年龄" Dgresult.Columns(3).Caption = "学历" DgResult.Columns(4).Caption = "职称" DgResult.Refresh Set objMts = Nothing End Sub 4. 运行客户端
首先将编写好的客户端程序进行编译发布,然后在Microsoft Management Console中找到新的软件包,击右键选择导出,将它导出到c:\Program File\Packages中,在该文件夹的Client下自动生成了MtsDemo的客户端安装程序。在客户机上运行Client文件夹下的Setup.exe文件,再安装客户端程序即可运行。