【正文】 pwd=lee1012 = 出庫表 = False 39。pwd=lee1012 = 員工表 = False = amp。pwd=lee1012 = 客戶表 = False = amp。pwd=lee1012 = 庫存材料表 = False = amp。pwd=lee1012 = 材料分類表 西電科大自考畢業(yè)論文 53 = False = amp。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 = False = amp。 CStr() amp。 = False End Sub Private Sub DBCombo2_Click(Area As Integer) If = Then MsgBox 請先選擇類別！ Exit Sub End If 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 52 Dim SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫存材料表 WHERE 分類 = 39。 amp。 amp。 CStr() (2).Controls(Label7).Caption = 時間： amp。 CStr() (2).Controls(Label4).Caption = 用途： amp。************************ (數(shù)量 ) = Val() Val() MsgBox 出庫完成！ 39。 amp。 vbCrLf _ amp。 服務(wù)客戶： amp。 amp。 本次出庫： amp。 amp。 原庫存量： amp。 amp。 vbCrLf _ amp。 CStr((電話 )) = MyStr = False End Sub ④產(chǎn)品出庫窗體如下 圖 66所示 ， 主要用于產(chǎn)品出庫信息的管理按產(chǎn)品的分類、產(chǎn)品的名稱、出庫數(shù)量、經(jīng)手人以及服務(wù)客戶和產(chǎn)品出庫信息的打印等操作 ： 圖 66 產(chǎn)品出庫窗體 產(chǎn)品出庫代碼設(shè)計： Private Sub Command1_Click() If Val() Val() 0 Then MsgBox 庫存量不夠！請及時采購。 CStr((職務(wù) )) amp。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub End If 西電科大自考畢業(yè)論文 49 Dim MyStr As String MyStr = CStr(( 姓名 )) amp。 amp。 CStr((備注 )) = MyStr = False End Sub Private Sub Timer3_Timer() If = Then MsgBox 沒有選擇供應(yīng)商！ = False Exit Sub End If 姓名 =39。 CStr((電話 )) amp。 CStr((聯(lián)系人 )) amp。 CStr((地址 )) amp。 If = True Then MsgBox Err, 0, 提示 = False Exit Sub End If Dim MyStr As String MyStr = CStr(( 名稱 )) amp。 amp。 CStr() = MyStr End Sub Private Sub Timer2_Timer() If = Then MsgBox 沒有選擇供應(yīng)商！ = False 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 48 Exit Sub End If 名稱 =39。 原庫存量 amp。 39。 amp。pwd=lee1012 = 入庫表 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 46 = False 39。pwd=lee1012 = 員工表 = False = amp。pwd=lee1012 = 供應(yīng)商表 = False = amp。pwd=lee1012 = 庫存材料表 = False = amp。pwd=lee1012 = 材料分類表 = False = amp。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 = False = amp。 CStr() amp。 = False End Sub Private Sub DBCombo2_Click(Area As Integer) If = Then MsgBox 請先選擇類別！ Exit Sub End If Dim SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫存材料表 WHERE 分類 = 39。 amp。 amp。 CStr() 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 44 (2).Controls(Label7).Caption = 時間： amp。 CStr() (2).Controls(Label5).Caption = 單價： amp。 = True End If If a = 2 Then Exit Sub End Sub Private Sub Command2_Click() (2).Controls(Label1).Caption = 入庫單據(jù) (2).Controls(Label2).Caption = CStr() (2).Controls(Label3).Caption = 數(shù)量： amp。 vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示 ) If a = 1 Then (名稱 ) = (供應(yīng)商 ) = (數(shù)量 ) = 西電科大自考畢業(yè)論文 43 (單價 ) = (經(jīng)手 ) = (日期 ) = Date (時間 ) = Time = 39。 經(jīng)手人： amp。 amp。 vbCrLf _ amp。 amp。 amp。 本次入庫： amp。 amp。 原庫存量： amp。 amp。 vbCrLf _ amp。能夠?qū)崿F(xiàn)入庫產(chǎn)品信息的管理，并且能將當(dāng)次入庫信息打印出來。 ， amp。刪除 On Error GoTo del_error a = MsgBox(真的刪除嗎？ , vbExclamation + vbOKCancel + vbApplicationModal, 刪除記錄 ) 西電科大自考畢業(yè)論文 41 If a = 1 Then End If If a = 2 Then Exit Sub del_error: If = 3426 Then MsgBox 已經(jīng)全部刪除！ 錯誤： amp。 , 0, 提示 End If Case 7 39。 Err amp。39。 ， amp。確定 On Error GoTo update_error If = Then MsgBox 必須填寫售電員！ , 0, 提示 Exit Sub End If (分類 ) = = update_error: If = 3020 Then MsgBox 請先添加記錄！ 錯誤： amp。 , 0, 提示 Unload Me End If = False (1).Visible = False (2).Visible = False (4).Visible = False (5).Visible = True (6).Visible = True (7).Visible = False Case 5 39。 Err amp。增加 On Error GoTo add_error 39。后退 If = True Then End If 西電科大自考畢業(yè)論文 39 Case 4 39。前進(jìn) If = True Then End If Case 2 39。 登錄窗體如下： 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 36 圖 63 登錄界面 用戶登錄窗體中放置了兩個文本框（ Textbox），用來輸入用戶名和密碼；兩個按鈕（ Command Button）用來確定或者取消登錄； 其代碼設(shè)計： Private Sub Command1_Click() Static i As Integer If = sys Then If = sys Then Load MDIFrmMain 項目 .Enabled = True 出庫 .Enabled = True 入庫 .Enabled = True 報表 .Enabled = True Unload Me Else MsgBox 密碼錯誤，請重新再試一次 , 0 + 64, 提示 = 西電科大自考畢業(yè)論文 37 End If Else MsgBox 用戶名錯誤，請重新再試一次 , 0 + 64, 提示 = End If i = i + 1 If i = 3 Then MsgBox 超過三次，不能再進(jìn)行 , 0 + 48, 警告 End End If End Sub 第六章 系統(tǒng)程序設(shè)計及實現(xiàn) 38 ② 項目設(shè)置窗體包括員工管理、供應(yīng)管理、客戶管理、材料分類、材料管理等的相應(yīng)設(shè)置和處理，其窗體如下： 圖 64 項目設(shè)置窗體 項目設(shè)置代碼設(shè)計： Private Sub Toolbar5_ButtonClick(ByVal Button As ) Select Case Case 1 39。 現(xiàn)具體介紹如下： ① 系統(tǒng)主界面是系統(tǒng)登錄和退出所必需 的，其界面如下 圖 62所示： 圖 62 系統(tǒng)主界面 其代碼設(shè)計： Private Sub CoolBar1_Resize() = End Sub Private Sub dl_Click() 西電科大自考畢業(yè)論文 35 End Sub Private Sub MDIForm_Load() Unload FrmSet Unload frmRK Unload frmPrint Unload frmCK 39。數(shù)據(jù)庫服務(wù)器接收到這個查詢字符串后 ,將查詢 結(jié)果返回到 RS對象。 driver={Microsoft Access Driver (*.mdb)}；dbq= amp。 西電科大自考畢業(yè)論文 33 圖 61 ODBC 數(shù)據(jù)源 ⑶ 應(yīng)用 ADO 連 接 庫方法 ① 使用 Connection ： 聲明變量 Public Connect AS 使用 Set Connection 對象的一個實例 , 并賦給變量。 ⑵ 創(chuàng)建 ODBC 程序?qū)?shù)據(jù)庫的訪問需要通過 ODBC 來實現(xiàn)。 Record set 對象：表示查詢結(jié)果集。單擊“確定”按鈕，這樣在程序中使用 ADO時就不會出現(xiàn)編譯錯誤了。單擊 [工程 ]菜單中的 [引用 ]菜單項，打開“引用” 對話框。 ADO 雖然集成在 VISUAL BASIC 中，但 是 只是可選項。用戶可以使用任何一種 ODBC 數(shù)據(jù)源，即不僅適合于 SQL Server、 Oracle、 Access 等數(shù)據(jù)庫應(yīng)用程序，也適合于 Excel 表格、文本文件、圖形文件和無格式的數(shù)據(jù)文件。 名稱：出庫材料的名稱 數(shù)量：出庫材料的數(shù)量 經(jīng)手人：經(jīng)手人姓名 用途：出庫材料用途 日期：出庫日期 時間：出庫時間 西電科大自考畢業(yè)論文 31 表 57 出 庫信息表 中文字段名 數(shù)據(jù)類型 寬度 是否為空 說明 名稱 text 50 no 數(shù)量 int no 經(jīng)手人 date 8 no 用途 tex