面向对象的数据库实例讨论,一未完成医院系统,提出好意见者高分(1000以内) (75分)

B

barton

Unregistered / Unconfirmed
GUEST, unregistred user!
那反过来是不是ClietDataSet来通知业务Object?
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
不是 ClientDataSet 不过是 Object 的输入和输出罢了
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to barton
你点击一下 测试 可以看到我的业务对象的 测试用例
 

风雨燕归来

Unregistered / Unconfirmed
GUEST, unregistred user!
用户改密码后,所有权限都没有了?
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to 风雨燕归来
真的,有这样的错误?你确信?不管了,我先检查检查
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to 风雨燕归来 兄
确实没发现问题,是怎么回事,能告诉我详细点吗,在什么情况下出错底?
 
B

barton

Unregistered / Unconfirmed
GUEST, unregistred user!
delp:看看我从前做的一个主界面,数据感知控制实现不了的。看看对你有不有启发。
http://bbs.52top.com/upload/sf_200371314233.jpg
 
T

TOTO

Unregistered / Unconfirmed
GUEST, unregistred user!
hehe 报个到。
正在下载程序。不过以前听说过 : 向医院这种系统
国外一般使用面向对象的数据库。名字是cache【最后那个字母e上面还有一个汉语拼音的二声标号】
而且国内一些大医院也是用这个数据库。主要的好处是在处理病例时的一些关系比较方便
听说这套数据库并不太贵. hehe
 

活化石

Unregistered / Unconfirmed
GUEST, unregistred user!
TADOConnection=2
TADOQuery=5
TAggregateField=2
TApplicationEvents=1
TBCDField=36
TBevel=22
TBitBtn=2
TBooleanField=6
TButton=109
TCheckBox=1
TClientDataSet=52
TDataSource=51
TDBCheckBox=5
TDBComboBox=14
TDBEdit=104
TDBGrid=26
TDBLookupComboBox=18
TDBText=8
TEdit=14
TFloatField=14
TGroupBox=4
TImage=8
TImageList=8
TIntegerField=93
TLabel=159
TMemo=3
....................
请见谅,没有丝毫恶意,但DELP,数据控件的量似乎不小,你又是如何将这些封装的呢,我一般ADOQUERY用的不超过三个,一个负责与数据控件沟通主要是GRID,一个用与SQL,一个负责动态填充,如某个COMBOBX,lable,如果汲涉的库多了,后台用存储过程.不妨谈谈你的思路,方便的话贴段代码,谢谢.
 
J

jopi

Unregistered / Unconfirmed
GUEST, unregistred user!
兄弟较笨,能否把你的思路讲详细点。
从界面的内容看,要成为一款优秀的商业软件,还有较多地方要完善,比如报表这块。
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to barton 兄
我目前的业务模型还没有定型,所以目前还做不到想你那种归类十分清晰的系统,谢谢
我也打算朝这方面努力
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to 活化石 兄
谢谢你的认真,其实你用DEDE或者其他什么的解出我所有的Form你就可以看出来
我实际上使用的ADOQuery数是 0 ,那5个ADOQuery应该是在那个测试From上,以后
发布的时候会去掉的,我没有用任何第三方控件,用DeDe解开的Form都可以在Delphi
里面直接打开,代码嘛我曾在你的面向对象数据库的帖子里面贴过部分,其他代码
都和那段雷同,不知是否看过?
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to barton 兄
再次谢谢你的图片,我是看了又看,启发很大
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to TOTO
谢谢关心,有何意见?请批
to jopi
有何问题请说,不然兄弟无从解释呀....
 
5

52free

Unregistered / Unconfirmed
GUEST, unregistred user!
现在对面象对象的数据库讨论是不是进入了一个误区
好像是为了对象而对象
难道数据感知控制不是面向对象的产物
难道用drawgrid做出的界面才符合所谓的数据和界面的分离
我也是做his的,如果真要用所谓的面向对象将每一个数据集做成一个单独的对象来操纵
恐怕10年都完不了
不是说面向对象不好,但我觉得这种技术要用在正确的地方
做框架要用到面向对象,做编译器要用到面向对象
但象delphi这种编辑器自带的这种对象不用,反而要处处自已动手
你问问自己,用户的业务需求变化后,你真的不需要花任何时间就能适应用户的界面需求
所以我觉得这种东西除了自我满足感之外,是没有必要的,特别是刻意的沿着那条思想走下去
 
W

wfzha

Unregistered / Unconfirmed
GUEST, unregistred user!
to barton
看过你的界面了,我也作过类似的东西,但感觉不是太灵活,例如如果要在树形空间中
多插入一个级别,恐怕只能修改源代码了,不知barton兄是怎么解决的,一直在盼望老兄
的文章,实在是望眼欲穿啊!
52free说得也有道理,其实我是一直用delphi的数据感知空件与clientdataset相连,然后
将clientdataset.data传到中间层,感觉挺好的。
 
Y

yangying_2000

Unregistered / Unconfirmed
GUEST, unregistred user!
面向对象的设计关键在实体的设计,也就是表的设计,不要使用功能驱动方式,要用类化来看待系统所有牵涉的东西,功能只是各个类之间的关系和相互作用而已
 

活化石

Unregistered / Unconfirmed
GUEST, unregistred user!
delp 谢谢你的大度
52free说得我也有类似的感受,我曾经如同神农尝百草一般尝试过各种第三方控件
在一些小软件的开发速度,和表现方式上是受益的,但碰上几个稍大的点的后,感觉有点
力不从心了,但试想一下,如果抛弃第三方控件,那它封装有又何意义,它又是用与
何处那,我作一些软件时,明明知道共性的东西存在,继承只停留在窗体方面,但就是跨不
过封装这一步,原因有二:
1.不知何处下手为好 2.抛弃不了一些东西.
看了BRTON等诸多的贴子,但仍在徘徊,这个弯何时能转的优美点那,能进行所谓的软着陆呢
.............
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to 52free
我和你的感觉相同(或者说意见相同),我用了面向对象的目的就是为了简化开发而不是为了对象而对象,不知你是否下载我的程序,但是你看了界面就应该知道,几乎所有的Form都是从一个基本的BizUI、BizAdd、BizUpdate这三个东西继承下来,大大缩小了软件开发的代码量,你看每个 Add From 基本的功能都是一样只是表示的内容与数据输入的内容不同,而且我也并没有舍弃数据感知控件DBGrid DBEdit DBComboBox DBLookup ... 都是我的最爱。
知音呀
 
D

delp

Unregistered / Unconfirmed
GUEST, unregistred user!
to 活化石
我不是我不打算使用第三方控件,其实我的目的很简单维护方便容易,就我目前这个项目而言,我打算在项目最后才使用第三方控件来完成的界面的美化,尽量减少项目对第三方控件含Delphi的自带的第三方控件的依赖。
我曾经经历过的项目大都是非常大的项目几乎都是6-18个月以上的开发(coding),所以大家对第三方控件特别恐惧,因为很多项目在开发的过程中开发工具都升级了,特别是软件人员流动大造成项目中的知识管理不好控制,工具环境维护困难,所以对于我们这些做IS系统的公司来说主要的任务是完成用户的业务过程,Delphi自身的DBControl控件基本都够用了,就连优秀的中国式报表在Delphi4的年代都“害”了我们很多回.....
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
889
DelphiTeacher的专栏
D
顶部