Delphi实现的银行系统:存款取款操作

需积分: 3 7 下载量 14 浏览量 更新于2024-12-04 收藏 30KB DOC 举报
"该资源是基于Delphi编程语言的一个银行系统单元,主要涉及银行存款、取款查询功能的实现。提供了三个具体的银行类:TZGBank(中国银行)、TGSBank(工商银行)和TJSBank(建设银行),每个类都继承自基础的TBank类,并重写了存款和取款的方法。" 在Delphi编程中,这个银行系统是通过面向对象的方式设计的。`TBank` 是一个基类,它定义了银行账户的一些基本属性和方法。其中,`FName` 表示客户姓名,`FNO` 表示账号,`FYuE` 代表账户余额。`TBank` 类还声明了两个虚方法:`CunKuan`(存款)和 `QuKuan`(取款),这些方法被声明为虚拟并抽象的,意味着在基类中没有具体实现,需要在派生类中进行定义。 `TBank` 类提供了构造函数 `create`,接受姓名和账号作为参数,初始化成员变量,并设置初始余额为0。这是所有银行类实例化时通用的初始化过程。 接下来,有三个具体的银行类:`TZGBank`、`TGSBank` 和 `TJSBank`,它们都继承自 `TBank`。每个类都覆盖了 `CunKuan` 和 `QuKuan` 方法,以实现各自银行的业务规则。例如,`TZGBank` 在存款时会扣除0.5%的手续费,取款时扣除1.5%的手续费;如果取款金额大于剩余余额,取款操作将不允许,返回0。`TGSBank` 和 `TJSBank` 类也遵循类似的逻辑,但可能有不同的手续费率或取款规则。 `CunKuan` 方法用于处理存款操作,增加账户余额,同时考虑手续费的扣除。而 `QuKuan` 方法处理取款操作,首先计算扣除手续费后的金额,如果剩余余额大于0,则执行取款并更新余额,否则返回0表示取款失败。 这个Delphi银行系统单元展示了如何使用面向对象编程来模拟现实世界中的银行系统,通过继承和方法重写实现不同银行的具体业务逻辑。这为扩展系统以支持更多银行类型提供了一个可扩展的框架。