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

1、標(biāo)準(zhǔn)實(shí)用文案多運(yùn)堀孕險(xiǎn)數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告設(shè)計(jì)題目：電話(huà)計(jì)費(fèi)管理系統(tǒng)文檔目錄1. 課程設(shè)計(jì)目的42. 系統(tǒng)需求分析階段42.1數(shù)據(jù)流圖42.2數(shù)據(jù)字典53. 功能需求分析54. 概念結(jié)構(gòu)設(shè)計(jì)階段 64.1 全局 ER65. 邏輯結(jié)構(gòu)設(shè)計(jì)階段： 65.1關(guān)系模式66. 物理結(jié)構(gòu)設(shè)計(jì)階段 77. 數(shù)據(jù)庫(kù)實(shí)施階段87.1界面設(shè)計(jì)87.2部分代碼模塊 10.8. 實(shí)驗(yàn)總結(jié)：1.71. 課程設(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ù) 管

2、理系統(tǒng)進(jìn)行需求分析、系統(tǒng)設(shè)計(jì)、數(shù)據(jù)庫(kù)設(shè)計(jì)、編碼，測(cè)試等，完成要求的功能，從而達(dá)到掌握開(kāi)發(fā)一個(gè)小型 數(shù)據(jù)庫(kù)的目的。2. 系統(tǒng)需求分析階段2.1數(shù)據(jù)流圖2.1.1電話(huà)計(jì)費(fèi)管理系統(tǒng)的數(shù)據(jù)流圖r木兒jircKU收2.2 客戶(hù)費(fèi)用 、情況MM Jb|乞詆牡耳 僅詒j ,1丿匪尸J傘7咨 i 煮詢(xún)收費(fèi) 人員 登入細(xì)匕# fu單套餐佶息羊金客罰甲”顯示結(jié)曇/ N 客戶(hù)彳言息悄況收費(fèi)員收費(fèi) 員磁料扌陡告單2.2數(shù)據(jù)字典數(shù)據(jù)流編號(hào)：D01數(shù)據(jù)流名稱(chēng)：客戶(hù)受理簡(jiǎn)述：工作人員對(duì)客戶(hù)進(jìn)行受理數(shù)據(jù)流來(lái)源：客戶(hù)要求數(shù)據(jù)流輸出：客戶(hù)受理情況數(shù)據(jù)流組成：客戶(hù)姓名、受理號(hào)碼、受理內(nèi)容數(shù)據(jù)流編號(hào)：D02數(shù)據(jù)流名稱(chēng)：客戶(hù)資料簡(jiǎn)述：

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

4、名稱(chēng)：客戶(hù)消費(fèi)簡(jiǎn)述：收銀員登錄系統(tǒng)后對(duì)客戶(hù)進(jìn)行受理數(shù)據(jù)流來(lái)源：收銀員數(shù)據(jù)流輸出：受理信息數(shù)據(jù)流組成：手機(jī)號(hào)碼、客戶(hù)姓名、通話(huà)費(fèi)、新業(yè)務(wù)費(fèi)、費(fèi)用合計(jì)、套餐名稱(chēng)3. 功能需求分析電話(huà)計(jì)費(fèi)庫(kù)管理系統(tǒng)功能：1）月花費(fèi)查詢(xún)：客戶(hù)可對(duì)每月的話(huà)費(fèi)進(jìn)行查詢(xún)（每項(xiàng)記錄包括通話(huà)費(fèi)、新業(yè)務(wù)費(fèi)、費(fèi)用合計(jì)、實(shí)繳費(fèi)用合計(jì)等信息）。2）帳戶(hù)余額查詢(xún)：客戶(hù)可查詢(xún)?cè)捹M(fèi)單上的余額。3）用戶(hù)資料查詢(xún)：客戶(hù)可以查閱個(gè)人資料。4）業(yè)務(wù)查詢(xún)：客戶(hù)可以實(shí)時(shí)了解個(gè)部門(mén)的各項(xiàng)活動(dòng)。5）查詢(xún)讀者：可根據(jù)條件進(jìn)行高級(jí)查詢(xún)，并允許模糊查詢(xún)。5）繳費(fèi)信息：管理員可根據(jù)用戶(hù)所繳的話(huà)費(fèi)進(jìn)行計(jì)費(fèi)，并反饋給用戶(hù)，用戶(hù)在交費(fèi)的同時(shí)可打印發(fā)票。7）插入讀者：添加

5、新讀者，需要填入足夠的信息，并判斷信息是否有效。6）月話(huà)費(fèi)管理：管理員可對(duì)每月的話(huà)費(fèi)記錄進(jìn)行逐條添加、更新和刪除。7）客戶(hù)受理結(jié)果：管理員可對(duì)每月的話(huà)費(fèi)記錄進(jìn)行逐條添加、更新和刪除。4概念結(jié)構(gòu)設(shè)計(jì)階段4.1 ER收費(fèi)員姓名號(hào)碼應(yīng)收款項(xiàng)I5.邏輯結(jié)構(gòu)設(shè)計(jì)階段：5.1關(guān)系模式E-R圖向關(guān)系模型的轉(zhuǎn)換實(shí)體及其屬性客戶(hù)：客戶(hù)姓名，聯(lián)系電話(huà)，聯(lián)系地址，套餐名稱(chēng) 應(yīng)收款額： 賬戶(hù)編號(hào)，手機(jī)號(hào)碼，應(yīng)收費(fèi)用，余額話(huà)費(fèi)信息庫(kù)：手機(jī)號(hào)碼，客戶(hù)姓名， 通話(huà)費(fèi)，新業(yè)務(wù)費(fèi)，費(fèi)用合計(jì)，套餐名稱(chēng)收費(fèi)員：收費(fèi)員編號(hào)，姓名，年齡客戶(hù)受理：手機(jī)號(hào)碼，客戶(hù)姓名，受理內(nèi)容，受理時(shí)間通話(huà)信息：手機(jī)號(hào)碼，來(lái)電號(hào)碼，去電號(hào)碼，單位費(fèi)用，通

6、話(huà)時(shí)長(zhǎng)，總費(fèi)用聯(lián)系的屬性使用：手機(jī)密碼計(jì)費(fèi)：密碼根據(jù)轉(zhuǎn)換規(guī)則將實(shí)體轉(zhuǎn)換為關(guān)系模式本實(shí)例中沒(méi)有1:1關(guān)系對(duì)于1 : n聯(lián)系，將它們與 n端的關(guān)系模式合并。該關(guān)系模式中應(yīng)加入1端的碼和聯(lián)系本身的屬性。客戶(hù)：客戶(hù)姓名， 所在城市， 套餐名稱(chēng)，手機(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)系本身的屬性組成，關(guān)系的碼為組成聯(lián)系各實(shí)體的碼的組合。支付：客戶(hù)姓名，聯(lián)系電話(huà)，收費(fèi)員編號(hào)處理：手機(jī)號(hào)碼，收費(fèi)員編號(hào)電話(huà)計(jì)費(fèi)系統(tǒng)的 E-R圖，轉(zhuǎn)換為以下關(guān)系模式：客戶(hù)：手機(jī)號(hào)碼，所在城市，套餐名稱(chēng)，客戶(hù)姓名，手機(jī)密碼收費(fèi)員：收費(fèi)員

7、編號(hào)，姓名，年齡，手機(jī)號(hào)碼，密碼話(huà)費(fèi)信息：手機(jī)號(hào)碼，客戶(hù)姓名，通話(huà)費(fèi)，費(fèi)用合計(jì)，套餐名稱(chēng)客戶(hù)受理：手機(jī)號(hào)碼，收費(fèi)員編號(hào)，客戶(hù)姓名，受理內(nèi)容，受理時(shí)間通話(huà)信息：手機(jī)號(hào)碼，來(lái)電號(hào)碼，去電號(hào)碼，單位費(fèi)用，通話(huà)時(shí)長(zhǎng)，總費(fèi)用6. 物理結(jié)構(gòu)設(shè)計(jì)階段客戶(hù)受理表SDWM 2OlrtO921TP.T dbo.kehuthoul汁對(duì)漏營(yíng)理謂詳馮信息列售數(shù)揚(yáng)類(lèi)喫 kehuxirqrriirinchar(lO)a bad. a Mi a lAiiB Bria.!Eshoujiha 口 mmint圍shoulineirongndiar(lO)回B客戶(hù)資料表SO WM -2O14O9 21Tf-_- Htso.lcehu

8、zilioSDWM-刮有 客戶(hù)姓茗mb廠(chǎng)cdn曰廠(chǎng)n聯(lián)乘也話(huà)va rebar 手機(jī)號(hào)碼手機(jī)自瑪W日廠(chǎng)C1日廠(chǎng)亍匸*)收款表SDWM-O14O921TP_.cdbo.shoukuanbiaoSDWM-2O：歹Li容救至居次型 手機(jī)號(hào)碼ncHarflOi客戶(hù)姓容ncharClO)直收奏用ncharClO)nrharClO)-20140921TP dbo.tonghuaxi nxiSDWM-2O1-列名_允許全_. 來(lái)電.號(hào)碼ncharflC)O去電號(hào)瑪ndnr(lO)遇話(huà)時(shí)怔nchar tlC)通話(huà)時(shí)間nchar tie)回早4豆據(jù)用nchar(lC)|總矣用nchar(lC)|敵收費(fèi)員表通話(huà)信息

9、表DWM 2014092lTP.T.ata dbo.xiaofei SDWM-20140g列啟數(shù)扌居類(lèi)型允許空手機(jī)號(hào)碼nctiar(lO)客戶(hù)姓名ncharflO)通話(huà)弟varchar(lO)新業(yè)努離nd-iar(lO)黃用臺(tái)計(jì)nchar(lO)壓套餐容稱(chēng)nchr10)畫(huà)7.數(shù)據(jù)庫(kù)實(shí)施階段7.1界面設(shè)計(jì)1 ）登錄界面2) boss界面3）主界面歡迎進(jìn)入電話(huà)計(jì)費(fèi)管理系統(tǒng)中國(guó)移動(dòng)通信1 CHINA MOBILE中國(guó)移動(dòng)CHINA MC退出4 ）客戶(hù)受理子界面（有添加客戶(hù)信息、修改客戶(hù)信息、刪除客戶(hù)信息、查詢(xún)客戶(hù)信息功能）7.2部分代碼模塊登錄模塊Public Class RegisterLogin

10、ManagerClassDim Flag As BooleanFunction SelectUIand( ByVal User As UserInfoClass ) As BooleanDim DalUser As New UserDAODim Userdbs As New User In foClassDim flag As BooleanUserdbs.Name = User.NameUserdbs.Password = User.Passwordflag = DalUser.selectUserI nfo(Userdbs)Return flagEnd FunctionFunction S

11、electRegister( ByVal User As UserInfoClass ) As BooleanDim DalUser As New UserDAODim Userdbs As New User In foClassUserdbs.Name = User.NameUserdbs.Password = User.PasswordUserdbs = DalUser.I nsertUserl nfo(Userdbs)判斷操作If Userdbs.Name = vbNull The nReturn FalseElseReturn TrueEnd IfEnd FunctionEnd Cla

12、ssImports System.Data.SqlClie ntPublic Class UserDAO連接數(shù)據(jù)庫(kù)Dim sqlCnStr As String = server=.;uid=sa;pwd=sql;database=TelManage_dataDim sqlCn As SqlConnection= New SqlConnection (sqlCnStr)自定義檢查參數(shù)Function selectUserInfo( ByVal User As UserInfoClass ) As Booleanand user_pwd= &對(duì)象Dim sql As String = select

13、 * from Userinfor where user_name=& User.Name &User.Password &sql語(yǔ)句Dim cmd As SqlCommand = New SqlCommand (sql, sqlCn)定義 sqlCommandDim read As SqlDataReader定義 sqlDataReader 對(duì)象Dim read As IDataReaderDim UserDataTable As New DataTable定義一個(gè) DataTable 對(duì)象Dim Useri As New UserInfoClasssqlC n. Ope n()read =

14、 cmd.ExecuteReader()Dim flag As Booleanflag = read.Read()UserDataTable.Load(read)Retur n UserlIf Not IsNothing(sqlCn)ThensqlC n.Close()End IfReturn flagEnd FunctionFunction InsertUserInfo( ByVal Userdbs As UserInfoClass ) As UserInfoClassThrow New NotImplementedExceptionEnd FunctionEnd ClassPublic C

15、lass UserInfoClassPrivate UserName As StringPublic Property Name As StringGetReturn UserNameEnd GetSet(ByVal value As String )UserName = valueEnd SetEnd PropertyPrivate UserPwd As StringPublic Property Password As StringGetReturn UserPwdEnd GetSet(ByVal value As String )UserPwd = valueEnd SetEnd Pro

16、pertyEnd Class執(zhí)行增刪改查函數(shù)模塊(部分)：Imports System.Data.SqlClie ntPublic Class kehuchaxunForm1Private Sub Butt on 1_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Han dlesButto n1.ClickDim did As String = Me .TextBox1.TextDim connectionStringAs String = Server=.;uid=sa;pwd=sql;dat

17、abase=TelManage_dataDim commandText As String = SELECT * FROM kehushouli Using connection As New SqlConnection (connectionString)Dim Comma nd As SqlComma nd = New SqlComma nd (comma ndText, conn ecti on) conn ecti on. Ope n()Dim reader As SqlDataReader = Command.ExecuteReader()While (reader.Read() =

18、 True)Me .TextBox1.Text &= reader(O) & & reader & & reader(2) & vbCrLfEnd Whileconn ecti on .Close()End UsingEnd SubPrivate Sub Butt on 2_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Han dlesButto n2.ClickMe .Close()End SubPrivate Sub TextBox1_TextChanged(senderAs Object

19、, e As EventArgs ) Handles TextBox1.TextChangedEnd SubEnd ClassImports System.Data.SqlClient / 刪除Public Class kehushanchuPrivate Sub Butt on 1_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Han dlesButto n1.ClickDim did As String = Me .TextBox1.TextDim connectionStringAs St

20、ring = Server=.;uid=sa;pwd=sql;database=TelManage_dataDim commandTextDeleteAs String = DELETE FROM kehushouli WHERE kehuxingming=idUsing connection As New SqlConnection (connectionString)conn ecti on. Ope n()Dim cmdDelete As SqlCommand = New SqlCommand (commandTextDelete, connection) cmdDelete.Param

21、eters.AddWithValue( id , TextBox1.Text)TryDim result Asinteger = cmdDelete.ExecuteNonQuery()If result = 1 The nMsgBox(成功)ElseMsgBox(刪除記錄失敗)End IfCatch ex As ExceptionMsgBox(ex.ToStr in g()End Tryconn ecti on .Close()End UsingEnd SubPrivate Sub Butt on 2_Click( ByVal sen der As System. Object , ByVal

22、 e As System. Eve ntArgs ) Han dlesButto n2.ClickMe .Close()End SubEnd ClassImports System.Data.SqlClient / 插入Public Class kehutianjiaForm1Private Sub Butt on 1_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Han dles Butto n1.ClickDim connectionString As String = Server=.;u

23、id=sa;pwd=sql;database=TelManage_dataDim commandTextlnsertAs String = INSERT INTOkehushouli(kehux ingmin g,shoujihaoma,shouli neir ong) VALUES(a,b,c)Using connection As New SqlConnection (connectionString)conn ecti on. Ope n()Dim cmdInsert As SqlCommand = New SqlCommand (commandTextInsert, connectio

24、n)a , TextBox1.Text)b , TextBox2.Text)c , TextBox3.Text)cmdI nsert.Parameters.AddWithValue(cmdI nsert.Parameters.AddWithValue(cmdI nsert.Parameters.AddWithValue(TryDim result Asinteger = cmdInsert.ExecuteNonQuery()If result = 1 The nMsgBox(插入成功)End IfCatch ex As ExceptionMsgBox(ex.ToStr in g()End Tr

25、yconn ecti on .Close()End UsingEnd SubPrivate Sub Butt on 2_Click( ByVal sen der As System. Object , ByVal e As System. Eve ntArgs ) Han dlesButto n2.ClickMe .Close()End SubEnd ClassImports System.Data.SqlClient / 修改Public Class kehuxiugaiPrivate Sub Butt on 1_Click( ByVal sen der As System. Object

26、, ByVal e As System. Eve ntArgs ) Han dlesButto nl.ClickDim connectionStringAs String = Server=.;uid=sa;pwd=sql;database=TelManage_dataDim commandTextUpdate As String = Update kehushouli Set shoujihaoma=bbb,shoulineirong=ccc where kehux ingmin g=aaaUsing connectionAs New SqlConnection (connectionString)conn ecti on. Ope n()Dim cmdUpdate As SqlCommand = New SqlCommand (commandTextUpdate, connection)cmdUpdate.Parameters.AddWithValue(aaa, TextBoxl.Text)cmdUpdate.Parameters.AddWithValue(bbb, TextBox2.Text)cmdUpdate