【正文】 寫入系統(tǒng)日志 (備份數(shù)據(jù)) Elsefailure: MsgBox 備份失敗! End If End With End SubPrivate Sub M查看日志_Click() vbModal End SubPrivate Sub M打印出庫單_Click() Dim f As New 出庫單 = = = False = False vbModal Unload f End SubPrivate Sub M打印入庫單_Click() Dim f As New 入庫單 = = = False = False vbModal Unload f End SubPrivate Sub M打印月盤點(diǎn)_Click() vbModalEnd SubPrivate Sub M管理查詢_Click() vbModal 更新自定義查詢菜單 End SubPrivate Sub M還原到昨天數(shù)據(jù)庫_Click() On Error GoTo failure If MsgBox(還原數(shù)據(jù)庫將導(dǎo)致現(xiàn)在數(shù)據(jù)庫數(shù)據(jù)丟失,您確信要還原數(shù)據(jù)庫嗎?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub If ResumeData(DataPath, + \) = 1 Then 39。寫入系統(tǒng)日志 (登陸系統(tǒng)) 39。如果已存在記錄則更新 If 0 Then (用戶密碼).Value = UserPas (用戶權(quán)限).Value = Purview Else 39。用戶名 UserPas = 39。ToDo: 創(chuàng)建測(cè)試密碼是否正確 On Error Resume Next 39。我的辛勤努力有了匯報(bào)，終于做出了一個(gè)完整的軟件，雖然這個(gè)軟件的功能并不算得上復(fù)雜，但在實(shí)際的運(yùn)用中，已經(jīng)發(fā)揮了他得價(jià)值，在倉庫工作中，已經(jīng)將我工作得努力轉(zhuǎn)化為生產(chǎn)力。5數(shù)據(jù)恢復(fù)恢復(fù)已備份數(shù)據(jù)庫恢復(fù)結(jié)果與原數(shù)據(jù)庫相符。黑盒測(cè)試方法主要有等價(jià)類劃分、邊值分析、因—果圖、錯(cuò)誤推測(cè)等，主要用于軟件確認(rèn)測(cè)試。圖45 日志管理圖第五章 測(cè)試與分析第一節(jié) 測(cè)試環(huán)境本次實(shí)例測(cè)試是在電信部門的工作現(xiàn)場(chǎng)中完成的。更新庫存狀況 = select * from 庫存狀況 where 貨物編號(hào)= + Str(code1) + and 倉庫編號(hào)= + Str(code2) 39。庫存不足 If num2 num1 Then If MsgBox(庫存不足,庫存量為 + Str(num2) + ,需求量為 + Str(num1) + , + 要忽略它并強(qiáng)制刪除嗎?, vbQuestion Or vbYesNo) = vbNo Then Exit Sub End If 39。用戶名 UserPas = 39。ToDo: 創(chuàng)建測(cè)試密碼是否正確 On Error Resume Next 39。 + ss4 + 39。一般字符的查詢使用 SQL 語句 “SELECT * FROM jiating where 姓名=39。ER數(shù)據(jù)模型是常用的概念設(shè)計(jì)表示模型。規(guī)范設(shè)計(jì)法中比較著名的有新奧爾良（New Orleans）方法。其中在用戶登錄時(shí)，需要經(jīng)過密碼身份驗(yàn)證才能進(jìn)入，并根據(jù)不同的用戶身份，分配不同的使用權(quán)限，進(jìn)入到各自的操作界面。用戶容易理解和使用該系統(tǒng)。對(duì)于大中型企業(yè)來說，利用計(jì)算機(jī)支持企業(yè)高效率完成倉庫管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動(dòng)企業(yè)倉庫管理走向科學(xué)化、規(guī)范化的必要條件；而倉庫管理是一項(xiàng)瑣碎、復(fù)雜而又十分細(xì)致的工作，庫存盤點(diǎn)、報(bào)表的統(tǒng)計(jì)查詢的工作量很大，一般不允許出錯(cuò)，如果實(shí)行手工操作，每月倉庫庫存須手工填制大量的表格，這就會(huì)耗費(fèi)工作人員大量的時(shí)間和精力。制定工作計(jì)劃，研究投資策略，都離不開對(duì)信息的充分利用。因此，如何有效地進(jìn)行數(shù)據(jù)信息的管理和利用，已經(jīng)成為人們普遍關(guān)注的課題。倉庫是成本的重要組成部分，合理、高效的倉庫管理方法，能有效的控制產(chǎn)品成本中的倉庫費(fèi)用，達(dá)到提高企業(yè)經(jīng)濟(jì)效益的目的?？煽啃?。安全保密性。功能結(jié)構(gòu)圖如下：報(bào)表統(tǒng)計(jì)報(bào)表打印貨物出入統(tǒng)計(jì)打印入庫單打印出庫單打印月盤點(diǎn) 圖34 報(bào)表統(tǒng)計(jì)功能模塊結(jié)構(gòu)圖5．系統(tǒng)管理功能在這個(gè)模塊里，我們要實(shí)現(xiàn)一些系統(tǒng)的管理，包括查看日志，數(shù)據(jù)清除，修改密碼，用戶管理和用戶切換功能，這個(gè)模塊是對(duì)系統(tǒng)的總的管理。數(shù)據(jù)庫的邏輯設(shè)計(jì)是分析概念設(shè)計(jì)所得到的概念數(shù)據(jù)模型，并根據(jù)所采用的DBMS的功能和限制，將其轉(zhuǎn)變?yōu)槟苤С值倪壿嬆Ｊ剑?duì)其進(jìn)行優(yōu)化，且用數(shù)據(jù)定義語言DDL或視圖來表示。ER圖則是由實(shí)體、實(shí)體的屬性和實(shí)體之間的聯(lián)系組成[6]。２.　打印查詢后的記錄對(duì)于動(dòng)態(tài)打印，直接使用DataReport是無法實(shí)現(xiàn)的。在命令按鈕單擊寫下連接數(shù)據(jù)庫USER表的判斷語句實(shí)現(xiàn)代碼如下：Private Declare Function GetUserName Lib Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanPrivate Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then = left$(sBuffer, lSize) Else = vbNullString End If 39。找不到該用戶 If Then success = False MsgBox 該用戶不存在!, vbCritical Exit Sub Else 39。具體功能界面如下：圖43 入庫單管理圖具體代碼如下：Private SQL As StringPrivate startcol As IntegerPrivate endcol As IntegerPrivate col, row As IntegerPrivate rowheight As IntegerPrivate colwidth(14) As LongPrivate order(14) As BooleanOption ExplicitPrivate Sub SaveInit() startcol = endcol = col = row = rowheight = Dim i As Integer For i = 0 To 1 colwidth(i) = (i).width Next End SubPrivate Sub ResumeInit() = startcol = endcol col, row = rowheight Dim i As Integer For i = 0 To 1 (i).width = colwidth(i) Next (0).Locked = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = TrueEnd SubPrivate Sub initdatagrid1() (0).width = 500 (1).width = 1000 (2).width = 1000 (3).width = 1000 (4).width = 1000 (5).width = 1000 (6).width = 800 (7).width = 800 (8).width = 800 (9).width = 800 (10).width = 800 (11).width = 800 (12).width = 800 (13).width = 800 (14).width = 800 (0).Locked = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True (6).Locked = True (7).Locked = True (8).Locked = True (9).Locked = True (10).Locked = True (11).Locked = True (12).Locked = True = 270End SubPrivate Sub Adodc1_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) On Error Resume Next = (貨物名稱).ValueEnd SubPrivate Sub B新增入庫單_Click() vbModal SaveInit ResumeInit End SubPrivate Sub DataGrid1_HeadClick(ByVal ColIndex As Integer) On Error Resume Next Dim caption As String caption = (ColIndex).caption If caption = 經(jīng)辦人 Then caption = 姓名 If caption = 金額 Then Exit Sub If caption = 備注 Then caption = If caption = 編號(hào) Then caption = If caption = 供應(yīng)商 Then caption = 供應(yīng)商名稱 If caption = 存放倉庫 Then caption = 倉庫名稱 = SQL + order by + caption order(ColIndex) = True order(ColIndex) If order(ColIndex) = True Then = + ASC Else = + DESC End If SaveInit ResumeInit End SubPrivate Sub Form_Load() = DataConnectString SQL = Set = Adodc1 initdatagrid1 End SubPrivate Sub 打印入庫單_Click() On Error GoTo quit Dim p As New 新增入庫單 = (0).Value vbModal Unload pEnd SubPrivate Sub 刪除入庫單_Click() On Error GoTo quit If (12).Text = 已退出 Then GoTo conIf MsgBox(建議用[退出入庫單],而不要直接刪除,?, vbYesNo Or vbQuestion) = vbNo Then Exit Sub