【正文】 和同學們之間的相互探討也使我獲益匪淺。設臵全局變量為 false 39。成功到 calling 函數(shù) 39。Data Source= amp。Provider=。Data Source= amp。Dim rsSys As Dim Conjxc As Set Conjxc = New = connstring Dim rsSys As 39。 = 39。 Dim Conjxc As 39。 Set rsSys = New 39。 = False 39。 = True 39。 = True 39。 = False 39。 = 39。 strMonth _ amp。 currency = strSQL strSQL = 。 strYear amp。End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call mnuExit_Click If intNumWindows 0 Then Cancel = True End If Set rsSys = Nothing Set cmSys = Nothing End Sub Private Sub mnuEdit_other_Click() End Sub Private Sub mnuEdit_ps_Click() End Sub Private Sub mnuEdit_sales_Click() End Sub Private Sub mnuExit_Click() If intNumWindows = 0 Then Unload Me Else MsgBox 請關閉所有子程序后再關閉該主程序！ , vbCritical, 提示 End If End Sub Private Sub mnuRec_other_Click() End Sub Private Sub mnuRec_ps_Click() End Sub Private Sub mnuRec_sales_Click() End Sub Private Sub mnuReport_DetailUse_Click() End Sub Private Sub mnuReport_Mat_Click() End Sub Private Sub mnuReport_TotalUse_Click() End Sub Private Sub mnuReport_TotalYearUse_Click() End Sub Private Sub mnuSet_department_Click() End Sub Private Sub mnuSet_employee_Click() End Sub Private Sub mnuSet_product_Click() End Sub Private Sub mnuSet_protype_Click() End Sub Private Sub mnuSet_supplier_Click() End Sub Private Sub mnuSql_djother_Click() End Sub Private Sub mnuSql_djps_Click() End Sub Private Sub mnuSql_djsales_Click() End Sub Private Sub mnuSys_begqty_Click() End Sub Private Sub mnuSys_delete_Click() Dim intDel As Integer Dim strSQL As String intDel = MsgBox(確認要刪除所有資料碼 ?, vbInformation + vbYesNo, 刪除確認 ) If intDel = vbYes Then strSQL = delete from department = strSQL strSQL = delete from employee = strSQL strSQL = delete from mat_detail = strSQL strSQL = delete from mat_head = strSQL strSQL = select p_id,qty,price into mat_tmp from mat_head = strSQL strSQL = drop table mat_head = strSQL strSQL = select p_id,qty,price into mat_head from mat_tmp = strSQL strSQL = update mat_head set qty=0,price=0 = strSQL strSQL = drop table mat_tmp = strSQL strSQL = delete from product = strSQL strSQL = delete from product_type = strSQL strSQL = delete from supplier = strSQL strSQL = delete from order_detail_a = strSQL strSQL = delete from order_detail_b = strSQL strSQL = delete from ps_head_a = strSQL strSQL = delete from ps_head_b = strSQL strSQL = delete from other_head_a = strSQL strSQL = delete from other_head_b = strSQL strSQL = delete from sale_detail_a = strSQL strSQL = delete from sale_detail_b = strSQL strSQL = delete from sale_head_a = strSQL strSQL = delete from sale_head_b = strSQL strSQL = update r_parameter set offline=true,psnumber=0 = strSQL MsgBox 資料刪除完畢 !, vbInformation, 資料刪除 End If = False = False = False = False = True = True End Sub Private Sub mnuSys_start_Click() Dim strBeg As String Dim strYear, strMonth As String Dim strSQL As String strBeg = InputBox(請輸入系統(tǒng)啟用時間 , 系統(tǒng)啟用 , CStr(Date)) If IsDate(strBeg) Then strYear = Right(CStr(Year(CDate(strBeg))), 2) strMonth = Format(CStr(Month(CDate(strBeg))), 0) strSQL = alter table mat_head add column qty amp。 39。 = True 39。 Else 39。 = False 39。 39。 = connstring 39。Private Sub MDIForm_Load() 39。 If rsSys!offline Then = False = False = False = False = True = True Else = True = True = True = True = False = False End If 39。 \data\ 39。 _ 39。 / 39。Persist amp。檢查正確的密碼 If Not IsNull() Then If txtPassword = Then 39。所以我再次感謝老師和我的同學們。 致 謝 論文完成的前提是老師給我提供了舒適的工作、學習環(huán)境，并給予我悉心的關懷與指導。 ※ 由于時間關系，系統(tǒng)功能實現(xiàn)不夠完善，使用不是很方便，比如，沒有實現(xiàn)多條記錄的連鎖刪除和添加以及數(shù)據(jù)的導入功能。在物品入庫、出庫和庫存三者之間建立了良好的鏈接關系，某一部分地修改均會自動引發(fā)系統(tǒng)對與其相關的部分進行連鎖修改。它主要完成對倉庫的一系列管理，包括入庫、出庫、庫存以及員工和供應商信息管理。 圖 3 與 VB的連接 Visual Basic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。 供應商設臵分類為：供應商編號，部門名稱。具體詳細操作在各界面中有詳細說明。 系統(tǒng)功能結構圖 倉庫管理系統(tǒng) 基礎資料設臵 單據(jù)處理 統(tǒng)計查詢 系統(tǒng)維護 部 員 物 物 供 入 出 已 操 門 工 品 品 應 庫 庫 過 作 設 設 類 設 商 單 單 賬 員 臵 臵 別 臵 設 處 處 單 設 設 臵 理 理 據(jù) 臵 臵 查 詢