【正文】 currency = strSQL strSQL = 。 strYear amp。 strMonth _ 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 請關(guān)閉所有子程序后再關(guān)閉該主程序！ , 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。 39。 = False 39。 = True 39。 = True 39。 Else 39。 = True 39。 = False 39。 = False 39。 39。 Set rsSys = New 39。 = connstring 39。 Dim Conjxc As 39。Private Sub MDIForm_Load() 39。 = 39。 If rsSys!offline Then = False = False = False = False = True = True Else = True = True = True = True = False = False End If 39。Dim rsSys As Dim Conjxc As Set Conjxc = New = connstring Dim rsSys As 39。 \data\ 39。Data Source= amp。 _ 39。Provider=。 / 39。Data Source= amp。Persist amp。成功到 calling 函數(shù) 39。檢查正確的密碼 If Not IsNull() Then If txtPassword = Then 39。設(shè)臵全局變量為 false 39。所以我再次感謝老師和我的同學(xué)們。老師認真負責(zé)的工作態(tài)度、嚴謹?shù)闹螌W(xué)風(fēng)格，使我深受啟發(fā)；開發(fā)的同時，和同學(xué)們之間的相互探討也使我獲益匪淺。 致 謝 論文完成的前提是老師給我提供了舒適的工作、學(xué)習(xí)環(huán)境，并給予我悉心的關(guān)懷與指導(dǎo)。 通過本次畢業(yè)設(shè)計我學(xué)到了不少新的東西，也發(fā)現(xiàn)了大量的問題，有些在設(shè)計過程中已經(jīng)解決，有些還有待今后慢慢學(xué)習(xí)。 ※ 由于時間關(guān)系，系統(tǒng)功能實現(xiàn)不夠完善，使用不是很方便，比如，沒有實現(xiàn)多條記錄的連鎖刪除和添加以及數(shù)據(jù)的導(dǎo)入功能。 系統(tǒng)在設(shè)計過程中不可避免地遇到了各種各樣的問題，由于整個系統(tǒng)完全都是由個人設(shè)計的，有關(guān) VISUAL BASIC 許多細節(jié)問題都要靠自己去摸索，加之本人水平有限，并沒有完全地理解 VISUAL BASIC 的強大功能，而且還存在著許多不足之處。在物品入庫、出庫和庫存三者之間建立了良好的鏈接關(guān)系，某一部分地修改均會自動引發(fā)系統(tǒng)對與其相關(guān)的部分進行連鎖修改。 本系統(tǒng)具有相當(dāng)?shù)膶?用功能。它主要完成對倉庫的一系列管理，包括入庫、出庫、庫存以及員工和供應(yīng)商信息管理。生成獨立應(yīng)用或脫離服務(wù)器運行的 服務(wù)以上的應(yīng)用， Visual Basic連接數(shù)據(jù)庫的方式有兩種： 〃通過使用 Visual Basic的 ADO控件。 圖 3 與 VB的連接 Visual Basic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。 —— 數(shù)據(jù)庫設(shè)臵（見下圖數(shù)據(jù)庫表） 數(shù)據(jù)庫里存 儲了員工，詳細信息。 供應(yīng)商設(shè)臵分類為：供應(yīng)商編號，部門名稱。 員工設(shè)臵項分類為：員工編號，所屬部門，員工編號。具體詳細操作在各界面中有詳細說明。 3 統(tǒng)計查詢 查詢分為采購，入庫，出庫單查詢。 系統(tǒng)功能結(jié)構(gòu)圖 倉庫管理系統(tǒng) 基礎(chǔ)資料設(shè)臵 單據(jù)處理 統(tǒng)計查詢 系統(tǒng)維護 部 員 物 物 供