洗衣店管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)

1、課程設(shè)計(jì)報(bào)告 課程： 數(shù)據(jù)庫(kù)系統(tǒng)原理 學(xué)號(hào)： 姓名： 班級(jí)： 教師： 華東交通大學(xué)- 14 -目錄干洗店管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)- 1 -一、緒論- 1 -二、需求分析- 1 -2.1信息要求- 1 -2.2處理要求- 1 -2.3安全性和完整性要求- 2 -三、系統(tǒng)分析- 2 -四、系統(tǒng)設(shè)計(jì)- 2 -4.1功能模塊設(shè)計(jì)- 2 -4.2數(shù)據(jù)庫(kù)設(shè)計(jì)- 3 -五、系統(tǒng)實(shí)現(xiàn)- 5 -5.1創(chuàng)建數(shù)據(jù)庫(kù)及創(chuàng)建表- 6 -5.2 創(chuàng)建應(yīng)用庫(kù)及應(yīng)用對(duì)象- 7 -5.3菜單設(shè)計(jì)- 8 -5.4創(chuàng)建數(shù)據(jù)窗口- 9 -五、總結(jié)- 15 -干洗店管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)一、緒論本系統(tǒng)是針對(duì)小型干洗店的基本管理而設(shè)計(jì)的。隨著計(jì)算

2、機(jī)技術(shù)的迅速發(fā)展，各種軟件的不斷推陳出新，作為一種用計(jì)算機(jī)作為工具來(lái)進(jìn)行各種工作的工作形式，不論是對(duì)我們傳統(tǒng)的工作、生活，還是對(duì)我們情感的表達(dá)都帶來(lái)了極其深遠(yuǎn)的意義和影響。隨著人們生活水平與消費(fèi)檔次的提高，我們生活當(dāng)中出現(xiàn)了形形色色的衣服來(lái)裝扮我們，為了對(duì)那些高檔次的衣物的清洗以及那些因?qū)W習(xí)繁忙而沒(méi)有時(shí)間進(jìn)行衣物清洗的同學(xué)提供方便的清洗條件，個(gè)個(gè)高校都有很多小型的個(gè)人經(jīng)營(yíng)的干洗店，每個(gè)小型干洗店都有很多的衣物及財(cái)務(wù)的數(shù)據(jù)需要管理，手工管理這些紛繁復(fù)雜數(shù)據(jù)的方式已經(jīng)不適應(yīng)時(shí)代的潮流，實(shí)現(xiàn)數(shù)據(jù)規(guī)范化的電腦管理，是一個(gè)管理規(guī)范、運(yùn)作高效的個(gè)人單位的必然要求。所以我們?cè)O(shè)計(jì)了校園干洗店管理系統(tǒng)，來(lái)基本解

3、決各個(gè)干洗店的要求。如果用傳統(tǒng)的方法進(jìn)行管理，既容易出錯(cuò)，透明度也不高，容易使消費(fèi)者心理產(chǎn)生陰影，造成不良的影響。本系統(tǒng)是針對(duì)一般小型干洗店出現(xiàn)的問(wèn)題進(jìn)行設(shè)計(jì)的，解決了干洗店日常的衣物與財(cái)務(wù)的管理。目前洗衣業(yè)管理狀況要滿足快速增長(zhǎng)的洗衣量，是遠(yuǎn)遠(yuǎn)不夠的，因?yàn)楫?dāng)前干洗店采用手工或半手工處理洗衣店業(yè)務(wù)流程，多用人工方式在前臺(tái)接送衣物，洗衣管理，員工管理，營(yíng)業(yè)額統(tǒng)計(jì)等，另外除了接送貨物外，還有不少業(yè)務(wù)面上用戶，客戶查看衣物狀況等，以上這些干洗店內(nèi)部業(yè)務(wù)如果用計(jì)算機(jī)來(lái)進(jìn)行管理，能大大節(jié)約大型干洗店工作人員和管理人的時(shí)間，提高工作效率。二、需求分析進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)首先必須準(zhǔn)確了解與分析用戶需求（包括數(shù)據(jù)與

4、處理），需求分析是整個(gè)設(shè)計(jì)過(guò)程的基礎(chǔ)。2.1信息要求隨著人門生活水平與消費(fèi)檔次的提高,我門生活當(dāng)中出現(xiàn)了形形色色的衣服來(lái)裝扮,為了對(duì)那些非常高檔次的衣物的和那些工作繁忙沒(méi)有時(shí)間做家務(wù)人們的衣物能夠方便的清洗,個(gè)個(gè)街道都有很多小型的個(gè)人經(jīng)營(yíng)的干洗店,每個(gè)小型干洗店都有很多的衣物及財(cái)務(wù)的數(shù)據(jù)需要管理,所以我們?cè)O(shè)計(jì)了干洗店數(shù)據(jù)庫(kù)管理系統(tǒng),來(lái)基本解決各個(gè)干洗店的要求2.2處理要求能夠進(jìn)行數(shù)據(jù)庫(kù)的數(shù)據(jù)定義、數(shù)據(jù)操縱、數(shù)據(jù)控制等處理功能,進(jìn)行聯(lián)機(jī)處理的相應(yīng)時(shí)間要短。2.3安全性和完整性要求對(duì)于干洗店來(lái)說(shuō)，數(shù)據(jù)的安全性最為重要。要保護(hù)數(shù)據(jù)庫(kù)以防止不合法的使用所造成的數(shù)據(jù)泄漏、更改和破壞，同時(shí)要保證數(shù)據(jù)的正確

5、性和相容性，防止不合語(yǔ)義的數(shù)據(jù)進(jìn)入數(shù)據(jù)庫(kù)。三、系統(tǒng)分析干洗店信息管理工作是干洗店管理工作的重要組成部分，現(xiàn)在相當(dāng)一部分干洗店信息管理工作仍沿用手工方式。隨著社會(huì)發(fā)展、在干洗店洗衣服的人數(shù)增加，效率低下、容易出錯(cuò)的手工方式越來(lái)越不適應(yīng)實(shí)際管理工作的需要，按照軟件工程原理和數(shù)據(jù)庫(kù)技術(shù)開(kāi)發(fā)干洗店信息管理系統(tǒng)已成為干洗店的迫切需要。干洗店信息管理系統(tǒng)主要包括以下功能：1 完成數(shù)據(jù)的錄入和修改，并提交數(shù)據(jù)庫(kù)保存。其中的數(shù)據(jù)包括：客戶信息、衣物信息、洗衣時(shí)間信息以及操作員信息等；2實(shí)現(xiàn)信息查詢。主要包括：客戶信息、衣物信息查詢和洗衣查詢等；3具備一定的安全性管理功能。包括操作員的權(quán)限設(shè)置、密碼設(shè)置和修改密

6、碼等功能。四、系統(tǒng)設(shè)計(jì)4.1功能模塊設(shè)計(jì)本系統(tǒng)采用C/S體系結(jié)構(gòu)，客戶端負(fù)責(zé)提供表達(dá)邏輯、顯示用戶界面信息、訪問(wèn)數(shù)據(jù)庫(kù)服務(wù)器，采用VB作為開(kāi)發(fā)工具；服務(wù)器端則用于提供數(shù)據(jù)服務(wù)，采用SQL Server2000作為數(shù)據(jù)庫(kù)管理系統(tǒng)。本系統(tǒng)按照功能劃分為以下四個(gè)模塊：客戶管理（包括客戶信息錄入和客戶信息查詢）、衣物管理（包括衣物信息添加和衣物信息查詢）、洗衣管理（包括洗衣信息錄入和洗衣信息查詢）和系統(tǒng)管理（包括密碼修改和退出系統(tǒng)等）。系統(tǒng)的功能模塊圖如圖1所示：干洗店管理系統(tǒng)客戶管理衣物管理洗衣管理系統(tǒng)管理圖1 系統(tǒng)的功能模塊圖4.2數(shù)據(jù)庫(kù)設(shè)計(jì)4.2.1數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)主要有客戶和洗衣兩個(gè)實(shí)

7、體集，一個(gè)客戶包含若干信息，兩個(gè)實(shí)體集之間是多對(duì)多聯(lián)系，聯(lián)系上有收取費(fèi)用。為保證系統(tǒng)的安全性，設(shè)置了操作員這一實(shí)體集，用來(lái)存放合法用戶的編號(hào)、姓名、密碼和權(quán)限。本系統(tǒng)的E-R圖如圖2所示：n顧客洗衣衣物衣物單價(jià)衣物顏色衣物品牌衣物名稱衣物編號(hào)送衣時(shí)間取衣時(shí)間收取費(fèi)用聯(lián)系地址聯(lián)系電話身份證號(hào)性別姓名顧客編號(hào)m操作員操作員編號(hào)操作員姓名名密碼權(quán)限圖2 系統(tǒng)的E-R圖4.2.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)邏輯結(jié)構(gòu)是獨(dú)立于任何一種數(shù)據(jù)模型的信息結(jié)構(gòu)。邏輯結(jié)構(gòu)的任務(wù)是把概念結(jié)構(gòu)設(shè)計(jì)階段設(shè)計(jì)好的基本E-R圖轉(zhuǎn)化為宜選用的DBMS所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)，并對(duì)其進(jìn)行優(yōu)化。E-R圖向關(guān)系模型轉(zhuǎn)化要解決的問(wèn)題是如

8、何將實(shí)體型和實(shí)體間的聯(lián)系轉(zhuǎn)化為關(guān)系模式，如何確定這些關(guān)系模式的屬性和碼。設(shè)計(jì)干洗店數(shù)據(jù)庫(kù)，包括顧客、衣物、員工四個(gè)關(guān)系，其關(guān)系模式中對(duì)每個(gè)實(shí)體定義的屬性如下：顧客（customer）:顧客編號(hào)、姓名、性別、身份證號(hào)、聯(lián)系電話、聯(lián)系地址衣物（clothes）: 衣物編號(hào)、衣物名稱、衣物顏色、衣物品牌、衣物單價(jià)洗衣（washing）：顧客編號(hào)、衣物編號(hào)、衣物名稱、衣物品牌、送衣時(shí)間、取衣時(shí)間、收取費(fèi)用操作員（操作員編號(hào),操作員姓名,密碼,權(quán)限）1、顧客表（customer）字段名字段類型字段長(zhǎng)度字段限制注釋cunovarchar20Primary key顧客編號(hào)cunamevarchar40Not

9、 null姓名cusexchar4Not null性別idvarchar20Not null身份證號(hào)telvarchar20Not null聯(lián)系電話addressvarchar100Not null聯(lián)系地址2、衣物表（clothes）字段名字段類型字段長(zhǎng)度字段限制注釋clnovarchar40Primary key衣物編號(hào)clnamevarchar40 衣物名稱brandvarchar40 衣物品牌colorvarchar20Not null衣物顏色pricemoney Not null衣物單價(jià)3、洗衣表（washing）字段名字段類型字段長(zhǎng)度字段限制注釋cunovarchar20Primar

10、y key顧客編號(hào)clnovarchar40Primary key衣物編號(hào)sendtimedatetime Not null送衣時(shí)間taketimedatetime Not null取衣時(shí)間pricemoney Not null收取費(fèi)用4、操作員（operator）字段名字段類型字段長(zhǎng)度子段限制注釋opeartornovarchar20Primary key操作員編號(hào)operatornamevarchar40Not null操作員姓名passwordvarchar6Not null密碼permissionvarcharNot null權(quán)限五、系統(tǒng)實(shí)現(xiàn)結(jié)合PowerBuilder進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用開(kāi)

11、發(fā)的特點(diǎn)，設(shè)計(jì)過(guò)程可按如下步驟進(jìn)行：l         創(chuàng)建數(shù)據(jù)庫(kù)及創(chuàng)建表；l         創(chuàng)建應(yīng)用庫(kù)及應(yīng)用對(duì)象；l         創(chuàng)建菜單；l         創(chuàng)建數(shù)據(jù)窗口；l        

12、 創(chuàng)建窗口并在窗口中放置所需控件。5.1創(chuàng)建數(shù)據(jù)庫(kù)及創(chuàng)建表在SQL 2000 查詢分析器中創(chuàng)建數(shù)據(jù)庫(kù)XYD_DB，在數(shù)據(jù)庫(kù)中創(chuàng)建顧客表（customer），衣物表（clothes），洗衣表（washing），操作員（operator）。對(duì)應(yīng)代碼入下：1、創(chuàng)建數(shù)據(jù)庫(kù)zqy：Create database zqy2、創(chuàng)建數(shù)據(jù)表顧客基本情況數(shù)據(jù)表customer(cuno,cuname,cusex,id,tel,address)的創(chuàng)建語(yǔ)句：create table customer (cuno varchar(20) primary key,cuname varchar(40) not null,c

13、usex char(4) not null, id varchar(20) not null unique,tel varchar(20) not null, address varchar(100)not null)衣物基本情況數(shù)據(jù)表clothes(clno,clname,brand,color,price)的創(chuàng)建語(yǔ)句：create table clothes(clno varchar(40) primary key(clno), clname varchar(40) , brand varchar(40), color varchar(20) not null, price moneyno

14、t null,)洗衣基本情況數(shù)據(jù)表washing(cuno,clno,sendtime,taketime,price)的創(chuàng)建語(yǔ)句：create table washing(cuno varchar(20), clno varchar(40) , sendtime datetime not null, taketime datetime not null, price money not null, primary key(cuno,clno), foreign key(cuno) references customer(cuno), foreign key(clno) references c

15、lothes(clno)操作員數(shù)據(jù)表operator(opeartorno,opeatorname,password)的創(chuàng)建語(yǔ)句：create table operator (operatorno varchar(20) primary key,operatorname varchar(40) not null,password varchar (6) not null,5.2 創(chuàng)建應(yīng)用庫(kù)及應(yīng)用對(duì)象在VB中新建工程，命名為干洗店管理系統(tǒng)，對(duì)數(shù)據(jù)庫(kù)的操作設(shè)計(jì)一個(gè)可被各模塊調(diào)用的函數(shù)放入公共模塊。在工程中添加公共模塊，在工程引用中添加 【Microsofit ActiveX Data Object

16、s 2.8 Library】。公共模塊代碼如下：Public Function ExecuteSQL(ByValSQL As String, Msgstring As String) As ADODB.RecordsetDim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnection As String Dim strArray() As String Set cn = New ADODB.Connection Set rs = New ADODB.Recordset On Error GoTo ErrHandler:

17、 strConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1" strArray = Split(sql) cn.Open strConnection If StrComp(UCase$(strArray(0), "select", vbTextCompare) = 0 Then rs.Open Trim$(sql), cn, adOpenKeyset,

18、 adLockOptimistic Set ExeSQL = rs Else cn.Execute sql End IfExeSQL_Exit: Set rs = Nothing Set cn = Nothing Exit FunctionErrHandler: ' 顯示錯(cuò)誤信息 MsgBox "錯(cuò)誤號(hào):" & Err.Number & " 錯(cuò)誤信息：" & Err.Description, vbExclamation Resume ExeSQl_ExitEnd FunctionPublic Sub changeformX

19、YD_DB(frmain As MDIForm, frm As Form)Dim Top As IntegerTop = (frmMain.ScaleHeight - frm.Height) / 2 - 600If Top > 0 Thenfrm.Top = TopElsefrm.Top = 0End Iffrm.Left = (frmMain.ScaleWidth - frm.Width) / 2End SubSub Main()frmLogin.ShowEnd Sub5.3菜單設(shè)計(jì)1.在工程中添加【添加MDI窗口】2.打開(kāi)此窗口屬性設(shè)置3.在菜單編輯器中添加菜單，設(shè)置菜單層次菜單如圖

20、：圖 3 系統(tǒng)菜單窗口5.4創(chuàng)建數(shù)據(jù)窗口1.在工程中添加登錄窗口，添加各控件并設(shè)置各控件屬性。如圖 圖4 登陸窗口確定鍵命令代碼：Private Sub cmdOk_Click() Dim sql As String Dim rs As ADODB.Recordset Dim UserName As String Dim UserKey As Integer On Error GoTo ErrHandler: If Trim(UserName.Text = "") Then MsgBox "請(qǐng)輸入用戶名稱！", vbExclamation UserNam

21、e.SetFocus Else sql = "select * from operator where opname = '" & UserName.Text & "'" Set rs = ExeSQL(sql) If rs.EOF = True Then MsgBox "沒(méi)有此用戶，請(qǐng)重新輸入用戶名！", vbExclamation UserName.SetFocus Else If Trim(rs! Password) = Trim(UserKey.Text) Then Intopno = rs!o

22、pno rs.Close Me.Hide frmMain.Show Unload Me Else MsgBox "密碼不正確，請(qǐng)重新輸入密碼！", vbExclamation UserKey.SetFocus UserKey.Text = "" End If End If End If Exit SubErrHandler: MsgBox "錯(cuò)誤號(hào)：" & Err.Number & "錯(cuò)誤描述：" & Err.DescriptionEnd Sub衣物信息添加窗口圖 5 衣物信息添加窗口保存鍵

23、代碼：Private Sub Command1_Click()Dim i As Integer Dim sql As String Dim monPrice As Currency If Trim(clno(i) = "" Then MsgBox "此項(xiàng)不允許為空！", vbExclamation txtProductInfo(i).SetFocus Exit Sub End If Next i If IsNumeric(txtProductInfo(0).Text) = False Then MsgBox "編號(hào)應(yīng)為數(shù)字量！", v

24、bExclamation txtProductInfo(0).SetFocus Exit Sub End If If IsNumeric(txtProductInfo(2).Text) = False Then MsgBox "應(yīng)為數(shù)字量！", vbExclamation txtProductInfo(2).SetFocus Exit Sub Else monPrice = txtProductInfo(2).Text End If End If sql = "insert Products(ProductID,ProductName,UnitPrice,Unit

25、,Remark) " & _ "values(" & txtProductInfo(0).Text & ",'" & _ txtProductInfo(1).Text & "'," & monPrice & ",'" sql = sql & cboUnit.Text & "','" & txtProductInfo(4).Text & "')

26、" ExeSQL (sql) sql = "insert ProductIn values(" & txtProductInfo(0).Text & "," & _ txtProductInfo(3).Text & ",'" & dtpInDate.Value & "')" ExeSQL (sql) MsgBox "數(shù)據(jù)添加成功！", vbExclamation InitControlEnd Sub2.用客戶信息查詢窗口如圖圖6 客戶信息查詢窗口查找客戶信息窗口 查找鍵代碼：Private Sub Command1_Click() Dim strQuery As String On Error GoTo ErrHandler: If Option1.Value = True Then If Trim(