醫(yī)藥銷(xiāo)售管理數(shù)據(jù)庫(kù)課程設(shè)計(jì)_第1頁(yè)
已閱讀1頁(yè),還剩25頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶(hù)提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、<p>  課 程 設(shè) 計(jì) 報(bào) 告 書(shū)</p><p>  課程名稱(chēng)   數(shù)據(jù)庫(kù)課程設(shè)計(jì)  </p><p>  題 目 醫(yī)藥銷(xiāo)售管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) </p><p>  分 院   電信分院       </p><p>  專(zhuān)業(yè)班級(jí)

2、 </p><p>  學(xué)  號(hào)      </p><p>  學(xué)生姓名       </p><p>  指導(dǎo)教師        </p><p>  2011 年 12 月 31 日 </p><p>  課 程 設(shè) 計(jì) 任

3、務(wù) 書(shū) </p><p>  專(zhuān) 業(yè) 班 級(jí) </p><p>  姓 名 </p><p>  一、課程設(shè)計(jì)(論文)題目 醫(yī)藥銷(xiāo)售管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) </p><p>  二、課程設(shè)計(jì)(論文)工作:自 2011 年 12月 20 日起至

4、 2011年 12 月 31 日止。</p><p>  三、課程設(shè)計(jì)的內(nèi)容要求:</p><p>  以SQL Server 2000作為后臺(tái)數(shù)據(jù)庫(kù),以VB 6.0 、VC6.0或其它開(kāi)發(fā)工具作為前臺(tái)開(kāi)發(fā)工具,完成一個(gè)小型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)。 </p><p>  學(xué)生簽名(手簽):____________</p><p&g

5、t;  2011 年12 月 31 日</p><p><b>  摘 要</b></p><p>  醫(yī)藥銷(xiāo)售管理系統(tǒng)是專(zhuān)門(mén)針對(duì)醫(yī)藥企業(yè)、藥店的綜合業(yè)務(wù)而開(kāi)發(fā)的系統(tǒng),集進(jìn)、銷(xiāo)、存、決策于一體,同時(shí)還集成了基礎(chǔ)信息管理、銷(xiāo)售管理、進(jìn)貨管理、財(cái)務(wù)管理、報(bào)表打印、查詢(xún)統(tǒng)計(jì)、備份恢復(fù)等多種實(shí)用的功能。</p><p>  課程設(shè)計(jì)嚴(yán)格參照軟件工程的

6、開(kāi)發(fā)原則,首先對(duì)醫(yī)藥銷(xiāo)售管理系統(tǒng)的開(kāi)發(fā)背景、現(xiàn)狀及存在問(wèn)題進(jìn)行了系統(tǒng)分析,并且對(duì)用戶(hù)提出的問(wèn)題加以分析并給出可行的解決方案。然后對(duì)系統(tǒng)總體設(shè)計(jì),進(jìn)行模塊劃分,確定基本信息、銷(xiāo)售、入庫(kù)、庫(kù)存、財(cái)務(wù)統(tǒng)計(jì)、系統(tǒng)管理等子模塊功能等。在總體設(shè)計(jì)的基礎(chǔ)上,從系統(tǒng)的目標(biāo)、處理流程、編碼設(shè)計(jì)以及系統(tǒng)安全和可靠性等方面入手進(jìn)行詳細(xì)設(shè)計(jì)。同時(shí)對(duì)數(shù)據(jù)庫(kù)進(jìn)行概要設(shè)計(jì)和邏輯設(shè)計(jì),對(duì)系統(tǒng)E-R圖以及表進(jìn)行分析與設(shè)計(jì)。</p><p>  系

7、統(tǒng)采用二層C/S結(jié)構(gòu),前臺(tái)開(kāi)發(fā)工具選用性能比較穩(wěn)定可靠的Microsoft Visual Basic 6.0,后臺(tái)數(shù)據(jù)庫(kù)選用目前比較流行Microsoft SQL Sever 2000。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā),完成藥品信息、藥品信息管理的全過(guò)程。</p><p>  關(guān)鍵詞:醫(yī)藥銷(xiāo)售管理系統(tǒng),信息化,MicrosoftVisual Basic 6.0,</p>

8、<p>  Microsoft SQL Sever 2005</p><p><b>  目 錄</b></p><p><b>  引言</b></p><p><b>  概要設(shè)計(jì)</b></p><p><b>  系統(tǒng)需求分析</b>&l

9、t;/p><p><b>  系統(tǒng)結(jié)構(gòu)設(shè)計(jì)</b></p><p><b>  系統(tǒng)功能模塊設(shè)計(jì)</b></p><p><b>  詳細(xì)設(shè)計(jì)</b></p><p>  2.1 系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>  2.1.1 數(shù)據(jù)庫(kù)需求分析</p&g

10、t;<p>  2.1.2 數(shù)據(jù)庫(kù)概念設(shè)計(jì)</p><p>  2.1.3 數(shù)據(jù)庫(kù)邏輯設(shè)計(jì)</p><p>  2.1.4 數(shù)據(jù)庫(kù)物理設(shè)計(jì)</p><p>  2.1.5 數(shù)據(jù)庫(kù)實(shí)施</p><p>  2.2 系統(tǒng)主要功能模塊設(shè)計(jì)</p><p>  2.3 主要模塊代碼</p><

11、p>  第三章 系統(tǒng)調(diào)試與運(yùn)行</p><p><b>  小結(jié)</b></p><p><b>  參考文獻(xiàn)</b></p><p><b>  引 言</b></p><p><b>  1、設(shè)計(jì)目的</b></p><p&g

12、t;  調(diào)查從事醫(yī)藥產(chǎn)品的零售、批發(fā)等工作的企業(yè),根據(jù)其具體情況設(shè)計(jì)醫(yī)藥銷(xiāo)售管理系統(tǒng)。主要功能包括:</p><p>  基礎(chǔ)信息管理:藥品信息、員工信息、客戶(hù)信息、供應(yīng)商信息等;</p><p>  進(jìn)貨管理:入庫(kù)登記、入庫(kù)登記查詢(xún)、入庫(kù)報(bào)表等;</p><p>  庫(kù)房管理:庫(kù)存查詢(xún)、庫(kù)存盤(pán)點(diǎn)、退貨處理、庫(kù)存報(bào)表等;</p><p>  

13、銷(xiāo)售管理:銷(xiāo)售登記、銷(xiāo)售退貨、銷(xiāo)售報(bào)表及相應(yīng)的查詢(xún)等;</p><p>  財(cái)務(wù)統(tǒng)計(jì):當(dāng)日統(tǒng)計(jì)、當(dāng)月統(tǒng)計(jì)及相應(yīng)報(bào)表等;</p><p>  系統(tǒng)維護(hù):如數(shù)據(jù)安全管理(含備份與恢復(fù))、操作員管理、權(quán)限設(shè)置等;</p><p><b>  2、要求</b></p><p>  醫(yī)藥銷(xiāo)售管理系統(tǒng)能對(duì)信息(藥品信息、員工信息、客

14、戶(hù)信息等)進(jìn)行查詢(xún)、刪除、更新等操作;對(duì)藥品銷(xiāo)售的管理(銷(xiāo)售信息錄入查詢(xún)、更新等);對(duì)藥品出入庫(kù)的管理(出入庫(kù)信息登記、出入庫(kù)信息更新等操作))。</p><p><b>  3、設(shè)計(jì)環(huán)境</b></p><p>  CPU:Intel Pentium4 2GHz</p><p><b>  內(nèi)存:1G</b></

15、p><p>  操作系統(tǒng):Microsoft Windows XP</p><p>  開(kāi)發(fā)工具是Microsoft公司的Visual Basic 6.0企業(yè)版</p><p>  后臺(tái)數(shù)據(jù)庫(kù)在Microsoft SQL Server 2005</p><p>  第一章 概要設(shè)計(jì)</p><p><b> 

16、 1、系統(tǒng)需求分析</b></p><p>  1.1 信息需求(基本信息)</p><p>  藥品信息:藥品編號(hào),藥品名稱(chēng),數(shù)量,售價(jià),進(jìn)價(jià),供應(yīng)商等</p><p>  供應(yīng)商信息:供應(yīng)商號(hào),供應(yīng)商名稱(chēng),聯(lián)系人,所在城市等</p><p>  藥品銷(xiāo)售信息:銷(xiāo)售編碼,藥品編碼,藥品名稱(chēng),售價(jià),單位,數(shù)量,總額,銷(xiāo)售日期等&l

17、t;/p><p>  員工信息:?jiǎn)T工號(hào),姓名,用戶(hù)名,職位,用戶(hù)密碼,用戶(hù)權(quán)限等</p><p><b>  1.2 功能需求</b></p><p>  系統(tǒng)要實(shí)現(xiàn)的主要功能有:</p><p> ?。?)對(duì)藥品信息的維護(hù)和管理,能夠萬(wàn)冊(cè)很能夠藥品信息的添加、修改和刪除,并按一定條件查詢(xún)藥品信息。</p>&

18、lt;p> ?。?)對(duì)供應(yīng)商信息的管理,能夠完成信息的添加、修改和刪除,并按一定條件查詢(xún)信息。</p><p>  (3)對(duì)客戶(hù)和員工信息的管理,能夠完成信息的添加、修改和刪除,并按一定條件查詢(xún)信息。</p><p> ?。?)倉(cāng)庫(kù)管理,能夠查詢(xún)庫(kù)存藥品信息,并對(duì)庫(kù)存進(jìn)行更新、盤(pán)點(diǎn)</p><p> ?。?)銷(xiāo)售管理,銷(xiāo)售登記、銷(xiāo)售退貨、銷(xiāo)售報(bào)表及相應(yīng)的查詢(xún)等

19、;</p><p><b>  2、系統(tǒng)結(jié)構(gòu)設(shè)計(jì)</b></p><p><b>  系統(tǒng)結(jié)構(gòu)圖如圖所示</b></p><p><b>  3、功能模塊設(shè)計(jì)</b></p><p>  基礎(chǔ)信息管理模塊:完成對(duì)員工,客戶(hù),供應(yīng)商,藥品等信息的查詢(xún),刪除,添加等操作;</

20、p><p>  進(jìn)貨管理模塊:完成對(duì)入庫(kù)藥品的信息查詢(xún)等操作;</p><p>  庫(kù)房管理模塊:完成對(duì)庫(kù)房的庫(kù)存信息,退換貨信息的查詢(xún),登記入錄等操作;</p><p>  銷(xiāo)售管理模塊:完成銷(xiāo)售信息的錄入,查詢(xún),退貨等管理操作;</p><p>  財(cái)務(wù)統(tǒng)計(jì)模塊:完成當(dāng)月統(tǒng)計(jì)和當(dāng)月統(tǒng)計(jì)等報(bào)表的實(shí)現(xiàn)操作;</p><p>

21、;  系統(tǒng)維護(hù)模塊:完成對(duì)員工的管理權(quán)限的設(shè)置等操作;</p><p>  第2章 詳細(xì)設(shè)計(jì)</p><p><b>  1、系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b>  2.1.1需求分析</b></p><p><b>  數(shù)據(jù)要求:</b></p>

22、<p>  藥品信息、員工信息、客戶(hù)信息、供應(yīng)商信息</p><p>  藥品出入庫(kù)情況(數(shù)量,價(jià)格,總價(jià)等)</p><p><b>  庫(kù)存量,銷(xiāo)售量</b></p><p><b>  處理要求:</b></p><p>  基礎(chǔ)信息管理:藥品信息、員工信息、客戶(hù)信息、供應(yīng)商信息等

23、;</p><p>  進(jìn)貨管理:入庫(kù)登記、入庫(kù)登記查詢(xún)、入庫(kù)報(bào)表等;</p><p>  庫(kù)房管理:庫(kù)存查詢(xún)、庫(kù)存盤(pán)點(diǎn)、退貨處理、庫(kù)存報(bào)表等;</p><p>  銷(xiāo)售管理:銷(xiāo)售登記、銷(xiāo)售退貨、銷(xiāo)售報(bào)表及相應(yīng)的查詢(xún)等;</p><p>  財(cái)務(wù)統(tǒng)計(jì):當(dāng)日統(tǒng)計(jì)、當(dāng)月統(tǒng)計(jì)及相應(yīng)報(bào)表等;</p><p><b>

24、  數(shù)據(jù)字典 </b></p><p><b>  數(shù)據(jù)項(xiàng)</b></p><p><b>  數(shù)據(jù)結(jié)構(gòu)</b></p><p><b>  數(shù)據(jù)流</b></p><p><b>  數(shù)據(jù)存儲(chǔ)</b></p><p>

25、<b>  處理過(guò)程</b></p><p>  2.1.2 概念結(jié)構(gòu)設(shè)計(jì)</p><p>  數(shù)據(jù)庫(kù)的概念設(shè)計(jì)就是畫(huà)出E-R圖。分析前面的系統(tǒng)功能要求,需要一個(gè)表來(lái)存儲(chǔ)和管理客戶(hù)信息,使系統(tǒng)能夠接受客戶(hù)查詢(xún)藥品時(shí)輸入的各項(xiàng)數(shù)據(jù),以實(shí)現(xiàn)數(shù)據(jù)錄入、查詢(xún)或統(tǒng)計(jì)客戶(hù)信息等功能??蛻?hù)是本系統(tǒng)的第一個(gè)實(shí)體。</p><p>  為了能實(shí)現(xiàn)查詢(xún)和統(tǒng)計(jì)藥品情

26、況等功能,必須有一個(gè)表來(lái)存儲(chǔ)和管理所有藥品的信息。藥品是本系統(tǒng)的第二個(gè)實(shí)體。</p><p>  據(jù)此可以繪出醫(yī)藥銷(xiāo)售管理系統(tǒng)數(shù)據(jù)庫(kù)的E-R圖如下:</p><p><b>  藥品E—R圖</b></p><p><b>  客戶(hù)E-R圖</b></p><p><b>  員工E-R圖

27、</b></p><p><b>  供應(yīng)商E-R圖</b></p><p><b>  銷(xiāo)售E-R圖</b></p><p><b>  整體E—R圖</b></p><p>  2.1.3邏輯結(jié)構(gòu)設(shè)計(jì)</p><p>  將數(shù)據(jù)庫(kù)的概念模

28、型轉(zhuǎn)換為關(guān)系模型</p><p>  藥品信息(編碼,藥名,數(shù)量、售價(jià),進(jìn)價(jià),供應(yīng)商號(hào))</p><p>  員工信息(員工號(hào),姓名,密碼,權(quán)限,用戶(hù)名)</p><p>  客戶(hù)信息(客戶(hù)號(hào),名稱(chēng),聯(lián)系人,客戶(hù)所在城市)</p><p>  供應(yīng)商信息(供應(yīng)商號(hào),名稱(chēng),聯(lián)系人,所在城市)</p><p>  藥品銷(xiāo)售

29、信息(銷(xiāo)售編碼,銷(xiāo)售日期,藥品編碼,藥品名稱(chēng),單價(jià),數(shù)量,供應(yīng)商,總額,員工號(hào)) 外碼:銷(xiāo)售員編碼、藥品編碼</p><p>  藥品進(jìn)貨信息(進(jìn)貨單號(hào),進(jìn)貨日期,藥品編碼,藥品名稱(chēng),單價(jià),數(shù)量,供應(yīng)商,)</p><p><b>  2.1.4物理設(shè)計(jì)</b></p><p>  數(shù)據(jù)庫(kù)的物理結(jié)構(gòu)是指數(shù)據(jù)庫(kù)在物理設(shè)備上的存儲(chǔ)結(jié)構(gòu)與存取方法,

30、依賴(lài)于給定的計(jì)算機(jī)系統(tǒng)。通過(guò)上一階段的邏輯設(shè)計(jì)選取了一個(gè)最適合應(yīng)用要求的物理結(jié)構(gòu)的設(shè)計(jì)。</p><p>  2.1.5數(shù)據(jù)庫(kù)的實(shí)現(xiàn)</p><p>  數(shù)據(jù)庫(kù)實(shí)現(xiàn)是運(yùn)用DBMS提供的DDL數(shù)據(jù)語(yǔ)言定義數(shù)據(jù)庫(kù)結(jié)構(gòu),組織數(shù)據(jù)入庫(kù),編寫(xiě)與調(diào)試應(yīng)用程序。</p><p><b>  數(shù)據(jù)表設(shè)計(jì)</b></p><p>  通過(guò)

31、對(duì)關(guān)系模式的優(yōu)化,得到六個(gè)基本表:</p><p><b>  表3-1藥品信息表</b></p><p><b>  表3-2供應(yīng)商信息</b></p><p>  表3-3藥品銷(xiāo)管理表</p><p><b>  表3-4用戶(hù)信息</b></p><p&

32、gt;  該系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)部分代碼</p><p>  Table: FirmInfor </p><p>  create table FirmInfor </p><p><b>  (</b></p><p>  FirmCode

33、 char(4) not null,</p><p>  FirmName varchar(16) not null,</p><p>  Link varchar(12),</p><p>  Link

34、Tell char(11),</p><p>  City varchar(8),</p><p>  primary key (FirmCode)</p><p><b>  );</b></p><p>  Table: MedInfor

35、 </p><p>  create table MedInfor </p><p><b>  (</b></p><p>  MedicineCode char(4) not null,</p><p&

36、gt;  MedicineName varchar(32) not null,</p><p>  MedKindCode char(1) not null,</p><p>  Price numeric(8,2),</p>&

37、lt;p>  ListPrice numeric(8,2),</p><p>  StockNum varchar(4),</p><p>  Unit char(2),</p><p>  UsefulLife timestamp,</p><

38、;p>  RatifyCode varchar(10),</p><p>  primary key (MedicineCode)</p><p><b>  );</b></p><p>  Table: MedKindInfor </

39、p><p>  create table MedKindInfor </p><p><b>  (</b></p><p>  MedKindCode char(1) not null,</p><p>  KindExplanation varch

40、ar(16),</p><p>  primary key (MedKindCode)</p><p><b>  );</b></p><p>  Table: SupplyInfor </p><p>  create table SupplyInfor </

41、p><p><b>  (</b></p><p>  MedicineCode char(4) not null,</p><p>  FirmCode char(4) not null,</p>&l

42、t;p>  MedicineName varchar(32),</p><p>  Number varchar(4),</p><p>  Unit char(2),</p><p>  ListPrice numeric(8,2),</p>&l

43、t;p>  Amount numeric(8,2),</p><p>  primary key (MedicineCode, FirmCode)</p><p><b>  );</b></p><p>  Index: Relationship_3_FK

44、 </p><p>  create index Relationship_3_FK on SupplyInfor (</p><p>  MedicineCode ASC</p><p><b>  );</b></p><p>  Index: Relationship_4_FK

45、 </p><p>  create index Relationship_4_FK on SupplyInfor (</p><p>  FirmCode ASC</p><p><b>  );</b></p><p>  Table: UserInfor

46、 </p><p>  create table UserInfor </p><p><b>  (</b></p><p>  UserRegName char(6) not null,</p><p>  

47、Password char(8) not null,</p><p>  Position varchar(10) not null,</p><p>  Power char(4),</p><p>  

48、primary key (UserRegName)</p><p><b>  );</b></p><p>  alter table MedInfor</p><p>  add foreign key FK_MEDINFOR_RELATIONS_MEDKINDI (MedKindCode)</p><p>  re

49、ferences MedKindInfor (MedKindCode)</p><p>  on update restrict</p><p>  on delete restrict;</p><p>  alter table SupplyInfor</p><p>  add foreign key FK_SUPPLYIN_RELAT

50、IONS_MEDINFOR (MedicineCode)</p><p>  references MedInfor (MedicineCode)</p><p>  on update restrict</p><p>  on delete restrict;</p><p>  alter table SupplyInfor</p

51、><p>  add foreign key FK_SUPPLYIN_RELATIONS_FIRMINFO (FirmCode)</p><p>  references FirmInfor (FirmCode)</p><p>  on update restrict</p><p>  on delete restrict;</p>

52、;<p>  2.2系統(tǒng)主要功能模塊設(shè)計(jì)(可用流程圖表示)</p><p> ?。ㄏ到y(tǒng)頂層數(shù)據(jù)流程圖)</p><p> ?。ㄏ到y(tǒng)0層數(shù)據(jù)流程圖)</p><p><b>  主要模塊代碼</b></p><p><b>  登錄:</b></p><p>  

53、Private Sub Command2_Click()</p><p><b>  Me.Hide</b></p><p><b>  End Sub</b></p><p>  Private Sub Option1_Click()</p><p><b>  End Sub</

54、b></p><p>  Private Sub Text1_KeyPress(KeyAscii As Integer)</p><p>  If KeyAscii = Chr(32) Then</p><p>  Text2.SetFocus</p><p><b>  End If</b></p>

55、<p><b>  End Sub</b></p><p>  Private Sub Text2_GoFocus()</p><p>  Adodc1.RecordSource = "select * from power2 where userregname= '" & Text1 & "'

56、"</p><p>  Adodc1.Refresh</p><p><b>  End If</b></p><p>  If Adodc1.Recordset.EOF Then</p><p>  MsgBox "無(wú)此用戶(hù),請(qǐng)重新輸入!", , "提示"</p&

57、gt;<p>  Text1.Text = ""</p><p>  Text1.SetFocus</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Text2_Chan

58、ge()</p><p>  Adodc1.RecordSource = "select * from power2 where userregname= '" & Text1 & "'"</p><p>  Adodc1.Refresh</p><p><b>  End If<

59、;/b></p><p><b>  End Sub</b></p><p><b>  基礎(chǔ)信息管理:</b></p><p>  Private Sub Command1_Click()</p><p>  On Error Resume Next</p><p>

60、  Command2.Enabled = False</p><p>  Command3.Enabled = False</p><p>  Command4.Enabled = True</p><p>  Command5.Enabled = False</p><p>  If Command1.Caption = "添加&

61、quot; Then</p><p>  Command1.Caption = "確認(rèn)"</p><p>  Adodc1.Recordset.AddNew</p><p>  Text4.SetFocus</p><p><b>  Else</b></p><p>  Co

62、mmand1.Caption = "添加"</p><p>  Adodc1.Recordset.Update</p><p>  Adodc1.Recordset.MoveLast</p><p>  Command2.Enabled = True</p><p>  Command3.Enabled = True<

63、;/p><p>  Command5.Enabled = True</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  On Err

64、or Resume Next</p><p>  Adodc1.Recordset.Delete</p><p>  Adodc1.Recordset.MoveNext</p><p>  If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast</p><p><b>  End

65、 Sub</b></p><p>  Private Sub Command3_Click()</p><p>  On Error Resume Next</p><p>  Command1.Enabled = False</p><p>  Command2.Enabled = False</p><p&

66、gt;  Command4.Enabled = True</p><p>  Command5.Enabled = False</p><p>  If Command3.Caption = "修改" Then</p><p>  Command3.Caption = "確認(rèn)"</p><p>  Ad

67、odc1.Recordset.Update</p><p>  Text4.SetFocus</p><p><b>  Else</b></p><p>  Command3.Caption = "修改"</p><p>  Adodc1.Recordset.Update</p>&l

68、t;p>  Command1.Enabled = True</p><p>  Command2.Enabled = True</p><p>  Command5.Enabled = True</p><p><b>  End If</b></p><p><b>  End Sub</b>

69、;</p><p>  Private Sub Command5_Click(Index As Integer)</p><p>  Frame1.Visible = True</p><p><b>  End Sub</b></p><p><b>  進(jìn)貨管理:</b></p>

70、<p>  Private Sub Command1_Click()</p><p>  On Error Resume Next</p><p>  Command2.Enabled = False</p><p>  Command3.Enabled = False</p><p>  Command4.Enabled = Tr

71、ue</p><p>  Command5.Enabled = False</p><p>  If Command1.Caption = "添加" Then</p><p>  Command1.Caption = "確認(rèn)"</p><p>  Adodc1.Recordset.AddNew</

72、p><p>  Text1.SetFocus</p><p><b>  Else</b></p><p>  Command1.Caption = "添加"</p><p>  Adodc1.Recordset.Update</p><p>  Adodc1.Recordset.

73、MoveLast</p><p>  Command2.Enabled = True</p><p>  Command3.Enabled = True</p><p>  Command5.Enabled = True</p><p><b>  End If</b></p><p><b

74、>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  On Error Resume Next<

75、;/p><p>  Command1.Enabled = False</p><p>  Command2.Enabled = False</p><p>  Command4.Enabled = True</p><p>  Command5.Enabled = False</p><p>  If Command3.C

76、aption = "修改" Then</p><p>  Command3.Caption = "確認(rèn)"</p><p>  Adodc1.Recordset.Update</p><p>  Text1.SetFocus</p><p><b>  Else</b></p&

77、gt;<p>  Command3.Caption = "修改"</p><p>  Adodc1.Recordset.Update</p><p>  Command1.Enabled = True</p><p>  Command2.Enabled = True</p><p>  Command5.E

78、nabled = True</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command5_Click(Index As Integer)</p><p>  Frame1.Visible = Tru

79、e</p><p><b>  End Sub</b></p><p>  Private Sub Label3_Click(Index As Integer)</p><p><b>  End Sub</b></p><p><b>  銷(xiāo)售管理:</b></p>

80、;<p>  Private Sub Command1_Click()</p><p>  On Error Resume Next</p><p>  Command2.Enabled = False</p><p>  Command3.Enabled = False</p><p>  Command4.Enabled =

81、 True</p><p>  Command5.Enabled = False</p><p>  If Command1.Caption = "新增" Then</p><p>  Command1.Caption = "確認(rèn)"</p><p>  Adodc1.Recordset.AddNew&l

82、t;/p><p>  Text4.SetFocus</p><p><b>  Else</b></p><p>  Command1.Caption = "新增"</p><p>  Adodc1.Recordset.Update</p><p>  Adodc1.Records

83、et.MoveLast</p><p>  Command2.Enabled = True</p><p>  Command3.Enabled = True</p><p>  Command5.Enabled = True</p><p><b>  End If</b></p><p>&l

84、t;b>  End Sub</b></p><p>  Private Sub Command2_Click()</p><p>  On Error Resume Next</p><p>  Adodc1.Recordset.Delete</p><p>  Adodc1.Recordset.MoveNext</p

85、><p>  If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast</p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  On Error Resume Next</p

86、><p>  Command1.Enabled = False</p><p>  Command2.Enabled = False</p><p>  Command4.Enabled = True</p><p>  Command5.Enabled = False</p><p>  If Command3.Capt

87、ion = "修改" Then</p><p>  Command3.Caption = "確認(rèn)"</p><p>  Adodc1.Recordset.Update</p><p>  Text4.SetFocus</p><p><b>  Else</b></p>

88、<p>  Command3.Caption = "修改"</p><p>  Adodc1.Recordset.Update</p><p>  Command1.Enabled = True</p><p>  Command2.Enabled = True</p><p>  Command5.Enab

89、led = True</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  Private Sub Command5_Click(Index As Integer)</p><p>  Frame1.Visible = True&l

90、t;/p><p><b>  End Sub</b></p><p>  Private Sub Form_Load()</p><p><b>  End Sub</b></p><p>  Private Sub Label3_Click(Index As Integer)</p>&

91、lt;p><b>  End Sub</b></p><p><b>  調(diào)試與運(yùn)行</b></p><p><b>  用戶(hù)登錄:</b></p><p><b>  系統(tǒng)主界面:</b></p><p><b>  基礎(chǔ)信息管理:<

92、;/b></p><p><b>  銷(xiāo)售管理:</b></p><p><b>  進(jìn)貨管理:</b></p><p><b>  小 結(jié)</b></p><p>  本次課程設(shè)計(jì)調(diào)查從事醫(yī)藥產(chǎn)品的零售、批發(fā)等工作的企業(yè),根據(jù)其具體情況,設(shè)計(jì)醫(yī)藥銷(xiāo)售管理系統(tǒng)。加深了

93、對(duì)數(shù)據(jù)庫(kù)課程知識(shí)的理解。由于時(shí)間倉(cāng)促,軟件還有很多不足之處,如:藥品信息查詢(xún)部分不夠完善,軟件代碼交冗余、效率不高等等,都相關(guān)功能缺乏認(rèn)識(shí)造成的。在今后的學(xué)習(xí)中我們會(huì)加強(qiáng)理論的實(shí)踐的結(jié)合,通過(guò)不斷摸索來(lái)彌補(bǔ)自己在軟件制作方面的差距。</p><p><b>  參考文獻(xiàn)</b></p><p>  1.薩師煊,王 珊.數(shù)據(jù)庫(kù)系統(tǒng)概論[M].北京:高等教育出版社,199

94、7:91-132.</p><p>  2. 劉真原.SQL SERVER2000培訓(xùn)教程[M].北京:清華大學(xué)出版社,2003:42-56.</p><p>  3. Ferland JA , Fleurent C. SA PH IR: A decision support system for course scheduling [ J ]. Interfaces,1994, 24 (

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶(hù)所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶(hù)上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶(hù)上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶(hù)因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論