求一个vb小项目，用三层架构开发的 想熟悉一下语法

求一个vb小项目，用三层架构开发的 想熟悉一下语法

3层架构，我觉得其实3层架构就是对信息系统中一以数据信息为依据进行的划分： 1． 用户服务（数据的表现，以某种条件展现符合此条件的数据） 2． 业务逻辑服务（通过某方式去实现用户需要的各种记录集） 3． 数据库（数据源）如今公司开发，3层架构的实现，在VB中，COM功不可没，企业都已经广泛的采用COM，DCOM（分布式部件对象模型）将各层服务和应用连接起来，因为COM的灵活（可复用，转移），结构清晰性（特定块实现特定功能）。COM让开发者能够以二进制的软件部件方式在这个应用模型的各个层面进行应用搭建。它允许应用开发人员通过封装代码或功能的方法使用部件，无论是一个用户界面控件还是业务部件。一个部件有一个或多个"接口"，能够暴露出一组方法或属性, 并因此能够被其他部件或应用所调用。例如，我分析的3层构架其中有一个代表公司的部件clscompany,它表示的一些属性（由GET ，LET 表示可读或写）如：Private mCode As String 表属性：公司编码 而CLASS的默认事件ternimate表示释放对象后的行为，initialize表示对象创建时的行为，类中对象可具有方法，即在类模块里添加公共过程(public sub()无返回值，public function x() as xxx有返回值)如： Public Function OpenAll() As Boolean则是打开数据库某表的所有记录的方法。自定义事件则是在类模块声明部分用public event xxx()声明事件，再用RaiseEvent激发事件，使用withEvent在应用这个类的窗体frmcompany的模块声明部分声明某个对象