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

数据库课程电话计费管理

系统

The document was prepared on January 2, 2021

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

目录0

1.课程设计目的

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

2.系统需求分析阶段

数据流图

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

3.功能需求分析

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

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

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

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

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

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

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

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

4.概念结构设计阶段

ER

5.逻辑结构设计阶段：

关系模式

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

实体及其属性

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

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

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

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

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

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

使用：｛手机密码｝

计费：｛密码｝

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

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

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

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

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

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

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

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

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

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

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

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

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

6.物理结构设计阶段

客户受理表

客户资料表

收款表

通话信息表

收费员表

消费表

7.数据库实施阶段

界面设计

1）登录界面

2）boss界面

3）主界面

4）客户受理子界面（有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能）：

部分代码模块

登录模块

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

=

=

flag = (Userdbs)

Return flag

End Function

Function SelectRegister(ByVal User As UserInfoClass) As Boolean

Dim DalUser As New UserDAO

Dim Userdbs As New UserInfoClass

=

=

Userdbs = (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='" & & "'"

'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

()

read = ()

Dim flag As Boolean

flag = ()

(read)

' Return User1

If Not IsNothing(sqlCn) Then

()

End If

Return flag

End Function

Function InsertUserInfo(ByVal Userdbs As UserInfoClass) As UserInfoClass Throw New NotImplementedException

End Function

End Class

Public Class UserInfoClass

Private UserName As String

Public Property Name As String

Get

Return UserName

End Get

Set(ByVal value As String)

UserName = value

End Set

End Property

Private UserPwd As String

Public Property Password As String

Get

Return UserPwd

End Get

Set(ByVal value As String)

UserPwd = value

End Set

End Property

End Class

执行增删改查函数模块（部分）：

Imports

Public Class kehuchaxunForm1

Private Sub Button1_Click(ByVal sender As , ByVal e As Handles

Dim did As String = Dim connectionString As String =

"Server=.;uid=sa;pwd=sql;database=TelManage_data"

Dim commandText As String = "SELECT * FROM kehushouli "

Using connection As New SqlConnection(connectionString)

Dim Command As SqlCommand = New SqlCommand(commandText, connection) ()

Dim reader As SqlDataReader = ()

While () = True)

&= reader(0) & " " & reader(1) & " " & reader(2) & vbCrLf End While

()

End Using

End Sub

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles

()

End Sub

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles End Sub

End Class

Imports uid=sa;pwd=sql;database=TelManage_data"

Dim commandTextDelete As String = "DELETE FROM kehushouli WHERE kehuxingming=@id"

Using connection As New SqlConnection(connectionString)

()

Dim cmdDelete As SqlCommand = New SqlCommand(commandTextDelete, connection)

"@id",

Try

Dim result As Integer = ()

If result = 1 Then

MsgBox("成功")

Else

MsgBox("删除记录失败")

End If

Catch ex As Exception

MsgBox())

End Try

()

End Using

End Sub

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles

()

End Sub

End Class

Imports uid=sa;pwd=sql;database=TelManage_data"

Dim commandTextInsert As String = "INSERT INTO kehushouli(kehuxingming,shoujihaoma,shoulineirong) VALUES(@a,@b,@c)"

Using connection As New SqlConnection(connectionString)

()

Dim cmdInsert As SqlCommand = New SqlCommand(commandTextInsert, connection)

"@a",

"@b",

"@c",

Try

Dim result As Integer = ()

If result = 1 Then

MsgBox("插入成功")

End If

Catch ex As Exception

MsgBox())

End Try

()

End Using

End Sub

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles

()

End Sub

End Class

Imports uid=sa;pwd=sql;database=TelManage_data"

Dim commandTextUpdate As String = "Update kehushouli Set shoujihaoma=@bbb,shoulineirong=@ccc where kehuxingming=@aaa"

Using connection As New SqlConnection(connectionString)

()

Dim cmdUpdate As SqlCommand = New SqlCommand(commandTextUpdate, connection)

"@aaa",

"@bbb",

"@ccc",

Try

Dim result As Integer = ()

If result = 1 Then

MsgBox("修改成功")

Else

MsgBox("修改失败")

End If

Catch ex As Exception

MsgBox())

End Try

()

End Using

End Sub

Private Sub Button2_Click(ByVal sender As , ByVal e As Handles

()

End Sub

Private Sub kehuxiugai_Load(sender As Object, e As EventArgs) Handles

End Sub

End Class

8.实验总结：

过这次课程设计，从设计需求分析，到各模块功能的设计及数据库设计，我对电话计费管理系统有了较深入的了解，基本掌握了数据库设计的思想。通过本次设计，对数据库系统概论这门课有了全新的认识,经过本次课程设计，我受益匪浅，从一个整体上把握了一个数据库的设计方法，同时对于如何利用语言去连接数据库，并且操纵数据库有了一定的了解和掌握。希望以后自己能够继续学习数据库，对它有更深层次的了解。

项目的开发过程：系统分析->建模->概要设计->详细设计->编码->测试->维护。

软件开发时期的具体设计和实现在前一个时期定义的软件，4个阶段组成：概要设计、详细设计、编码和单元测试、综合测试，其中前两个阶段又称为系统设计，后两个阶段又称为系统实现。运行维护时期的主要任务是使软件持久地满足用户的需要。

数据流图（data flow diagram,DFD）是一种图形化技术，它描绘信息流和数据从输入移动到输出的过程中所经受的变换。