说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB 6.0中类聚集关系的实现

HTML文档下载 WORD文档下载 PDF文档下载
VB 6.0中类聚集关系的实现
作者:武汉交通科技大学
杨青 刘洪星
---- 类之间最主要的关系有两种,它们是聚集(Aggregation)和继承(Generelization)。聚集表示类之间的关系是整体与部分的关系,例如一个家庭有一个父亲、一个母亲和若干个孩子。类之间的聚集关系又称包含关系,一个类由若干个其他类组合而成,当该类的实例被创建后,组成它的各类的实例将自动被创建。

---- 下图描述了Family类与组成它的各类之间的关系。Family类与Father类、Mother类的关系是一对一的关系,而Family类与Child类的关系是一对多的关系。为了简化类之间的关系,我们增加了一个Children类,Children类是Child类的集合,因此Family类与Children类直接关联,形成一对一的关系。

Family------------ > Father
|
-------- > Mother
|
-------- > Childred ------ >child

---- VB6.0对类聚集关系的实现提供了较好的支持。在下面的程序中,我们仅给出了与Falimy类、Children类、Child类的具体实现有关的代码,以此为例说明类聚集关系的实现方法。
---- 程序中定义了三个类模块:Falimy类模块,Children类模块,Child类模块。在Falimy类模块中,利用属性过程,Mother类、Father类、Children类被定义为Family类的只读属性。下面是Family 类模块中声明部分的代码。

Option Explicit
Private mFather As New Father
Private mMother As New Mother
Private mChildren As New Children
Public Property Get Father() As Father
Set Father=mMother
End Property
Public Property Get Mother()As Mother
Set Mother()=mMother
End Property
Public Property Get Children() As Children
Set Children= mChildren
End Property

---- 下面是Children类模块的代码,首先在类模块的说明部分创建了集合类Collection的实例mcolChildren。在定义公共方法Add时,通过引用mcolChildren的Add方法将新的Child 对象添加到集合中,Children类被定义成Child类的集合。通过直接引用mcolChildren的属性Count定义了Children类的公共属性Count,通过直接引用mcolChildren的方法Item定义了Children类的公共方法Item。
---- 我们还可以根据需要实现其他的属性和方法。通过创建Children类,与Children类有关的所有代码都封装起来,使得Children类可以进一步重用,从而较好地体现了面向对象程序设计的原则。

Option Explicit
Private mcolChildren As New Collection
Public Property Get Count() As Long
Count = mcolChildren.Count
End Property
Public Function Add(ByVal Name As String,
ByVal BirthDayAs Date,ByVal Sex As Boolean ) As Child
Dim empNew As New Child
Static intNum As Integer
With empNew
intNum = intNum + 1
.Name = Name
.BirthDay= BirthDay
.Sex=Sex
mcolChildren.Add empNew
End With
Set Add = empNew
End Function
Public Function Item(ByVal Index As Variant) As Child
Set Item = mcolChildren.Item(Index)
End Function

---- 下面是Child类声明部分的代码。
Option Explicit
Public Name As String
Public BirthDay As Date
Public Sex As Boolean

---- 程序中还定义了一个窗体模块。在窗体上布置有三个文本框txtName、txtBirthDay、txtSex,一个列表框lstChildren,两个命令按纽cmdAddChild、cmdListChild。
---- 在窗体模块中首先创建了一个Family类的实例sbMain,Children类和Child类的实例也随之被创建。在事件过程中,仅通过引用sbMain的属性Children,我们就可以实现对Children类的各种操作。

Option Explicit
Public sbMain As New Family
Private Sub cmdAddChild_Click()
sbMain.Children.Add txtName.Text,
txtSalary.Text,txtSex.Text
txtBirthDay.Text = " "
txtName.Text = " "
txtSex.Text=" "
End Sub
Private Sub cmdListChild_Click()
Dim emp As New Child
Dim i As Long
lstChild.Clear
For i = 1 To sbMain.Children.Count
Set emp = sbMain.Children.Item(i)
lstChild.AddItem emp.Name & ", "
& emp.BirthDay&", "emp.Sex
Next
End Sub

自动释放内存!Facebook推出强大Android图片库Fresco 《近匠》AR学校:从教育领域看增强现实机遇何在 专访Mellanox CEO Eyal Waldman:InfiniBand与以太网齐驱并进 性能更胜一筹 IM助你打造千万级App——容联•云通讯线下沙龙 乐视智能硬件再发力,超级自行车今发布 专访格灵深瞳CTO赵勇:为" 计算机视觉" 赋予智慧的光芒 【程序员电子刊精选】水火不容?研发人员也是产品经理! 如何打动用户?携程用户体验实践分享 【征文】Java二十周年特别策划——谈谈我与Java的那些年、这些事 Facebook的愿景以及虚拟现实的未来 iBeacons一年回顾 英特尔中国30周年之际 IDF上你需要了解的5件事 OpenCloud 2015参会者的三大特征(附列表) 友盟移动互联网趋势报告解读:垂直领域应用竞争白热化 墨腾动漫CTO吴建学:初创公司的生存之道 亿航与高德达成战略合作 LBS+引爆智能硬件软实力 《近匠》火柴手写码,输不错的验证码利器 Web、App中添加动效设计应遵循的12条原则 越狱与开源:2015移动安全峰会(MSS)纪实 开发者自白:我是如何不花一分钱收获230万应用下载量的! OpenCloud 2015报名超预期 近20位讲师会前采访提前看 硅谷公司人才招聘那些事儿——硅谷“超级面试官”董飞专访 一切为了用户体验:揭秘京东首页改版背后的故事 TIOBE 2015年4月编程语言排行榜:Java王者归来 三大主题技术峰会开幕在即 OpenCloud 2015参会者提醒 《近匠》快码,唯快不破的代码众包平台 打破边界 生态化反!乐视发布三款超级手机 苹果收购LinX:iPhone或将采用双摄像头技术 Google《Android性能优化》学习笔记 Amaze UI 2.3.0版本发布 整合多个第三方插件 专访Layabox创始人谢成鸿:Flash与HTML5结合的背后 关于自动累加的问题 如何设置Win2000Server让98机器可以上网。(注:不使用代理软件) 车站接人十大方式 谁知道哪里有bmp到jpg转换的源代码?帮帮忙! 提示怎么为空?有代码? Application是什么意思? 模范中国百姓 寻找一个类似于object inspector的控件 如何返回在sql server中自己设定的错误提示..... ocp是什么? 當手機 被盜 後的措施 好象没什么人啊 祝斑竹zxyufan(宇凡)考试顺利 :) 高手请进!!!!!!! 怎么从一个字符串中截取字符串 关于软件的序列号的问题? 哪位高手给解释一下啊??? 各位DX:怎样在填完一个文本框后光标自动跳到下一个框里?很急的,解决一定给分! treeview问题,我只能给这么多分了,拜托大家,急死我了!!!! 连接数据库的一个参数:Initial Catalog=Music 是什么东西,在那里设置? 在DELPHI中能用ADO连接远程有固定IP的数据库服务器上的数据库吗?怎么连接? 各位兄弟姐妹,快来看呀! 请教各位大虾:我在上网的时候为什么老是死机,鼠标键盘一动不动了!!! pb中访问数据库必须通过datawindow么? 为什么就差这么一点了~???快帮帮忙啊~! OO里面的"is a"和"has a"应该如何理解啊?举个例子看看 请问在哪可以找到可以做简历封面的图片呀?后天就是招聘会啦,快快帮忙呀~~~ javaServlet的一个问题。急! DELPHI高手!-----300分 ASP开发问题,如何在用户提交注册信息时自动分配给它一个用户ID号? 我想在 Excel 中给文件字加双下划线,可是编译时提示变量没有定义 有谁能给我一份简单的COM代码? 有关interface??? 昨晚,初恋情人不经意的出现在梦中,你到底离你的初恋情人有多远,撒分了 一个昨天没搞明白的问题! redhat 7.2中如何设置代理服务器 求教高手一个Java中一直困扰我的问题,急!急!急! 谁能够给我个例子实现 Dll向应用程序单向通信 Dll->EXE?50分? 请问.......... 在数据窗口拖动垂直滚动条死机。只能ctrl+alt+del结束任务。倾听你的声音。 请教各位大虾两个Sql语句 哪里有visual studio.net下载? 那里有sql server 2000企业版下载的 xml的学习??????双儿 怎么比较两个LPTSTR字符串啊??? 语句“rs.Open sql,conn,1,1”中后边的两个数字参数是何意思? 如何获取datawindow中文本框内容? 请教公司大院网络系统设计方案要怎写?会遇到什么问题? 关于clientdataset的返回值问题 关于报表打印的问题!火急。。 这个世界上有多少C/C++程序员? ( )she like her father no she ( )like her mother What is he like?正确翻译 与What does he look like?得区别 she doesn't like soccer.she thinks it's boring.英汉互译 Many people say she ____(take after) father.But I think she is like her mother如题Many people say she____(take after) father.But I think she is like her mother.各位学霸们速度啊... 为什么要给树刷白灰?请说明具体原因,谢谢!请说明具体原因啊!比如为什么刷了石灰就防冻?为什么刷了石灰就防虫? She doesn't like taking out the trash because it's _____ A.bored B.boring请说明理由,thanks a lot. She doesn't look like her mother.She____(take)after her father. 一条路长2600米 宽6米 铺白灰5厘米 需要多少吨白灰1方等于多少吨白灰 这个比较重要 He doesn‘t like documentaries because tey are boringHe doesn‘t like documentaries (because tey are boring)对括号提问 小球在水中漂浮时容器底和地面受到的压力分别是多少、沉底呢用g球、g水、f浮表示 某课外活动小组,在探究 沉浮条件时,将重100克的物体放... i don't like (documentary) ,because they re boring .改成适当形式 一立方生石灰等于多少立方白灰 what are they like对还是what do they like 1吨石灰能出多少立方白灰 Lucy looks like her mother,_______?应该填isn't she?还是doesn't she? What do you like?中文翻译 what does she like?意思是什么 she finds her mother looks----her grandpa very much.应该选A.at B,like What ___ do they like? 配置500克质量分数为20%的稀硫酸,需要多少克质量分数为98%的浓硫酸,多少克水 为什么溶质质量=500*20%=100g?我一直以为是500/20%的 She ____her mother. a,looks like b, looks the same 是不是这两个答案都对呢? 英语翻译这句话的前后语境:people know what they do; they frequrently know why they do what they do; but what they don't know is what what they do does. 那位天才帮帮忙,I we you (单数) you(复数) he she it t那位天才帮帮忙,I we you (单数) you(复数) he she it they 的名词性物主代词是什么? 将重力为19.6牛的铝球慢慢地浸没在一个盛满水的的溢杯中时,从溢杯中溢出9.8牛的水,铝球受到的浮力是几牛 如何提高白灰的钙量是按什么比例进行加工的? I的宾格形式,复数形式以及复数形式的宾格形式.还有she he it'sI的宾格形式,复数形式以及复数形式的宾格形式.还有she he和it's 歇后语茶壶有嘴是什么,(急) 白灰中的全钙怎么测定啊 用质量分数百分之九十八(密度每毫升1.84克)的浓硫酸配制500毫升质量分数为百分之二十的稀硫(密度每毫升1.14克),稀释需水体积是多少? ”嘴上抹石灰”歇后语的下半句是什么? 钙质白灰和镁质白灰怎样划分 配制200g24.5%的稀硫酸,需 ( )g98%浓硫酸和 ( )g水.实际操作时,取98%浓硫酸( )mL(精确到1mL) 一吨白灰大约多少立方? 歇后语:牛角抹了油—?(下一句是什么)是歇后语 白灰和脱硫石膏粉结合影响白灰的含钙量吗?为什么 白灰一吨多少立方 趣味歇后语.猫捉老鼠狗看门——贵州驴子学马叫——,麻雀飞进烟囱里_____________,蚂蚁搬家———,王八吃秤砣————————,屎壳郎戴花——————————-,骑驴看唱本—————— Does she like _______(swim)?Yes,she__________(do). 英语词汇填空1.She is a -(beauty) girl and she looks like her mother.2.There are a lot of--(cloud) in the sky.It's---(cloud).3.Children's pa;ace is a good p;ace ---(have) fun. 帮我算一下一个质量50克,体积是0.00006立方米的物体,放入水中,求物体受到的浮力? 选择最佳的填空:1.__Kitt like playing the violin?--Yes,she___.a.Do,do b.Does,does c.Does,do2.Are the students jumping or running in the playground?a.Yes,they are .b.They are running.c.No.They aren't jumping.3.___triangle is this?It's Peter's. the girl ___ her mother and her mother ___her (like) 一个物体的质量为2千克,体积为0.03立方米,求静止时的浮力?(在水中) Does she like her dress?yes,she does.的中文意思,那位高手知道, The girl ____ her mother and her mom ___ beautiful.(用look like 和look 适当形式填空) ) 一块浮在水中时,露出水面体积为0.000006立方米,它的总体积为0.000008立方米,求物块在水中受浮力为多大?(2)物块的密度为几? 找错 does she like oranges?--yes,she does't I don't liketomatosBill birthday is next weeklet's thinking about the food The girl is sky.She is () her mother nowa.underb.on c.behind d.in she does. 这个does 如何翻译?Kate has been slow to realize the teasing, but now she does.Kate 慢慢意识到是在开玩笑,后面应该如何翻译? Does she like rabbits?Yes,she____.Ado Bdoes C doesnot The little girl is like her mother.改为同义句The little girl _______ ________her mother. “Does she like music”怎么读? 白灰显碱性么,白灰的PH 大概是多少!我想调节下水的PH值,水是酸性 把水变中性加白灰可以吗? 重为100g的物体放入装满水的容器有90g水溢出,物体会怎样 A漂浮 B悬浮 C沉底 D不能判断说明理由 白灰粉是灰钙粉吗?不是的话,那两者有什么区别? 用98%的浓硫酸(密度为1.84克/CM3)和水配置100克10%的稀硫酸,下列仪器中一般不需要使用的是( )10毫升量筒 B.托盘天平 C.100毫升量筒 D.250毫升烧杯说出理由, 一吨白灰等于多少方 如何用白灰粉除潮要是屋子里返潮呢 She doesn't like documentaries _because she thinks they're boring_(对划线部分提问)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn