1、1.系統(tǒng)開發(fā)背景隨著科技的不斷進(jìn)步，企業(yè)都在不斷的注重管理的信息化以完善企業(yè)管理，增強(qiáng)企業(yè)自身的競爭力。藥品銷售業(yè)也不例外，通過較完善的信息系統(tǒng)實(shí)現(xiàn)自身企業(yè)對內(nèi)部管理的方便性、合理性、快捷性、高效性等要求。以前的手工管理效率低使最明顯的缺陷，另外，數(shù)據(jù)的一致性不好維護(hù)，如某個(gè)藥品信息的記錄有所改動(dòng)（如更改編號(hào)），那么該要品的其他記錄就與此不一致，造成查詢的費(fèi)時(shí)費(fèi)力。要把全部數(shù)據(jù)都更改又相當(dāng)不方便。對藥品庫存的盤點(diǎn)也很不方便，而且需要較多的人來進(jìn)行管理操作，而且容易出錯(cuò)，造成數(shù)據(jù)的不一致。而藥品業(yè)是關(guān)民生的行業(yè)，錯(cuò)誤信息可能會(huì)造成不可收拾的嚴(yán)重后果。因此，運(yùn)用高效、準(zhǔn)確的信息管理系統(tǒng)來替代手工管

2、理是完善藥品銷售業(yè)管理的有效手段。2.系統(tǒng)開發(fā)意義利用數(shù)據(jù)庫系統(tǒng)可以很好的對數(shù)據(jù)進(jìn)行維護(hù)，減少由于數(shù)據(jù)不一致等錯(cuò)誤帶來的麻煩。方便數(shù)據(jù)的更新和查詢，降低錯(cuò)誤率，方便藥品信息的維護(hù)及庫存的盤點(diǎn)。還可以運(yùn)用較少的人員，高效的完成對藥品銷售的管理。由于社會(huì)的發(fā)展不斷趨于信息化，各個(gè)行業(yè)都要加強(qiáng)自身的信息化程度以適應(yīng)社會(huì)的發(fā)展。而管理信息化正迎合了這個(gè)趨勢，數(shù)據(jù)庫系統(tǒng)在藥品銷售業(yè)的應(yīng)用業(yè)實(shí)現(xiàn)了藥品銷售業(yè)執(zhí)行工具、業(yè)務(wù)管理等的信息化，在這個(gè)信息化社會(huì)為藥品銷售業(yè)的發(fā)展增加了新的動(dòng)力。相信隨著社會(huì)的不斷發(fā)展對該類系統(tǒng)的需求會(huì)越來越高。藥品銷售管理信息系統(tǒng)，即服務(wù)于個(gè)人，又服務(wù)于企業(yè)，并最終服務(wù)于社會(huì)，這是

3、讓科技為人類服務(wù)的最好例證，其開發(fā)意義顯而易見。.各實(shí)例的 E-R 圖整體實(shí)體E-R 圖：藥品管理系統(tǒng)系統(tǒng)管理出庫入庫藥物詳況藥物匯總用戶管理密碼管理出庫管理入庫管理貨物管理藥物查詢?nèi)掌趨R總客戶匯總貨號(hào)匯總綜合匯總 出入庫信息實(shí)體E-R 圖：貨源地編號(hào)貨單號(hào)入出庫信日期息實(shí)體經(jīng)手人入庫備注日期 貨物信息實(shí)體E-R 圖：貨物信息實(shí)體貨單號(hào)貨源地貨物客戶號(hào)名稱 用戶信息實(shí)體E-R 圖：2用戶信息實(shí)體用戶號(hào)密碼權(quán)限 人員配置 E-R 圖：組長組員組員組員3.結(jié)構(gòu)設(shè)計(jì)入庫出庫模塊 :用來實(shí)現(xiàn)貨物流通的查詢。貨物詳況模塊 : 用來實(shí)現(xiàn)貨物瀏覽的查詢。貨物匯總模塊：用來實(shí)現(xiàn)貨物質(zhì)料的增加、刪除、修改等操作

4、。系統(tǒng)管理模塊：用來實(shí)現(xiàn)客戶的增加、刪除以及用戶信息和密碼的修改等操作。4.數(shù)據(jù)庫設(shè)計(jì)這里的數(shù)據(jù)庫采用access ，用 ADO作為連接數(shù)據(jù)對象。 啟動(dòng) access 建立一個(gè)數(shù)據(jù)庫如圖所示3貨源地表格： 客戶名表格：貨物詳況表：入庫表：系統(tǒng)管理表：數(shù)據(jù)連接。在vb 環(huán)境下連接數(shù)據(jù)：4 在程序設(shè)計(jì)的公共模塊中，先定義ADO連接對象。語句如下：Publicconn new ADODBconnection然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫Dim connectionstringas stringConnectionstring=“provider=microsoft.jet.oledb.4

5、.0；&-datasource=cangku.mdb”Conn.open connectionstring4.界面設(shè)計(jì)設(shè)計(jì)好的界面如圖所示：5菜單程序中，有5 個(gè)菜單選項(xiàng)你，每個(gè)菜單選項(xiàng)對應(yīng)著E-R 圖的一個(gè)子項(xiàng)目。1.創(chuàng)建主窗體。首先創(chuàng)建一個(gè)工程，命名為藥品管理系統(tǒng)，選擇工程 - 添加 MDI窗體命令，則在項(xiàng)目中添加了子窗體該窗體屬性如下表所示：主窗體的屬性屬性值text醫(yī)藥管理系統(tǒng)namemainmenumainmenu1windowstatemaxsize創(chuàng)建各菜單項(xiàng)的屬性如下表所示：菜單項(xiàng)表菜單名稱text 屬性功能描述MenuItem1入庫出庫頂級(jí)菜單，包括子菜單MenuItem2入

6、庫調(diào)出入庫查詢窗體MenuItem3出庫調(diào)出出庫窗體MenuItem4藥物詳況頂級(jí)菜單，包括子菜單MenuItem5藥物查詢調(diào)出藥物查詢窗體MenuItem6藥房管理調(diào)出藥房管理窗體MenuItem7藥物匯總頂級(jí)菜單，包括子菜單MenuItem8貨單號(hào)按貨單號(hào)匯總各種信息MenuItem9日期按日期匯總各種信息MenuItem10客戶按客戶匯總各種信息MenuItem11貨單號(hào)+日期按貨單號(hào)+日期匯總各種信息MenuItem12客戶+日期按客戶+日期匯總各種信息MenuItem13系統(tǒng)管理頂級(jí)菜單，包括子菜單MenuItem14增加用戶調(diào)出用戶窗體MenuItem15修改密碼調(diào)出密碼窗體Men

7、uItem16退出系統(tǒng)退出2.創(chuàng)建各子窗體。選擇 工程 - 添加窗體命令，添加子窗體，其屬性如下：6所有子窗體子窗體名text入庫jinku增加用戶adduser修改密碼changepwd庫房管理kumanage查詢chaxun登錄系統(tǒng)login藥物匯總huizong 入庫子窗體如下圖所示：各控件屬性如下表：7入庫子窗體控件控件類別控件 name控件 textlabel11貨單號(hào)label12日期label13貨源地labellabel14憑證號(hào)label15經(jīng)手人label16備注label17年label18月label19日text1（空）text2（空）textboxtext3（空）t

8、ext4（空）text5（空）txtsearch（空）commandbuttoncommand1確定command2取消combol（空）combol（空）comboboxcomboy（空）combom（空）combod（空） 增加用戶子窗體如下圖所示：8其各控件屬性如下表所示：增加用戶子窗體控件控件類別控件 name控件 textlabel1輸入用戶名labellabel2輸入舊密碼label3確認(rèn)密碼label4選擇權(quán)限textboxtext1（空）text2（空）text3（空）comboboxcomb1（空）commandbuttoncommand1確定command2取消 修改密碼窗

9、體如下圖所示： 庫房管理子窗體如下圖所示：9庫房管理子窗體控件如下表所示：庫房管理里子窗體控件控件類別控件 name控件 textframeframe1進(jìn)出清單frame2貨物明細(xì)frame3（空）msflexgridmsflexgrid1（空）msflexgrid2（空）textboxtext1（空）comboboxcomb1（空）command1增加明細(xì)command2修改明細(xì)commandbuttoncommand3刪除明細(xì)command4取消command5退出 查詢子窗體及其控件如下所示：10查詢子窗體控件控件類別控件 name控件 textoptionbuttonoption1按貨

10、單號(hào)查詢option2按日期查詢label1從label2到label3從label4到labellabel5年label6年label7月label8月label9日11label10日combo（0）comboboxcombol貨單號(hào)combo（1）comboboxcombol貨單號(hào)combo（0）comboboxcomboy年combo（1）comboboxcomboy年combo（0）comboboxcombom月combo（1）comboboxcombom月combo（0）comboboxcombod日combo（1）comboboxcombod日commandbuttomcomma

11、nd1查詢command2取消 貨物匯總子窗體及其屬性如下：貨物匯總子窗體控件控件類別控件 name控件 textlabellabel1貨物數(shù)目msflexgridmsflexgrid1（空） 關(guān)于窗體主要是列出關(guān)于系統(tǒng)的版本信息如下圖125.建立公共模 塊在菜單中選擇 工程 - 添加模塊 命令，則出現(xiàn)添加模塊對話框，選中模塊后單擊打開，則模塊添加到目錄中，在模塊中定義整個(gè)項(xiàng)目的公共變量。OptionExplicitPublicconnAs New ADODB.ConnectionPublicuserIDAs StringPublicuserpowAs StringPublicfindAs B

12、ooleanPublicsqlfindAs StringPublicrs_data1As New ADODB.RecordsetPublicfindokAs BooleanPublicsummary_menu As StringPublicfrmdataAs BooleanPublicConstkeyenter = 136.代碼設(shè)計(jì)子窗體中都是click事件1.主窗體代 碼如下：PrivateSub about_Click()frmabout.ShowEnd SubPrivateSub add_user_Click()adduser.ShowEnd SubPrivateSub check_fi

13、nd_Click()13chaxun.ShowEnd SubPrivateSub data_manage_Click()sqlfind= select* from入出庫 rs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimistic kumanage.ShowEnd SubPrivateSub exit_Click()UnloadMeEnd SubPrivateSub in_check_Click()jinku.Caption= 入庫jinku.ShowEnd Sub在 MIDFORM1中主要代碼如下：PrivateSub MDIFor

14、m_Load()frmdata= Falsefind= FalseEnd SubPrivateSub modify_pw_Click()changpwd.ShowEnd SubPrivateSub out_check_Click()jinku.Caption= 出庫jinku.ShowEnd SubPrivateSub sum_check_date_Click()summary_menu = check_datehuizong.Show1End SubPrivateSub sum_date_custom_Click()summary_menu = date_customhuizong.Show

15、1End SubPrivateSub summary_check_Click()summary_menu = check14huizong.Show1End SubPrivateSub summary_custom_Click()summary_menu = customhuizong.Show1End SubPrivateSub summary_date_Click()summary_menu = datehuizong.Show1End SubPrivateSub Timer1_Timer()End Sub2.各子窗體代 碼：入庫子窗體代碼。本窗體用來查詢貨物入庫的信息，下面的代碼是定義幾

16、個(gè)變量：OptionExplicitDim rs_checkname As New ADODB.RecordsetDim rs_customAs New ADODB.RecordsetConstrow_num = 10Constcol_num = 6確定按鈕代碼 ;PrivateSub Command1_Click()Dim rs_saveAs New ADODB.RecordsetDim sqlAs StringDim iAs IntegerDim s As StringOn ErrorGoTo saveerrorIfTrim(Text1.Text)= ThenMsgBox 貨單不能為空 !

17、,vbOKOnly + vbExclamation,Text1.SetFocusExitSubEnd IfIfCombo1.Text = ThenMsgBox 請選擇貨源地！,vbOKOnly + vbExclamation,Combo1.SetFocusExitSubEnd IfIfcomboy.Text= ThenMsgBox 請選擇年份！ ,vbOKOnly + vbExclamation,comboy.SetFocus15ExitSubEnd IfIfcombom.Text = ThenMsgBox 請選擇月份！ ,vbOKOnly + vbExclamation,combom.Set

18、FocusExitSubEnd IfIfcombod.Text= ThenMsgBox 請選擇日期！ , vbOKOnly + vbExclamation,combod.SetFocusExitSubEnd IfIfText2.Text= ThenMsgBox 請?zhí)顚憫{證號(hào)！ , vbOKOnly + vbExclamation,Text2.SetFocusExitSubEnd IfIfText3.Text= ThenMsgBox 請?zhí)顚懡?jīng)手人！,vbOKOnly + vbExclamation,Text3.SetFocusExitSubEnd IfIfMSFlexGrid1.Col 0 Th

19、enMsgBox 請輸入完整的物品信息！,vbOKOnly + vbExclamation,MSFlexGrid1.SetFocusExitSubEnd If數(shù)據(jù)庫比較代碼：sql= select*from入出庫 where 貨單號(hào) = & Text1.Text & rs_save.Opensql,conn,adOpenKeyset, adLockPessimisticIfrs_save.EOF Thenrs_save.AddNewrs_save.Fields(0)= Trim(Text1.Text)rs_save.Fields(1)=CDate(Trim(comboy.Text)& - &

20、Trim(combom.Text) & -& Trim(combod.Text)rs_save.Fields(2)= Trim(Combo1.Text)rs_save.Fields(3)= Trim(Text2.Text)rs_save.Fields(4)= Trim(Text3.Text)rs_save.Fields(5)= Trim(Text4.Text)If jinku.Caption= 入庫 Thenrs_save.Fields(6)=TrueElsers_save.Fields(6)=FalseEnd If16rs_save.Updaters_save.CloseElseMsgBox

21、 貨單號(hào)重復(fù)！ , vbOKOnly + vbExclamation,Text1.SetFocusText1.Text= rs_save.CloseExitSubEndIfsql= select* from貨物詳況 rs_save.Open sql, conn,adOpenKeyset, adLockPessimisticFori= 1 To MSFlexGrid1.Row - 1rs_save.AddNewrs_save.Fields(0)=Trim(Text1.Text)rs_save.Fields(1)= CDate(Trim(comboy.Text)& -& Trim(combom.T

22、ext) & -& Trim(combod.Text)rs_save.Fields(2)=Trim(Combo1.Text)MSFlexGrid1.Row= iMSFlexGrid1.Col= 0rs_save.Fields(3)=Trim(MSFlexGrid1.Text)MSFlexGrid1.Col= 1Ifjinku.Caption= 出庫 Thens = -& Trim(MSFlexGrid1.Text)rs_save.Fields(4)=CDbl(s)Elsers_save.Fields(4)=CDbl(Trim(MSFlexGrid1.Text)End IfMSFlexGrid1

23、.Col= 2rs_save.Fields(5)=Trim(MSFlexGrid1.Text)MSFlexGrid1.Col= 3rs_save.Fields(6)=Trim(MSFlexGrid1.Text)MSFlexGrid1.Col= 4Ifjinku.Caption= 出庫 Thens = -& Trim(MSFlexGrid1.Text)rs_save.Fields(7)=CDbl(s)Elsers_save.Fields(7)=CDbl(Trim(MSFlexGrid1.Text)End IfMSFlexGrid1.Col= 5rs_save.Fields(8)=Trim(MSF

24、lexGrid1.Text)Nextirs_save.Updaters_save.CloseMsgBox 添加成功！ ,vbOKOnly + vbExclamation,17UnloadMeExitSubsaveerror:MsgBox Err.DescriptionEnd SubPrivateSub Command2_Click()UnloadMeEnd SubPrivateSub Form_Load()Dimsql As StringDimiAsIntegerOn ErrorGoTo loaderrorsql= select*from貨源地 rs_checkname.CursorLocat

25、ion= adUseClientrs_checkname.Opensql,conn,adOpenKeyset, adLockPessimisticsql= select*from客戶名 rs_custom.CursorLocation= adUseClientrs_custom.Opensql,conn, adOpenKeyset, adLockPessimisticWhileNotrs_custom.EOFCombo2.AddItem rs_custom.Fields(0)rs_custom.MoveNextWendIf Notrs_checkname.EOF Thenrs_checknam

26、e.MoveFirstWhileNotrs_checkname.EOFCombo1.AddItemrs_checkname.Fields(0)rs_checkname.MoveNextWendEndIfcomboy.AddItem2002comboy.AddItem2003comboy.AddItem2004comboy.AddItem2005comboy.AddItem2006comboy.AddItem2007comboy.AddItem2008comboy.AddItem2009comboy.AddItem2010comboy.AddItem2011Fori= 1 To 12combom

27、.AddItem iNexti18Fori= 1 To 31combod.AddItemiNext isetgridsetgrid_headText5.Visible= Falseclear_gridExitSubloaderror:MsgBox Err.DescriptionEnd SubPrivateSub Form_Unload(CancelAs Integer) 關(guān)閉數(shù)據(jù)對象rs_checkname.Closers_custom.CloseEnd SubPublicSub setgrid()DimiAsIntegerOn ErrorGoTo seterrorMSFlexGrid1.Sc

28、rollBars= flexScrollBarBothMSFlexGrid1.FixedCols= 0MSFlexGrid1.Rows= row_numMSFlexGrid1.Cols= col_numMSFlexGrid1.SelectionMode= flexSelectionByRowFori= 0 To row_num -1MSFlexGrid1.RowHeight(i)= 315NextFori= 0 To col_num -1MSFlexGrid1.ColWidth(i)= 1300NextiExitSubseterror:MsgBox Err.DescriptionEnd Sub

29、PublicSub setgrid_head()On ErrorGoTo setheaderrorMSFlexGrid1.Row=0MSFlexGrid1.Col=0MSFlexGrid1.Text = 物品名稱 MSFlexGrid1.Col=1MSFlexGrid1.Text=單價(jià) MSFlexGrid1.Col=2MSFlexGrid1.Text=數(shù)量 19MSFlexGrid1.Col=3MSFlexGrid1.Text=單位 MSFlexGrid1.Col=4MSFlexGrid1.Text=金額 MSFlexGrid1.Col=5MSFlexGrid1.Text = 客戶名 Exi

30、tSubsetheaderror:MsgBox Err.DescriptionEnd SubPublicSub clear_grid()DimiAs Integer,jAs IntegerFori= 1 To row_num -1MSFlexGrid1.Row= iForj= 0Tocol_num - 1MSFlexGrid1.Col=jMSFlexGrid1.Text=NextjNextiEnd SubPublicSub nextposition(ByValr AsInteger, ByVal c As Integer)On ErrorGoTo nexterrorText5.Width=MS

31、FlexGrid1.CellWidthText5.Height=MSFlexGrid1.CellHeightText5.Left=MSFlexGrid1.Left+ MSFlexGrid1.ColPos(c)Text5.Top= MSFlexGrid1.Top+ MSFlexGrid1.RowPos(r)Text5.Text=MSFlexGrid1.TextText5.Visible= TrueText5.SetFocusExitSubnexterror:MsgBox Err.DescriptionEnd SubPrivateSub MSFlexGrid1_Click()If Combo2.V

32、isible=TrueThenExitSubEndIfnextpositionMSFlexGrid1.Row, MSFlexGrid1.ColEnd SubPrivateSub Text5_KeyPress(KeyAsciiAs Integer)20Dim iAs Integer,jAs IntegerDim priceAs Double,coun As IntegerOn ErrorGoTo texterrorIfKeyAscii= keyenterThenMSFlexGrid1.Text= Text5.Texti = MSFlexGrid1.Rowj = MSFlexGrid1.ColIf

33、j=0 And Trim(Text5.Text)= ThenMsgBox 物品名稱不能為空 ,vbOKOnly + vbExclamation,Text5.SetFocusExitSubEnd IfIfj=1 And NotIsNumeric(Text5.Text)ThenMsgBox 單價(jià)請輸入數(shù)字！ ,vbOKOnly + vbExclamation,Text5.SetFocusExitSubEnd IfIfj=2 And NotIsNumeric(Text5.Text)ThenMsgBox 數(shù)量請輸入數(shù)字！ ,vbOKOnly + vbExclamation,Text5.SetFocus

34、ExitSubEnd IfIfj=3 And Trim(Text5.Text)= ThenMsgBox 單位不能為空！ ,vbOKOnly + vbExclamation,Text5.SetFocusExitSubEnd IfIfj=3 And NotIsNull(Text5.Text)ThenMSFlexGrid1.Col= 1price= CDbl(MSFlexGrid1.Text)MSFlexGrid1.Col= 2coun= CInt(MSFlexGrid1.Text)MSFlexGrid1.Col= 4MSFlexGrid1.Text= price*counMSFlexGrid1.C

35、ol= MSFlexGrid1.Col+ 1Text5.Visible=Falsesetcombo2MSFlexGrid1.Row,MSFlexGrid1.ColKeyAscii=0ExitSubEnd IfMSFlexGrid1.Col=MSFlexGrid1.Col+ 1KeyAscii=0nextpositionMSFlexGrid1.Row,MSFlexGrid1.ColEndIf21ExitSubtexterror:MsgBox Err.DescriptionEnd SubPublicSub setcombo2(ByValrAs Integer,ByVal c As Integer)

36、On ErrorGoTo seterrorCombo2.Width = MSFlexGrid1.CellWidthCombo2.Left= MSFlexGrid1.Left+ MSFlexGrid1.ColPos(c)Combo2.Top = MSFlexGrid1.Top+ MSFlexGrid1.RowPos(r)Combo2.Text = MSFlexGrid1.TextCombo2.Visible= TrueCombo2.SetFocusExitSubseterror:MsgBox Err.DescriptionEnd Sub 增加用戶子窗體代碼IfTrim(Text1.Text)=

37、ThenMsgBox 用戶名不能為空,vbOKOnly + vbExclamation,ExitSubText1.SetFocusElseIfTrim(Text2.Text)= ThenMsgBox 密碼不能為空 ,vbOKOnly + vbExclamation,ExitSubText2.SetFocusElsesql= select* from系統(tǒng)管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False)IfTrim(rs_add.Fields(0)= Trim(Text1.Text)ThenMsgBox 已有這個(gè)用戶 ,vbOKOnly + vbExclamation,Text1.SetFocusText1.Text= Text2.Text= Text3.Text= Combo1.Text = ExitSubElsers