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

2数据流组成：手机号码、客户姓名、应收费用、余额数据流编号：D04数据流名称：通话信息简述：客户的通话被记录了下来数据流来源：客户数据流输出：客户通话记录数据流组成：来电号码、去电号码、通话时长、通话时间、单位费用、总费用数据流编号：D05数据流名称：收款员简述：收款员登录系统进行工作数据流来源：收款员数据流输出：收款员信息数据流组成：姓名、密码数据流编号：D06数据流名称：客户消费简述：收银员登录系统后对客户进行受理数据流来源：收银员数据流输出：受理信息数据流组成：手机号码、客户姓名、通话费、新业务费、费用合计、套餐名称功能需求分析电话计费库管理系统功能：

1)

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

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

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

业务查询：客户可以实时了解个部门的各项活动。5)

查询读者：可根据条件进行高级查询，并允许模糊查询。5)缴费信息：管理员可根据用户所缴的话费进行计费，并反馈给用户，用户在交费的同时可打印发票。7)

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

6)

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

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

概念结构设计阶段4.1ER逻辑结构设计阶段：5.1关系模式E-R图向关系模型的转换实体及其属性客户：｛客户姓名，联系电话，联系地址，套餐名称｝应收款额：｛账户编号，手机号码，应收费用，余额｝话费信息库：｛手机号码，客户姓名，通话费，新业务费，费用合计，套餐名称｝收费员：｛收费员编号，姓名，年龄｝客户受理：｛手机号码，客户姓名，受理内容，受理时间｝通话信息：{手机号码，来电号码，去电号码，单位费用，通话时长，总费用}联系的属性使用：｛手机密码｝计费：｛密码｝根据转换规则将实体转换为关系模式本实例中没有1：1关系对于1：n联系，将它们与n端的关系模式合并。该关系模式中应加入1端的码和联系本身的属性。客户：｛客户姓名，所在城市，套餐名称，手机号码，手机密码｝收费员：｛收费员编号，姓名，年龄，手机号码，密码｝对于m：n的联系，必须单独转换为一个关系模式，属性由各实体的码和联系本身的属性组成，关系的码为组成联系各实体的码的组合。支付：｛客户姓名，联系电话，收费员编号｝处理：｛手机号码，收费员编号｝电话计费系统的E-R图，转换为以下关系模式：客户：｛手机号码，所在城市，套餐名称，客户姓名，手机密码｝收费员：｛收费员编号，姓名，年龄，手机号码，密码｝话费信息：｛手机号码，客户姓名，通话费，费用合计，套餐名称｝客户受理：｛手机号码，收费员编号，客户姓名，受理内容，受理时间｝通话信息：{手机号码，来电号码，去电号码，单位费用，通话时长，总费用}物理结构设计阶段客户受理表客户资料表收款表通话信息表收费员表消费表数据库实施阶段7.1界面设计1）登录界面2）boss界面主界面4）客户受理子界面（有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能）：7.2部分代码模块登录模块PublicClassRegisterLoginManagerClassDimFlagAsBooleanFunctionSelectUIand(ByValUserAsUserInfoClass)AsBooleanDimDalUserAsNewUserDAODimUserdbsAsNewUserInfoClassDimflagAsBooleanUserdbs.Name=User.NameUserdbs.Password=User.Passwordflag=DalUser.selectUserInfo(Userdbs)ReturnflagEndFunctionFunctionSelectRegister(ByValUserAsUserInfoClass)AsBooleanDimDalUserAsNewUserDAODimUserdbsAsNewUserInfoClassUserdbs.Name=User.NameUserdbs.Password=User.PasswordUserdbs=DalUser.InsertUserInfo(Userdbs)'判断操作IfUserdbs.Name=vbNullThenReturnFalseElseReturnTrueEndIfEndFunctionEndClassImportsSystem.Data.SqlClientPublicClassUserDAO'连接数据库DimsqlCnStrAsString="server=.;uid=sa;pwd=sql;database=TelManage_data"DimsqlCnAsSqlConnection=NewSqlConnection(sqlCnStr)'自定义检查参数FunctionselectUserInfo(ByValUserAsUserInfoClass)AsBooleanDimsqlAsString="select*fromUserinforwhereuser_name='"&User.Name&"'anduser_pwd='"&User.Password&"'"'sql语句DimcmdAsSqlCommand=NewSqlCommand(sql,sqlCn)'定义sqlCommand对象'DimreadAsSqlDataReader'定义sqlDataReader对象DimreadAsIDataReaderDimUserDataTableAsNewDataTable'定义一个DataTable对象DimUser1AsNewUserInfoClasssqlCn.Open()read=cmd.ExecuteReader()DimflagAsBooleanflag=read.Read()UserDataTable.Load(read)'ReturnUser1IfNotIsNothing(sqlCn)ThensqlCn.Close()EndIfReturnflagEndFunctionFunctionInsertUserInfo(ByValUserdbsAsUserInfoClass)AsUserInfoClassThrowNewNotImplementedExceptionEndFunctionEndClassPublicClassUserInfoClassPrivateUserNameAsStringPublicPropertyNameAsStringGetReturnUserNameEndGetSet(ByValvalueAsString)UserName=valueEndSetEndPropertyPrivateUserPwdAsStringPublicPropertyPasswordAsStringGetReturnUserPwdEndGetSet(ByValvalueAsString)UserPwd=valueEndSetEndPropertyEndClass执行增删改查函数模块（部分）：ImportsSystem.Data.SqlClientPublicClasskehuchaxunForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdidAsString=Me.TextBox1.TextDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextAsString="SELECT*FROMkehushouli"UsingconnectionAsNewSqlConnection(connectionString)DimCommandAsSqlCommand=NewSqlCommand(commandText,connection)connection.Open()DimreaderAsSqlDataReader=Command.ExecuteReader()While(reader.Read()=True)Me.TextBox1.Text&=reader(0)&""&reader(1)&""&reader(2)&vbCrLfEndWhileconnection.Close()EndUsingEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBox1.TextChangedEndSubEndClassImportsSystem.Data.SqlClient//删除PublicClasskehushanchuPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdidAsString=Me.TextBox1.TextDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextDeleteAsString="DELETEFROMkehushouliWHEREkehuxingming=@id"UsingconnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdDeleteAsSqlCommand=NewSqlCommand(commandTextDelete,connection)cmdDelete.Parameters.AddWithValue("@id",TextBox1.Text)TryDimresultAsInteger=cmdDelete.ExecuteNonQuery()Ifresult=1ThenMsgBox("成功")ElseMsgBox("删除记录失败")EndIfCatchexAsExceptionMsgBox(ex.ToString())EndTryconnection.Close()EndUsingEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEndClassImportsSystem.Data.SqlClient//插入PublicClasskehutianjiaForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextInsertAsString="INSERTINTOkehushouli(kehuxingming,shoujihaoma,shoulineirong)VALUES(@a,@b,@c)"UsingconnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdInsertAsSqlCommand=NewSqlCommand(commandTextInsert,connection)cmdInsert.Parameters.AddWithValue("@a",TextBox1.Text)cmdInsert.Parameters.AddWithValue("@b",TextBox2.Text)cmdInsert.Parameters.AddWithValue("@c",TextBox3.Text)TryDimresultAsInteger=cmdInsert.ExecuteNonQuery()Ifresult=1ThenMsgBox("插入成功")EndIfCatchexAsExceptionMsgBox(ex.ToString())EndTryconnection.Close()EndUsingEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubEndClassImportsSystem.Data.SqlClient//修改PublicClasskehuxiugaiPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextUpdateAsString="UpdatekehushouliSetshoujihaoma=@bbb,shoulineirong=@cccwherekehuxingming=@aaa"UsingconnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdUpdateAsSqlCommand=NewSqlCommand(commandTextUpdate,connection)cmdUpdate.Parameters.AddWithValue("@aaa",TextBox1.Text)cmdUpdate.Parameters.AddWithValue("@bbb",TextBox2.Text)cmdUpdate.Parameters.AddWithValue("@ccc",TextBox3.Text)TryDimresultAsInteger=cmdUpdate.ExecuteNonQuery()Ifresult=1Then