【正文】 t用于為其他控件提供圖像庫(kù)，將 ImageList控件加入到工具 箱的操作于前述 Toolbar控件相同。 APP 對(duì)象的大多數(shù)屬性被應(yīng)用程序用來(lái)提供常規(guī)的信息，通過(guò)使用這些 APP 提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)臵它的屬性。 員工設(shè)臵項(xiàng)分類為：?jiǎn)T工編號(hào)，所屬部門(mén)，員工編號(hào)。生成獨(dú)立應(yīng)用或脫離服務(wù)器運(yùn)行的 服務(wù)以上的應(yīng)用， Visual Basic連接數(shù)據(jù)庫(kù)的方式有兩種： 〃通過(guò)使用 Visual Basic的 ADO控件。 系統(tǒng)在設(shè)計(jì)過(guò)程中不可避免地遇到了各種各樣的問(wèn)題，由于整個(gè)系統(tǒng)完全都是由個(gè)人設(shè)計(jì)的，有關(guān) VISUAL BASIC 許多細(xì)節(jié)問(wèn)題都要靠自己去摸索，加之本人水平有限，并沒(méi)有完全地理解 VISUAL BASIC 的強(qiáng)大功能，而且還存在著許多不足之處。老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)?shù)闹螌W(xué)風(fēng)格，使我深受啟發(fā)；開(kāi)發(fā)的同時(shí)，和同學(xué)們之間的相互探討也使我獲益匪淺。成功到 calling 函數(shù) 39。Provider=。Dim rsSys As Dim Conjxc As Set Conjxc = New = connstring Dim rsSys As 39。 Dim Conjxc As 39。 = False 39。 = True 39。 = 39。 currency = strSQL strSQL = 。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 請(qǐng)關(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(確認(rèn)要?jiǎng)h除所有資料碼 ?, vbInformation + vbYesNo, 刪除確認(rèn) ) 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(請(qǐng)輸入系統(tǒng)啟用時(shí)間 , 系統(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。 = True 39。 = False 39。 = connstring 39。 If rsSys!offline Then = False = False = False = False = True = True Else = True = True = True = True = False = False End If 39。 _ 39。Persist amp。所以我再次感謝老師和我的同學(xué)們。 ※ 由于時(shí)間關(guān)系，系統(tǒng)功能實(shí)現(xiàn)不夠完善，使用不是很方便，比如，沒(méi)有實(shí)現(xiàn)多條記錄的連鎖刪除和添加以及數(shù)據(jù)的導(dǎo)入功能。它主要完成對(duì)倉(cāng)庫(kù)的一系列管理，包括入庫(kù)、出庫(kù)、庫(kù)存以及員工和供應(yīng)商信息管理。 供應(yīng)商設(shè)臵分類為：供應(yīng)商編號(hào)，部門(mén)名稱。 系統(tǒng)功能結(jié)構(gòu)圖 倉(cāng)庫(kù)管理系統(tǒng) 基礎(chǔ)資料設(shè)臵 單據(jù)處理 統(tǒng)計(jì)查詢 系統(tǒng)維護(hù) 部 員 物 物 供 入 出 已 操 門(mén) 工 品 品 應(yīng) 庫(kù) 庫(kù) 過(guò) 作 設(shè) 設(shè) 類 設(shè) 商 單 單 賬 員 臵 臵 別 臵 設(shè) 處 處 單 設(shè) 設(shè) 臵 理 理 據(jù) 臵 臵 查 詢 系統(tǒng)功能結(jié)構(gòu)圖 基礎(chǔ)資料設(shè)臵 單據(jù)處理 3．統(tǒng)計(jì)查詢； 4． 系統(tǒng)維護(hù)； 6． 退出系統(tǒng)。無(wú)論寫(xiě)出來(lái)的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助