【正文】 6 入庫信息表 中文字段名 數(shù)據(jù)類型 寬度 是否為空 說明 名稱 text 50 no 供應(yīng)商 text 50 no 數(shù)量 int no 單價(jià) 貨幣 no 經(jīng)手 text 50 no 日期 date no 時(shí)間 date no (7)出庫信息表 表名出庫表，用于記載材料出庫有關(guān)的信息 如表57所示。 ADO 的設(shè)計(jì)為一種極簡單的格式，通過 ODBC 的方法同數(shù)據(jù)庫接口相 連。 ADO 是基于 OLEDB 之上的技術(shù)，因此 ADO 通過其內(nèi)部的屬性和方法提供統(tǒng)一的數(shù)據(jù)訪問接口方法。因此在創(chuàng)建項(xiàng)目后，需要為項(xiàng)目添加 ADO。在“引用”選項(xiàng)卡中向下滾動(dòng)列表項(xiàng)，找到“ Microsoft ActiveX Data Objects Library” 列表項(xiàng) ,單擊該列表項(xiàng)左邊的復(fù)選框。 Connection 對象：通過 Connection 對象指定程序中要用到的數(shù)據(jù)庫。 Record set 對象將一個(gè)查詢字符串傳遞給由 Connection 對象指定的數(shù)據(jù)庫，該數(shù)據(jù)庫執(zhí)行此查詢，然后將查詢結(jié)果返回給 Record set 對象。打開“控制面板 ”中“管理工具”的“ ODBC（數(shù)據(jù)源）”，在如圖 61所示的對話框中創(chuàng)建文件 DSN。 Connect ： Set Connect=New 使用 Connection 對象的 Open 方法連接到指定的數(shù)據(jù)庫。 DbPath， “ sa” ， “ Liu Yang” ② 使用 Recordset 對象 : 先聲明變量 Dim RS AS 使用 Set 語句生成 Record set 對象的一個(gè)實(shí)例 ,并賦值給變量RS： Set RS=New 使用 Record set 對象的 Open 方法 ,將查詢字符串傳遞給第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 34 Connection 對象指定的數(shù)據(jù)庫。 系統(tǒng)主要功能的具體設(shè)計(jì) 庫存管理系統(tǒng)共有 1個(gè)界面， 5 個(gè)窗體，包括 5個(gè)主菜單。Unload FrmHY End Sub Private Sub M 報(bào)表輸出 _Click() End Sub Private Sub M 出庫操作 _Click() End Sub Private Sub M 入庫操作 _Click() End Sub Private Sub M 設(shè)置 _Click() End Sub 系統(tǒng)啟動(dòng)后，點(diǎn)擊系統(tǒng)登錄將首先出現(xiàn)如下圖 63 的登錄窗體，用戶首先輸入用戶名，然后輸入密碼。39。39。39。(建戶時(shí)間 ) = Date add_error: If = 3426 Then MsgBox 已經(jīng)使用過添加記錄！ 錯(cuò)誤： amp。 ， amp。39。 Err amp。 , 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 40 0, 提示 Unload Me End If = True (1).Visible = True (2).Visible = True (4).Visible = True (5).Visible = False (6).Visible = False (7).Visible = True Case 6 39。取消 On Error GoTo CanceErr = True (1).Visible = True (2).Visible = True (4).Visible = True (5).Visible = False (6).Visible = False (7).Visible = True CanceErr: If = 3021 Then MsgBox 沒有記錄！ 錯(cuò)誤： amp。 ， amp。39。 Err amp。 , 0, 提示 Unload Me End If End Select End Sub ③ 產(chǎn)品入庫設(shè)計(jì)的好壞相當(dāng)重要，是產(chǎn)品入庫信息管理好壞的保障。 其窗體設(shè)計(jì)如下 圖 65所示 ： 圖 65 產(chǎn)品入庫窗體 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 42 產(chǎn)品入庫代碼設(shè)計(jì)： Private Sub Command1_Click() If Val() = 0 Then MsgBox 請輸入入庫數(shù)量！ Exit Sub End If If = Then MsgBox 請選擇入庫材料名稱！ Exit Sub End If If = Then MsgBox 請選擇經(jīng)手人！ Exit Sub End If Dim a As Integer a = MsgBox(********你確定此操作嗎？ ********** amp。 材料名稱： amp。 vbCrLf _ amp。 amp。 vbCrLf _ amp。 amp。 單價(jià)： amp。 元 amp。 供應(yīng)商： amp。 vbCrLf _ amp。 amp。************************ ( 數(shù)量 ) = Val() + Val() MsgBox 入庫成功！ 39。 CStr() (2).Controls(Label4).Caption = 供應(yīng)商： amp。 CStr() (2).Controls(Label6).Caption = 經(jīng)手人： amp。 CStr(Date) amp。 CStr(Time) amp。 CStr((ID)) 39。 amp。 39。 \庫存管理 .mdb = SQL = True = 2021 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2021 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2021 西電科大自考畢業(yè)論文 45 End Sub Private Sub Form_Load() MakeWindow Me 39。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = 通用庫存管理 = MyStr End Sub Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As 西電科大自考畢業(yè)論文 47 Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub Timer1_Timer() 名稱 =39。 amp。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub = False End If = (數(shù)量 ) = (單位 ) = False Dim MyStr As String MyStr = CStr() amp。 CStr() amp。 amp。 39。 地址： amp。 聯(lián)系人： amp。 電話： amp。 備注： amp。 amp。 39。 職務(wù)： amp。 電話： amp。 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 50 Exit Sub End If If = Then MsgBox 請選擇出庫材料名稱！ Exit Sub End If If = Then MsgBox 請選擇經(jīng)手人！ Exit Sub End If Dim a As Integer a = MsgBox(********你確定此操作嗎？ ********** amp。 材料名稱： amp。 vbCrLf _ amp。 amp。 vbCrLf _ amp。 amp。 vbCrLf _ amp。 amp。 經(jīng)手人： amp。 vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示 ) If a = 1 Then (名稱 ) = (用途 ) = (數(shù)量 ) = (經(jīng)手人 ) = (日期 ) = Date (時(shí)間 ) = Time = 西電科大自考畢業(yè)論文 51 39。 = True End If End Sub Private Sub Command2_Click() (2).Controls(Label1).Caption = 出庫單據(jù) (2).Controls(Label2).Caption = CStr() (2).Controls(Label3).Caption = 數(shù)量： amp。 CStr() (2).Controls(Label5).Caption = (2).Controls(Label6).Caption = 經(jīng)手人： amp。 CStr(Date) amp。 CStr(Time) amp。 CStr((ID)) 39。 amp。 39。 \庫存管理 .mdb = SQL = True = 2021 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2021 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2021 End Sub Private Sub Form_Load() MakeWindow Me 39。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 \庫存管理 .mdb = 。 = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim MyStr As String MyStr = 通用庫存管理 = MyStr End Sub 第六章 系統(tǒng)程序設(shè)計(jì)及實(shí)現(xiàn) 54 Private Sub imgTitleClose_Click() Unload Me End Sub Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) DoDrag Me End Sub Private Sub imgTitleMinimize_Click() = 1 End Sub Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y