第7章电类毕业设计课件.ppt

说明： 电话号码文本框：输入要缴费的电话号码。 收费月份文本框：一般不用输入，可根据系统日期自动生成。 更改用户名称文本框：用于打印票据时，更改付费人姓名。 缴纳金额文本框：用于输入用户缴纳的金额。 按月收费复选框：选中后可以逐月收费，不选则所有月份一起缴费。 另外还有[查询]按钮和[缴费]按钮，左侧表格显示截至目前还未缴费的年月和金额；右侧的表格是各项费用的明细汇总。 在电话号码文本框中输入要缴费的电话号码，单击[查询]按钮。注意：必须是个人住宅电话，若是部门或已缴费电话，将在[查询]按钮右侧提示您，此号码是“部门电话或已缴费”。这时在界面左侧表格中显示欠费月份和金额。右侧表格则是费用明细。 (2) 部门收费功能。该功能完成按部门进行收费，其界面如图7-19所示。 图7-19 部门收费主界面 说明： 部门编号下拉列表框：选择或输入要销账的部门编号。 缴纳金额文本框：用于输入用户缴纳的金额。 按月收费复选框：选中后可以逐月收费，不选中只能所有月份一起缴费。 另外还有[查询]按钮和[缴费]按钮，左侧表格显示截至目前还未缴费的年月和金额，右侧的表格是各项费用的明细汇总。 (3) 详单查询功能。该功能完成对单个号码的长话详单或所有号码的费用详单的查询，并可列表显示和打印，其界面如图7-20所示。 图7-20 详单查询 (4) 费用查询功能。该功能完成对单个号码的费用明细、单个部门的费用明细和缴费历史记录的查询，其界面如图7-21所示。 图7-21 费用查询 4. 系统模块设计 (1) 个人收费功能。该功能的界面如图7-22所示。 图7-22 个人收费界面 图7-22中，“查询”按钮的Click事件代码如下： Dim xk_date As String Dim i As Integer Label7.Caption ＝ 0.00 Command3.Enabled ＝ False If Trim(Text1.Text) ＝ Then MsgBox 请输入电话号码！ Text1.SetFocus Exit Sub End If If Trim(Text3.Text) Then mlxk ＝ msubGetString(Trim(Text3.Text)) If mlxk Then mlxk ＝ and ymonth in ( mlxk ) Else 7.3 设计实例2：电信收费系统(VB编程) 7.3.1 系统的开发背景 随着电信企业改革的逐步深化，以及为大客户建立完善服务体系的进一步开展，某市原有的代收费管理软件缺乏规范化和科学化的手段，不能适应当前的工作需要，从而造成数据共享性差，数据的安全性、及时性、准确性得不到保证等诸多问题。根据业务需要，为提高收费效率及大客户满意度，经过实地调查，决定研制开发“XX电信固定电话代收点收费系统”，以期建立起一套先进的收费系统，突破人工操作的局限，提供现代化、科学化的管理手段，逐步实现收费信息采集、处理、加工方式根本性的转变，为各代收点的日常工作提供全方位的收费信息服务。 系统针对代收点收费管理的现状，集个人前台收费、部门前台收费、费用和详单查询、营业日结管理、数据维护和系统管理于一体，克服了一般收费系统面面俱到，针对性不强，难以满足代收点对收费管理的缺点。代收费系统采用C/S体系结构和先进的技术，突破人工操作的局限，实现收费信息采集、处理、加工方式根本性的转变，为各代收点实现现代化、科学化的业务办理手段，提供了必要的条件。 7.3.2 系统功能概述 该系统是为企业电话管理科对本单位的移动和固定电话费用收缴情况进行统一管理而开发的。系统能够对办公、住宅和移动电话进行分类管理，对每一个用户的电话费用情况进行单独处理和收据的打印。能够方便、高速地对大量数据进行批量处理。系统能够准确地统计出用户缴费情况，欠费金额，欠费用户。而且能方便地进行群组报表的打印。系统采用了多级安全保护，最大程度地保护了用户的数据安全。为方便用户，系统还提供了多种查询功能。 (1) 收费功能：主要有个人收费和部门收费。个人收费的功能是收取前来缴费的个人客户的费用，并打印发票或收据，部门收费的功能是打印部门账单明细，而后销账，并打印发