《數(shù)據(jù)庫(kù)原理課程設(shè)計(jì) 進(jìn)銷存管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《數(shù)據(jù)庫(kù)原理課程設(shè)計(jì) 進(jìn)銷存管理系統(tǒng)（16頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、長(zhǎng)治學(xué)院 課程設(shè)計(jì)報(bào)告 課程名稱：數(shù)據(jù)庫(kù)原理課程設(shè)計(jì) 設(shè)計(jì)題目 進(jìn)銷存管理系統(tǒng) 系 別： 計(jì)算機(jī)系 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 組 別： 第一組 學(xué)生姓名： 韓偉偉 學(xué)號(hào):08407106 起止日期：2011年6月7日~ 2011年6月22日 指導(dǎo)教師： 馬桂芳 目錄 5 錯(cuò)誤！未定義書(shū)簽。 6 6 6 8 13 13 13 系統(tǒng)規(guī)劃 二、 總體設(shè)計(jì) 2.1系統(tǒng)功能簡(jiǎn)述 5 三、數(shù)據(jù)庫(kù)原理 5 3.1 系統(tǒng)原理概述 5 3.1.1 E—R 圖 3.1.2

2、 系統(tǒng)原理概述 3.1.3 數(shù)據(jù)流圖 3.2 邏輯結(jié)構(gòu)設(shè)計(jì) 3.2.1 基本表信息 3.2.2 存儲(chǔ)過(guò)程\觸發(fā)器\視圖設(shè)計(jì) 四、模塊劃分（系統(tǒng)管理模塊實(shí)現(xiàn)） .. 4.1 系統(tǒng)登錄界面及代碼 4.2 系統(tǒng)管理模塊界面及代碼 五、系統(tǒng)的優(yōu)點(diǎn)及不足之處 14 六、總結(jié)和致謝 15 七、參考文獻(xiàn) 15 進(jìn)銷存管理系統(tǒng) 系統(tǒng)背景說(shuō)明 待開(kāi)發(fā)的軟件系統(tǒng)的名稱：進(jìn)銷存管理系統(tǒng) 軟件項(xiàng)目的用途：用于數(shù)據(jù)庫(kù)課程設(shè)計(jì)及商業(yè)用途 軟件項(xiàng)目的范圍：系統(tǒng)涉及企業(yè)的庫(kù)存，銷售與進(jìn)貨提供了管理 功能，為庫(kù)存，銷售，進(jìn)貨等管理數(shù)據(jù)提供了分析功能 小組成員成員：韓偉

3、偉，令狐巖，李江民，楊捷 指導(dǎo)老師：馬桂芳 隨著技術(shù)發(fā)展，電腦操作及管理日趨簡(jiǎn)化，電腦知識(shí)日趨普及，同時(shí)市場(chǎng)經(jīng) 濟(jì)快速多變，競(jìng)爭(zhēng)激烈，因此企業(yè)采用電腦管理進(jìn)貨、庫(kù)存、銷售等諸多環(huán)節(jié)也 已成為趨勢(shì)及必然。 一、 系統(tǒng)規(guī)劃 1.1 可行性分析 經(jīng)濟(jì)上可行性分析 現(xiàn)在，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。而本系統(tǒng)的開(kāi) 發(fā)，為企業(yè)的工作效率帶來(lái)了一個(gè)質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個(gè)方面： 第一，本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動(dòng)； 第二，本系統(tǒng)的運(yùn)行可以節(jié)省許多資源； 第三，本系統(tǒng)的運(yùn)行可以大大的提高企業(yè)的工作效率； 第四，本系統(tǒng)可以使敏感文檔更加安全，等等。 本產(chǎn)品的

4、開(kāi)發(fā)所需的設(shè)備在現(xiàn)有條件下，只需要少量的投入資金就可以實(shí) 現(xiàn)。因此在經(jīng)濟(jì)上是可行的。 技術(shù)上可行性分析 a) 軟件可行性 PowerBuilder 具有豐富的數(shù)據(jù)庫(kù)功能，可以直接建立和編輯數(shù)據(jù)庫(kù)，使 用結(jié)構(gòu)化查詢語(yǔ)言直接訪問(wèn) SQL Sever 上的數(shù)據(jù)庫(kù)，并提供簡(jiǎn)單的面向?qū)ο?的庫(kù)操作命令、多用戶數(shù)據(jù)庫(kù)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的編程技術(shù)。 SQL Sever2000 是由微軟公司推出的，能提供超大型系統(tǒng)所需的數(shù)據(jù)庫(kù) 服務(wù)，并對(duì)數(shù)據(jù)庫(kù)提供全面的保護(hù)，具有防止問(wèn)題發(fā)生的安全措施，他是一 個(gè)采用 SQL 語(yǔ)言的關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)。作為客戶機(jī)/服務(wù)器的后端數(shù)據(jù) 庫(kù)，他是所有數(shù)據(jù)的匯總和管理中

5、心。 b） 硬件可行性 CPU :奔騰三代以上。 OS （操作系統(tǒng)）：Windows2000/windows98 以上。 內(nèi)存：64MB以上。 硬盤： 30G 以上。 本系統(tǒng)的開(kāi)發(fā)利用 Microsoft SQL Server2000 作為本系統(tǒng)的數(shù)據(jù)庫(kù)， 它是一個(gè)支持多用戶的新型數(shù)據(jù)庫(kù)，適用于大中規(guī)模的數(shù)據(jù)量需求。 使用 PowerBuilder 作為系統(tǒng)開(kāi)發(fā)的開(kāi)發(fā)環(huán)境，此開(kāi)發(fā)工具開(kāi)發(fā)數(shù)據(jù)庫(kù) 管理系統(tǒng)，采用面向?qū)ο蟮姆绞?，方便、?jiǎn)捷、功能強(qiáng)大。 管理上可行性分析 課設(shè)指導(dǎo)老師給與了精心的講解和大力的支持。 綜上所述，系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、管理上都是可行的。 二、 總體設(shè)計(jì)

6、 2.1系統(tǒng)功能簡(jiǎn)述 根據(jù)生活經(jīng)驗(yàn)，我們開(kāi)發(fā)該系統(tǒng)主要是為了實(shí)現(xiàn)：方便的查詢信息，簡(jiǎn) 單準(zhǔn)確的進(jìn)行插入和刪除等操作。所以在該系統(tǒng)中，我們主要實(shí)現(xiàn)了它的以 上幾個(gè)功能：查詢功能是在查詢客戶消費(fèi)、購(gòu)物情況等信息，是提供給管理 者參考的；插入、刪除和保存功能是在客戶信息表和購(gòu)物信息表以及庫(kù)存信 息表中得到實(shí)現(xiàn)。 三、數(shù)據(jù)庫(kù)原理 3.1 系統(tǒng)原理概述 管理信息系統(tǒng)的開(kāi)發(fā)是一個(gè)復(fù)雜的系統(tǒng)工程，它涉及到計(jì)算機(jī)的處理技術(shù)、 系統(tǒng)理論、組織結(jié)構(gòu)、管理功能、管理知識(shí)等各方面的問(wèn)題，每一種開(kāi)發(fā)方法都 要遵循相應(yīng)的開(kāi)發(fā)策略。數(shù)據(jù)庫(kù)由DBMS （數(shù)據(jù)庫(kù)管理系統(tǒng)）處理，DBMS則由專 業(yè)開(kāi)發(fā)人員和用戶通過(guò)

7、應(yīng)用程序直接或間接的使用。數(shù)據(jù)庫(kù)管理系統(tǒng)是指數(shù)據(jù)庫(kù) 系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。它是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫(kù)的一切 操作，包括定義，更新及各種控制，都是通過(guò)它實(shí)現(xiàn)的。它總是基于某種數(shù)據(jù)模 型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模 型的不同， DBMS 可以分成層次型、關(guān)系型、面向?qū)ο笮偷取? 3.1.1 E—R 圖 編號(hào) 更新 商品 調(diào)用 單價(jià) 名稱 ' 數(shù)量 盤點(diǎn)清單 倉(cāng)庫(kù) 3.1.2 系統(tǒng)原理概述 管理信息系統(tǒng)的開(kāi)發(fā)是一個(gè)復(fù)雜的系統(tǒng)工程，它涉及到計(jì)算機(jī)的處理技術(shù) 系統(tǒng)理論、組織結(jié)構(gòu)、管理功能、管理知識(shí)等各方面的問(wèn)題，每一

8、種開(kāi)發(fā)方法都 要遵循相應(yīng)的開(kāi)發(fā)策略。數(shù)據(jù)庫(kù)由DBMS （數(shù)據(jù)庫(kù)管理系統(tǒng)）處理，DBMS則由專 業(yè)開(kāi)發(fā)人員和用戶通過(guò)應(yīng)用程序直接或間接的使用。數(shù)據(jù)庫(kù)管理系統(tǒng)是指數(shù)據(jù)庫(kù) 系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。它是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫(kù)的一切 操作，包括定義，更新及各種控制，都是通過(guò)它實(shí)現(xiàn)的。它總是基于某種數(shù)據(jù)模 型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模 型的不同， DBMS 可以分成層次型、關(guān)系型、面向?qū)ο笮偷取? 3.1.3 數(shù)據(jù)流圖 應(yīng)收帳 幵票 商品帳 收款 財(cái)務(wù)帳 庫(kù)存 客戶 銷售 員 銷售查詢 銷售報(bào)表 庫(kù)存報(bào)表 庫(kù)存盤點(diǎn) 3

9、.2.1 基本表信息 表一 商品信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 商品編號(hào) varchar 10 否 主鍵，惟一標(biāo)識(shí)商品記錄 商品名稱 varchar 50 是 單價(jià) varchar 50 是 月產(chǎn)量 varchar 50 是 供應(yīng)商名稱 varchar 50 是 備注信息 text 16 是 表二 供應(yīng)商信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 供應(yīng)商編號(hào) varchar 10 否 主鍵，惟一標(biāo)識(shí)供應(yīng)商記錄 供應(yīng)商名稱 varchar 50 是 供

10、應(yīng)商單位全稱 地址 varchar 50 是 郵政編碼 varchar 10 是 聯(lián)系電話 varcgar 20 是 企業(yè)網(wǎng)址 varchar 50 是 聯(lián)系人 varchar 50 是 聯(lián)系人電話 varcgar 20 是 開(kāi)戶銀行 varchar 50 是 銀行賬號(hào) varchar 13 是 備注信息 text 16 是 表三 客戶信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 客戶編號(hào) varchar 10 否 主鍵，惟一標(biāo)識(shí)各戶記錄 客戶名稱

11、varchar 50 是 客戶單位全稱 地址 varchar 50 是 郵政編碼 varchar 6 是 聯(lián)系電話 varchar 20 是 企業(yè)網(wǎng)址 varcgar 30 是 聯(lián)系人 varchar 50 是 聯(lián)系人電話 varcgar 20 是 開(kāi)戶銀行 varchar 50 是 銀行賬號(hào) varchar 20 是 備注信息 text 16 是 表四 商品進(jìn)貨信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 入庫(kù)序號(hào) decimal 9 否 主鍵，惟一

12、標(biāo)識(shí)商品入庫(kù)記錄 商品編號(hào) varchar 10 否 外鍵，對(duì)應(yīng)商品信息表中商品編號(hào) 商品名稱 varchar 50 是 供應(yīng)商編號(hào) varchar 10 否 外鍵，對(duì)應(yīng)供應(yīng)商信息表中供應(yīng)商編號(hào) 供應(yīng)商名稱 varchar 50 是 規(guī)格 varchar 30 是 數(shù)量 varchar 10 是 單價(jià) varchar 50 是 總金額 varchar 50 是 日期 datetime 8 是 經(jīng)手人 varchar 20 是 備注信息 text 16 是 修改人

13、varchar 20 是 修改日期 datetime 8 是 表五 商品庫(kù)存信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 庫(kù)存序號(hào) decimal 9 否 主鍵，惟一標(biāo)識(shí)商品庫(kù)存記錄 庫(kù)存編號(hào) varchar 30 是 庫(kù)存名稱 varchar 50 是 商品編號(hào) varchar 10 否 外鍵，對(duì)應(yīng)商品信息表中商品編號(hào) 規(guī)格 varchar 30 是 數(shù)量 varchar 10 是 單價(jià) varchar 50 是 總金額 varchar 50 是 日期

14、datetime 8 是 備注信息 text 16 是 表六 商品銷售信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 出庫(kù)序號(hào) decimal 9 否 主鍵，惟一標(biāo)識(shí)商品入庫(kù)記錄 出庫(kù)編號(hào) varchar 10 是 商品編號(hào) varchar 10 否 外鍵，對(duì)應(yīng)商品信息表中商品編號(hào) 商品名稱 varchar 50 是 規(guī)格 varchar 30 是 數(shù)量 varchar 10 是 單價(jià) varchar 50 是 總金額 varchar 50 是 出庫(kù)日期 dat

15、etime 8 是 提貨人 varchar 50 是 經(jīng)手人 varchar 20 是 備注信息 text 16 是 修改人 varchar 20 是 修改日期 datetime 8 是 表七 庫(kù)存明細(xì)表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 盤點(diǎn)編號(hào) varchar 10 否 主鍵，惟一標(biāo)識(shí)商品盤點(diǎn)記錄 商品編號(hào) varchar 10 否 外鍵，對(duì)應(yīng)商品信息表中商品編號(hào) 商品名稱 varchar 50 是 規(guī)格 varchar 30 是 單價(jià) varchar

16、 50 是 賬面庫(kù)存 varchar 50 是 實(shí)盤庫(kù)存 varchar 50 是 盤點(diǎn)人員 varchar 50 是 盤點(diǎn)日期 datetime 8 是 備注信息 text 16 是 表八 用戶信息表 字段名 數(shù)據(jù)類型 長(zhǎng)度 是否允許空 說(shuō)明 用戶名 varchar 10 否 主鍵 用戶密碼 varchar 10 否 用戶名稱 varchar 50 是 備注信息 text 16 是 3.2.2 存儲(chǔ)過(guò)程\觸發(fā)器\視圖設(shè)計(jì) --1 創(chuàng)建庫(kù)存視圖 if exi

17、sts (select 1 from sysobjects where name = 'view_storage_product') drop view view_storage_product go create view view_storage_product as select a.*,b.StorageAddress,b.StorageNumber from ProductInfo a inner join StorageInfo b on a.ProductID = b.ProductID go --查看庫(kù)存視圖 select * from view_storage_pr

18、oduct --2 創(chuàng)建訂單信息視圖 if exists (select * from sysobjects where name = 'view_CustomerInfo_OrderInfo_ProductInfo') drop view view_CustomerInfo_OrderInfo_ProductInfo go create view view_CustomerInfo_OrderInfo_ProductInfo as select CustomerName,ProductName,OrderTime,OrderNumber, RequireDate,OrderEmplo

19、yee,IsConsignment from CustomerInfo a inner join OrderInfo b on a.CustomerID = b.CustomerID inner join ProductInfo c on b.ProductID = c.ProductID go select * from view_CustomerInfo_OrderInfo_ProductInfo --3.創(chuàng)建添加客戶信息的存儲(chǔ)過(guò)程 if exists (select 1 from sysobjects where name = 'proc_InsertCustomerInfo')

20、 drop proc proc_InsertCustomerInfo go create procedure proc_InsertCustomerInfo @CustomerName nvarchar(20),@CustomerAddress nvarchar(50),@CustomerPhone nvarchar(11), @Taxno nvarchar(10),@Repute nvarchar(10), @Country nvarchar(lO)='中國(guó)',@Province nvarchar(lO) as begin insert into CustomerInfo valu

21、es(@CustomerName,@CustomerAddress,@CustomerPhone,@Taxno,@Repute,@Country,@ Province) end go --調(diào)用存儲(chǔ)過(guò)程 exec proc_InsertCustomerInfo 胡雷松','湖北神農(nóng)架','622512','622512',優(yōu)秀［default,'河南' select * from CustomerInfo --4.創(chuàng)建添加產(chǎn)品信息存儲(chǔ)過(guò)程(需驗(yàn)證產(chǎn)品的價(jià)格必須大于等于0) if exists (select 1 from sysobjects where name = 'proc_Ins

22、ertProductInfo') drop procedure proc_InsertProductInfo go create proc proc_InsertProductInfo @ComponyID int,@ProductName nvarchar(20),@ProductType nvarchar(20),@NumberPerMonth int ,@Price money as begin if(@Price>=0) begin insert into ProductInfo values(@ComponyID,@ProductName,@ProductType,@N

23、umberPerMonth,@Price) end else begin print '產(chǎn)品價(jià)格必須大于0！' end end go --調(diào)用存儲(chǔ)過(guò)程 exec proc_InsertProductInfo NULL,'C#入門經(jīng)典','書(shū)籍',3000,65 select * from ProductInfo --5.創(chuàng)建進(jìn)貨時(shí)庫(kù)存信息變化的觸發(fā)器 --①如果沒(méi)有該產(chǎn)品的信息，則將數(shù)據(jù)添加到庫(kù)存信息表中 --②如果倉(cāng)庫(kù)中已經(jīng)存在該產(chǎn)品，則增加該產(chǎn)品的庫(kù)存數(shù)量 if exists (select 1 from sysobjects where name = 'trg_

24、StockInfo_Insert') drop trigger trg_StockInfo_Insert go create trigger trg_StockInfo_Insert on StockInfo for insert as declare @ProductID int,@StockNumber int select @ProductID = ProductID from inserted select @StockNumber = StockNumber from inserted where ProductID = @ProductID if (@Produ

25、ctID not in (select ProductID from StorageInfo )) begin insert into Storageinfo values(@ProductID,'東北倉(cāng)庫(kù)',@StockNumber) end else begin update StorageInfo set StorageNumber = StorageNumber + @StockNumber where ProductID = @ProductID end go --測(cè)試觸發(fā)器 insert into Stockinfo values(4,350,NULL,NUL

26、L,NULL,getdate(),張三') select * from StorageInfo select * from StockInfo --6.創(chuàng)建添加訂單信息存儲(chǔ)過(guò)程 --①訂單時(shí)間默認(rèn)為系統(tǒng)單前時(shí)間，②驗(yàn)證訂單數(shù)量必須大于0③驗(yàn)證產(chǎn)品需要時(shí)間必須大 于系統(tǒng)當(dāng)前時(shí)間1月以上，④根據(jù)庫(kù)存信息與產(chǎn)品生產(chǎn)能力判斷，是否能在產(chǎn)品需要時(shí)間之 前完成該產(chǎn)品的生產(chǎn)，⑤驗(yàn)證訂單業(yè)務(wù)員長(zhǎng)度必須大于2,⑥默認(rèn)是否發(fā)貨為“否” if exists (select * from sysobjects where name = 'proc_InsertOrderInfo') drop proc p

27、roc_InsertOrderInfo go create proc proc_InsertOrderInfo @ProductID int,@OrderNumber int,@OrderEmployee nvarchar(20),@CustomerID int,@Price money,@Ordersum money,@RequireDate datetime,@IsConsignment nvarchar(2) as begin declare @OrderTime char(20) select @ProductID = ProductID from inserted s

28、elect @OrderNumber = OrderNumber from inserted select @OrderEmployee = OrderEmployee from inserted select @CustomerID= CustomerID from inserted select @Price = Price from inserted select @Ordersum = Ordersum from inserted set @OrderTime = convert(char(20),getdate(),120) set @RequireDate = conv

29、ert(char(20),dateadd(month,1,getdate()),120) if(@OrderNumber>0 and len(@OrderEmployee)>2 and datediff(dd,@OrderTime,dateadd(month,1,getdate()))=0 ) begin if(@OrderNumber < (select NumberPerMonth from ProductInfo where ProductID=@ProductID)) begin insert into OrderInfo values(@CustomerID,@Produ

30、ctID,@OrderTime,@OrderNumber,@Price,@Ordersum,@Require Date,@OrderEmployee,'否') end end end go --7.發(fā)貨時(shí)庫(kù)存信息的變化的觸發(fā)器 --①如果發(fā)完貨后，庫(kù)存為0，則將該貨物從庫(kù)存信息表中刪除，②如果發(fā)完貨后，庫(kù)存不 為 0，則減少相應(yīng)的庫(kù)存數(shù)量 if exists (select 1 from sysobjects where name = 'trg_SendInfo_Insert') drop trigger trg_SendInfo_Insert go create tri

31、gger trg_SendInfo_Insert on SendInfo for insert as declare @ProductID int,@OrderID int,@StorageNumber int select @OrderID = OrderID from inserted select @StorageNumber = StorageNumber from StorageInfo where ProductID = @ProductID go create proc proc_StorageChange @StorageNumber int,@ProductID

32、 int,@OrderNumber int as select @StorageNumber = StorageNumber from StorageInfo where ProductID = @ProductID if(@StorageNumber = 0) begin select @ProductID = ProductID from OrderInfo where OrderID = (select OrderID from SendInfo) delete from StorageInfo where ProductID = @ProductID end else

33、begin select @OrderNumber = OrderNumber from OrderInfo where OrderID = (select OrderID from SendInfo ) select @ProductID = ProductID from OrderInfo where OrderID = (select OrderID from SendInfo) update StorageInfo set StorageNumber = StorageNumber - @OrderNumber where ProductID = @ProductID end

34、go select * from StorageInfo;select * from SendInfo;select * from OrderInfo --8.創(chuàng)建入庫(kù)時(shí)總價(jià)自動(dòng)生成的觸發(fā)器 if exists (select 1 from sysobjects where name = 'trg_StockInfo_InsertandUpdate') drop trigger trg_StockInfo_InsertandUpdate go create trigger trg_StockInfo_InsertandUpdate on StockInfo for insert,up

35、date as declare @ProductID int,@StockNumber int,@Stock money,@Stocksum money select @ProductID = ProductID from inserted select @StockNumber = StockNumber from inserted where ProductID = @ProductID select @Stock = Stock from inserted where ProductID = @ProductID begin update StockInfo set Sto

36、cksum = @Stock * @StockNumber where ProductID = @ProductID end 四、模塊劃分（系統(tǒng)管理模塊實(shí)現(xiàn)） 4.1 系統(tǒng)登錄界面及代碼 userid=Trim(userid) password=Trim(password) IF password="" THEN RETURN -1 ls_database="ConnectString='DSN=SellManageSystem;" sqlca.dbparm=ls_database+"UID="+userid+";PWD="+password+"'" connect usin

37、g sqlca; return sqlca.sqlcode 確定按鈕的代碼： SetPointer(hourglass!) ls_user_id=string(sle_userid.text) IF parent.wf_connect(sle_userid.text,sle_password.text)=-1 then MessageBox("連接數(shù)據(jù)庫(kù)錯(cuò)誤!","連接失敗"+sqlca.sqlerrtext) halt else close(parent) open(w_main) end if 4.2 系統(tǒng)管理模塊界面及代碼 messagebox(""

38、,"不能為空！ ”) end if integer b string bb if sle_1.text="" then bb=sle_2.text dw_1.retrieve(bb) end if if sle_2.text="" then b=dec(sle_1.text) dw_1.retrieve(b) end if 添加按鈕的代碼：dw_l.insertrow(0) 刪除按鈕的代碼： dw_1.deleterow(0) 更新按鈕的代碼： if dw_l.update()>0 then commit; else messagebox("","無(wú)法保存！ ”) rollback

39、; end if 五、系統(tǒng)的優(yōu)點(diǎn)及不足之處 系統(tǒng)的優(yōu)點(diǎn)：實(shí)現(xiàn)了比較完善的系統(tǒng)管理，另外庫(kù)存管理中若有商品價(jià)錢 設(shè)置的不合理，可以直接在庫(kù)存窗口中進(jìn)行修改，方便用戶使用。還有就是銷售 進(jìn)貨管理模塊，也分別實(shí)現(xiàn)了他們的基本功能，同時(shí)還為他們?cè)O(shè)置了訂單及進(jìn)貨 單的查詢和報(bào)表打印功能。 系統(tǒng)的不足：系統(tǒng)中只有唯一類型的用戶——管理員，不能保證系統(tǒng)的絕 對(duì)安全，應(yīng)該對(duì)不同身份的用戶設(shè)置不同的訪問(wèn)權(quán)限，來(lái)增強(qiáng)系統(tǒng)的安全性。 應(yīng)該改善的地方：系統(tǒng)的利潤(rùn)統(tǒng)計(jì)模塊設(shè)計(jì)的不夠詳細(xì)，不能很好的反應(yīng) 進(jìn)銷存系統(tǒng)的盈虧，應(yīng)該完善一下利潤(rùn)統(tǒng)計(jì)模塊，使其更方便用戶使用。 六、總結(jié)和致謝 在數(shù)據(jù)庫(kù)專業(yè)課的學(xué)習(xí)中，

40、我們接觸了高移植性的 SQL Server 語(yǔ)言，在這 個(gè)星期里，我們專業(yè)的學(xué)生在馬老師的帶領(lǐng)下進(jìn)行了數(shù)據(jù)庫(kù)課程設(shè)計(jì)實(shí)踐學(xué)習(xí)。 在這之前，我們已經(jīng)學(xué)習(xí)過(guò)一個(gè)C++的課程，對(duì)數(shù)據(jù)庫(kù)基礎(chǔ)這門課程也學(xué)習(xí)了一 個(gè)學(xué)期，對(duì)其有了一定的了解，但是也僅僅是停留在了解的范圍，對(duì)里面的好多 東西還是很陌生，更多的在運(yùn)用起來(lái)的時(shí)候還是感到很棘手，而且 PowerBuilder 也是首次接觸。 由于時(shí)間的關(guān)系，我們的這次實(shí)踐課程老師并沒(méi)有給我們?cè)敿?xì)的介紹，只是 給我們簡(jiǎn)單的介紹了幾個(gè)比較重要的實(shí)際操作，包括了 PowerBuilder控件的使 用，簡(jiǎn)單的SQL語(yǔ)句等。通過(guò)此次課程設(shè)計(jì)，對(duì)于數(shù)據(jù)庫(kù)的設(shè)計(jì)方法我有了基

41、本 的了解，對(duì)于PowerBuilder的編程環(huán)境也有所了解。在編寫程序的過(guò)程中，我 也發(fā)現(xiàn)了自己的很多不足，比如平日程序編寫量少，使得漏洞百出，錯(cuò)誤很多。 在以后的學(xué)習(xí)過(guò)程中要注意這些問(wèn)題，多向他人學(xué)習(xí)，取長(zhǎng)補(bǔ)短。 總之，這次數(shù)據(jù)庫(kù)課程設(shè)計(jì)對(duì)我的幫助很大，也使得將來(lái)在畢業(yè)設(shè)計(jì)中，對(duì) 數(shù)據(jù)的處理，提供了一個(gè)優(yōu)秀的方案。 七、參考文獻(xiàn) 1. 數(shù)據(jù)庫(kù)系統(tǒng)及應(yīng)用 高等教育出版社第二版 崔巍編著 2. PowerBuilder實(shí)用教程電子工業(yè)大學(xué)出版社鄭阿奇殷紅先張為民編著 指導(dǎo)教師評(píng)語(yǔ)： 指導(dǎo)教師簽名： 年 月 日 成 績(jī) 評(píng) 定 項(xiàng) 目 權(quán)重 成績(jī) 1、設(shè)計(jì)過(guò)程中出勤、學(xué)習(xí)態(tài)度等方面 0.1 2、設(shè)計(jì)技術(shù)水平 0.4 3、編程風(fēng)格 0.2 4、設(shè)計(jì)報(bào)告書(shū)寫及圖紙規(guī)范程度 0.3 總成績(jī)