数据库课程电话计费管理系统Word文档格式.docx
- 文档编号:15816397
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:17
- 大小:1.46MB
数据库课程电话计费管理系统Word文档格式.docx
《数据库课程电话计费管理系统Word文档格式.docx》由会员分享,可在线阅读,更多相关《数据库课程电话计费管理系统Word文档格式.docx(17页珍藏版)》请在冰豆网上搜索。
客户姓名、受理号码、受理内容
D02
客户资料
客户的基本信息
客户
资料信息
客户姓名、联系电话、联系地址、套餐名称、手机号码、手机密码
D03
收款
收银员对客户业务进行受理,客户缴费
客户信息
手机号码、客户姓名、应收费用、余额
D04
通话信息
客户的通话被记录了下来
客户通话记录
来电号码、去电号码、通话时长、通话时间、单位费用、总费用
D05
收款员
收款员登录系统进行工作
收款员信息
姓名、密码
D06
客户消费
收银员登录系统后对客户进行受理
收银员
受理信息
手机号码、客户姓名、通话费、新业务费、费用合计、套餐名称
3.功能需求分析
电话计费库管理系统功能:
1)
月花费查询:
客户可对每月的话费进行查询(每项记录包括通话费、新业务费、费用合计、实缴费用合计等信息)。
2)
帐户余额查询:
客户可查询话费单上的余额。
3)
用户资料查询:
客户可以查阅个人资料。
4)
业务查询:
客户可以实时了解个部门的各项活动。
5)
查询读者:
可根据条件进行高级查询,并允许模糊查询。
5)缴费信息:
管理员可根据用户所缴的话费进行计费,并反馈给用户,用户在交费的同时可打印发票。
7)
插入读者:
添加新读者,需要填入足够的信息,并判断信息是否有效。
6)
月话费管理:
管理员可对每月的话费记录进行逐条添加、更新和删除。
客户受理结果:
4.概念结构设计阶段
4.1ER
5.逻辑结构设计阶段:
5.1关系模式
E-R图向关系模型的转换
实体及其属性
客户:
{客户姓名,联系电话,联系地址,套餐名称}
应收款额:
{账户编号,手机号码,应收费用,余额}
话费信息库:
{手机号码,客户姓名,通话费,新业务费,费用合计,套餐名称}
收费员:
{收费员编号,姓名,年龄}
客户受理:
{手机号码,客户姓名,受理内容,受理时间}
通话信息:
{手机号码,来电号码,去电号码,单位费用,通话时长,总费用}
联系的属性
使用:
{手机密码}
计费:
{密码}
根据转换规则将实体转换为关系模式
本实例中没有1:
1关系对于1:
n联系,将它们与n端的关系模式合并。
该关系模式中应加入1端的码和联系本身的属性。
客户:
{客户姓名,所在城市,套餐名称,手机号码,手机密码}
收费员:
{收费员编号,姓名,年龄,手机号码,密码}
对于m:
n的联系,必须单独转换为一个关系模式,属性由各实体的码和联系本身的属性组成,关系的码为组成联系各实体的码的组合。
支付:
{客户姓名,联系电话,收费员编号}
处理:
{手机号码,收费员编号}
电话计费系统的E-R图,转换为以下关系模式:
{手机号码,所在城市,套餐名称,客户姓名,手机密码}
话费信息:
{手机号码,客户姓名,通话费,费用合计,套餐名称}
客户受理:
{手机号码,收费员编号,客户姓名,受理内容,受理时间}
通话信息:
6.物理结构设计阶段
客户受理表
客户资料表
收款表
通话信息表
收费员表
消费表
7.数据库实施阶段
7.1界面设计
1)登录界面
2)boss界面
3)主界面
4)客户受理子界面(有添加客户信息、修改客户信息、删除客户信息、查询客户信息功能):
7.2部分代码模块
登录模块
PublicClassRegisterLoginManagerClass
DimFlagAsBoolean
FunctionSelectUIand(ByValUserAsUserInfoClass)AsBoolean
DimDalUserAsNewUserDAO
DimUserdbsAsNewUserInfoClass
DimflagAsBoolean
Userdbs.Name=User.Name
Userdbs.Password=User.Password
flag=DalUser.selectUserInfo(Userdbs)
Returnflag
EndFunction
FunctionSelectRegister(ByValUserAsUserInfoClass)AsBoolean
Userdbs=DalUser.InsertUserInfo(Userdbs)
'
判断操作
IfUserdbs.Name=vbNullThen
ReturnFalse
Else
ReturnTrue
EndIf
EndClass
ImportsSystem.Data.SqlClient
PublicClassUserDAO
连接数据库
DimsqlCnStrAsString="
server=.;
uid=sa;
pwd=sql;
database=TelManage_data"
DimsqlCnAsSqlConnection=NewSqlConnection(sqlCnStr)
自定义检查参数
FunctionselectUserInfo(ByValUserAsUserInfoClass)AsBoolean
DimsqlAsString="
select*fromUserinforwhereuser_name='
"
&
User.Name&
"
'
anduser_pwd='
User.Password&
sql语句
DimcmdAsSqlCommand=NewSqlCommand(sql,sqlCn)'
定义sqlCommand对象
DimreadAsSqlDataReader'
定义sqlDataReader对象
DimreadAsIDataReader
DimUserDataTableAsNewDataTable'
定义一个DataTable对象
DimUser1AsNewUserInfoClass
sqlCn.Open()
read=cmd.ExecuteReader()
flag=read.Read()
UserDataTable.Load(read)
ReturnUser1
IfNotIsNothing(sqlCn)Then
sqlCn.Close()
FunctionInsertUserInfo(ByValUserdbsAsUserInfoClass)AsUserInfoClass
ThrowNewNotImplementedException
PublicClassUserInfoClass
PrivateUserNameAsString
PublicPropertyNameAsString
Get
ReturnUserName
EndGet
Set(ByValvalueAsString)
UserName=value
EndSet
EndProperty
PrivateUserPwdAsString
PublicPropertyPasswordAsString
ReturnUserPwd
UserPwd=value
执行增删改查函数模块(部分):
PublicClasskehuchaxunForm1
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimdidAsString=Me.TextBox1.Text
DimconnectionStringAsString="
Server=.;
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)&
vbCrLf
EndWhile
connection.Close()
EndUsing
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程 电话 计费 管理 系统