【正文】 中國水利水電出版社 2006 .115 劉藝 visual basic 機械工業(yè)出版社 2003 basic 程序設計第二版 譚浩強 清華大學出版社 200317. visual 程序設計教程. 胡同森 趙劍鋒等. 浙江科學技術出版社, (第二版) 周蘇 王文 著 科學出版社 2003 Basic 程序設計與開發(fā)技術 求是科技 人民郵電出版社 。王輝等譯visual basic 從入門到精通 參 考 文 獻1陳明 . 軟件工程學教程 .科技出版社，20022 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社，20003 飛思科技產(chǎn)品研發(fā)中心 . visual basic .電子工業(yè)出版社，20034 飛思科技產(chǎn)品研發(fā)中心 . visual basic . 電子工業(yè)出版社, 2002 5 申旻 . visual basic . 清華大學出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic . 機械工業(yè)出版社 .2003 7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .20038 李維 .Inside 深入核心 VCL 架構剖析 . 電子工業(yè)出版社 .2004 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2002 嚴蔚敏，吳偉民 .數(shù)據(jù)結構 .第二版 .清華大學出版社 .2001 10 王珍玲 。在這里我還要感謝我們宿舍的其它5個同學。 致謝我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。雖然軟件基本達到設計要求并且達到同行的先進水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見和建議將極大的幫助我改進并完善軟件。通過這幾個月的畢業(yè)設計，我學到很多以前沒有學到的visual basic開發(fā)技術，在軟件工程學上更是取得了很大的進步。.RefreshIf . adPosUnknown Then = .(1) = TrueElse = FalseEnd IfEnd WithExit Suberr5:MsgBox 數(shù)據(jù)庫連接失??！End Sub6:主界面設計:代碼設計:Private Sub menu22_Click()End SubPrivate Sub menu31_Click()If = 0 ThenElseMsgBox 只能超級用戶才能執(zhí)行此操作！End IfEnd SubPrivate Sub menu33_Click()If = 0 ThenElseMsgBox 只能超級用戶才能執(zhí)行此操作！End IfEnd SubPrivate Sub menu34_Click()End SubPrivate Sub menu41_Click() vbCascadeEnd SubPrivate Sub menu43_Click() vbTileVerticalEnd SubPrivate Sub menu44_Click() vbArrangeIconsEnd SubPrivate Sub menu51_Click()Dim help As Longhelp = StartDoc( amp。 amp。 where 代碼=39。.RefreshIf . adPosUnknown Then = .(名稱)End IfEnd WithExit Suberr0:MsgBox 數(shù)據(jù)庫連接失?。nd SubPrivate Sub Text18_Change()On Error GoTo err5With Adodc2.RecordSource = select * from amp。 amp。 End SubPrivate Sub Text3_GotFocus() = 0 = Len()End SubPrivate Sub Text4_GotFocus() = 0 = Len()End SubPrivate Sub Text5_GotFocus() = 0 = Len()End SubPrivate Sub Text6_GotFocus() = 0 = Len()End SubPrivate Sub Text7_GotFocus() = 0 = Len()End SubPrivate Sub Text17_GotFocus() = 0 = Len()End SubPrivate Sub Text1_GotFocus() = 0 = Len()End SubPrivate Sub Text18_GotFocus() = 0 = Len()End SubPrivate Sub Text6_Change()On Error GoTo err0With Adodc3.RecordSource = select 名稱,代碼 from othercode where 代碼=39。 amp。H12amp。 amp。 ]已空,請增加庫存量! = True = True = True = True = .(規(guī)格) = .(單位) = .(數(shù)量) = .(進價) = .(零售價) = .(產(chǎn)地) = .(批號) End If Else = amp。HFF0000 = 庫存[ amp。 39。 amp。 amp。 amp。HFFamp。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 39。 amp。 amp。 .(失效期) = CDate(rq3).(備注) = . = False = True = True = End WithExit Suberr1:MsgBox 登記項目填寫不全或數(shù)據(jù)類型不匹配！End SubPrivate Sub Command2_Click()39。 amp。 .(出廠日期) = CDate(rq2)rq3 = amp。 amp。 .(采購日期) = CDate(rq1)rq2 = amp。 amp。 order by ID.Refresh..(編號) = .(名稱) = .(規(guī)格) = .(單位) = .(數(shù)量) = .(進價) = .(進價合計) = () * ().(零售價) = .(零售合計) = () * ().(產(chǎn)地) = .(差額) = (.(零售合計)) (.(進價合計)).(批號) = rq1 = amp。 where 失效標記=false.RefreshFor i = 0 To .If Not . Then If .(失效期) = Date Then .(失效標記) = True . Else .(失效標記) = False . End If.End IfNextEnd WithEnd SubPrivate Sub bo2_Change()If 西藥中成藥庫 And 中草藥庫 And 器械材料庫 Then = False = FalseEnd IfEnd SubPrivate Sub Combo2_Click()Select Case Case 西藥中成藥庫 = kcyp = 西藥和中成藥入庫登記 = ypcode Call Guolu = True = TrueCase 中草藥庫 = caoyao = 中草藥入庫登記 = cycode Call Guolu = True = TrueCase 器械材料庫 = qixie = 醫(yī)療器械和材料入庫登記 = qxcode Call Guolu = True = TrueCase Else = False = False = 庫存登記End SelectEnd SubPrivate Sub Command1_Click()Dim rq1 As StringDim rq2 As StringDim rq3 As StringOn Error GoTo err1With Adodc1.RecordSource = select * from amp。 End Sub4:庫存登記界面設計:代碼設計:Public Sub Guolu()With Adodc1.RecordSource = select * from amp。 返回失敗 rc = RegCloseKey(hKey)