【正文】
ick() acCmdSaveRecordDim rs As New Dim str_temp As Stringstr_temp = select * from 庫存 Where 產(chǎn)品編號 = amp。 產(chǎn)品編號 amp。 str_temp, , adOpenDynamic, adLockOptimisticIf Not IsNull(rs) Thenrs(庫存量) = rs(庫存量) + 入庫數(shù)量End Sub查詢界面窗體的設計,根據(jù)輸入的職工號、判斷數(shù)據(jù)庫中是否存在其中的信息。如果存在,則將這個節(jié)點的所有信息輸出。如果不存在,則輸出不存在。程序代碼設計如下:Private Sub Command20_Click() = False 主切換面板End SubPrivate Sub 取消_Click() On Error GoTo Err_btn_clear_Click Dim ctl As Control For Each ctl In Select Case Case acTextBox If = False Then = Null Case acComboBox = Null End Select NextExit_btn_clear_Click: Exit SubErr_btn_clear_Click:End Sub總結(jié)這個系統(tǒng)不僅可以查詢藥品信息、供應商信息、藥品庫存信息、藥品入庫信息、藥品出庫信息、用戶取藥記錄的查詢,還可以對藥品添加跟刪除,大大方便了藥品的管理,同時還有供應商的刪除添加窗體,這樣把藥品跟供應商信息更好的聯(lián)系起來了,方便管理。 但是由于知識的局限性,不能把庫存信息跟入庫信息和出庫信息聯(lián)系起來,所以對于新進的藥品與已經(jīng)賣出去的藥品,管理起來還是比較繁瑣。15