第一篇：醫院門診管理系統數據庫課程設計論文
12級軟件工程專業1班數據庫應用系統課程設計課程論文
.信息工程學院
《數據庫課程設計》論文
題 目：醫院門診管理系統數據庫設計
學 號： 專業班級： 姓 名： 指導老師： 完成日期：
2012013324 軟件工程121班 張桐 蔚繼承
2014年06月20日
12級軟件工程專業1班數據庫應用系統課程設計課程論文
醫院門診管理系統數據庫設計
張桐
（信息工程學院軟件工程12級1班）
摘 要：隨著社會的進步和人類生產生活水平的提高，國內現有的醫院不論從規模上還是服務質量上都實現了顯著增長。顯然，如果醫院門診仍采用人工管理的方式顯然無法應對龐大的病患需求。如今，科學與發展已成為時代的主題。在中國軟件行業日益進步的今天，我們可以利用這些資源來幫助減輕醫生和病人的負擔，讓病人能夠盡快就醫。一個高質量的醫院門診管理系統，能提高醫院的社會效益與經濟效益。本文采用結構化分析和設計方法，運用數據流程圖和E-R圖等工具對小型醫院門診管理系統數據庫進行分析和設計，實現登記掛號、診斷治療、收費掛號等醫院門診的基本業務。
關鍵字：醫院門診管理；數據庫設計；醫院
12級軟件工程專業1班數據庫應用系統課程設計課程論文
目 錄
1． 需求分析....................................................................................................................................1
1.1數據流程圖..........................................................................................................................1 1.2數據字典..............................................................................................................................4
1.2.1數據項.......................................................................................................................4 1.2.2數據結構...................................................................................................................5 1.2.3數據流.......................................................................................................................6 1.2.4.處理邏輯...................................................................................................................6 1.2.5.數據存儲...................................................................................................................7
2．數據庫結構設計..........................................................................................................................7
2.1 概念設計.............................................................................................................................7
2.1.1 分E-R圖建立..........................................................................................................7 2.1.2 全局/整體E-R圖.....................................................................................................8 2.2 邏輯設計.............................................................................................................................9
2.2.1 建立關系模式.........................................................................................................10 2.2.2 關系模式規范化處理.............................................................................................10 2.2.3 用戶子模式建立.....................................................................................................11 2.2.4 關系模式邏輯結構定義.........................................................................................11 3．數據庫物理設計........................................................................................................................13 4．數據庫實施與測試....................................................................................................................13 4.1 SQL Server 2008數據庫實施與測試................................................................................13 4.1.1 數據庫及數據庫對象建立.....................................................................................13 4.1.2 數據入庫................................................................................................................21 4.1.3 數據庫測試............................................................................................................23 4.2 Oracle數據庫實施與測試.................................................................................................30 4.2.1 數據庫及數據庫對象建立.....................................................................................30 4.2.2 數據入庫................................................................................................................41 4.2.3 數據庫測試............................................................................................................43 5． 總結.........................................................................................................................................49
12級軟件工程專業1班數據庫應用系統課程設計課程論文
隨著社會不斷的進步，醫院等基礎服務機構，早已成為了人們生活必不可少的一部分，在很大程度上方便了人們的生活。為了在更大程度上滿足病患的需求，許多醫院的規模進一步擴大，管理也進一步改善。逐步走向醫療服務和管理的成熟化。而方便有效的管理手段已經成為了所有管理部門管理的有力工具。
傳統的人工管理手段在高速發展的今天，已經不再體現其優勢，繁復和大量的手工記錄和計算給管理帶來了更多的重復工作，如果能將復雜的各類管理過程封裝在一個操作中，執行每個管理步驟時使用相對應的功能，那就能給管理者帶來更大的便捷。數據庫設計的目標就是為用戶和各種應用系統提供一個信息基礎設施和高效的運行環境。
隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已經進入人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對醫院門診信息進行管理，具有比手工管理所無法比擬的優點。例如:檢索迅速、查找方便、可靠性高、存儲量大等。這些優點能夠極大地提高人事勞資管理的效率,也是企業的科學化、正規化管理的重要條件。
針對典型的管理系統，以醫院門診管理為載體，設計醫院門診管理系統。以滿足門診管理者對各類數據的管理，以現代化的思維模式去經營維護。
1． 需求分析
需求分析階段就是分析用戶的需求，是數據庫設計的起點。醫院門診管理的主要目標是通過醫院門診的整個服務流程的管理和控制及對庫存數據有效的統計和分析，以保證管理的暢通，使決策人員及早發現問題，采取相應措施，調整管理方式。同時，通過數據分析，可以獲得當前社會的病患需求，也便于管理人員不斷進行管理的優化和提高管理水平。通過查詢資料和分析當前的醫院門診部服務狀況，明確病患的需求而進行設計。并完成業務流程圖和數據流程圖。進一步創建數據字典，完成數據結構和數據處理功能模塊。
1.1數據流程圖
數據流程圖反映的是醫院門診管理工作過程的數據去向和流向。通過數據流程圖，抽象現實世界的數據到醫院門診管理的物理模型。再根據這個物理模型要抽象出信息流，將物理模型轉化成邏輯模型，反映信息在系統中的流動、處理和存儲情況，在整個過程中，所得到的數據流程圖可如下圖1-1至圖1-5所示，分為頂層數據流圖、第一層數據流圖和第二層數據流圖。
112級軟件工程專業1班數據庫應用系統課程設計課程論文
圖1-2 第一層數據流程圖
圖1-1 頂層數據流程圖 12級軟件工程專業1班數據庫應用系統課程設計課程論文
圖1-4 第二層數據流程圖（診斷）
圖1-3 第二層數據流程圖（掛號收費）12級軟件工程專業1班數據庫應用系統課程設計課程論文
圖1-5 第二層數據流程圖（取藥）
1.2數據字典
數據字典是體統中各類數據描述的集合，是進行詳細的數據收集和數據分析所獲得的主要成果。數據字典在數據庫設計中占有很重要的地位。數據字典通常包括數據項、數據結構、數據流、數據存儲、處理邏輯5個部分。
數據項是不可再分的數據單位。數據結構反映了數據之間的組合關系。數據流是數據結構在系統內傳輸的路徑。數據存儲是數據結構停留或保存的地方也是數據流的來源和去向之一。處理邏輯一般用判定表或判定樹來描述。數據字典是需要描述處理過程的說明性信息。
本文中包括35個數據項，8個數據結構，11個數據流，6個處理邏輯，8個數據存儲。1.2.1數據項
數據項編號 DI01-1 DI01-2 DI01-3 DI01-4 DI01-5 DI02-1 DI02-2 DI02-3 數據項名 數據項含義 Pno Pname Psex Page Dno Dno Dname Dtitle
病人編號 病人姓名 性別 年齡 醫生號 醫生號 醫生姓名 職稱
與其他數據項關系 主鍵
外鍵 主鍵
類型 varchar varchar varchar int varchar varchar varchar varchar
長度 20 20 20 20 20 20 20
取值范圍
not null 0-150
not null 12級軟件工程專業1班數據庫應用系統課程設計課程論文
DI02-4 DI02-5 DI03-1 DI03-2 DI03-3 DI04-1 DI04-2 DI04-3 DI04-4 DI05-1 DI05-2 DI05-3 DI05-4 DI05-5 DI05-6 DI06-1 DI06-2 DI06-3 DI06-4 DI07-1 DI07-2 DI07-3 DI07-4 DI08-1 DI08-2 DI08-3 DI08-4 Dtel Dp_no Dp_no Dp_name Dp_tell Mno Mname Mprice Rno Rdate Bno Pno Dno Rway Bno Bdate Bmoney Bway Pr_no Pr_date Mno Bno Dno Pno Iname Pr_no
電話 科室編號 科室編號 科室名稱 聯系方式 藥品編號 藥品名稱 藥品價格 掛號單號 掛號日期 收費單號 病人編號 醫生編號 掛號方式 收費單號 日期 金額 收費方式 處方號 日期 藥品編號 收費單號 醫生號 病人編號 病名 處方號
外鍵 主鍵
主鍵
主鍵
外鍵 外鍵 外鍵
主鍵
主鍵
外鍵 外鍵
varchar varchar varchar varchar varchar varchar varchar float int varchar date varchar varchar varchar varchar varchar date float varchar varchar date varchar varchar 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
not null
not null
Mquantity 藥品庫存余量
主鍵、外鍵 varchar 主鍵、外鍵 varchar 外鍵
varchar varchar 1.2.2數據結構
數據結構編號 數據結構名 DS-1 DS-2 DS-3 DS-4 DS-5 DS-6 DS-7 DS-8 Doctor Patient Medicine Department Register Bill Diagnose
數據結構含義 醫生 病人 藥品 科室 掛號單 收費單 診斷結果
組成
Dno，Dname，Dtitle，Ddept，Dtel Pno，Pname，Psex，Page，Dno Mno，Mname，Mprice，Mquantity Dp_no，Dp_name，Dp_tel Rno，Rway，Rdate，Pno，Bno Bno，Bdate，Bmoney，Bway Pr_no，Pr_date，Mno，Bno Dno，Pno，Iname，Pr_no Prescription 處方
12級軟件工程專業1班數據庫應用系統課程設計課程論文
1.2.3數據流
數據流數據流編號 F1 名稱 掛號請求 簡述
病人來到醫院對所需的治療或者看病項目的掛號
病人
掛號處理
數據流來源
數據流去向
數據流組成
數據流量
高峰流量 每日
病人信息、每日
分配醫師 1000人 5000人 病人、醫生、掛號單編號
每日
每日F2 處理病人的掛號，由病人掛號單 掛號處理 病人
信息生成掛號單 繳費 對于各項醫療必須費用進行繳費 證以備后續使用 病人到相關科室進行初診
病人
1000次 5000次 每日
每日每日每日F3 F4 F5
收費處理 收費信息
1000次 5000次
收費憑病人繳費后獲取收費憑證 看病
收費處理 病人 病人
初診處理
收費信息、每日病人信息、每日病人、處方
詳細記錄 1000次 5000次 初診信息 1000人 5000人 信息、病例信息
每日
每日F6 處方、醫師對病人開處方、填寫病例 病例 取藥 藥物 病人到藥房領取相關藥品
藥房工作人員依照處方把相關藥品交給病人
確診處理 病人
1000次 5000次
每日F7 F8
病人 取藥處理
病人、藥品每日信息
1000次 5000次
取藥處理 病人
分配醫師處理
每日每日
病人、藥品
1000次 5000次 病人信息、分配醫師、科室
每日
每日F9 掛號項掛號系統針對病人的掛目 號項目為其分配醫師
掛號處理 分配醫師處理
1000次 5000次 每日
每日每日F10 F11 醫師信系統調用相關醫師信息息 息 返回 后確診 診斷信將診斷信息整理匯總，最
掛號處理 醫生
1000次 5000次 1000次 5000次
診斷處理 確診
病人、治療每日記錄
1.2.4.處理邏輯
處理邏輯處理邏輯 簡述
名稱 P1.1 P1.2 P1.3 P2.1 P2.2 P3.1 掛號 收費 診斷 確診 取藥 收費內容和標準 醫生對病情進行診斷 完成診斷，確診 取藥
輸入的數據流 收費內容 診斷請求 診斷信息 處方 6
處理
輸出的數據流
處理頻率 每人1次 每人1次 每人1次 每人1次 每人1次 每人1次 對病人掛號請求的處理 病人信息 分配醫師 掛號單 收取費用 收費記錄 分配醫師 醫生信息 初步診斷 初診信息 確診 取藥
診斷結果 藥物信息 分配醫師 根據掛號記錄分配醫師 醫生記錄 12級軟件工程專業1班數據庫應用系統課程設計課程論文
1.2.5.數據存儲
數據存儲數據存儲名編號 S1 S2 S3 S4 S5 S6 S7 S8 稱 簡述
數據存儲組成 病人信息、醫生 收費信息 醫生值班安排 診斷過程 收費信息 收費款項標準 處方
相關的處理 P1.1,P2.1,P3.1 P1.2,P2.2,P3.2,P3.3 P3.1 P2.3,P3.1 P3.2 P1.2 P1.2 P3.2 掛號記錄 用于記錄病人的掛號信息 收費記錄 用于記錄收費信息 值班醫生記錄 記錄醫生的值班安排
診斷記錄 記錄病人的診斷過程 收費款項 用于記錄收費情況 收費標準 用于統一收費的標準 處方 用于記錄醫生對病人開出的處方 藥物記錄 用于記錄藥物價格剩余量等 藥物信息
2．數據庫結構設計
數據庫的結構設計主要包括概念設計和邏輯設計兩個部分。
2.1 概念設計
概念設計階段的任務是將需求分析得到的用戶需求抽象為信息結構（概念模型）的過程。要能充分的反應事物與事物之間的聯系，是對現實世界的一個真實模型。在需求分析階段得到的應用需求首先抽象為信息世界的結構才能更好的用某一DBMS實現這些需求。E-R模型是概念模型的有力工具。逐一設計分E-R圖，再將所有的分E-R圖綜合成系統的總E-R圖。2.1.1 分E-R圖建立
分E-R圖的建立依據于數據流圖的建立。以下可從第二層數據流圖分別建立分E-R圖。詳見圖2-1至2-3。
2.診斷分ER圖
圖2-1 分ER圖
圖2-2 分ER圖 12級軟件工程專業1班數據庫應用系統課程設計課程論文
2.1.2 全局/整體E-R圖
根據上述列出的分E-R圖，消除其中存在的沖突、冗余，建立全局E-R圖（詳見圖2-4），并列出所有實體和聯系屬性的屬性E-R圖（詳見圖2-5）
圖2-4 總ER圖 圖2-3 分ER圖 12級軟件工程專業1班數據庫應用系統課程設計課程論文
圖2-5 屬性ER圖
2.2 邏輯設計
邏輯結構設計的任務就是把概念結構設計階段設計好的基本E-R圖轉換為與選用DBMS產品所支持的數據模型相符合的邏輯結構。根據DBMS產品以及不同系統的限制，設計邏輯結構時一般有以下三個步驟：首先將概念結構轉換為一般的
關系、網狀、層次模型；將轉換來的關系、網狀、層次模型向特定DBMS支持下的數據模型轉換；最后對數據模型進行優化。
醫院門診管理系統的設計采用關系模型。E-R圖轉化為關系模型實際上就是要將實體型、實體的屬性和實體型之間的聯系轉換為關系模式。
一個實體型轉換為一個關系模式。實體的屬性就是關系的屬性，實體的碼就是關系的碼。對于實體型間的聯系有以下不同的情況：
(1)一個1：1聯系可以轉換為一個獨立的關系模式，也可以與任意一端對應的關系模式合并。如果轉換為一個獨立的關系模式，則與該聯系相連的各實體的 12級軟件工程專業1班數據庫應用系統課程設計課程論文
碼以及聯系本身的屬性均轉換為關系的屬性。
(2)一個1：n聯系可以轉換為一個獨立的關系模式，也可以與n端對應的關系模式合并。如果轉換為一個獨立的關系沒模式，則與聯系向連的各實體的碼以及聯系本身的屬性均轉換為關系的屬性。
(3)一個m：n聯系轉換為一個關系模式，與該聯系相連的各實體的碼以及聯系本身的屬性均轉換為關系的屬性，各實體的碼組成關系的碼或關系的碼的一部分。
2.2.1 建立關系模式
醫院門診管理系統涉及到的關系主要有：
病人和醫生為n：1（多對一）的關系，將其之間的聯系與n端實體合并。病人和掛號單的關系為1：1（一對一），將其之間的聯系與任意一端實體合并?？剖液歪t生為1：n（一對多）的關系，將其之間的聯系與n端實體合并。醫生和診斷結果的關系為1：n（一對多）的關系，也將其之間的聯系與n端實體合并。診斷結果和處方單的關系為1：1（一對一），將其之間的聯系與任意一端實體合并。處方單、收費單和藥品之間的聯系為三元的關系，將它們之間的聯系轉換為獨立的關系模式。
具體的轉換如下所示（主鍵加下劃線，外鍵斜體加粗）： 病人（病人編號，病人姓名，性別，年齡，醫生號）醫生（醫生號，醫生姓名，職稱，電話，科室號）藥品（藥品編號，藥品名稱，單價，數量）處方（處方號，日期，藥品編號，收費單號）收費單（收費單號，日期，金額，收費方式）診斷結果（醫生號，病人編號，病名，處方號）
掛號單（掛號單號，掛號方式，日期，病人編號，收費單號）科室（科室號，科室名稱，聯系方式）2.2.2 關系模式規范化處理
關系數據庫中的關系必須滿足一定的規范化要求，對于不同的規范化程度可用范式來衡量。范式是符合某一種級別的關系模式的集合，是衡量關系模式規范化程度的標準，達到的關系才是規范化的。一個低一級范式的關系模式，通過模式分解可以轉換為若干個高一級范式的關系模式的集合。在本系統中，所有建立的關系模式都符合三范式。12級軟件工程專業1班數據庫應用系統課程設計課程論文
2.2.3 用戶子模式建立
根據需求分析，研究建立滿足不同需求的用戶子模式，各個子模式的建立在更大程度上方便數據操作。用戶子模式的定義如下: 收費細則視圖（病人號，收費單號，日期，金額，收費方式）病人-藥品視圖（病人號，藥品編號）診斷結果視圖（病人號，病人姓名，病名）醫生病人視圖（醫生號，醫生姓名，病人姓名）科室醫生視圖（醫生號，醫生姓名，科室名稱）
病人掛號視圖（病人號，病人姓名，掛號單號，掛號日期，掛號方式）2.2.4 關系模式邏輯結構定義
表2-6 病人關系模式
屬性名 Pno Pname Psex Page Dno 含義 病人編號 病人姓名 性別 年齡 醫生號 數據類型 varchar varchar varchar int varchar
長度 20 20 20 20
是否為主屬性 是
是否為外鍵
是
約束條件
not null 0-150
表2-7 醫生關系模式
屬性名 Dno Dname Dtitle Ddept Dtel 含義 醫生號 醫生姓名 職稱 科室號 電話 數據類型 varchar varchar varchar varchar varchar
長度 20 20 20 20 20
是否為主屬性 是
是否為外鍵
是
約束條件
not null
表2-8 藥品關系模式
屬性名 Mno Mname Mprice Mquantity 含義 藥品編號 藥品名稱 單價 數量
數據類型 varchar varchar float int
長度 20 20
是否為主屬性 是
是否為外鍵
約束條件
not null
12級軟件工程專業1班數據庫應用系統課程設計課程論文
表2-9 處方單關系模式
屬性名 Pr_no Pr_date Mno Bno 含義 處方號 日期 藥品編號 收費單號 數據類型 varchar date varchar varchar
長度 20 20 20
是否為主屬性 是
是否為外鍵
是 是
約束條件
表2-10 收費單關系模式
屬性名 Bno Bdate Bmoney Bway 含義 收費單號 日期 金額 收費方式 數據類型 varchar date float varchar
長度 20 20 20
是否為主屬性 是
是否為外鍵
約束條件
表2-11 診斷結果關系模式
屬性名 Dno Pname Iname Pr_no 含義 醫生號 病人姓名 病名 處方號 數據類型 varchar varchar varchar
長度
是否為主屬性
是否為外鍵 是 是
是
約束條件是 20 是
表2-12 掛號單關系模式
屬性名 Rno Rway Rdate Pname Bno 含義 掛號單號 掛號方式 日期 病人姓名 收費單號 數據類型 varchar varchar date varchar varchar
長度
是否為主屬性
是否為外鍵
是 是
約束條件是 20
20
表2-13 科室關系模式
屬性名 Dp_no Dp_name Dp_tel 含義 科室號 科室名稱 聯系方式 數據類型 varchar varchar varchar
長度
是否為主屬性
是否為外鍵
約束條件
not null 是 20 20
12級軟件工程專業1班數據庫應用系統課程設計課程論文
3．數據庫物理設計
主要包括數據庫在物理設備上的存儲結構與存取方法就是數據庫的物理結構，它依賴于選定的數據庫管理系統。為一個給定的邏輯數據模型選取一個最合適的應用環境的物理結構的過程，就是數據庫的物理設計。這一階段主要的任務是確定數據庫的物理結構，并不斷的進行優化處理，主要建立索引、觸發器、存儲過程。
索引名稱 idx_bno unique_pname unique_mname
索引類型 唯
一、非聚集 唯
一、非聚集 唯
一、非聚集
用途
按bno屬性列升序排列 實現唯一性約束 實現唯一性約束
4．數據庫實施與測試
主要包括數據庫實施和測試兩個部分。（下面分別寫出SQL Server 2008和Oracle的實施測試過程）
4.1 SQL Server 2008數據庫實施與測試
4.1.1 數據庫及數據庫對象建立
本系統建立名為Hospital的數據庫。數據庫對象分為基本表、視圖、索引、觸發器、存儲過程等。下面分別列出相關代碼。1.基本表
create table Department(Dp_no varchar(20)primary key, Dp_name varchar(20)not null, Dp_tel varchar(20))
create table Doctor(Dno varchar(20)primary key, Dname varchar(20)not null, Dtitle varchar(20), 12級軟件工程專業1班數據庫應用系統課程設計課程論文
Dp_no varchar(20)references Department(Dp_no), Dtel varchar(20))
create table Patient(Pno varchar(20)primary key, Pname varchar(20), Psex varchar(20), Page int check(Page>=0 and Page<=150), Dno varchar(20)references Doctor(Dno))
create table Medicine(Mno varchar(20)primary key, Mname varchar(20)not null, Mprice float, Mquantity int)
create table Bill(Bno varchar(20)primary key, Bdate date, Bmoney float, Bway varchar(20))
create table Prescription(Pr_no varchar(20)primary key, Pr_date date, Mno varchar(20)references Medicine(Mno), Bno varchar(20)references Bill(Bno)14 12級軟件工程專業1班數據庫應用系統課程設計課程論文)
create table Diagnose(Dno varchar(20)references Doctor(Dno), Pno varchar(20)references Patient(Pno), Iname varchar(20), Pr_no varchar(20)references Prescription(Pr_no), primary key(Dno,Pno))
create table Register(Rno varchar(20)primary key, Rway varchar(20), Rdate date, Pno varchar(20)references Patient(Pno), Bno varchar(20)references Bill(Bno))2.視圖
（1）收費細則視圖（BillDetail）create view BillDetail as select distinct Diagnose.pno,Bill.Bno,Bdate,Bmoney,Bway from Prescription,Bill,Diagnose,Register where Register.pno=Diagnose.pno and(Diagnose.Pr_no=Prescription.Pr_no and Prescription.bno=Bill.bno or Register.bno=Bill.bno)（2）病人-藥品視圖（Patient_Med）create view Patient_Med as select Pno,Mname from Medicine,Prescription,Diagnose 15 12級軟件工程專業1班數據庫應用系統課程設計課程論文
where Medicine.Mno=Prescription.mno and Diagnose.Pr_no=Prescription.Pr_no（3）診斷結果視圖（Patient_Diag）create view Patient_Diag as select Patient.pno,pname,iname from Patient,Diagnose where Diagnose.Pno=Patient.pno（4）醫生病人視圖（Docter_Patient）create view Docter_Patient as select Doctor.dno,dname,pname from Patient,Doctor where Patient.dno=Doctor.dno（5）科室醫生視圖（Dept_Doctor）create view Dept_Doctor as select dno,dname,Dp_name from Doctor,Department where Department.Dp_no=Doctor.Dp_no（6）病人掛號視圖（Patient_Register）create view Patient_Register as select Patient.pno,pname,rno,rway,rdate from Patient,Register where Register.pno=Patient.pno 3.索引
create unique index unique_mname on Medicine(Mname)create unique index unique_pname on Patient(pname)create index idx_bno on Bill(bno asc)16 12級軟件工程專業1班數據庫應用系統課程設計課程論文
4.存儲過程
（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄 create proc addpatient @Rno varchar(20), @Rway varchar(20), @Pno varchar(20), @Bno varchar(20), @Pname varchar(20), @Psex varchar(20), @Page int, @Dno varchar(20), @Bmoney float as insert into Patient values(@Pno,@Pname,@Psex,@Page,@Dno)insert into Bill values(@Bno,GETDATE(),@Bmoney,'掛號收費')insert into Register values(@Rno,@Rway,GETDATE(),@Pno,@Bno)（2）一個患者確診完畢,向Diagnose新增一條診斷結果記錄，Prescription表添加一條處方記錄，并更新Bill表中相應收費信息 create proc addDiagnose @Dno varchar(20), @Pno varchar(20), @Iname varchar(20), @Pr_no varchar(20), @Mno varchar(20), @Bno varchar(20), @Bmoney float as 17
時在同12級軟件工程專業1班數據庫應用系統課程設計課程論文
insert into Bill values(@Bno,GETDATE(),@Bmoney,'藥品收費')insert into Prescription values(@Pr_no,GETDATE(),@Mno,@Bno)insert into Diagnose values(@Dno,@Pno,@Iname,@Pr_no)（4）插入一條藥品信息 create proc MedicineInsert @mno varchar(20), @mname varchar(20), @mprice float, @mquantity int as insert into Medicine values(@Mno,@Mname,@Mprice,@Mquantity)（4）修改某一科室的電話 create proc change_tel @dp_no varchar(20), @Dp_tel varchar(20)as update Department set dp_tel=@Dp_tel where Dp_no=@dp_no（5）修改某一藥品剩余量 create proc change_med @mno varchar(20), @mquantity int as update Medicine set mquantity=@mquantity where mno=@mno 18 12級軟件工程專業1班數據庫應用系統課程設計課程論文
（6）在Dept_Doctor查詢醫院門診部各個科室的醫生人數 create proc Dept_Doc as select Dp_name,COUNT(dno)as rs from Dept_Doctor group by Dp_name（7）在Docter_Patient查詢某一病人的主治醫生信息 create proc p_doctor @pname varchar(20)as select * from Doctor where Dno =(select Dno from Docter_Patient where pname=@pname)（8）在Docter_Patient查詢某一醫生主治的全部病人信息 create proc D_Patient @dno varchar(20)as select pno,pname,psex,page from Patient where pname in(select pname from Docter_Patient where dno=@dno)（9）在Patient_Diag查詢患感冒的病人姓名 create proc Diag_p as select pname from Patient_Diag where iname='感冒'（10）在Patient_Diag查詢某一病人的診斷結果 create proc p_Diag @pno varchar(20)as select iname 19 12級軟件工程專業1班數據庫應用系統課程設計課程論文
from Patient_Diag where pno=@pno（11）在Patient_Med查詢某病人購買的藥品 create proc p_Med @pno varchar(20)as select mname from Patient_Med where pno=@pno（12）在BillDetail查詢某病人購買的藥品總價 create proc medpay @pno varchar(20)as select Bway,bmoney from BillDetail where pno=@pno and Bway='藥品收費'（13）在BillDetail查詢某一病人的收費總和（=掛號+取藥）create proc pay @pno varchar(20)as select sum(bmoney)as total from BillDetail where pno=@pno group by pno（14）在Patient_Register查詢某病人的掛號方式 create proc reg_way @pno varchar(20)as select rway from Patient_Register where pno=@pno 20 12級軟件工程專業1班數據庫應用系統課程設計課程論文
5.觸發器
當向處方表（Prescription）中添加元組時，同步對表Medicine的級聯更新。（藥品數量-1）
create trigger t1 on Prescription after insert,update as declare @pr_no varchar(20),@mno varchar(20)declare c2 cursor for select pr_no,mno from inserted open c2 fetch next from c2 into @pr_no,@mno while(@@fetch_status=0)begin
update Medicine set mquantity=mquantity-1 where mno=@mno fetch next from c2 into @pr_no,@mno end close c2 deallocate c2 4.1.2 數據入庫
Patient表
Register表 12級軟件工程專業1班數據庫應用系統課程設計課程論文
Department表
Doctor表
Medicine表
Prescription表
Diagnose表 12級軟件工程專業1班數據庫應用系統課程設計課程論文
Bill表
4.1.3 數據庫測試 1.視圖
病人-藥品視圖（Patient_Med）
收費細則視圖（BillDetail）12級軟件工程專業1班數據庫應用系統課程設計課程論文
診斷結果視圖（Patient_Diag）
醫生病人視圖（Docter_Patient）
科室醫生視圖（Dept_Doctor）
病人掛號視圖（Patient_Register）
12級軟件工程專業1班數據庫應用系統課程設計課程論文
2.驗證存儲過程
（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄
（2）一個患者確診完畢,向Diagnose新增一條診斷結果記錄，同時在Prescription表添加一條處方記錄，并更新Bill表中相應收費信息
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（3）插入一條藥品信息
（4）修改某一科室的電話
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（5）修改某一藥品剩余量
（6）在Dept_Doctor查詢醫院門診部各個科室的醫生人數
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（7）在Docter_Patient查詢某一病人的主治醫生信息
（8）在Docter_Patient查詢某一醫生主治的全部病人信息
（9）在Patient_Diag查詢患感冒的病人姓名 12級軟件工程專業1班數據庫應用系統課程設計課程論文
（10）在Patient_Diag查詢某一病人的診斷結果
（11）在Patient_Med查詢某病人購買的藥品
（12）在BillDetail查詢某病人購買的藥品總價
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（13）在BillDetail查詢某一病人的收費總和（=掛號+取藥）
（14）在Patient_Register查詢某病人的掛號方式
3.驗證觸發器
（見存儲過程2的驗證）
4.2 Oracle數據庫實施與測試
4.2.1 數據庫及數據庫對象建立
本系統建立名為Hospital的數據庫。數據庫對象分為基本表、視圖、存儲過 12級軟件工程專業1班數據庫應用系統課程設計課程論文
程等。下面分別列出相關代碼。
1.基本表
create table Department(Dp_no varchar(20)primary key, Dp_name varchar(20)not null, Dp_tel varchar(20))
create table Doctor(Dno varchar(20)primary key, Dname varchar(20)not null, Dtitle varchar(20), Dp_no varchar(20)references Department(Dp_no), Dtel varchar(20))
create table Patient(Pno varchar(20)primary key, Pname varchar(20), Psex varchar(20), Page int check(Page>=0 and Page<=150), Dno varchar(20)references Doctor(Dno))
create table Medicine(Mno varchar(20)primary key, Mname varchar(20)not null, Mprice float, Mquantity int)
create table Bill(Bno varchar(20)primary key, Bdate date, Bmoney float, Bway varchar(20))
create table Prescription
12級軟件工程專業1班數據庫應用系統課程設計課程論文
(Pr_no varchar(20)primary key, Pr_date date, Mno varchar(20)references Medicine(Mno), Bno varchar(20)references Bill(Bno))
create table Diagnose(Dno varchar(20)references Doctor(Dno), Pno varchar(20)references Patient(Pno), Iname varchar(20), Pr_no varchar(20)references Prescription(Pr_no), primary key(Dno,Pno))
create table Register(Rno varchar(20)primary key, Rway varchar(20), Rdate date, Pno varchar(20)references Patient(Pno), Bno varchar(20)references Bill(Bno))2.視圖
（1）收費細則視圖（BillDetail）create view BillDetail as select distinct Diagnose.pno,Bill.Bno,Bdate,Bmoney,Bway from Prescription,Bill,Diagnose,Register where Register.pno=Diagnose.pno and(Diagnose.Pr_no=Prescription.Pr_no and Prescription.bno=Bill.bno or Register.bno=Bill.bno)（2）病人-藥品視圖（Patient_Med）create view Patient_Med as select Pno,Mname from Medicine,Prescription,Diagnose 32 12級軟件工程專業1班數據庫應用系統課程設計課程論文
where Medicine.Mno=Prescription.mno and Diagnose.Pr_no=Prescription.Pr_no（3）診斷結果視圖（Patient_Diag）create view Patient_Diag as select Patient.pno,pname,iname from Patient,Diagnose where Diagnose.Pno=Patient.pno（4）醫生病人視圖（Docter_Patient）create view Docter_Patient as select Doctor.dno,dname,pname from Patient,Doctor where Patient.dno=Doctor.dno（5）科室醫生視圖（Dept_Doctor）create view Dept_Doctor as select dno,dname,Dp_name from Doctor,Department where Department.Dp_no=Doctor.Dp_no（6）病人掛號視圖（Patient_Register）create view Patient_Register as select Patient.pno,pname,rno,rway,rdate from Patient,Register where Register.pno=Patient.pno 3.存儲過程
（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄
create or replace procedure addpatient(v_Rno varchar,v_Rway varchar,v_Pno varchar,v_Bno varchar,v_Pname 33 12級軟件工程專業1班數據庫應用系統課程設計課程論文
varchar,v_Psex varchar,v_Page int,v_Dno varchar,v_Bmoney float)is begin insert into Patient values(v_Pno,v_Pname,v_Psex,v_Page,v_Dno);insert into Bill values(v_Bno,sysdate(),v_Bmoney,'掛號收費');insert into Register values(v_Rno,v_Rway,sysdate(),v_Pno,v_Bno);end addpatient;begin addpatient('R021','電話預約','P021','B042','張三','男',18,'D014',21);end;（2）插入一條藥品信息
create or replace procedure MedicineInsert(mno varchar,mname varchar,mprice float,mquantity int)is begin insert into Medicine values(Mno,Mname,Mprice,Mquantity);end MedicineInsert;begin MedicineInsert('M043','克拉霉素膠囊（桑美）',9.8,200);end;（3）修改某一科室的電話
create or replace procedure change_tel(v_dp_no varchar,v_Dp_tel varchar)is 34 12級軟件工程專業1班數據庫應用系統課程設計課程論文
begin update Department set dp_tel=v_Dp_tel where Dp_no=v_dp_no;commit;end change_tel;begin change_tel('Dp011','87051621');end;（4）修改某一藥品剩余量
create or replace procedure change_med(v_mno varchar, v_mquantity int)is begin update Medicine set mquantity=v_mquantity where mno=v_mno;commit;end change_med;begin change_med('M024',150);end;（5）在Dept_Doctor查詢醫院門診部各個科室的醫生人數
create or replace procedure Dept_Doc(Dp_name out varchar,rs out number)is cursor c1 is select Dp_name,COUNT(dno)as rs from Dept_Doctor group by Dp_name;begin open c1;35 12級軟件工程專業1班數據庫應用系統課程設計課程論文
loop fetch c1 into Dp_name,rs;exit when c1%notfound;dbms_output.put_line(Dp_name||' '||rs);end loop;close c1;end Dept_Doc;declare a varchar(20);b number;begin Dept_Doc(a,b);end;（6）在Docter_Patient查詢某一病人的主治醫生信息
create or replace procedure p_doctor(v_pname varchar,v_dno out varchar,v_dname out
varchar,v_dtitle
out
varchar,v_dp_no
out varchar,v_dtel out varchar)is begin select dno,dname,dtitle,dp_no,dtel into v_dno,v_dname,v_dtitle,v_dp_no,v_dtel from Doctor where Dno =(select Dno from Docter_Patient where pname=v_pname);dbms_output.put_line(v_dno||' '||v_dname||' '||v_dtitle||' '||v_dp_no||' '||v_dtel);end p_doctor;declare f varchar(20):='張三';a varchar(20);36 12級軟件工程專業1班數據庫應用系統課程設計課程論文
b varchar(20);c varchar(20);d varchar(20);e varchar(20);begin p_doctor(f,a,b,c,d,e);end;（7）在Docter_Patient查詢某一醫生主治的全部病人信息
create or replace procedure D_Patient(v_dno varchar,pno out varchar,pname out varchar,psex out varchar,page out varchar)is cursor c1 is select pno,pname,psex,page from Patient where pname in(select pname from Docter_Patient where dno=v_dno);begin open c1;loop fetch c1 into pno,pname,psex,page;exit when c1%notfound;dbms_output.put_line(pno||'
'||pname||'
'||psex||' '||page);end loop;close c1;end D_Patient;declare f varchar(20):='D017';a varchar(20);b varchar(20);c varchar(20);d varchar(20);begin 37 12級軟件工程專業1班數據庫應用系統課程設計課程論文
D_Patient(f,a,b,c,d);end;（8）在Patient_Diag查詢患感冒的病人姓名
create or replace procedure Diag_p(pname out varchar)is cursor c1 is select pname from Patient_Diag where iname='感冒';begin open c1;loop fetch c1 into pname;exit when c1%notfound;dbms_output.put_line(pname);end loop;close c1;end Diag_p;declare a varchar(20);begin Diag_p(a);end;（9）在Patient_Diag查詢某一病人的診斷結果
create or replace procedure p_Diag(v_pno varchar,v_iname out varchar)is begin select iname into v_iname from Patient_Diag where pno=v_pno;dbms_output.put_line(v_iname);end p_Diag;38 12級軟件工程專業1班數據庫應用系統課程設計課程論文
declare a varchar(20);begin p_Diag('P019',a);end;（10）在Patient_Med查詢某病人購買的藥品
create or replace procedure p_Med(v_pno varchar,v_mname out varchar)is begin select mname into v_mname from Patient_Med where pno=v_pno;dbms_output.put_line(v_mname);end p_Med;declare a varchar(20);begin p_Med('P020',a);end;（11）在BillDetail查詢某病人購買的藥品總價
create or replace procedure medpay(v_pno varchar,v_Bway out varchar,v_bmoney out varchar)is begin select Bway,bmoney into v_bway,v_bmoney from BillDetail where pno=v_pno and Bway='藥品收費';39 12級軟件工程專業1班數據庫應用系統課程設計課程論文
dbms_output.put_line(v_bway||' '||v_bmoney);end medpay;declare a varchar(20);b varchar(20);begin medpay('P002',a,b);end;（12）在BillDetail查詢某一病人的收費總和（=掛號+取藥）
create or replace procedure pay(v_pno varchar,v_total out number)is begin select sum(bmoney)as total into v_total from BillDetail where pno=v_pno group by pno;dbms_output.put_line(v_total);end pay;declare a number;begin pay('P005',a);end;（13）在Patient_Register查詢某病人的掛號方式
create or replace procedure reg_way(v_pno varchar,v_rway out varchar)is begin select rway 40 12級軟件工程專業1班數據庫應用系統課程設計課程論文
into v_rway from Patient_Register where pno=v_pno;dbms_output.put_line(v_rway);end reg_way;declare a varchar(20);begin reg_way('P011',a);end;4.2.2 數據入庫 Bill表
Department表
Patient表
12級軟件工程專業1班數據庫應用系統課程設計課程論文
Doctor表
Medicine表
Diagnose表
Prescription表
12級軟件工程專業1班數據庫應用系統課程設計課程論文
Register表
4.2.3 數據庫測試
1.視圖
收費細則視圖（BillDetail）
診斷結果視圖（Patient_Diag）
醫生病人視圖（Docter_Patient）
12級軟件工程專業1班數據庫應用系統課程設計課程論文
科室醫生視圖（Dept_Doctor）
病人掛號視圖（Patient_Register）
2.驗證存儲過程
（1）當有患者通過不同的方式掛號時，要在Register新增一條掛號信息，同時在Patient表添加一個病人記錄，在Bill表中添加一條掛號收費記錄
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（2）一個患者確診完畢,向Diagnose新增一條診斷結果記錄，同時在表添加一條處方記錄，并更新Bill表中相應收費信息
Prescription12級軟件工程專業1班數據庫應用系統課程設計課程論文
（3）插入一條藥品信息
（4）修改某一科室的電話
（5）修改某一藥品剩余量
12級軟件工程專業1班數據庫應用系統課程設計課程論文
（6）在Dept_Doctor查詢醫院門診部各個科室的醫生人數
（7）在Docter_Patient查詢某一病人的主治醫生信息
（8）在Docter_Patient查詢某一醫生主治的全部病人信息
第二篇：酒店管理系統 (數據庫課程設計)
數據庫 酒店管理系統 課程設計（基于 SQL server 2000）
實現過程
1.1 通過查詢分析器實現建立數據庫、數據表
------------------------------創建數據庫和數據表---（1）創建酒店管理系統數據庫
CREATE DATABASE 酒店管理系統（2）創建客房信息表
CREATE TABLE 客房
(客房編號 CHAR(8)PRIMARY KEY，客房類型 CHAR(8)NOT NULL，價格 SMALLMONEY NOT NULL，床位數 INT NOT NULL，使用狀態 CHAR(8)NOT NULL)
INSERT INTO 客房 VALUES('101','一',100,1,'在使用')INSERT INTO 客房 VALUES('102','二',200,2,'在使用')INSERT INTO 客房 VALUES('103','二',200,1,'在使用')INSERT INTO 客房 VALUES('104','三',300,2,'在使用')INSERT INTO 客房 VALUES('105','三',300,1,'未使用')
（3）創建客戶信息表
CREATE TABLE 客戶
(客戶編號 CHAR(8)PRIMARY KEY, 客戶名稱 CHAR(10)NOT NULL，身份證號 CHAR(18)NOT NULL，聯系地址 CHAR(25)，聯系電話 CHAR(10))INSERT INTO 客戶 VALUES('1001','王一',12234,'江西','3245354')INSERT INTO 客戶 VALUES('1002','張三',34234,'江西','2442442')INSERT INTO 客戶 VALUES('1003','李四',56465,'江西','5654645')INSERT INTO 客戶 VALUES('1004','王錢',65435,'江西','5676577')INSERT INTO 客戶 VALUES('1005','孫志',11464,'江西','4234343')
（4）創建入住登記表
CREATE TABLE 入住登記
(客房編號 CHAR(8)FOREIGN KEY REFERENCES 客房(客房編號)，客戶編號 CHAR(8)FOREIGN KEY REFERENCES 客戶(客戶編號)，預定日期 DATETIME，預定數量 INT, PRIMARY KEY(客房編號,客戶編號))
INSERT INTO 入住登記 VALUES('101','1001',2010-10-10,1)INSERT INTO 入住登記 VALUES('102','1002',2010-12-10,1)INSERT INTO 入住登記 VALUES('103','1003',2010-12-26,1)INSERT INTO 入住登記 VALUES('104','1004',2010-12-9,1)--------創建查詢視圖---------1.2系統功能相應的查詢視圖：
（1）客戶信息查詢視圖
CREATE VIEW 客戶信息查詢
AS SELECT * FROM 客戶
（2）客房信息查詢
CREATE VIEW 客房信息查詢
AS SELECT
* FROM 客房
(3)入住信息查詢
CREATE VIEW 入住登記信息查詢 AS SELECT
* FROM 入住登記
（4）入住信息查詢
CREATE VIEW 入住信息查詢
AS SELECT入住登記.客房編號,客戶名稱,入住登記.客戶編號,客房.客房類型,價格,使用狀態
FROM 客房,客戶,入住登記
WHERE 客房.客房編號=入住登記.客房編號 AND 入住登記.客戶編號=客戶.客戶編號
---------------建立索引-----------------------1.3建立索引及數據入庫
1.建立客房編號，價格，客戶編號，客戶名稱的索引 創建客房表索引：
CREATE UNIQUE INDEX UKF ON 客房(客房編號,價格)
創建客戶表索引：
CREATE UNIQUE INDEX UKH ON 客戶(客戶編號,客戶名稱)
創建入住表索引：
CREATE UNIQUE INDEX URZ ON 入住登記(客戶編號,客房編號)2.數據入庫
方法一 酒店管理系統包括客房信息表，客戶信息表，入住登記信息表。采用Excel中錄入數據，然后使用SQL Server 2000數據導入、導出功能直接將數據導入到相應的基本表。
方法二 在查詢分析器中插入相關數據，用SQL語句插入。
----------創建存儲過程----------------------1.4建立存儲過程
1.4.1客房信息存儲過程
插入客房信息存儲過程：
CREATE PROCEDURE 插入客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS INSERT INTO 客房 VALUES(@KFB,@KFL,@JG,@CWS,@SYZT)
修改客房信息存儲過程：
CREATE PROCEDURE 修改客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS UPDATE 客房
SET 客房類型=@KFL,價格=@JG,床位數=@CWS,使用狀態=@SYZT WHERE 客房編號=@KFB 刪除客房信息存儲過程：
CREATE PROCEDURE 刪除客房信息(@KFB CHAR(8))AS DELETE FROM 客房 WHERE 客房編號=@KFB
1.4.2客戶信息存儲過程
插入客戶信息
CREATE PROCEDURE 插入客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS INSERT INTO 客戶 VALUES(@KHB,@KFM,@SFZ,@LXDZ,@LXDH)修改客戶信息
CREATE PROCEDURE 修改客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS UPDATE 客戶
SET 客戶名稱=@KFM,身份證號=@SFZ,聯系地址=@LXDZ,聯系電話=@LXDH WHERE 客戶編號=@KHB
刪除客戶信息
CREATE PROCEDURE 刪除客戶信息(@KHB CHAR(8))AS DELETE FROM 客戶
WHERE 客戶編號=@KHB
EXEC 刪除客戶信息 @KHB='10009'
3.4.3創建入住信息存儲過程 插入入住信息
CREATE PROCEDURE 插入入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS INSERT INTO 入住登記 VALUES(@KFB,@KHB,@YDRQ,@YDSL)
修改入住信息
CREATE PROCEDURE 修改入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS UPDATE 入住登記
SET 客房編號=@KFB,預定日期=@YDRQ ,預定數量=@YDSL WHERE 客戶編號=@KHB
刪除入住信息
CREATE PROCEDURE 刪除入住信息(@KHB CHAR(8))AS DELETE
FROM 入住登記
WHERE 客戶編號=@KHB
1.5查詢存儲過程的創建
客房編號查詢
CREATE PROCEDURE 客房編號查詢(@KFB CHAR(8), @KFL CHAR(8)OUTPUT, @JG SMALLMONEY OUTPUT, @CWS INT OUTPUT, @SYZT CHAR(8)OUTPUT)AS SELECT @KFL=客房類型,@JG=價格,@CWS=床位數,@SYZT=使用狀態 FROM 客房
WHERE 客房編號=@KFB
客戶編號查詢
CREATE PROCEDURE 客戶編號查詢(@KHB CHAR(8), @KFM CHAR(10)OUTPUT , @SFZ CHAR(18)OUTPUT, @LXDZ CHAR(25)OUTPUT, @LXDH CHAR(10)OUTPUT)AS SELECT @KFM=客戶名稱,@SFZ=身份證號,@LXDZ=聯系地址,@LXDH=聯系電話 FROM 客戶
WHERE 客戶編號=@KHB
入住客戶編號查詢
CREATE PROCEDURE 入住客戶編號查詢(@KFB CHAR(8)OUTPUT, @KHB CHAR(8), @YDRQ DATETIME OUTPUT, @YDSL INT OUTPUT)AS SELECT @KFB=客房編號,@YDRQ=預定日期,@YDSL=預定數量 FROM 入住登記
WHERE 客戶編號=@KHB
--------建立觸發器--------------1.6、建立觸發器保證數據的一致性
客房使用狀態的控制
CREATE TRIGGER 控制觸發器
ON 入住登記 FOR INSERT AS
UPDATE 客房
SET 使用狀態='使用中' WHERE 客房編號=ANY(SELECT 客房編號 FROM INSERTED)
控制入住信息刪除的觸發器
CREATE TRIGGER 入住刪除觸發器
ON 入住登記 FOR DELETE AS BEGIN DELETE FROM 客戶 WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)
UPDATE 客房
SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END 客戶信息刪除的控制
CREATE TRIGGER 客戶刪除觸發器
ON 客戶
FOR DELETE AS BEGIN DELETE FROM 入住
WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)
UPDATE 客房
SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END
客房刪除觸發器
CREATE TRIGGER 客房刪除觸發器
ON 客房
FOR DELETE AS
DELETE FROM 入住
WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)
酒店管理系統數據庫腳本
------------------------數據庫初始化------set nocount on set dateformat mdy go
use master
go if exists(select * from sysdatabases where name='酒店管理系統')
/*刪除在master中已存*/ /*在的名為酒店管理系統的數據庫*/ drop database 酒店管理系統 go--------------------------酒店管理系統的建立-create database 酒店管理系統 on primary /*設定系統主文件*/(name='酒店管理系統_data', filename='d:酒店管理系統.mdf', size=10, maxsize=50, filegrowth=5)
log on
/*創建事務日志文件*/(name='酒店管理系統_log', filename='d:酒店管理系統.ldf', size=5, maxsize=25, filegrowth=5)go
---------（注：刪除查詢分析器中的以上代碼后，運行以下代碼）-----------------建立信息表----------use 酒店管理系統
if exists(select * from sysobjects where name='客戶')drop table 客戶 go print 'drop table 客戶' print 'create table 客戶' go /*客戶信息表*/ CREATE TABLE 客戶
/*創建客戶信息表*/(客戶編號 CHAR(8)PRIMARY KEY, 客戶名稱 CHAR(10)NOT NULL, 身份證號 CHAR(18)NOT NULL, 聯系地址 CHAR(25), 聯系電話 CHAR(10))go--------------------------插入客戶數據-----------------------INSERT INTO 客戶 VALUES('1001','王一',12234,'江西','3245354')INSERT INTO 客戶 VALUES('1002','張三',34234,'江西','2442442')INSERT INTO 客戶 VALUES('1003','李四',56465,'江西','5654645')INSERT INTO 客戶 VALUES('1004','王錢',65435,'江西','5676577')INSERT INTO 客戶 VALUES('1005','孫志',11464,'江西','4234343')if exists(select * from sysobjects where name='客房')drop table 客房 go print 'drop table 客房' print 'create table 客房' go /*客房信息表*/ CREATE TABLE 客房
/*創建客房信息表*/(客房編號 CHAR(8)PRIMARY KEY, 客房類型 CHAR(8)NOT NULL, 價格 SMALLMONEY NOT NULL, 床位數 INT NOT NULL, 使用狀態 CHAR(8)NOT NULL)go-----------------------插入客房數據----------------------INSERT INTO 客房 VALUES('101','一',100,1,'使用中')INSERT INTO 客房 VALUES('102','二',200,2,'使用中')INSERT INTO 客房 VALUES('103','二',200,1,'使用中')INSERT INTO 客房 VALUES('104','三',300,2,'使用中')INSERT INTO 客房 VALUES('105','三',300,1,'使用中')if exists(select * from sysobjects where name='入住登記')drop table 入住登記 go print 'drop table 入住登記' print 'create table 入住登記' go /*入住登記信息表*/ CREATE TABLE 入住登記
/*創建入住登記信息表*/(客房編號 CHAR(8)FOREIGN KEY REFERENCES 客房(客房編號)，客戶編號 CHAR(8)FOREIGN KEY REFERENCES 客戶(客戶編號)，預定日期 DATETIME，預定數量 INT, PRIMARY KEY(客房編號,客戶編號))go
---------------插入入住登記信息數據----------------------INSERT INTO 入住登記 VALUES('101','1001',2010-10-10,1)INSERT INTO 入住登記 VALUES('102','1002',2010-12-10,1)INSERT INTO 入住登記 VALUES('103','1003',2010-12-26,1)INSERT INTO 入住登記 VALUES('104','1004',2010-12-9,1)go
-----建立索引-------------------
CREATE UNIQUE INDEX UKF ON 客房(客房編號,價格)go CREATE UNIQUE INDEX UKH ON 客戶(客戶編號,客戶名稱)go CREATE UNIQUE INDEX URZ ON 入住登記(客戶編號,客房編號)go
----建立觸發器-------------------------建立控制觸發器（保證在客房使用狀態的一致性）------if exists(select * from sysobjects where name='控制觸發器')drop trigger 控制觸發器 GO CREATE TRIGGER 控制觸發器
ON 入住登記 FOR INSERT AS
UPDATE 客房
SET 使用狀態='使用中' WHERE 客房編號=ANY(SELECT 客房編號 FROM INSERTED)go
--------建立入住刪除觸發器（保證信息刪除的一致性）----------if exists(select * from sysobjects where name='入住刪除觸發器')drop trigger 入住刪除觸發器 GO CREATE TRIGGER 入住刪除觸發器
ON 入住登記 FOR DELETE AS BEGIN DELETE FROM 客戶
WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)
UPDATE 客房
SET 使用狀態='未使用' WHERE 客房編號=ANY(SELECT 客房編號 FROM DELETED)END go-------建立客房刪除觸發器（保證刪除的一致性）---------if exists(select * from sysobjects where name='客房刪除觸發器')drop trigger 客房刪除觸發器 GO CREATE TRIGGER 客房刪除觸發器
ON 客房
FOR DELETE AS
DELETE FROM 入住
WHERE 客戶編號=ANY(SELECT 客戶編號 FROM DELETED)go---------創建查詢視圖----------------
CREATE VIEW 入住信息查詢
AS SELECT 入住登記.客房編號,客戶名稱,入住登記.客戶編號,客房.客房類型,價格,使用狀態
FROM 客房,客戶,入住登記
WHERE 客房.客房編號=入住登記.客房編號 AND 入住登記.客戶編號=客戶.客戶編號 go
---------建立存儲過程------------------------------客房信息插入存儲過程--------------------------CREATE PROCEDURE 插入客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS INSERT INTO 客房 VALUES(@KFB,@KFL,@JG,@CWS,@SYZT)GO
--------------------客房信息修改的存儲過程---------------------CREATE PROCEDURE 修改客房信息(@KFB CHAR(8), @KFL CHAR(8), @JG SMALLMONEY, @CWS INT, @SYZT CHAR(8))AS UPDATE 客房
SET 客房類型=@KFL,價格=@JG,床位數=@CWS,使用狀態=@SYZT WHERE 客房編號=@KFB go--------------------客房信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除客房信息(@KFB CHAR(8))AS DELETE FROM 客房 WHERE 客房編號=@KFB GO--------------------客戶信息插入的存儲過程---------------------CREATE PROCEDURE 插入客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS INSERT INTO 客戶 VALUES(@KHB,@KFM,@SFZ,@LXDZ,@LXDH)go--------------------客戶信息修改的存儲過程---------------------CREATE PROCEDURE 修改客戶信息(@KHB CHAR(8), @KFM CHAR(10), @SFZ CHAR(18), @LXDZ CHAR(25), @LXDH CHAR(10))AS UPDATE 客戶
SET 客戶名稱=@KFM,身份證號=@SFZ,聯系地址=@LXDZ,聯系電話=@LXDH WHERE 客戶編號=@KHB GO--------------------客戶信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除客戶信息(@KHB CHAR(8))AS DELETE FROM 客戶
WHERE 客戶編號=@KHB go--------------------入住信息插入的存儲過程---------------------CREATE PROCEDURE 插入入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS INSERT INTO 入住登記 VALUES(@KFB,@KHB,@YDRQ,@YDSL)go--------------------入住信息修改的存儲過程---------------------CREATE PROCEDURE 修改入住信息(@KFB CHAR(8), @KHB CHAR(8), @YDRQ DATETIME, @YDSL INT)AS UPDATE 入住登記
SET 客房編號=@KFB,預定日期=@YDRQ ,預定數量=@YDSL WHERE 客戶編號=@KHB go--------------------入住信息刪除的存儲過程---------------------CREATE PROCEDURE 刪除入住信息(@KHB CHAR(8))AS DELETE
FROM 入住登記
WHERE 客戶編號=@KHB go--------------------客房編號查詢的存儲過程-----------------------if exists(select * from sysobjects where name='客房編號查詢')drop procedure 客房編號查詢 GO CREATE PROCEDURE 客房編號查詢(@KFB CHAR(8))AS SELECT 客房類型,價格,床位數,使用狀態 FROM 客房
WHERE 客房編號=@KFB go--------------------客戶編號查詢的存儲過程-----------------------if exists(select * from sysobjects where name='客戶編號查詢')drop procedure 客戶編號查詢 GO CREATE PROCEDURE 客戶編號查詢(@KHB CHAR(8))AS SELECT 客戶編號,客戶名稱,身份證號,聯系地址,聯系電話 FROM 客戶
WHERE 客戶編號=@KHB go--------------------入住信息查詢的存儲過程-----------------------if exists(select * from sysobjects where name='入住客戶編號查詢')drop procedure 入住客戶編號查詢 GO CREATE PROCEDURE 入住客戶編號查詢(@KHB CHAR(8))AS SELECT 客戶編號,客房編號,預定日期,預定數量 FROM 入住登記
WHERE 客戶編號=@KHB
第三篇：數據庫課程設計學籍管理系統
學籍管理系統
本次數據庫課程設計是以Access數據庫作為后臺以VB作為前臺的應用型設計課程。
綜合我們所學的兩大課程創建應用型的數據庫系統，大大的提高了我們學生的動手能力，作到了理論與實踐相結合。一．題目說明：
學生學藉管理系統是典型的學藉管理系統(MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。
本系統主要完成對學生情況和學生成績的管理，包括數據庫中表的添加、刪除等。系統還可以完成對各類信息的瀏覽、添加、刪除、等功能。
系統的核心是數據庫中各個表聯系，每一個表的修改都將聯動的影響其它的表，當完成對數據的操作時系統會自動地完成數據庫的修改。查詢功能也是系統的核心之一，在系統中即有單條件查詢和多條件查詢，也有精確查詢和模糊查詢，系統不僅有靜態的條件查詢，也有動態生成的條件查詢，其目的都是為了方便用戶使用。系統有完整的用戶添加、刪除和密碼修改功能，并具備報表打印功能。關鍵字：窗體、數據庫、vb6.0、access2000。
學生學籍管理系統被廣泛應用于各類學校的學生學籍管理工作中，要求其具有實用性強、使用方便、效率高和安全可靠等特點。本管理系統正是圍繞以上幾個方面進行開發的，在開發過程中充分考慮到本系統的應用特點，并進行了大量的檢驗，證明其的確達到了設計的要求，是一個已具備了實際應用能力的軟件。本文主要論述學生學籍管理系統的開發過程，在涉及到VB及Access中的部分知識以舉例的方式進行講解 二.總體設計：
我的總體設計如下：
（1）.利用Access建立數據庫，并在該數據庫下創建五張表格，分別是學生表、課程表、選課表、學生選課表以及口令表。
（2）利用VB來建立界面并對它進行設計和修改，大體框架如下： FORM1 用于首界面
FORM2 用于登陸此系統的登錄界面
FORM3 是主窗體，在這上面建立相應的菜單 如：文件——退出、添加用戶（FORM4）數據信息——管理使用（FORM5）
基本操作——學生操作、選課操作、課程操作(FORM6、FORM7、FORM8)（3）對以上的界面進行設計以及對所要操作的部件進行編程。
三.常用控件的說明: 所有的Windows應用程序窗口或對話框，都是由諸如文本框、列表框、命令按扭、滾動條、命令菜單等組成的。VB通過控件工具箱提供了它們與用戶進行交
互的可視化部件，即控件。程序開發人員只需要通過簡單的操作，在窗體上安排所需要的控件，完成應用程序的用戶界面設計即可。序號
名稱
功能 Label標簽
用于說明 Textbox文本框
用于文本輸入或顯示 3 Frame框架
用于組合控件 Commandbutton命令按扭
單擊執行命令 5 Timer計時期
用于定時 Data數據控件
用于訪問數據庫
三.詳細說明：
1.數據庫的建立與設計：
數據庫是有結構的數據集合,它與一般的數據文件不同，(其中的數據是無結構的)是一串文字或數字流。數據庫中的數據可以是文字、圖象、聲音等。
Access數據庫由六種對象組成，它們是表、查詢、窗體、報表、宏和模塊。
(1).表(Table)——表是數據庫的基本對象，是創建其他5種對象的基礎。表由記錄組成，記錄由字段組成，表用來存貯數據庫的數據，故又稱數據表。
(2).查詢(Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。
(3).窗體(Form)——窗體提供了一種方便的瀏覽、輸入及更改數據的窗口。還可以創建子窗體顯示相關聯的表的內容。窗體也稱表單。
(4).報表(Report)——報表的功能是將數據庫中的數據分類匯總，然后打印出來，以便分析。
(5).宏(Macro)——宏相當于DOS中的批處理，用來自動執行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。
(6).模塊(Module)——模塊的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據自己的需要編寫程序。模塊使用Visual Basic編程。
我們利用Access來建立數據庫，我們的庫中有五張表格，其分別是學生表、課程表、選課表、學生選課表以及口令表。
我們就以學生表為例做一個簡單的說明：
我們使用設計器來創建表的，我的這張表有七個字段，每個字段的名稱分別是：學號、班級、姓名、性別、出生年月、民族、地址、電話號碼，每個字段有七個數據。我并對其字段的屬性進行了重新的修改，以做到不浪費其空間。
我具體的實施步驟是：啟動數據庫管理器——建立數據庫——建立數據表結構——輸入記錄。
最終產生了這樣的一個數據庫：（如下）
2．VB界面的建立設計以及程序的編寫說明：
VB 是在Windows操作平臺下，用于開發和創建具有圖形用戶界面的應用程序的強有力工具之一。VB為開發Windows應用程序不僅提供了全新的相對簡單的方式，而且也引進了新的程序設計方法——面向對象的設計方法（00P）。從傳統的面向過程的程序設計，轉移到更先進的面向對象的程序設計，無論是對老的程序員，還是初學者，都是一個挑戰。而學習VB，則是掌握這一新的程序設計方法的一條捷徑。
（1）.界面的設計和程序的編寫：
設計一個像這樣的友好的界面，我考慮到它的顏色的配制，界面的大小，界面所載的內容的多少等，在后臺我用定時器給其限定時間讓它在一定的時間后自動跳到下一個界面。
這個界面是系統的主界面，用戶可以在通過系統登錄后直接到我們的主界面上來進行相應的操作，我的主界面采用的是一張蘇州市職業大學的圖片，在這個圖片的上面有三個菜單，分別是文件、數據信息和基本操作。在各自的下面還有與之相對應的子菜單，文件下有退出和添加用戶，數據信息下有管理使用，基本操作下有學生操作、選課操作和課程操作。我利用FORMn.SHOW命令連接到相對應的界面上。
我們的界面有好幾張我就對其中的一張進行詳細的分析：
這是一張學生選課瀏覽表的界面，這也是對應我的主界面菜單中的數據信息下的管理使用子菜單的一張界面，在這張界面中包含了8個LABEL標簽控件、7個 TEXTBOX文本框控件、6個COMMANDBUTTON命令按扭控件、1個FRAME框架控件和1個DATA部件。我利用DATA部件將界面與 ACCESS數據庫相連接，具體的操作是利用DATABASENAME與數據庫連接，在RECORDSOURCE中找到與之對應的表，再用 DATASOURCE、DATAFIELD與個文本框內容對應，從而實現界面與數據庫的連接。下面是程序的編寫過程：
顯示前一個數據： COMMAND1：
Private Sub Command1_Click()If Data1.Recordset.RecordCount = 0 Then MsgBox “沒有記錄” Else If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst MsgBox “這是第一條記錄！” Else Data1.Recordset.MovePrevious If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveFirst MsgBox “這是第一條記錄！” End If End If End If End Sub 顯示第一個數據： COMMAND2：
Private Sub Command2_Click()If Data1.Recordset.RecordCount = 0 Then MsgBox “沒有記錄” Else Data1.Recordset.MoveFirst End If End Sub 顯示最后一個數據： COMMAND4：
Private Sub Command4_Click()If Data1.Recordset.RecordCount = 0 Then MsgBox “沒有記錄” Else Data1.Recordset.MoveLast End If End Sub 顯示后一個數據： COMMAND3：
Private Sub Command3_Click()If Data1.Recordset.RecordCount = 0 Then MsgBox “沒有記錄” Else If Data1.Recordset.EOF Then Data1.Recordset.MoveLast MsgBox “這是最后一條記錄！” Else Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast MsgBox “這是最后一條記錄！” End If End If End If End Sub 添加一個數據：COMMAND6 Private Sub command6_Click()If Command6.Caption = “添加” Then
Command1.Enabled = 0 Command2.Enabled = 0 Command3.Enabled = 0 Command4.Enabled = 0 Command6.Caption = “確定” Command5.Caption = “放棄” If Data1.Recordset.RecordCount > 0 Then Data1.Recordset.MoveLast End If Data1.Recordset.AddNew Text1.SetFocus Else Command1.Enabled =-1 Command2.Enabled =-1 Command3.Enabled =-1 Command4.Enabled =-1 Command6.Caption = “添加” Command5.Caption = “刪除” Text2.Enabled = 0 Text5.Enabled = 0 Text3.Enabled = 0 Text4.Enabled = 0 Text6.Enabled = 0 Text7.Enabled = 0 Data1.Recordset.Update Command1.SetFocus End If End Sub 刪除一個記錄：COMMAND5 Private Sub Command5_Click()If Command5.Caption = “放棄” Then Command4.Enabled =-1 Command5.Enabled =-1 Command6.Enabled =-1 Command3.Enabled =-1 Command1.Caption = “添加” Command2.Caption = “刪除” Text2.Enabled = 0 Text5.Enabled = 0 Text6.Enabled = 0 Text7.Enabled = 0 Text1.Enabled = 0
Else If Data1.Recordset.RecordCount = 0 Then MsgBox “沒有記錄”, 32, “注意” Exit Sub Else str1 = MsgBox(“刪除該記錄嗎？”, 17, “刪除”)If str1 = 1 Then Data1.Recordset.Delete Data1.Refresh If Data1.Recordset.RecordCount = 0 Then MsgBox “記錄數為零” Data1.Recordset.AddNew End If End If End If End If End Sub
四、在此過程中遇到的問題以及解決方法： 在開始編寫程序的時候總是有一些出錯，在查找有關書籍和向老師詢問后得出了結果。在將界面與數據庫相連接的時候，不知道用哪種方法，在老師的幫助下我學會了兩種方法：1.DATA、2.ADODC。我最終使用DATA這種方法。
五、心得體會：
在這次的設計過程中，我學到的不僅是知識，我還認識到許多事情。這次設計使我的編程水平提高了一大步，使我充分的認識到合作的可貴。由于這次設計涉及到數據庫，我的學到了不少編程工具與數據庫連接的知識，對數據庫的操作有了進一步的了解。這次設計對我的綜合能力是一次很好的鍛煉，但是我必須承認自己的能力和知識還很膚淺。所以今后我的學習道路還是很漫長的。最后，在這里我要衷心的感謝我們的指導老師牛麗、程淵，謝謝她的悉心指導和熱心幫助。由于我水平有限，加之時間短暫，故學籍管理系統中還有許多不足之處，請老師批評指正，我會在以后的制作中不斷改進，不斷完善。
第四篇：數據庫課程設計——庫存銷售管理系統
數據庫課程設計
實驗報告
姓名：黃世增
班級：計算機1403
學號：14116403051.實驗名稱
使用Visual Basic 6.0和SQL Server 2014開發庫存銷售管理系統
2.實驗目的
使用Visual Basic 6.0開發工具開發一個庫存銷售管理系統，該系統采用SQL Server 2014數據庫保存庫存貨物信息，數據庫中包括貨物出入庫信息和商品銷售等信息。該系統包括系統登錄、貨物出入庫管理、商品銷售管理和商品統計管理等功能，通過這些功能實現對庫存中貨物信息和銷售信息進行管理。
系統主要實現以下目標：
? 實現系統登錄及修改用戶密碼的功能。? 對庫存貨物的出入庫信息進行管理。? 對商品的銷售信息進行管理。
? 根據銷售日期統計商品的銷售數據。
3.實驗步驟 3.1 設計數據庫
建立一個名為“DB_KCGL”的數據庫，根據前述的主要功能目標，需要建立3個數據表（關系）：
（1）貨物的出入庫信息：保存貨物的出入庫信息
? id：庫存貨物信息的編號，主碼，建議長度為18的numeric類型。? tb_title：庫存貨物的名稱，建議長度為50的varchar類型。? tb_style：庫存貨物的類型，建議長度為50的varchar類型。? tb_nums：庫存貨物的數量，建議為整型int。? tb_values：庫存貨物的價格，實數類型real。
? tb_date：庫存貨物的入庫日期，時間日期類型datetime。
? tb_mark：庫存貨物的備注信息，建議長度為50的varchar類型。
（2）商品的銷售信息：保存商品的銷售信息
? id：商品銷售信息的編號，主碼，建議長度為18的numeric類型。
? ? ? ? tb_title：銷售商品的名稱，建議長度為50的varchar類型。tb_nums：建議為整型int。
tb_values：銷售商品的總價，浮點類型float。
tb_date：商品銷售的日期，時間日期類型datetime。
（3）系統用戶的信息：保存系統用戶的信息
? id：用戶信息的編號，主碼，建議長度為18的numeric類型。? tb_name：用戶名稱，建議長度為50的varchar類型。
? tb_pas：用戶的密碼信息，建議長度為50的varchar類型。
3.2 設計連接數據庫的模塊
需要首先建立一個連接數據庫的模塊，這樣應用程序才能與數據庫中的數據表取得連接，將數據信息從數據表中讀出到應用程序中或通過應用程序保存到數據表中。
為此，建立一個負責數據庫連接的模塊如下：
（1）選擇“工程”菜單下的“添加模塊”命令，在應用程序中添加一個模塊Module1。（2）Module1模塊的實現如下： '數據連接模塊
Public MyStrs As String Public DB_AdoRs As New ADODB.Recordset
'后添加一個記錄集對象 Public DB_AdoRs1 As New ADODB.Recordset
'后添加一個記錄集對象 Public DB_AdoRs2 As New ADODB.Recordset
'后添加一個記錄集對象 Public Function Cnn()As ADODB.Connection
'定義連接字符串函數
Set Cnn = New ADODB.Connection
Cnn.Open “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_KCGL;Data Source=.” End Function Public Sub Main()
MyStrs = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=DB_KCGL;Data Source=.”
'顯示系統登錄窗體
Form1.Show End Sub（3）這里需要將程序的入口設置為模塊中的Main()函數。選擇“工程”菜單下的“工程屬性”命令，在“通用”標簽中進行相應設置。
3.3 系統登陸模塊設計
在本庫存銷售管理系統中，只有授權用戶（管理員）可以登錄并進行庫存和銷售信息管理與維護，因此需要一個系統登錄界面，防止非法用戶登錄到系統中，從而保證了應用程序的安全性和可靠性。
3.3.1 登錄窗體設計
設計如下的登錄窗體，在窗體中要添加一個ADO控件，命名為Adodc1。
（1）登錄窗體啟動之后，需要將系統用戶的信息數據表中的所有用戶名稱信息添加到窗體的ComboBox控件的Op_Name屬性中，即實現在“操作員名稱”下拉列表中可以出現系統當前的操作員信息，供登錄用戶選擇。Private Sub Form_Load()'使用代碼連接數據庫與數據表
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = “select * from 系統的用戶信息”
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Op_Name.Clear
'在添加數據時，首先清空控件中的內容
Do While Adodc1.Recordset.EOF = False
'將操作員信息添加到下拉列表框控件當中
Op_Name.AddItem(Adodc1.Recordset.Fields(“tb_name”))
Adodc1.Recordset.MoveNext
Loop
End If End Sub
（2）當用戶在“操作員名稱”下拉列表中選擇操作員的名稱，并且在“操作員密碼”文本框輸入正確的密碼之后，單擊“確定”按鈕將登錄到系統中，否則將無法登錄系統。具體實現如下：
Private Sub Cmd_Ok_Click()Adodc1.RecordSource = “select * from Tb_User where tb_name ='” & Op_Name.Text & “'” Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields(“tb_pas”)
If Txt_Password.Text = MPassword Then
'判斷數據的密碼是否正確
Name1 = Op_Name.Text
Frm_Main.StatusBar1.Panels.Item(2).Text = “當前操作員： ” + Adodc1.Recordset.Fields(“tb_name”)
Frm_Main.Show
'通過身份驗證則顯示主窗體，登錄到系統當中
Unload Me
Else
MsgBox “密碼不正確,請您確認后重新輸入”, , “提示信息”
Txt_Password.Text = “"
Txt_Password.SetFocus
End If
Else
MsgBox ”對不起 沒有此用戶的信息“, , ”提示信息“
Op_Name.Text = ”“
Txt_Password.Text = ”“
End If End Sub 3.4 系統主界面的實現
3.4.1 主界面設計
（1）在工程中添加一個窗體，將窗體命名為Frm_main，將窗體Caption屬性設置為“庫存管理系統”。
（2）添加一個Toolbar控件，工具欄由“修改密碼”、“庫存管理”、“商品銷售”、“銷售統計”和“退出系統”5個按鈕組成。（3）添加一個StatusBar控件，使得狀態欄中能夠顯示登錄操作員姓名和當前系統時間等信息。
（4）在主窗體上添加一個時鐘控件，用于顯示系統當前日期和時間信息。
（5）在主窗體上添加一個Label標簽控件，將其Caption屬性設置為“庫存管理系統”。
3.4.2 代碼實現
（1）窗體啟動時，在窗體的狀態欄中將顯示當前系統的日期信息： Private Sub Form_Load()
StatusBar1.Panels.Item(3).Text = Format(Now, ”yyyy年mm月dd日“)End Sub
（2）單擊窗口工具欄按鈕時，將會調用系統的各個子功能模塊： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Frm_Pas.Show
'修改密碼
Case 2
Frm_Inout.Show '庫存管理
Case 3
Frm_Sale.Show
'商品銷售
Case 4
Frm_Stat.Show
'銷售統計
Case 5
End
'退出系統
End Select End Sub
（3）在時鐘控件的Timer事件中添加如下代碼，實現在狀態欄中顯示當前系統時間的功能： Private Sub Timer1_Timer()
StatusBar1.Panels.Item(4).Text = Time End Sub
（4）再向狀態欄中添加公司名稱，操作員和公司網址信息。
系統主窗體的運行界面如下圖所示：
3.5 出入庫管理模塊的設計與實現
該模塊主要是記錄和維護庫存中的貨物信息，其中包括對貨物信息的刪除、修改和保存等方面的功能。
3.5.1 窗體界面設計
（1）在工程中添加一個窗體，命名為Frm_Inout，將窗體Caption設置為“出入庫管理”。（2）在窗體上添加相應的控件，如下圖所示。
（3）通過“工程”菜單下的“部件”命令將DataGrid數據表格控件添加到工具箱中，然后在窗體上添加1個數據表格控件DataGrid1。
（4）在窗體上添加一個ADO控件Adodc1，同時將DataGrid1的數據源屬性DataSource設置為Adodc1。
3.5.2 程序代碼實現
（1）窗口載入時，將數據庫中商品表數據讀出。Private Sub Form_Load()
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 order by id“
Adodc1.Refresh
AddTitle End Sub
其中，AddTitle函數用于向DataGrid1添加表頭，實現如下： '添加數據庫字段標題的事件過程 Private Sub AddTitle()
DataGrid1.Columns.Item(0).Caption = ”編號“
DataGrid1.Columns.Item(1).Caption = ”名稱“
DataGrid1.Columns.Item(2).Caption = ”類型“
DataGrid1.Columns.Item(3).Caption = ”數量“
DataGrid1.Columns.Item(4).Caption = ”單價“
DataGrid1.Columns.Item(5).Caption = ”入庫日期“
DataGrid1.Columns.Item(6).Caption = ”備注“
End Sub
（2）點擊“添加”按鈕，清空編輯框，讓用戶輸入新的待添加內容 Private Sub Command1_Click()'清空文本框中的內容
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“
Text1.SetFocus End Sub（3）點擊“刪除”按鈕，刪除選中當前記錄。Private Sub Command2_Click()'刪除庫存信息
c = MsgBox(”確認要刪除該信息嗎“, 17, ”提示信息“)
If c = vbOK Then
'如果有錯誤則執行錯誤處理
On Error Resume Next
Set DB_AdoRs = Cnn.Execute(”Delete from 貨物的出入庫信息 where id='“ + Text1.Text + ”'“)MsgBox ”數據刪除成功“, 64, ”提示信息“
'刪除后刷新數據信息
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 order by id“
Adodc1.Refresh
AddTitle
End If
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text5.Text = ”“
Text6.Text = ”“
End Sub
（4）點擊“修改”按鈕，修改當前的記錄信息。Private Sub Command3_Click()'修改庫存信息
c = MsgBox(”確認修改信息嗎“, 33, ”提示信息“)
If c = vbOK Then
'
On Error Resume Next
Set DB_AdoRs = Cnn.Execute(”UPDATE 貨物的出入庫信息 SET tb_title='“ + Text2 + ”',tb_style='“ + Text3 + ”',tb_nums='“ + Text4 + ”',tb_values='“ _
+ Text5 + ”',tb_mark='“ + Text6 + ”' where id='“ + Text1.Text + ”'“)
MsgBox ”數據修改成功“, 64, ”提示信息“
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 order by id“
Adodc1.Refresh
AddTitle
End If End Sub（5）點擊“保存”按鈕，將保存文本框中輸入的貨物信息。Private Sub Command4_Click()If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Then
MsgBox ”保存的數據信息不能為空“, 48, ”提示信息“
Else
DB_AdoRs.Open ”select * from 貨物的出入庫信息 where tb_title='“ + Text2.Text + ”'“, Cnn, adOpenKeyset
If DB_AdoRs.RecordCount > 0 Then
'判斷要保存的信息是否已經存在
MsgBox ”該貨物信息信息已經存在“, 48, ”提示信息“
DB_AdoRs.Close
Else
DB_AdoRs.Close
c = MsgBox(”確認保存信息嗎“, 33, ”提示信息“)
If c = vbOK Then
'如果選擇的是“確定”按鈕則保存信息
Set DB_AdoRs = Cnn.Execute(”insert into 貨物的出入庫信息 values(“ & Text1 & ”,'“ & Text2 & ”','“ & Text3 & ”',“ & Text4 & ”,“ _
& Text5 & ”,'“ & Date & ”','“ & Text6 & ”')“)
MsgBox ”信息保存成功“, 64, ”提示信息“
Else
End If
'保存數據后刷新數據信息
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 order by id“
Adodc1.Refresh
AddTitle
End If
End If End Sub（6）點擊退出，銷毀當前窗口。Private Sub Command6_Click()
Unload Me End Sub
（7）單擊DataGrid1中的相應記錄，會在窗體左側的各個編輯框中顯示相應的內容。Private Sub DataGrid1_Click()'On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
Text1.Text = Adodc1.Recordset.Fields(0)
Text2.Text = Adodc1.Recordset.Fields(1)
Text3.Text = Adodc1.Recordset.Fields(2)
Text4.Text = Adodc1.Recordset.Fields(3)
Text5.Text = Adodc1.Recordset.Fields(4)
Text6.Text = Adodc1.Recordset.Fields(6)
End If End Sub
窗體的運行界面如下圖所示：
3.6 商品銷售模塊的設計與實現
在“商品銷售管理”窗口中的“銷售商品”下拉列表中選擇要銷售的商品之后，該商品的基本信息將顯示在窗體中相應的文本框中，在輸入銷售數量和實收金額后，單擊“確認銷售”按鈕完成銷售商品的操作。
3.6.1 窗體界面設計
（1）在工程中添加一個窗體，命名為Frm_Sale，將Caption屬性設置為“商品銷售管理”。（2）在窗體上添加相應的控件，如下圖所示。
（3）通過“工程”菜單下的“部件”命令將DataGrid數據表格控件添加到工具箱中，然后在窗體上添加1個數據表格控件DataGrid1。
（4）在窗體上添加2個ADO控件Adodc1和Adodc2，同時將DataGrid1的數據源屬性DataSource設置為Adodc2。
3.6.2 程序代碼實現
（1）窗體啟動時，將商品庫存中的貨物名稱信息添加到下拉列表中，然后再將商品銷售的數據信息顯示在DataGrid1控件中。Private Sub Form_Load()Adodc2.ConnectionString = MyStrs
Adodc2.RecordSource = ”select * from 商品的銷售信息 order by id“
Adodc2.Refresh
AddTitle
'使用代碼連接數據庫與數據表
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = ”select * from 貨物的出入庫信息“
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Combo1.Clear
'在添加數據時，首先清空控件中的內容
Do While Adodc1.Recordset.EOF = False
'將貨物出入庫信息添加到下拉列表框控件當中
Combo1.AddItem(Adodc1.Recordset.Fields(”tb_title“))
Adodc1.Recordset.MoveNext
Loop
End If End Sub Private Sub AddTitle()
DataGrid1.Columns.Item(0).Caption = ”編號“
DataGrid1.Columns.Item(1).Caption = ”名稱“
DataGrid1.Columns.Item(2).Caption = ”銷售數量“
DataGrid1.Columns.Item(3).Caption = ”銷售總價“
DataGrid1.Columns.Item(4).Caption = ”銷售日期“ End Sub（2）選擇下拉列表中的商品之后，該商品的詳細信息將顯示在窗體中相對應的文本框中。'商品詳細信息
Private Sub Combo1_Click()Adodc1.RecordSource = ”select * from 貨物的出入庫信息 where tb_title ='“ & Combo1.Text & ”'“ Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Text1.Text = Adodc1.Recordset.Fields(”id“)
Text2.Text = Adodc1.Recordset.Fields(”tb_style“)
Text3.Text = Adodc1.Recordset.Fields(”tb_nums“)
Text4.Text = Adodc1.Recordset.Fields(”tb_values“)
Text5.Text = Adodc1.Recordset.Fields(”tb_mark“)
End If
'清空文本框中的內容
Text6.Text = ”“
Text7.Text = ”“
Text8.Text = ”“
Text9.Text = ”“
End Sub
（3）單擊“確認銷售”按鈕，將完成銷售商品的操作。
（4）當用戶輸入銷售數量后并將輸入焦點移開后，需要實時更新商品詳細信息中的數量信息，即在原有數量的基礎上減去用戶輸入的銷售數量。（3）和（4）的代碼：
Private Sub Command1_Click()
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 where tb_title ='“ & Combo1.Text & ”'“
Adodc1.Refresh
Dim a As Integer
Dim b As Integer
a = Val(Text7.Text)
b = Val(Text4.Text * Text6.Text)
If Text6.Text = ”“ Or Text7.Text = ”“ Then
MsgBox ”請補全信息！“, 64, ”提示信息“
Else
If a < b Then
MsgBox ”信息輸入有誤，請重新輸入！“, 64, ”提示信息“
Else
Text8.Text = Text4.Text * Text6.Text
Text9.Text = Text7.TextText6.Text
Adodc1.Recordset.Update
Set DB_AdoRs = Cnn.Execute(”insert into 商品的銷售信息 values('“ & Adodc2.Recordset.RecordCount + 1 & ”','“ & Combo1.Text & ”','“ & Text6 & ”',“ & Text8 & ”,'“ & Date & ”')“)
Set DB_AdoRs = Cnn.Execute(”UPDATE 貨物的出入庫信息 SET tb_nums = '“ & Text3 & ”' where id= '“ & Text1 & ”'“)
MsgBox ”銷售成功！“, 64, ”提示信息“
Adodc2.RecordSource = ”select * from 商品的銷售信息 “
Adodc2.Refresh
AddTitle
End If
End If End Sub
窗體的運行結果如下圖所示：
3.7 銷售統計模塊的設計與實現
該模塊主要實現統計商品銷售信息的功能。選擇商品的銷售日期和銷售商品的名稱之后，在下面的DataGrid數據表格控件中就會顯示查詢的數據結果信息，同時統計出銷售商品的總數量和總價格。
3.7.1 窗體界面設計
（1）添加一個窗體，命名為Frm_Stat，將窗體的Caption屬性設置為“銷售統計”。（2）在窗體上添加控件情況如后圖。
（3）在窗體上添加一個數據表格控件DataGrid1。
（4）在窗體上添加2個ADO控件Adodc1和Adodc2，同時將DataGrid1的數據源屬性DataSource設置為Adodc2。
銷售統計窗體的設計界面如下圖所示。
3.7.2 程序代碼實現
（1）在啟動窗體時，將貨物的名稱信息添加到下拉列表控件中，然后再將商品銷售的數據信息顯示在表格控件中。
（2）在日期時間控件DTPicker1的Change事件下添加如下的程序代碼，實現根據選擇條件統計商品銷售信息的功能。
（3）在日期Combo1控件的Click事件下添加如下的程序代碼，實現根據選擇條件統計商品銷售信息的功能。
Private Sub Combo1_Click()Adodc2.RecordSource = ”select * from 商品的銷售信息 where tb_title ='“ & Combo1.Text & ”' and tb_date ='“ & DTPicker1.Value & ”' “ Adodc2.Refresh AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not Adodc2.Recordset.EOF n = n + Adodc2.Recordset.Fields(2).Value m = m + Adodc2.Recordset.Fields(3).Value Adodc2.Recordset.MoveNext Loop Text1.Text = n
Text2.Text = m End Sub
Private Sub DTPicker1_Change()Adodc2.RecordSource = ”select * from 商品的銷售信息 where tb_title ='“ & Combo1.Text & ”' and tb_date ='“ & DTPicker1.Value & ”' “ Adodc2.Refresh AddTitle Dim n, m As Integer n = 0 m = 0 Do While Not Adodc2.Recordset.EOF n = n + Adodc2.Recordset.Fields(2).Value m = m + Adodc2.Recordset.Fields(3).Value Adodc2.Recordset.MoveNext Loop Text1.Text = n Text2.Text = m End Sub
Private Sub Form_Load()
Adodc2.ConnectionString = MyStrs
Adodc2.RecordSource = ”select * from 商品的銷售信息 where tb_title ='“ & Combo1.Text & ”' and tb_date ='“ & DTPicker1.Value & ”' order by id“
Adodc2.Refresh
AddTitle
'使用代碼連接數據庫與數據表
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = ”select * from 貨物的出入庫信息 “
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Combo1.Clear
'在添加數據時，首先清空控件中的內容
Do While Adodc1.Recordset.EOF = False
'將商品銷售信息添加到下拉列表框控件當中
Combo1.AddItem(Adodc1.Recordset.Fields(”tb_title“))
Adodc1.Recordset.MoveNext
Loop
End If End Sub
Private Sub AddTitle()
DataGrid1.Columns.Item(0).Caption = ”編號“
DataGrid1.Columns.Item(1).Caption = ”名稱“
DataGrid1.Columns.Item(2).Caption = ”銷售數量“
DataGrid1.Columns.Item(3).Caption = ”銷售總價“
DataGrid1.Columns.Item(4).Caption = ”銷售日期“ End Sub
窗體的運行結果如下：
3.8 修改密碼模塊的設計與實現
3.8.1 窗體界面設計
（1）添加一個窗體，命名為Frm_Pas，將Caption屬性設置為“密碼修改”。（2）在窗體上加入一個ADO控件Adodc1。（3）設計窗體的界面如下圖。
3.8.2 程序代碼實現
（1）載入窗口時連接操作員信息數據表 Private Sub Form_Load()'使用代碼連接數據庫與數據表
Adodc1.ConnectionString = MyStrs
Adodc1.RecordSource = ”select * from 系統用戶的信息“
Adodc1.Refresh End Sub
（2）當點擊“確定”按鈕時，首先判斷用戶輸入的用戶名和原密碼信息是否正確，如果正確并且兩次輸入的新密碼一致，就將用戶密碼修改為新密碼。Private Sub Command1_Click()Adodc1.RecordSource = ”select * from 系統用戶的信息 where tb_name ='“ & Text1.Text & ”'“ Adodc1.Refresh
If Text1.Text = ”“ Then
MsgBox ”請輸入用戶名！“, 48, ”提示信息“
Text1.SetFocus
Else
If Text2.Text = ”“ Then
MsgBox ”請輸入舊密碼！“, 48, ”提示信息“
Text2.SetFocus
Else
If Text3.Text = ”“ Then
MsgBox ”請輸入新密碼！“, 48, ”提示信息“
Text3.SetFocus
Else
If Text4.Text = ”“ Then
MsgBox ”請確認新密碼！“, 48, ”提示信息“
Text4.SetFocus
Else
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields(”tb_pas“)
If Text2.Text = MPassword And Text3.Text = Text4.Text Then
'判斷數據的密碼是否正確
Set DB_AdoRs = Cnn.Execute(”UPDATE 系統用戶的信息 SET tb_pas='“ + Text3.Text + ”' where tb_name='“ + Text1.Text + ”'“)
MsgBox ”密碼已修改！“, 48, ”提示信息“
Unload Me
Else
If Text2.Text <> MPassword Then
MsgBox ”密碼不正確,請您確認后重新輸入！“, 64, ”提示信息“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”“
Text2.SetFocus
Else
MsgBox ”兩次輸入的新密碼不一致，請重新輸入！“, 64, ”提示信息“
Text3.Text = ”“
Text4.Text = ”“
Text3.SetFocus
End If
End If
Else
If Text1.Text <> ”“ Then
MsgBox ”對不起 沒有此用戶的信息！“, 64, ”提示信息“
Text1.Text = ”“
Text2.Text = ”“
Text3.Text = ”“
Text4.Text = ”"
Text1.SetFocus
End If
End If
End If
End If
End If
End If End Sub
（3）當用戶點擊“取消”時，關閉密碼修改對話框。Private Sub Command2_Click()
End End Sub
窗體的運行結果如下：
4.實驗總結
通過這兩星期的學習，加深了我對數據庫的認識，懂得了如何去應用數據庫，也對Visual Basic有了一定的了解了，雖然設計的過程中并不是那么的順利，但經過查找相關的資料后，問題一步一步地解決了，相信對我以后的學習有一定的幫助。
第五篇：數據庫課程設計 圖書管理系統（精選）
課 程 設 計
軟件工程與數據庫 課程設計 任務書
學院名稱：
數學與計算機學院
課程代碼：_6014419_ 專
業：
年
級：
一、設計題目
圖書管理系統
二、主要內容
一個簡單的圖書管理系統包括圖書館內書籍的信息、學校在校學生的信息以及學生的借閱信息。此系統功能分為面向學生和面向管理員兩部分，其中學生可以進行借閱、續借、歸還和查詢書籍等操作，管理員可以完成書籍和學生的增加，刪除和修改以及對學生，借閱、續借、歸還的確認。如：
圖書室有各種圖書一萬多冊。
每種圖書都有書名、書號（ISBN）、一名或多名作者（譯者）、出版社、定價和內容簡介。
借書證記錄有借閱者的姓名、所在單位、職業等。
憑借書證借書，每次最多能借8本書。借書期限最長為30天。實現新進圖書的數據錄入。
實現對所有購進圖書的分類查詢和分類統計。能夠按書名、作者等分類查詢現有圖書的數量。
記錄借閱者的個人資料和所借圖書的書名、書號數據等。
三、具體要求
1、完成系統的需求分析
通過需求分析確定系統需要處理的數據的需求，要求使用數據庫的輔助設計工具（PowerDesigner等），建立業務處理模型。
課 程 設 計
2、完成系統概念結構設計 概念數據模型（CDM）用于完成數據庫的設計，與人和數據庫平臺和具體數據存儲結構和工具無關。首先選擇局部應用畫出分E-R圖，最終形成系統的E-R圖
3、完成系統邏輯結構設計
按照E-R圖轉換成關系模式的規則，將CDM轉換成邏輯數據模型，并為每個關系模式設計主鍵、外鍵。分析關系模式中的依賴關系，對關系模式規范化處理
4、完成系統物理結構設計
為每個關系分配存儲長度，建立數據庫的索引和視圖，定義關系中的主碼和外碼，寫出關系創建和查詢的SQL語句。
5、編碼 選擇你自己熟悉的開發工具完成一個DBS系統的編碼工作。源代碼格式規范，注釋不少于三分之一
四、主要技術路線提示
1.仔細閱讀設計指導書內容，認真掌握任務要求?2.需求分析? 3.概念結構設計? 4.邏輯結構設計?5.物理結構設計?6.編碼.2.后臺推薦采用SQL server或Oracle；前臺開發環境不限制?？刹捎肁DO，ODBC，OLE DB或JDBC連接數據庫，并調用系統存儲過程、自定義存儲過程、函數等。
五、進度安排
第1周： 數據庫系統概念模型、數據模型設計，創建數據庫以及相關對象； 第2周： 前臺程序開發，撰寫報告，接受檢查。
六、完成后應上交的材料
1． 源程序一份（包含數據庫）
2． 課程設計報告一份
七、推薦參考資料
1．王珊.數據庫系統概論(第四版).高等教育出版社 2．閃四清.數據庫系統原理與應用教程.清華大學出版社
課 程 設 計
3．周龍驤.數據庫管理系統實現技術.中國地質大學出版社 4．張海藩.軟件工程概論.清華大學出版社 5．陳明 編著.實用軟件工程基礎.清華大學出版社
6．成先海.數據庫基礎與應用-SQL SERVER2000.機械工業出版社出版
指導教師 簽名日期 年 月 日 系 主 任 審核日期 年 月 日
點擊咨詢 