《大数据库课程电话计费管理系统》由会员分享，可在线阅读，更多相关《大数据库课程电话计费管理系统（13页珍藏版）》请在金锄头文库上搜索。
1、word数据库课程设计报告设计题目：计费管理系统 / 目录3334564.1 全局ER65.逻辑结构设计阶段：66788108.实验总结：131. 课程设计目的熟悉数据库设计的各个阶段，会使用visio工具实现阶段性设计的表达，并使用语言实现数据库的连接，完成数据的显示、修改、插入和删除。学生根据所学的数据库原理与程序设计知识，能够针对一个小型的数据库管理系统进展需求分析、系统设计、数据库设计、编码，测试等，完成要求的功能，从而达到掌握开发一个小型数据库的目的。2. 系统需求分析阶段计费管理系统的数据流图数据流编号：D01数据流名称：客户受理简 述：工作人员对客户进展受理数据流来源：客户要求数
2、据流输出：客户受理情况数据流组成：客户某某、受理、受理内容数据流编号：D02数据流名称：客户资料简 述：客户的根本信息数据流来源：客户数据流输出：资料信息数据流组成：客户某某、联系、 、套餐名称、手机、手某某码数据流编号：D03数据流名称：收款简 述：收银员对客户业务进展受理，客户缴费数据流来源：客户信息数据流输出：客户数据流组成：手机、客户某某、应收费用、余额数据流编号：D04数据流名称：通话信息简 述：客户的通话被记录了下来数据流来源：客户数据流输出：客户通话记录数据流组成：来电、去电、通话时长、通话时间、单位费用、总费用数据流编号：D05数据流名称：收款员简 述：收款员登录系统进展工作数
3、据流来源：收款员数据流输出：收款员信息数据流组成：某某、密码数据流编号：D06数据流名称：客户消费简 述：收银员登录系统后对客户进展受理数据流来源：收银员数据流输出：受理信息数据流组成：手机、客户某某、通话费、新业务费、费用合计、套餐名称3. 功能需求分析计费库管理系统功能：1)月花费查询 ：客户可对每月的话费进展查询 每项记录包括通话费、 新业务费、费用合计、实缴费用合计等信息 。2)某某余额查询： 客户可查询话费单上的余额。3)用户资料查询： 客户可以查阅个人资料。4)业务查询： 客户可以实时了解个部门的各项活动。5)查询读者：可根据条件进展高级查询，并允许模糊查询。5)缴费信息 ：管理员
4、可根据用户所缴的话费进展计费， 并反应给用户，用户在交费的同时可打印发票。7)插入读者：添加新读者，需要填入足够的信息，并判断信息是否有效。6)月话费管理： 管理员可对每月的话费记录进展逐条添加、更新和删除。7)客户受理结果： 管理员可对每月的话费记录进展逐条添加、更新和删除。4. 概念结构设计阶段4.1 ER5. 逻辑结构设计阶段：E-R图向关系模型的转换实体与其属性 客户： 客户某某，联系， ，套餐名称 应收款额： 账户编号，手机，应收费用，余额 话费信息库： 手机， 客户某某， 通话费，新业务费， 费用合计，套餐名称 收费员： 收费员编号，某某，年龄 客户受理： 手机，客户某某，受理内容
5、，受理时间 通话信息： 手机，来电，去电，单位费用，通话时长，总费用 联系的属性 使用： 手某某码 计费： 密码根据转换规如此将实体转换为关系模式本实例中没有 1：1 关系对于 1：n 联系，将它们与 n 端的关系模式合并。该关系模式中应参加 1 端的码和联系本身的属性。客户： 客户某某， 所在城市， 套餐名称，手机，手某某码收费员： 收费员编号，某某，年龄，手机，密码对于 m ：n 的联系，必须单独转换为一个关系模式，属性由各实体的码和联系本身的属性组成， 关系的码为组成联系各实体的码的组合。支付： 客户某某，联系，收费员编号处理： 手机，收费员编号计费系统的 E-R 图，转换为以下关系模式
6、 ：客户： 手机，所在城市，套餐名称，客户某某，手某某码收费员： 收费员编号，某某，年龄，手机，密码话费信息：手机，客户某某，通话费，费用合计，套餐名称客户受理：手机，收费员编号，客户某某，受理内容，受理时间通话信息： 手机，来电，去电，单位费用，通话时长，总费用 6. 物理结构设计阶段客户受理表客户资料表收款表通话信息表收费员表消费表7. 数据库实施阶段1登录界面2boss界面3） 主界面4客户受理子界面有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能：登录模块PublicClassRegisterLoginManagerClassDim Flag AsBooleanFuncti
7、on SelectUIand(ByVal User AsUserInfoClass) AsBooleanDim DalUser AsNewUserDAODim Userdbs AsNewUserInfoClassDim flag AsBoolean flag = DalUser.selectUserInfo(Userdbs)Return flagEndFunctionFunction SelectRegister(ByVal User AsUserInfoClass) AsBooleanDim DalUser AsNewUserDAODim Userdbs AsNewUserInfoClass
8、 Userdbs = DalUser.InsertUserInfo(Userdbs)判断操作If Userdbs.Name = vbNull ThenReturnFalseElseReturnTrueEndIfEndFunctionEndClassImportsPublicClassUserDAO连接数据库Dim sqlStr AsString = server=.;uid=sa;pwd=sql;database=TelManage_dataDim sql AsSqlConnection = NewSqlConnection(sqlStr)自定义检查参数Function selectUserI
9、nfo(ByVal User AsUserInfoClass) AsBooleanDim sql AsString = select * from Userinfor where user_name= & User.Name & and user_pwd= & User.Password & sql语句Dim cmd AsSqlmand = NewSqlmand(sql, sql) 定义sqlmand对象Dim read As SqlDataReader 定义sqlDataReader对象Dim read AsIDataReaderDim UserDataTable AsNewDataTabl
10、e定义一个DataTable对象Dim User1 AsNewUserInfoClass sql.Open() read = cmd.ExecuteReader()Dim flag AsBoolean flag = read.Read() UserDataTable.Load(read) Return User1IfNot IsNothing(sql) Then sql.Close()EndIfReturn flagEndFunctionFunction InsertUserInfo(ByVal Userdbs AsUserInfoClass) AsUserInfoClassThrowNewN
11、otImplementedExceptionEndFunctionEndClassPublicClassUserInfoClassPrivate UserName AsStringPublicProperty Name AsStringGetReturn UserNameEndGetSet(ByVal value AsString) UserName = valueEndSetEndPropertyPrivate UserPwd AsStringPublicProperty Password AsStringGetReturn UserPwdEndGetSet(ByVal value AsSt
12、ring) UserPwd = valueEndSetEndPropertyEndClass执行增删改查函数模块局部：ImportsPublicClasskehuchaxunForm1PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesDim did AsString = MeDim connectionString AsString = Server=.;uid=sa;pwd=sql;database=TelManage_dataDim mandText AsS
13、tring = SELECT * FROM kehushouli Using connection AsNewSqlConnection(connectionString)Dim mand AsSqlmand = NewSqlmand(mandText, connection) connection.Open()Dim reader AsSqlDataReader = mand.ExecuteReader()While (reader.Read() = True)Me.TextBox1.Text &= reader(0) & & reader(1) & & reader(2) & vbCrLfEndWhile connection.Close()EndUsingEndSubPrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMe.Close()EndSubPrivateSub Text
