數(shù)據(jù)庫(kù)課程電話計(jì)費(fèi)管理系統(tǒng)

1、2 數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告 設(shè)計(jì)題目： 電話計(jì)費(fèi)管理系統(tǒng) 目錄 TOC o 1-3 h z u HYPERLINK l _Toc480632975 1.課程設(shè)計(jì)目的 PAGEREF _Toc480632975 h 3 HYPERLINK l _Toc480632976 2.系統(tǒng)需求分析階段 PAGEREF _Toc480632976 h 3 HYPERLINK l _Toc480632977 2.1數(shù)據(jù)流圖 PAGEREF _Toc480632977 h 3 HYPERLINK l _Toc480632980 2.2數(shù)據(jù)字典 PAGEREF _Toc480632980 h 4 HYPERLINK

2、l _Toc480632981 3.功能需求分析5 HYPERLINK l _Toc480632982 4.概念結(jié)構(gòu)設(shè)計(jì)階段6 HYPERLINK l _Toc480632983 4.1 全局ER6 HYPERLINK l _Toc480632984 5.邏輯結(jié)構(gòu)設(shè)計(jì)階段：6 HYPERLINK l _Toc480632985 5.1關(guān)系模式6 HYPERLINK l _Toc480632986 6.物理結(jié)構(gòu)設(shè)計(jì)階段7 HYPERLINK l _Toc480632987 7.數(shù)據(jù)庫(kù)實(shí)施階段8 HYPERLINK l _Toc480632988 7.1界面設(shè)計(jì)8 HYPERLINK l _Toc

3、480632989 7.2部分代碼模塊10 HYPERLINK l _Toc480632990 8.實(shí)驗(yàn)總結(jié)： PAGEREF _Toc480632990 h 13 課程設(shè)計(jì)目的 熟悉數(shù)據(jù)庫(kù)設(shè)計(jì)的各個(gè)階段，會(huì)使用visio工具實(shí)現(xiàn)階段性設(shè)計(jì)的表達(dá)，并使用語(yǔ)言實(shí)現(xiàn)數(shù)據(jù)庫(kù)的連接，完成數(shù)據(jù)的顯示、修改、插入和刪除。學(xué)生根據(jù)所學(xué)的數(shù)據(jù)庫(kù)原理與程序設(shè)計(jì)知識(shí)，能夠針對(duì)一個(gè)小型的數(shù)據(jù)庫(kù)管理系統(tǒng)進(jìn)行需求分析、系統(tǒng)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)、編碼，測(cè)試等，完成要求的功能，從而達(dá)到掌握開發(fā)一個(gè)小型數(shù)據(jù)庫(kù)的目的。系統(tǒng)需求分析階段2.1數(shù)據(jù)流圖2.1.1電話計(jì)費(fèi)管理系統(tǒng)的數(shù)據(jù)流圖2.2數(shù)據(jù)字典數(shù)據(jù)流編號(hào)：D01數(shù)據(jù)流名稱：客戶

4、受理簡(jiǎn) 述：工作人員對(duì)客戶進(jìn)行受理數(shù)據(jù)流來(lái)源：客戶要求數(shù)據(jù)流輸出：客戶受理情況數(shù)據(jù)流組成：客戶姓名、受理號(hào)碼、受理內(nèi)容數(shù)據(jù)流編號(hào)：D02數(shù)據(jù)流名稱：客戶資料簡(jiǎn) 述：客戶的基本信息數(shù)據(jù)流來(lái)源：客戶數(shù)據(jù)流輸出：資料信息數(shù)據(jù)流組成：客戶姓名、聯(lián)系電話、聯(lián)系地址、套餐名稱、手機(jī)號(hào)碼、手機(jī)密碼數(shù)據(jù)流編號(hào)：D03數(shù)據(jù)流名稱：收款簡(jiǎn) 述：收銀員對(duì)客戶業(yè)務(wù)進(jìn)行受理，客戶繳費(fèi)數(shù)據(jù)流來(lái)源：客戶信息數(shù)據(jù)流輸出：客戶數(shù)據(jù)流組成：手機(jī)號(hào)碼、客戶姓名、應(yīng)收費(fèi)用、余額數(shù)據(jù)流編號(hào)：D04數(shù)據(jù)流名稱：通話信息簡(jiǎn) 述：客戶的通話被記錄了下來(lái)數(shù)據(jù)流來(lái)源：客戶數(shù)據(jù)流輸出：客戶通話記錄數(shù)據(jù)流組成：來(lái)電號(hào)碼、去電號(hào)碼、通話時(shí)長(zhǎng)、通話時(shí)間

5、、單位費(fèi)用、總費(fèi)用數(shù)據(jù)流編號(hào)：D05數(shù)據(jù)流名稱：收款員簡(jiǎn) 述：收款員登錄系統(tǒng)進(jìn)行工作數(shù)據(jù)流來(lái)源：收款員數(shù)據(jù)流輸出：收款員信息數(shù)據(jù)流組成：姓名、密碼數(shù)據(jù)流編號(hào)：D06數(shù)據(jù)流名稱：客戶消費(fèi)簡(jiǎn) 述：收銀員登錄系統(tǒng)后對(duì)客戶進(jìn)行受理數(shù)據(jù)流來(lái)源：收銀員數(shù)據(jù)流輸出：受理信息數(shù)據(jù)流組成：手機(jī)號(hào)碼、客戶姓名、通話費(fèi)、新業(yè)務(wù)費(fèi)、費(fèi)用合計(jì)、套餐名稱功能需求分析電話計(jì)費(fèi)庫(kù)管理系統(tǒng)功能：1)月花費(fèi)查詢 ：客戶可對(duì)每月的話費(fèi)進(jìn)行查詢 （每項(xiàng)記錄包括通話費(fèi)、 新業(yè)務(wù)費(fèi)、費(fèi)用合計(jì)、實(shí)繳費(fèi)用合計(jì)等信息） 。2)帳戶余額查詢： 客戶可查詢?cè)捹M(fèi)單上的余額。3)用戶資料查詢： 客戶可以查閱個(gè)人資料。4)業(yè)務(wù)查詢： 客戶可以實(shí)時(shí)了解個(gè)

6、部門的各項(xiàng)活動(dòng)。5)查詢讀者：可根據(jù)條件進(jìn)行高級(jí)查詢，并允許模糊查詢。5)繳費(fèi)信息 ：管理員可根據(jù)用戶所繳的話費(fèi)進(jìn)行計(jì)費(fèi)， 并反饋給用戶，用戶在交費(fèi)的同時(shí)可打印發(fā)票。7)插入讀者：添加新讀者，需要填入足夠的信息，并判斷信息是否有效。6)月話費(fèi)管理： 管理員可對(duì)每月的話費(fèi)記錄進(jìn)行逐條添加、更新和刪除。7)客戶受理結(jié)果： 管理員可對(duì)每月的話費(fèi)記錄進(jìn)行逐條添加、更新和刪除。概念結(jié)構(gòu)設(shè)計(jì)階段4.1 ER邏輯結(jié)構(gòu)設(shè)計(jì)階段：5.1關(guān)系模式E-R圖向關(guān)系模型的轉(zhuǎn)換 實(shí)體及其屬性 客戶： 客戶姓名，聯(lián)系電話，聯(lián)系地址，套餐名稱 應(yīng)收款額： 賬戶編號(hào)，手機(jī)號(hào)碼，應(yīng)收費(fèi)用，余額 話費(fèi)信息庫(kù)： 手機(jī)號(hào)碼， 客戶姓名

7、， 通話費(fèi)，新業(yè)務(wù)費(fèi)， 費(fèi)用合計(jì)，套餐名稱 收費(fèi)員： 收費(fèi)員編號(hào)，姓名，年齡 客戶受理： 手機(jī)號(hào)碼，客戶姓名，受理內(nèi)容，受理時(shí)間 通話信息： 手機(jī)號(hào)碼，來(lái)電號(hào)碼，去電號(hào)碼，單位費(fèi)用，通話時(shí)長(zhǎng)，總費(fèi)用 聯(lián)系的屬性 使用： 手機(jī)密碼 計(jì)費(fèi)： 密碼根據(jù)轉(zhuǎn)換規(guī)則將實(shí)體轉(zhuǎn)換為關(guān)系模式本實(shí)例中沒有 1：1 關(guān)系對(duì)于 1：n 聯(lián)系，將它們與 n 端的關(guān)系模式合并。該關(guān)系模式中應(yīng)加入 1 端的碼和聯(lián)系本身的屬性。客戶： 客戶姓名， 所在城市， 套餐名稱，手機(jī)號(hào)碼，手機(jī)密碼收費(fèi)員： 收費(fèi)員編號(hào)，姓名，年齡，手機(jī)號(hào)碼，密碼對(duì)于 m ：n 的聯(lián)系，必須單獨(dú)轉(zhuǎn)換為一個(gè)關(guān)系模式，屬性由各實(shí)體的碼和聯(lián)系本身的屬性組成，

8、關(guān)系的碼為組成聯(lián)系各實(shí)體的碼的組合。支付： 客戶姓名，聯(lián)系電話，收費(fèi)員編號(hào)處理： 手機(jī)號(hào)碼，收費(fèi)員編號(hào)電話計(jì)費(fèi)系統(tǒng)的 E-R 圖，轉(zhuǎn)換為以下關(guān)系模式 ：客戶： 手機(jī)號(hào)碼，所在城市，套餐名稱，客戶姓名，手機(jī)密碼收費(fèi)員： 收費(fèi)員編號(hào)，姓名，年齡，手機(jī)號(hào)碼，密碼話費(fèi)信息：手機(jī)號(hào)碼，客戶姓名，通話費(fèi)，費(fèi)用合計(jì)，套餐名稱客戶受理：手機(jī)號(hào)碼，收費(fèi)員編號(hào)，客戶姓名，受理內(nèi)容，受理時(shí)間通話信息： 手機(jī)號(hào)碼，來(lái)電號(hào)碼，去電號(hào)碼，單位費(fèi)用，通話時(shí)長(zhǎng)，總費(fèi)用 物理結(jié)構(gòu)設(shè)計(jì)階段客戶受理表客戶資料表收款表通話信息表收費(fèi)員表消費(fèi)表數(shù)據(jù)庫(kù)實(shí)施階段7.1界面設(shè)計(jì)1）登錄界面2）boss界面主界面4）客戶受理子界面（有添加客戶

9、信息、修改客戶信息、刪除客戶信息、查詢客戶信息功能）：7.2部分代碼模塊登錄模塊Public Class RegisterLoginManagerClass Dim Flag As Boolean Function SelectUIand(ByVal User As UserInfoClass) As Boolean Dim DalUser As New UserDAO Dim Userdbs As New UserInfoClass Dim flag As Boolean Userdbs.Name = User.Name Userdbs.Password = User.Password fl

10、ag = DalUser.selectUserInfo(Userdbs) Return flag End Function Function SelectRegister(ByVal User As UserInfoClass) As Boolean Dim DalUser As New UserDAO Dim Userdbs As New UserInfoClass Userdbs.Name = User.Name Userdbs.Password = User.Password Userdbs = DalUser.InsertUserInfo(Userdbs) 判斷操作 If Userdb

11、s.Name = vbNull Then Return False Else Return True End If End FunctionEnd ClassImports System.Data.SqlClientPublic Class UserDAO 連接數(shù)據(jù)庫(kù) Dim sqlCnStr As String = server=.;uid=sa;pwd=sql;database=TelManage_data Dim sqlCn As SqlConnection = New SqlConnection(sqlCnStr) 自定義檢查參數(shù) Function selectUserInfo(ByV

12、al User As UserInfoClass) As Boolean Dim sql As String = select * from Userinfor where user_name= & User.Name & and user_pwd= & User.Password & sql語(yǔ)句 Dim cmd As SqlCommand = New SqlCommand(sql, sqlCn) 定義sqlCommand對(duì)象 Dim read As SqlDataReader 定義sqlDataReader對(duì)象 Dim read As IDataReader Dim UserDataTabl

13、e As New DataTable 定義一個(gè)DataTable對(duì)象 Dim User1 As New UserInfoClass sqlCn.Open() read = cmd.ExecuteReader() Dim flag As Boolean flag = read.Read() UserDataTable.Load(read) Return User1 If Not IsNothing(sqlCn) Then sqlCn.Close() End If Return flag End Function Function InsertUserInfo(ByVal Userdbs As U

14、serInfoClass) As UserInfoClass Throw New NotImplementedException End FunctionEnd ClassPublic Class UserInfoClass Private UserName As String Public Property Name As String Get Return UserName End Get Set(ByVal value As String) UserName = value End Set End Property Private UserPwd As String Public Pro

15、perty Password As String Get Return UserPwd End Get Set(ByVal value As String) UserPwd = value End Set End PropertyEnd Class執(zhí)行增刪改查函數(shù)模塊（部分）：Imports System.Data.SqlClientPublic Class kehuchaxunForm1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.C

16、lick Dim did As String = Me.TextBox1.Text Dim connectionString As String = Server=.;uid=sa;pwd=sql;database=TelManage_data Dim commandText As String = SELECT * FROM kehushouli Using connection As New SqlConnection(connectionString) Dim Command As SqlCommand = New SqlCommand(commandText, connection)

17、connection.Open() Dim reader As SqlDataReader = Command.ExecuteReader() While (reader.Read() = True) Me.TextBox1.Text &= reader(0) & & reader(1) & & reader(2) & vbCrLf End While connection.Close() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

18、 Handles Button2.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End SubEnd ClassImports System.Data.SqlClient /刪除Public Class kehushanchu Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha

19、ndles Button1.Click Dim did As String = Me.TextBox1.Text Dim connectionString As String = Server=.;uid=sa;pwd=sql;database=TelManage_data Dim commandTextDelete As String = DELETE FROM kehushouli WHERE kehuxingming=id Using connection As New SqlConnection(connectionString) connection.Open() Dim cmdDe

20、lete As SqlCommand = New SqlCommand(commandTextDelete, connection) cmdDelete.Parameters.AddWithValue(id, TextBox1.Text) Try Dim result As Integer = cmdDelete.ExecuteNonQuery() If result = 1 Then MsgBox(成功) Else MsgBox(刪除記錄失敗) End If Catch ex As Exception MsgBox(ex.ToString() End Try connection.Close

21、() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd ClassImports System.Data.SqlClient /插入Public Class kehutianjiaForm1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventA

22、rgs) Handles Button1.Click Dim connectionString As String = Server=.;uid=sa;pwd=sql;database=TelManage_data Dim commandTextInsert As String = INSERT INTO kehushouli(kehuxingming,shoujihaoma,shoulineirong) VALUES(a,b,c) Using connection As New SqlConnection(connectionString) connection.Open() Dim cmd

23、Insert As SqlCommand = New SqlCommand(commandTextInsert, connection) cmdInsert.Parameters.AddWithValue(a, TextBox1.Text) cmdInsert.Parameters.AddWithValue(b, TextBox2.Text) cmdInsert.Parameters.AddWithValue(c, TextBox3.Text) Try Dim result As Integer = cmdInsert.ExecuteNonQuery() If result = 1 Then

24、MsgBox(插入成功) End If Catch ex As Exception MsgBox(ex.ToString() End Try connection.Close() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd ClassImports System.Data.SqlClient /修改Public Class kehuxiugai

25、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionString As String = Server=.;uid=sa;pwd=sql;database=TelManage_data Dim commandTextUpdate As String = Update kehushouli Set shoujihaoma=bbb,shoulineirong=ccc where kehuxingming=aaa Using connection As New SqlConnection(connectionString) connection.Open() Dim cmdUpdate As SqlCommand = New SqlCommand(commandTextUpdate, connection) cmdUpdate.Parameters.AddWithValue(aaa, TextBox1.Text) cmdUpdate.Parameters.AddWithValue(bbb, TextBox2.Text) cmdUpdate.Parameters.Ad