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

）））））））数据库课程设计报告电话计费管理系统设计题目：）））））））．）））））））目录1.课程设计目的 (3)2.系统需求分析阶段 (3)2.1数据流图 (3)2.2数据字典 (4)3.功能需求分析 (5)4.概念结构设计阶段 (6)4.1 全局ER (6)5.逻辑结构设计阶段： (6)5.1关系模式 (6)6.物理结构设计阶段 (7)7.数据库实施阶段 (8)7.1界面设计 (8)7.2部分代码模块 (10)8.实验总结： (13)）））））））．）））））））1.课程设计目的熟悉数据库设计的各个阶段，会使用visio工具实现阶段性设计的表达，并使用语言实现数据库的连接，完成数据的显示、修改、插入和删除。

学生根据所学的数据库原理与程序设计知识，能够针对一个小型的数据库管理系统进行需求分析、系统设计、数据库设计、编码，测试等，完成要求的功能，从而达到掌握开发一个小型数据库的目的。

2.系统需求分析阶段2.1数据流图电话计费管理系统的数据流图2.1.1）））））））．））））））））））））））．）））））））功能需求分析3.电话计费库管理系统功能：新业务费、费用合计、实缴费用合月花费查询：客户可对每月的话费进行查询（每项记录包括通话费、1)。

计等信息）客户可查询话费单上的余额。

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

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

5) 4) 业务查询：查询。

插7) 缴费信息：管理员可根据用户所缴的话费进行计费，并反馈给用户，用户在交费的同时可打印发票。

5) 入读者：添加新读者，需要填入足够的信息，并判断信息是否有效。

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

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

7) 客户受理结果：概念结构设计阶段4.4.1 ER）））））））．）））））））逻辑结构设计阶段：5.关系模式5.1图向关系模型的转换E-R 实体及其属性客户：｛客户姓名，联系电话，联系地址，套餐名称｝应收款额：｛账户编号，手机号码，应收费用，余额｝费用合计，套餐名称｝｛手机号码，客户姓名，通话费，新业务费，话费信息库：｛收费员编号，姓名，年龄｝收费员：｛手机号码，客户姓名，受理内容，受理时间｝客户受理： } 手机号码，来电号码，去电号码，单位费用，通话时长，总费用通话信息： { 联系的属性｛手机密码｝使用：计费：｛密码｝根据转换规则将实体转换为关系模式端的码和联端的关系模式合并。

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

所在城市，套餐名称，手机号码，手机密码｝客户：｛客户姓名，｛收费员编号，姓名，年龄，手机号码，密码｝收费员：关系的码为组的联系，必须单独转换为一个关系模式，属性由各实体的码和联系本身的属性组成， m ：n 对于）））））））．）））））））成联系各实体的码的组合。

支付：｛客户姓名，联系电话，收费员编号｝处理：｛手机号码，收费员编号｝电话计费系统的 E-R 图，转换为以下关系模式：客户：｛手机号码，所在城市，套餐名称，客户姓名，手机密码｝收费员：｛收费员编号，姓名，年龄，手机号码，密码｝话费信息：｛手机号码，客户姓名，通话费，费用合计，套餐名称｝客户受理：｛手机号码，收费员编号，客户姓名，受理内容，受理时间｝通话信息： {手机号码，来电号码，去电号码，单位费用，通话时长，总费用 } 6.物理结构设计阶段客户受理表客户资料表收款表通话信息表）））））））．）））））））收费员表消费表数据库实施阶段7.界面设计7.1 1）登录界面）））））））．）））））））界面2）boss）主界面3）客户受理子界面（有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能）4：）））））））．）））））））部分代码模块7.2登录模块Class RegisterLoginManagerClass Public Flag As Boolean Dim ) As BooleanFunction SelectUIand(ByVal User As UserInfoClassNew UserDAO DalUser DimAsNew UserInfoClass Dim Userdbs AsAs Boolean Dim flag = Userdbs.Password = User.Passwordflag = DalUser.selectUserInfo(Userdbs)flag Return End FunctionBoolean User As UserInfoClass) As Function SelectRegister(ByVal UserDAO Dim DalUser As New UserInfoClass Dim Userdbs As New = Userdbs.Password = User.PasswordUserdbs = DalUser.InsertUserInfo(Userdbs)判断操作'Then If = vbNullFalse ReturnElseTrue ReturnIf EndEnd Function End Class System.Data.SqlClient Imports Class UserDAO Public'连接数据库String = 獜牥敶??極?慳瀻摷猽汱搻瑡扡獡?敔?湡条彥慤慴Dim sqlCnStr As(sqlCnStr) SqlConnection AsDim sqlCn SqlConnection = New'自定义检查参数Boolean UserInfoClass) As User Function selectUserInfo(ByValAs & 獜汥捥??牦浯唠敳楲普牯眠敨敲甠敳彲慮敭?岯String = & & ?憯摮甠敳彲睰??Dim sql AsUser.Password & ?岯'sql语句对象sqlCommand New SqlCommand(sql, sqlCn) '定义SqlCommand Dim cmd As =对象'Dim read As SqlDataReader '定义sqlDataReader read As IDataReaderDim'定义一个DataTable对象 UserDataTable DimAsNew DataTable）））））））．）））））））UserInfoClass Dim User1 As NewsqlCn.Open()read = cmd.ExecuteReader()Boolean flag DimAsflag = read.Read()UserDataTable.Load(read)' Return User1Then If Not IsNothing(sqlCn)sqlCn.Close()If Endflag ReturnFunction EndUserInfoClass UserInfoClass) As Function InsertUserInfo(ByVal Userdbs As NotImplementedException Throw New Function End ClassEnd UserInfoClass ClassPublic StringPrivate UserName AsStringProperty Name As PublicGetUserName ReturnGet End) String value As Set (ByVal UserName = valueSet EndProperty EndStringPrivate UserPwd AsString Password PropertyAs PublicGetUserPwd ReturnGet End) String value As Set(ByVal UserPwd = valueSet EndProperty EndClassEnd：执行增删改查函数模块（部分） System.Data.SqlClient Imports kehuchaxunForm1Class PublicButton1.Click Handles System.EventArgs) , As System.Object ByVal e As Button1_Click( Private Sub ByVal sender.TextBox1.Text= Me did As String Dim = 卜牥敶??極?慳瀻摷猽汱搻瑡扡獡?敔?湡条彥慤慴As StringDim connectionString卜????剆?欠桥獵潨汵?String = commandText DimAs(connectionString)SqlConnection New Using connection As(commandText, connection) SqlCommand New Command As SqlCommand = Dim connection.Open()= Command.ExecuteReader() As SqlDataReader Dim reader)(reader.Read() = True While& reader(2) & vbCrLf & reader(1) & ??尠Me.TextBox1.Text &= reader(0) & ??尠WhileEndconnection.Close()Using EndSubEndButton2.Click) System.EventArgs HandlesAs , System.As Button2_Click(SubPrivate ByVal senderObject ByVal e）））））））．）））））））.Close()Me End SubTextBox1.TextChanged EventArgs) Handles Object, e As Private SubTextBox1_TextChanged(sender As End SubClassEndImports System.Data.SqlClient //删除kehushanchu Public Class Button1.Click ) Handles e As System. sender As EventArgs System.Object, ByVal Private SubButton1_Click(ByVal.TextBox1.TextMeString = Dim did As卜牥敶??極?慳瀻摷猽汱搻瑡扡獡?敔?湡条彥慤慴String = Dim connectionString As??呅?剆?欠桥獵潨汵??剅?敫畨楸杮業杮?摩String = Dim commandTextDelete As(connectionString) SqlConnection AsUsing connection Newconnection.Open()(commandTextDelete, connection) SqlCommand SqlCommand = New Dim cmdDelete As, TextBox1.Text) cmdDelete.Parameters.AddWithValue(?摩Try = cmdDelete.ExecuteNonQuery() Integer Dim result As result = 1 ThenIf) 成功 MsgBox( Else) 删除记录失败MsgBox( If End Exception Catch ex AsMsgBox(ex.ToString())Try End connection.Close()Using EndSub EndButton2.Click ) Handles e As System.EventArgs Button2_Click(ByVal sender As System.Object, ByVal PrivateSub.Close() MeSubEndClassEnd插入Imports System.Data.SqlClient // kehutianjiaForm1Class PublicButton1.Click Handles System.EventArgs) System.Object, ByVal e As PrivateSub Button1_Click(ByVal sender As = 卜牥敶??極?慳瀻摷猽汱搻瑡扡獡?敔?湡条彥慤慴As StringDim connectionStringINSERT INTO kehushouli(kehuxingming,shoujihaoma,shoulineirong) = As String commandTextInsert Dim?啌卅??所??(connectionString) SqlConnection New Using connection Asconnection.Open()(commandTextInsert, connection) SqlCommand New cmdInsert As SqlCommand = Dim,TextBox1.Text) ?屡 cmdInsert.Parameters.AddWithValue(, TextBox2.Text) cmdInsert.Parameters.AddWithValue(?屢, TextBox3.Text)cmdInsert.Parameters.AddWithValue(?屣Try = cmdInsert.ExecuteNonQuery() IntegerDim result AsThen If result = 1) MsgBox(插入成功IfEndException Catch ex As MsgBox(ex.ToString())Try Endconnection.Close()EndUsingSubEnd）））））））．）））））））Button2.Click) HandlesAs System.EventArgs As sender System.Object, ByVal e Private SubButton2_Click(ByVal.Close() MeSubEndClassEnd修改Imports System.Data.SqlClient // kehuxiugai PublicClass Button1.Click HandlesSystem.EventArgs) System.Object, ByVal e As Private Sub Button1_Click(ByVal sender As = 卜牥敶??極?慳瀻摷猽汱搻瑡扡獡?敔?湡条彥慤慴As String connectionString Dim Updatekehushouli Set shoujihaoma=@bbb,shoulineirong=@ccc where String = commandTextUpdate AsDim敫畨楸杮業杮?慡屡(connectionString) SqlConnection As New Using connectionconnection.Open()(commandTextUpdate, connection) SqlCommand = New SqlCommand Dim cmdUpdate As, TextBox1.Text) ?慡屡 cmdUpdate.Parameters.AddWithValue(, TextBox2.Text) ?扢屢cmdUpdate.Parameters.AddWithValue(, TextBox3.Text) ?捣屣cmdUpdate.Parameters.AddWithValue( Try= cmdUpdate.ExecuteNonQuery() Integer result As Dim Then Ifresult = 1) MsgBox(修改成功Else) 修改失败 MsgBox( IfEndException As Catch exMsgBox(ex.ToString())TryEndconnection.Close()EndUsingSub End Button2.Click Handles System.EventArgs) Object, ByVal e As sender Private SubButton2_Click(ByVal As System..Close() MeSub End.Load MyBaseHandles , e As EventArgs) Object Private Sub kehuxiugai_Load(sender AsSubEndClassEnd实验总结：8.我对电话计费管理系统有了较深入的了从设计需求分析，到各模块功能的设计及数据库设计，过这次课程设计，经过本次课程通过本次设计，对数据库系统概论这门课有了全新的认识, 基本掌握了数据库设计的思想。