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

2、發展，各種軟件的不斷推陳出新，作為一種用計算機作為工具來進行各種工作的工作形式，不論是對我們傳統的工作、生活，還是對我們情感的表達都帶來了極其深遠的意義和影響。隨著人們生活水平與消費檔次的提高，我們生活當中出現了形形色色的衣服來裝扮我們，為了對那些高檔次的衣物的清洗以及那些因學習繁忙而沒有時間進行衣物清洗的同學提供方便的清洗條件，個個高校都有很多小型的個人經營的干洗店，每個小型干洗店都有很多的衣物及財務的數據需要管理，手工管理這些紛繁復雜數據的方式已經不適應時代的潮流，實現數據規范化的電腦管理，是一個管理規范、運作高效的個人單位的必然要求。所以我們設計了校園干洗店管理系統，來基本解決各個干洗店

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

4、分析是整個設計過程的基礎。2.1信息要求隨著人門生活水平與消費檔次的提高,我門生活當中出現了形形色色的衣服來裝扮,為了對那些非常高檔次的衣物的和那些工作繁忙沒有時間做家務人們的衣物能夠方便的清洗,個個街道都有很多小型的個人經營的干洗店,每個小型干洗店都有很多的衣物及財務的數據需要管理,所以我們設計了干洗店數據庫管理系統,來基本解決各個干洗店的要求2.2處理要求能夠進行數據庫的數據定義、數據操縱、數據控制等處理功能,進行聯機處理的相應時間要短。2.3安全性和完整性要求對于干洗店來說，數據的安全性最為重要。要保護數據庫以防止不合法的使用所造成的數據泄漏、更改和破壞，同時要保證數據的正確性和相容性，

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

6、、系統設計4.1功能模塊設計本系統采用C/S體系結構，客戶端負責提供表達邏輯、顯示用戶界面信息、訪問數據庫服務器，采用VB作為開發工具；服務器端則用于提供數據服務，采用SQL Server2000作為數據庫管理系統。本系統按照功能劃分為以下四個模塊：客戶管理（包括客戶信息錄入和客戶信息查詢）、衣物管理（包括衣物信息添加和衣物信息查詢）、洗衣管理（包括洗衣信息錄入和洗衣信息查詢）和系統管理（包括密碼修改和退出系統等）。系統的功能模塊圖如圖1所示：干洗店管理系統客戶管理衣物管理洗衣管理系統管理圖1 系統的功能模塊圖4.2數據庫設計4.2.1數據庫概念結構設計本系統主要有客戶和洗衣兩個實體集，一個客

7、戶包含若干信息，兩個實體集之間是多對多聯系，聯系上有收取費用。為保證系統的安全性，設置了操作員這一實體集，用來存放合法用戶的編號、姓名、密碼和權限。本系統的E-R圖如圖2所示：n顧客洗衣衣物衣物單價衣物顏色衣物品牌衣物名稱衣物編號送衣時間取衣時間收取費用聯系地址聯系電話身份證號性別姓名顧客編號m操作員操作員編號操作員姓名名密碼權限圖2 系統的E-R圖4.2.2數據庫邏輯結構設計邏輯結構是獨立于任何一種數據模型的信息結構。邏輯結構的任務是把概念結構設計階段設計好的基本E-R圖轉化為宜選用的DBMS所支持的數據模型相符合的邏輯結構，并對其進行優化。E-R圖向關系模型轉化要解決的問題是如何將實體型和

8、實體間的聯系轉化為關系模式，如何確定這些關系模式的屬性和碼。設計干洗店數據庫，包括顧客、衣物、員工四個關系，其關系模式中對每個實體定義的屬性如下：顧客（customer）:顧客編號、姓名、性別、身份證號、聯系電話、聯系地址衣物（clothes）: 衣物編號、衣物名稱、衣物顏色、衣物品牌、衣物單價洗衣（washing）：顧客編號、衣物編號、衣物名稱、衣物品牌、送衣時間、取衣時間、收取費用操作員（操作員編號,操作員姓名,密碼,權限）1、顧客表（customer）字段名字段類型字段長度字段限制注釋cunovarchar20Primary key顧客編號cunamevarchar40Not null姓

9、名cusexchar4Not null性別idvarchar20Not null身份證號telvarchar20Not null聯系電話addressvarchar100Not null聯系地址2、衣物表（clothes）字段名字段類型字段長度字段限制注釋clnovarchar40Primary key衣物編號clnamevarchar40 衣物名稱brandvarchar40 衣物品牌colorvarchar20Not null衣物顏色pricemoney Not null衣物單價3、洗衣表（washing）字段名字段類型字段長度字段限制注釋cunovarchar20Primary key顧

10、客編號clnovarchar40Primary key衣物編號sendtimedatetime Not null送衣時間taketimedatetime Not null取衣時間pricemoney Not null收取費用4、操作員（operator）字段名字段類型字段長度子段限制注釋opeartornovarchar20Primary key操作員編號operatornamevarchar40Not null操作員姓名passwordvarchar6Not null密碼permissionvarcharNot null權限五、系統實現結合PowerBuilder進行數據庫應用開發的特點，設

11、計過程可按如下步驟進行：l         創建數據庫及創建表；l         創建應用庫及應用對象；l         創建菜單；l         創建數據窗口；l         創建窗口并

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

13、har(4) not null, id varchar(20) not null unique,tel varchar(20) not null, address varchar(100)not null)衣物基本情況數據表clothes(clno,clname,brand,color,price)的創建語句：create table clothes(clno varchar(40) primary key(clno), clname varchar(40) , brand varchar(40), color varchar(20) not null, price moneynot null

14、,)洗衣基本情況數據表washing(cuno,clno,sendtime,taketime,price)的創建語句：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 clothes

15、(clno)操作員數據表operator(opeartorno,opeatorname,password)的創建語句：create table operator (operatorno varchar(20) primary key,operatorname varchar(40) not null,password varchar (6) not null,5.2 創建應用庫及應用對象在VB中新建工程，命名為干洗店管理系統，對數據庫的操作設計一個可被各模塊調用的函數放入公共模塊。在工程中添加公共模塊，在工程引用中添加 【Microsofit ActiveX Data Objects 2.8

16、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: strCo

17、nnection = "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, adLoc

18、kOptimistic Set ExeSQL = rs Else cn.Execute sql End IfExeSQL_Exit: Set rs = Nothing Set cn = Nothing Exit FunctionErrHandler: ' 顯示錯誤信息 MsgBox "錯誤號:" & Err.Number & " 錯誤信息：" & Err.Description, vbExclamation Resume ExeSQl_ExitEnd FunctionPublic Sub changeformXYD_DB(

19、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菜單設計1.在工程中添加【添加MDI窗口】2.打開此窗口屬性設置3.在菜單編輯器中添加菜單，設置菜單層次菜單如圖：圖 3 系

20、統菜單窗口5.4創建數據窗口1.在工程中添加登錄窗口，添加各控件并設置各控件屬性。如圖 圖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 "請輸入用戶名稱！", vbExclamation UserName.SetF

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

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

23、vate Sub Command1_Click()Dim i As Integer Dim sql As String Dim monPrice As Currency If Trim(clno(i) = "" Then MsgBox "此項不允許為空！", vbExclamation txtProductInfo(i).SetFocus Exit Sub End If Next i If IsNumeric(txtProductInfo(0).Text) = False Then MsgBox "編號應為數字量！", vbExcla

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

25、k) " & _ "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 "數據添加成功！", vbExclamation InitControlEnd Sub2.用客戶信息查詢窗口如圖圖6 客戶信息查詢窗口查找客戶信息窗口 查找鍵代碼：Private Sub Command1_Click() Dim strQuery As String On Error GoTo ErrHandler: If Option1.Value = True Then If Trim(T