数据库课程电话计费管理系统

数据库课程设计报告设计题目：电话计费管理系统

目录

1.课程设计目的...........................................

2.系统需求分析阶段.......................................

2.1数据流图...........................................

2.2数据字典...........................................

3.功能需求分析 (5)

4.概念结构设计阶段 (6)

4.1 全局ER (6)

5.逻辑结构设计阶段： (6)

5.1关系模式 (6)

6.物理结构设计阶段 (7)

7.数据库实施阶段 (8)

7.1界面设计 (8)

7.2部分代码模块 (10)

8.实验总结：.............................................

1.课程设计目的

熟悉数据库设计的各个阶段，会使用visio工具实现阶段性设计的表达，并使用语言实现数据库的连接，完成数据的显示、修改、插入和删除。学生根据所学的数据库原理与程序设计知识，能够针对一个小型的数据库管理系统进行需求分析、系统设计、数据库设计、编码，测试等，完成要求的功能，从而达到掌握开发一个小型数据库的目的。

2.系统需求分析阶段

2.1数据流图

2.1.1电话计费管理系统的数据流图

3.功能需求分析

电话计费库管理系统功能：?

1)?月花费查询：客户可对每月的话费进行查询（每项记录包括通话费、新业务费、费用合计、实缴费用合计等信息）。

2)?帐户余额查询：客户可查询话费单上的余额。

3)?用户资料查询：客户可以查阅个人资料。

4)?业务查询：客户可以实时了解个部门的各项活动。5)?查询读者：可根据条件进行高级查询，并允许模糊查询。

5)缴费信息：管理员可根据用户所缴的话费进行计费，并反馈给用户，用户在交费的同时可打印发票。7)?插入读者：添加新读者，需要填入足够的信息，并判断信息是否有效。?

6)?月话费管理：管理员可对每月的话费记录进行逐条添加、更新和删除。

7)?客户受理结果：管理员可对每月的话费记录进行逐条添加、更新和删除。?

4.概念结构设计阶段

4.1 ER

5.逻辑结构设计阶段：

5.1关系模式

E-R图向关系模型的转换

实体及其属性

客户：｛客户姓名，联系电话，联系地址，套餐名称｝

应收款额：｛账户编号，手机号码，应收费用，余额｝

话费信息库：｛手机号码，客户姓名，通话费，新业务费，费用合计，套餐名称｝

收费员：｛收费员编号，姓名，年龄｝

客户受理：｛手机号码，客户姓名，受理内容，受理时间｝

通话信息： {手机号码，来电号码，去电号码，单位费用，通话时长，总费用 } 联系的属性

使用：｛手机密码｝

计费：｛密码｝

根据转换规则将实体转换为关系模式

本实例中没有 1：1 关系对于 1：n 联系，将它们与 n 端的关系模式合并。该关系模式中应加入 1 端的码和联系本身的属性。

客户：｛客户姓名，所在城市，套餐名称，手机号码，手机密码｝

收费员：｛收费员编号，姓名，年龄，手机号码，密码｝

对于 m ：n 的联系，必须单独转换为一个关系模式，属性由各实体的码和联系本身的属性组成，关系的码为组成联系各实体的码的组合。

支付：｛客户姓名，联系电话，收费员编号｝

处理：｛手机号码，收费员编号｝

电话计费系统的 E-R 图，转换为以下关系模式：

客户：｛手机号码，所在城市，套餐名称，客户姓名，手机密码｝

收费员：｛收费员编号，姓名，年龄，手机号码，密码｝

话费信息：｛手机号码，客户姓名，通话费，费用合计，套餐名称｝

客户受理：｛手机号码，收费员编号，客户姓名，受理内容，受理时间｝

通话信息： {手机号码，来电号码，去电号码，单位费用，通话时长，总费用 }

6.物理结构设计阶段

客户受理表

客户资料表

收款表

通话信息表

收费员表

消费表

7.数据库实施阶段

7.1界面设计

1）登录界面

2）boss界面

3）主界面

4）客户受理子界面（有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能）：7.2部分代码模块

登录模块

Public Class RegisterLoginManagerClass

Dim Flag As Boolean

Function SelectUIand(ByVal User As UserInfoClass) As Boolean

Dim DalUser As New UserDAO

Dim Userdbs As New UserInfoClass

Dim flag As Boolean

=

Userdbs.Password = User.Password

flag = DalUser.selectUserInfo(Userdbs)

Return flag

End Function

Function SelectRegister(ByVal User As UserInfoClass) As Boolean

Dim DalUser As New UserDAO

Dim Userdbs As New UserInfoClass

=

Userdbs.Password = User.Password

Userdbs = DalUser.InsertUserInfo(Userdbs)

'判断操作

If = vbNull Then

Return False

Else

Return True

End If

End Function

End Class

Imports

Public Class UserDAO

'连接数据库

Dim sqlCnStr As String = "server=.;uid=sa;pwd=sql;database=TelManage_data"

Dim sqlCn As SqlConnection = New SqlConnection(sqlCnStr)

'自定义检查参数

Function selectUserInfo(ByVal User As UserInfoClass) As Boolean

Dim sql As String = "select * from Userinfor where user_name='" & & "'and user_pwd='" & User.Password & "'"

'sql语句

Dim cmd As SqlCommand = New SqlCommand(sql, sqlCn) '定义sqlCommand对象

'Dim read As SqlDataReader '定义sqlDataReader对象

Dim read As IDataReader

Dim UserDataTable As New DataTable'定义一个DataTable对象

Dim User1 As New UserInfoClass

sqlCn.Open()

read = cmd.ExecuteReader()

Dim flag As Boolean