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

1、数据库课程设计报告设计题目：电话计费管理系统目录1. 课程设计目的2. 系统需求分析阶段2.1 数据流图2.2 数据字典3. 功能需求分析54. 概念结构设计阶段64.1 全局ER65. 逻辑结构设计阶段：65.1 关系模式66. 物理结构设计阶段77. 数据库实施阶段.87.1 界面设计87.2 部分代码模块.108. 实验总结：1. 课程设计目的熟悉数据库设计的各个阶段，会使用visio工具实现阶段性设计的表达，并使用语言实现数据库的连接，完成数据的显示、修改、插入和删除。学生根据所学的数据库原理与程序设计知识，能够针对一个小型的数据库管理系统进行需求分析、系统设计、数据库设计、编码,测试

2、等，完成要求的功能，从而达到掌握开发一个小型数据库的目的。2. 系统需求分析阶段2.1 数据流图2.1.1 电话计费管理系统的数据流图2.2 数据字典数据流编号：D01数据流名称：客户受理简述：工作人员对客户进行受理数据流来源客户要求数据流输出客户受理情况数据流组成客户姓名、受理号码、受理内容数据流编号D02数据流名称客户资料简述：客户的基本信息数据流来源客户数据流输出资料信息数据流组成客户姓名、联系电话、联系地址、套餐名称、手机号码、手机密码9居流编号D03数据流名称收款简述：收银员对客户业务进行受理，客户缴费数据流来源客户信息9居流输出客户数据流组成手机号码、客户姓名、应收费用、余额数据流

3、编号D049居流名称通话信息简述：客户的通话被记录了卜来数据流来源客户9居流输出客户通话记录数据流组成来电号码、去电号码、通话时长、通话时间、单位费用、总费用9居流编号D05数据流名称收款员简述：收款员登录系统进行工作数据流来源收款员9居流输出收款员信息数据流组成姓名、密码9居流编号D06数据流名称客户消费简述：收银员登录系统后对客户进行啜理数据流来源收银员数据流输出受理信息数据流组成手机号码、客户姓名、通话费、新业务费、费用合计、套餐名称3. 功能需求分析电话计费库管理系统功能：?1)?月花费查询：客户可对每月的话费进行查询(每项记录包括通话费、新业务费、费用合计、实缴费用合计等信息)。2)

4、?帐户余额查询：客户可查询话费单上的余额。3)?用户资料查询：客户可以查阅个人资料。4)?业务查询：客户可以实时了解个部门的各项活动。5)?查询读者：可根据条件进行高级查询，并允许模糊查询。5) 缴费信息：管理员可根据用户所缴的话费进行计费，并反馈给用户，用户在交费的同时可打印发票。7)?插入读者：添加新读者，需要填入足够的信息，并判断信息是否有效。?6)?月话费管理：管理员可对每月的话费记录进行逐条添加、更新和删除。7)?客户受理结果：管理员可对每月的话费记录进行逐条添加、更新和删除。?4. 概念结构设计阶段4.1 ER5. 逻辑结构设计阶段：5.1 关系模式E-R图向关系模型的转换实体及其

5、属性客户：客户姓名，联系电话，联系地址，套餐名称应收款额：账户编号，手机号码，应收费用，余额话费信息库：手机号码，客户姓名，通话费，新业务费，费用合计，套餐名称收费员：收费员编号，姓名，年龄客户受理：手机号码，客户姓名，受理内容，受理时间通话信息：手机号码，来电号码，去电号码，单位费用，通话时长，总费用联系的属性使用：手机密码计费：密码根据转换规则将实体转换为关系模式本实例中没有1：1关系对于1：n联系，将它们与n端的关系模式合并。该关系模式中应加入1端的码和联系本身的属性。客户：客户姓名，所在城市，套餐名称，手机号码，手机密码收费员：收费员编号，姓名，年龄，手机号码，密码对于m：n的联系，必

6、须单独转换为一个关系模式，属性由各实体的码和联系本身的属性组成，关系的码为组成联系各实体的码的组合。支付：客户姓名，联系电话，收费员编号处理：手机号码，收费员编号电话计费系统的E-R图，转换为以下关系模式：客户：手机号码，所在城市，套餐名称，客户姓名，手机密码收费员：收费员编号，姓名，年龄，手机号码，密码话费信息：手机号码，客户姓名，通话费，费用合计，套餐名称客户受理：手机号码，收费员编号，客户姓名，受理内容，受理时间通话信息：手机号码，来电号码，去电号码，单位费用，通话时长，总费用6. 物理结构设计阶段客户受理表客户资料表收款表通话信息表收费员表消费表7.数据库实施阶段7.1界面设计1)登录

7、界面2)boss界面3)主界面4)客户受理子界面(有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能)7.2部分代码模块登录模块PublicClassRegisterLoginManagerClassDimFlagAsBooleanFunctionSelectUIand(ByValUserAsUserInfoClass)AsBooleanDimDalUserAsNewUserDAODimUserdbsAsNewUserInfoClassDimflagAsBooleanUserdbs.Name=User.NameUserdbs.Password=User.Passwordflag=Da

8、lUser.selectUserInfo(Userdbs)ReturnflagEndFunctionFunctionSelectRegister(ByValUserAsUserInfoClass)AsBooleanDimDalUserAsNewUserDAODimUserdbsAsNewUserInfoClassUserdbs.Name=User.NameUserdbs.Password=User.PasswordUserdbs=DalUser.InsertUserInfo(Userdbs)判断操作|IfUserdbs.Name=vbNullThenReturnFalseElseReturnT

9、rueEndIfEndFunctionEndClassImportsPublicClassUserDAO连接数据库DimsqlCnStrAsString="server=.;uid=sa;pwd=sql;database=TelManage_data"DimsqlCnAsSqlConnection=NewSqlConnection(sqlCnStr)自定义检查参数FunctionselectUserInfo(ByValUserAsUserInfoClass)AsBooleanDimsqlAsString="select*fromUserinforwhereuser

10、_name='"&User.Name&"'anduser_pwd='"&User.Password&""''sql语句DimcmdAsSqlCommand=NewSqlCommandsql,sqlCn)'定义sqlCommandM象'DimreadAsSqlDataReader'定义sqlDataReader对象DimreadAsIDataReaderDimUserDataTableAsNewDataTable'定义一个DataTable对象

11、DimUseriAsNewUserInfoClasssqlCn.Open()read=cmd.ExecuteReader()DimflagAsBooleanflag=read.Read()UserDataTable.Load(read)'ReturnUseriIIfNotIsNothing(sqlCn)ThensqlCn.Close()EndIfReturnflagEndFunctionFunctionInsertUserInfo(ByValUserdbsAsUserInfoClass)AsUserInfoClassThrowNewNotImplementedExceptionEndF

12、unctionEndClassPublicClassUserInfoClassPrivateUserNameAsStringPublicPropertyNameAsStringGetReturnUserNameEndGetSet(ByValvalueAsString)UserName=valueEndSetEndPropertyPrivateUserPwdAsStringPublicPropertyPasswordAsStringGetReturnUserPwdEndGetSet(ByValvalueAsString)UserPwd=value|EndSetEndPropertyEndClas

13、s执行增删改查函数模块(部分)：ImportsPublicClasskehuchaxunFormlPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickDimdidAsString=MeTextBoxl.TextDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextAsString="SELECT*FR

14、OMkehushouli"UsingconnectionAsNewSqlConnection(connectionString)DimCommandAsSqlCommand=NewSqlCommandcommandText,connection)connection.Open()DimreaderAsSqlDataReader=Command.ExecuteReader()While(reader.Read()=True)MeTextBoxl.Text&=reader(0)&""&reader&""&re

15、ader(2)&vbCrLfEndWhileconnection.Close()EndUsingEndSubPrivateSubButton2Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMeClose()EndSubPrivateSubTextBox1_TextChanged(senderAsObject,eAsEventArgs)HandlesTextBoxl.TextChangedEndSubEndClassImports/删除PublicClasskehushanchu

16、PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickDimdidAsString=MeTextBox1.TextDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextDeleteAsString="DELETEFROMkehushouliWHEREkehuxingming=id"Usingc

17、onnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdDeleteAsSqlCommand=NewSqlCommandcommandTextDelete,connection)"id",TextBox1.Text)TryDimresultAsInteger=cmdDelete.ExecuteNonQuery()Ifresult=1ThenMsgBox("成功")ElseMsgBox("删除记录失败")EndIfCatchexAsExceptionMsgB

18、ox(ex.ToString()EndTryconnection.Close()EndUsingEndSubPrivateSubButton2Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMeClose()EndSubEndClassImports/插入PublicClasskehutianjiaForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.

19、ClickDimconnectionStringAsString="Server=.;uid=sa;pwd=sql;database=TelManage_data"DimcommandTextInsertAsString="INSERTINTOkehushouli(kehuxingming,shoujihaoma,shoulineirong)VALUES(a,b,c)”UsingconnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdInsertAsSqlCommand=NewSql

20、CommandcommandTextInsert,connection)"a",TextBox1.Text)"b",TextBox2.Text)"c",TextBox3.Text)TryDimresultAsInteger=cmdInsert.ExecuteNonQuery()Ifresult=1ThenMsgBox("插入成功")|EndIfCatchexAsExceptionMsgBox(ex.ToString()EndTryconnection.Close()EndUsingEndSubPrivateSubB

21、utton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMeClose()EndSubEndClassImports/修改PublicClasskehuxiugaiPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickDimconnectionstringAsString="Server=.;uid=sa;pwd=sql;databas

22、e=TelManage_data"DimcommandTextUpdateAsString="UpdatekehushouliSetshoujihaoma=bbb,shoulineirong=cccwherekehuxingming=aaa"UsingconnectionAsNewSqlConnection(connectionString)connection.Open()DimcmdUpdateAsSqlCommand=NewSqlCommandcommandTextUpdate,connection)"aaa",TextBox1.Text)I"bbb",TextBox2.Text)"ccc",TextBox3.Text)TryDimresultAsInteger=cmdUpdate.ExecuteNonQuery()Ifresult=1ThenMsgBox