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

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

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

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

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

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

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

7、計本系統(tǒng)主要有客戶和洗衣兩個實體集，一個客戶包含若干信息，兩個實體集之間是多對多聯(lián)系，聯(lián)系上有收取費(fèi)用。為保證系統(tǒng)的安全性，設(shè)置了操作員這一實體集，用來存放合法用戶的編號、姓名、密碼和權(quán)限。本系統(tǒng)的E-R圖如圖2所示：4.2.2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計邏輯結(jié)構(gòu)是獨(dú)立于任何一種數(shù)據(jù)模型的信息結(jié)構(gòu)。 邏輯結(jié)構(gòu)的任務(wù)是把概念 結(jié)構(gòu)設(shè)計階段設(shè)計好的基本E-R圖轉(zhuǎn)化為宜選用的DBMST支持的數(shù)據(jù)模型相符 合的邏輯結(jié)構(gòu)，并對其進(jìn)行優(yōu)化。E-R圖向關(guān)系模型轉(zhuǎn)化要解決的問題是如何將實體型和實體間的聯(lián)系轉(zhuǎn)化為關(guān)系模式，如何確定這些關(guān)系模式的屬性和碼。設(shè)計干洗店數(shù)據(jù)庫，包括顧客、衣物、員工四個關(guān)系，具關(guān)系模式中對每個

8、 實體定義的屬性如下：顧客（customer）:顧客編號、姓名、性別、身份證號、聯(lián)系電話、聯(lián)系地衣物（clothes ）:衣物編號、衣物名稱、衣物顏色、衣物品牌、衣物單價洗衣（washing）：顧客編號、衣物編號、衣物名稱、衣物品牌、送衣時間、 取衣時間、收取費(fèi)用操作員（操作員編號,操作員姓名，密碼,權(quán)限） 1、顧客表（customer）字段名1字段類型字段長度字段限制注釋cunovarchar20Primary key顧客編號cunamevarchar40Not null姓名cusexchar4Not null性別idvarchar20Not null身份證號telvarchar20Not

9、null聯(lián)系電話addressvarchar100Not null聯(lián)系地址2、衣物表（clothes ）字段名字段類型字段長度字段限制注釋clnovarchar40Primary key衣物編號clnamevarchar40衣物名稱brandvarchar40衣物品牌colorvarchar20Not null衣物顏色pricemoneyNot null衣物單價3、洗衣表（washing）字段名字段類型字段長度字段限制注釋cunovarchar20Primary key顧客編號clnovarchar40Primary key衣物編號sendtimedatetimeNot null送衣時間tak

10、etimedatetimeNot null取衣時間pricemoneyNot null收取費(fèi)用4、操作員（operator ）字段名字段類型字段長度子段限制注釋opeartornovarchar20Primary key操作員編號operatornamevarchar40Not null操作員姓名passwordvarchar6Not null密碼permissionvarcha rNot null權(quán)限五、系統(tǒng)實現(xiàn)結(jié)合PowerBuilder進(jìn)行數(shù)據(jù)庫應(yīng)用開發(fā)的特點(diǎn)，設(shè)計過程可按如下步驟進(jìn)行: 創(chuàng)建數(shù)據(jù)庫及創(chuàng)建表；創(chuàng)建應(yīng)用庫及應(yīng)用對象；創(chuàng)建菜單；創(chuàng)建數(shù)據(jù)窗口 ；創(chuàng)建窗口并在窗口中放置所需控件。

11、5.1 創(chuàng)建數(shù)據(jù)庫及創(chuàng)建表在SQL 2000查詢分析器中創(chuàng)建數(shù)據(jù)庫XYD_DB ,在數(shù)據(jù)庫中創(chuàng)建顧客表(customer),衣物表(clothes ),洗衣表(washing),操作員(operator )。對應(yīng)代碼入下：1、創(chuàng)建數(shù)據(jù)庫zqy:Create database zqy2、創(chuàng)建數(shù)據(jù)表顧客基本情況數(shù)據(jù)表customer(cuno,cuname,cusex,id,tel,address) 的倉建語句：createtablecustomer(cuno varchar (20)primary key ,cuname varchar (40)not null,cusex char (4)no

12、t null,idteladdressvarchar( 20)notnulluniquevarchar(20)notnull,varchar ( 100 )not null)衣物基本情況數(shù)據(jù)表clothes(clno,clname,brand,color,price) 的倉建語句：create tableclothes (clno varchar ( 40) primary key ( clno clname varchar (40), brand varchar (40),color varchar ( 20)not null,pricemoneynot null,) 洗衣基本情況數(shù)據(jù)表),

13、washing(cuno,clno,sendtime,taketime,price) createtablewashing(cunovarchar( 20),clnovarchar(40),sendtimedatetimenot null,taketimedatetimenot null,pricemoneynot null,primary key ( cuno , clno ),的創(chuàng)建語句foreignkey ( cuno ) referencescustomer(cuno ),foreignkey ( clno ) referencesclothes(clno )操作員數(shù)據(jù)表operato

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

15、碼如下：Public Function ExecuteSQL(ByValSQL As String, Msgstring As String) As ADODB.RecordsetDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetDim strConnection As StringDim strArray() As StringSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetOn Error GoTo ErrHandler:strConnection = "Prov

16、ider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pos;Data Source=127.0.0.1"strArray = Split(sql)cn.Open strConnectionIf StrComp(UCase$(strArray(0), "select", vbTextCompare) = 0 Thenrs.Open Trim$(sql), cn, adOpenKeyset, adLockOptimisticSet ExeSQL = r

17、sElsecn.Execute sqlEnd IfExeSQL_Exit:Set rs = NothingSet cn = NothingExit FunctionErrHandler:顯示錯誤信息MsgBox "錯誤號："& Err.Number & "錯誤信息："& Err.Description, vbExclamationResume ExeSQl_ExitEnd FunctionPublic Sub changeformXYD_DB(frmain As MDIForm, frm As Form)Dim Top As In

18、tegerTop = (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è)計1 .在工程中添加【添加MDI窗口】2 .打開此窗口屬性設(shè)置3 .在菜單編輯器中添加菜單，設(shè)置菜單層次菜單如圖：圖3系統(tǒng)菜單窗口5.4 創(chuàng)建數(shù)據(jù)窗口1 .在工程中添加登錄窗口，添加各控件并設(shè)置各控件屬性

19、。如圖圖4登陸窗口確定鍵命令代碼：Private Sub cmdOk_Click()Dim sql As StringDim rs As ADODB.RecordsetDim UserName As StringDim UserKey As IntegerOn Error GoTo ErrHandler:If Trim(UserName.Text = "") ThenMsgBox ”請輸入用戶名稱！", vbExclamationUserName.SetFocusElsesql = "select * from operator where opname

20、 = '" & UserName.Text & ""'Set rs = ExeSQL(sql)If rs.EOF = True ThenMsgBox "沒有此用戶，請重新輸入用戶名！ ", vbExclamation UserName.SetFocusElseIf Trim(rs! Password) = Trim(UserKey.Text) ThenIntopno = rs!opnors.CloseMe.HidefrmMain.ShowUnload MeElseMsgBox "密碼不正確，請重新輸入密

21、碼！", vbExclamationUserKey.SetFocusUserKey.Text =""End IfEnd IfEnd IfExit SubErrHandler:MsgBox "錯誤號："& Err.Number & "錯誤描述："& Err.DescriptionEnd Sub衣物信息添加窗口圖5衣物信息添加窗口保存鍵代碼：Private Sub Command1_Click()Dim i As IntegerDim sql As StringDim monPrice As Curren

22、cyIf Trim(clno(i) = "" ThenMsgBox "此項不允許為空！", vbExclamationtxtProductInfo(i).SetFocus Exit Sub End If Next iIf IsNumeric(txtProductInfo(0).Text) = False ThenMsgBox "編號應(yīng)為數(shù)字量！", vbExclamationtxtProductInfo(0).SetFocus Exit SubEnd IfIf IsNumeric(txtProductInfo(2).Text) = F

23、alse ThenMsgBox "應(yīng)為數(shù)字量！", vbExclamationtxtProductInfo(2).SetFocus Exit SubElsemonPrice = txtProductInfo(2).TextEnd IfEnd Ifsql = "insert Products(ProductID,ProductName,UnitPrice,Unit,Remark) " & _ "values(" & txtProductInfo(0).Text & ",'" &

24、 _ txtProductInfo(1).Text & "'," & monPrice & ",'"sql = sql & cboUnit.Text & "','" & txtProductInfo(4).Text & "')" ExeSQL (sql)sql = "insert ProductIn values(" & txtProductInfo(0).Text & ",

25、" & _ txtProductInfo(3).Text & ",'" & dtpInDate.Value & "')"ExeSQL (sql)MsgBox "數(shù)據(jù)添加成功!", vbExclamationInitControlEnd Sub2 .用客戶信息查詢窗口如圖圖6客戶信息查詢窗口查找客戶信息窗口查找鍵代碼：Private Sub Command1_Click()Dim strQuery As StringOn Error GoTo ErrHandler:If Option1.Value = True ThenIf Trim(Text1.Text) = "" Th