本人经过近一年的苦心钻研,使用VB6+sql2000数据库 终于写出一整套C/S 三层架构的系统,在此之前普发誓要将代码公布,以帮助大家了解所谓的三层架构的原理,现已完成,经过整理后将代码公布。
有意者请开贴(请支付100分作为本人300多天日日夜夜工作的安慰)。本贴谢绝灌水,请将所开之贴贴入本贴,并在所开之贴中留下信箱地址,本人将一一发出,绝不食言。全部内容如下说明:
COM压缩包(com.rar):包括一个核心类,一个公司类,一个货币类,一个会计期类
          主要是核心类,它是关键所在——包括主类(用于客户端登陆及控制其它业务类),系统错误反馈,数据表ID值管理,系统逻辑锁(控制并发)及其它一些辅助类。Client压缩包(Client.rar):即客户端程序,包括菜单管理,用户管理,公司管理,货币管理,会计期设置及一些公共模块(含treeview,spread,注册表操作等一些公用的代码模块,非常全面)DB压缩包:(DB.rar):含一个sql 2000 数据库备份文件,数据库中有相应的数据表Manager压缩包:含三个程序——注册程序(用于服务端与客户端注册数据库服务器与组件服务器),服务端登陆(用于激活服务进程),服务进程(被服务端登陆激活后,接收一些参数作为全局参数给服务端COM及客户端使用,并管理客户端登陆用户),一个公用函数DLL(在服务端注册,辅助COM完成相关操作),一个组件注册工具oleRegisterOCX压缩包:含activeBar,Spread控件的OCX及LIS(证书),由于本人在客户端开发时使用了activebar及spread 控件(均为正版),所将此提供,要求各自仅作学习之用

解决方案 »

  1.   

    [email protected]
    or 
    [email protected]
    thank you
      

  2.   

    http://expert.csdn.net/Expert/topic/2610/2610860.xml?temp=.5998194
    [email protected]
      

  3.   

    http://expert.csdn.net/Expert/topic/2617/2617765.xml?temp=.2823755
      

  4.   

    非常谢谢!!!
    [email protected]
      

  5.   

    http://expert.csdn.net/Expert/topic/2617/2617765.xml?temp=.2823755
    [email protected]
      

  6.   

    谢谢,油箱[email protected]
    在vb中com怎么开发
      

  7.   

    http://expert.csdn.net/Expert/topic/2618/[email protected]
      

  8.   

    http://expert.csdn.net/Expert/topic/2619/2619628.xml?temp=.5860407
      

  9.   

    http://expert.csdn.net/Expert/topic/2619/2619629.xml?temp=.3309137
      

  10.   

    想共同探讨三层架构的系统,先测试一下如下这个"三层架构的系统"例子,然后是否可以把你的实例上传到:ftp://ts:[email protected]'引用Microsoft ActiveX Data Objects x.x Library
    '引用Microsoft Remote Data Services x.x Library
    Private Sub Command1_Click()
    Dim DF As Object
    Dim strServer As String
    Dim strConnect As String
    Dim strSQL As String
    Dim objADORs As Recordset
    Dim ds As New DataSpace
    strServer = "http://9zp.com"
    strConnect = "Data Source=hzn;"
    strSQL = "Select * from user"
    Set DF = ds.CreateObject("RDSServer.DataFactory", strServer)
    Set objADORs = DF.Query(strConnect, strSQL)
    MsgBox objADORs.Fields(0)
    objADORs.Fields(0) = "改变这些字再运一次"
    DF.SubmitChanges strConnect, objADORs
    MsgBox objADORs.Fields(0)End Sub
      

  11.   

    给俺一份瞧瞧!
    [email protected]
    谢谢拉
      

  12.   

    牛人啊
    強啊
             [email protected]
    謝了!!!
      

  13.   

    大家新年好!
    给我一分,谢了!!
    [email protected]
      

  14.   

    http://expert.csdn.net/Expert/topic/2624/2624853.xml?temp=.7247583 [email protected]
      

  15.   

    我要不一份
    [email protected]
      

  16.   

    to ls0242 (ls0242) 
    请问Class_Function.dll的代码压缩包有包括吗?如果没有可否麻烦您给我发一个,另开贴给分,谢了![email protected]
      

  17.   

    http://expert.csdn.net/Expert/topic/2628/2628474.xml?temp=.9874079
    [email protected]
    [email protected]
      

  18.   

    正要做一个三层的程序!
    [email protected]
    谢谢
      

  19.   

    http://expert.csdn.net/Expert/topic/2629/2629036.xml?temp=.6493647
      

  20.   

    http://expert.csdn.net/Expert/topic/2676/2676400.xml?temp=.398739
      

  21.   

    [email protected]         谢谢!
      

  22.   

    http://expert.csdn.net/Expert/topic/2685/2685239.xml?temp=.988
    来一份,我也看看
      

  23.   

    http://expert.csdn.net/Expert/topic/2703/[email protected],请尽快回帖。
      

  24.   

    [email protected]          非常谢谢!!!
      

  25.   

    現在還給不給啊﹐怎么給分給樓主啊!我也想要!!!
    [email protected]
      

  26.   

    现在不行了吗?给我一份吧。。
    [email protected]
      

  27.   

    [email protected]
    希望LZ讲的详细点
    有步骤更好
    给点思路哦谢谢LZ!!!