【正文】 39。應(yīng)做 :添加 39。mnuViewRefresh_Click39。 代碼 39。 代碼 39。初始化列表 39。設(shè)置樹型控件焦點(diǎn) End Sub 39。 商品操作 39。 , vbInformation End Sub Private Sub mnuBuyDel_Click() lvBuy 39。切換選項(xiàng)卡 = 2 End Sub Private Sub mnuSellAdd_Click() lvSell, g_Account 39。 報(bào)損管理 39。 , vbInformation End Sub 39。 2） Enable 屬性：控制 控件的激活狀態(tài)灰色或可用。命令按鈕的 Click 事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。黑盒測(cè)試又稱功能測(cè)試、數(shù)據(jù)驅(qū)動(dòng)測(cè)試或基于規(guī)格的測(cè)試，也可被稱為用戶測(cè)試，主要用于快速應(yīng)用開發(fā)（ RAD）環(huán)境。 操作順利，新添加用戶可以登錄。 增加時(shí)輸入錯(cuò)誤字段 系統(tǒng)提示輸入錯(cuò)誤，并重新輸入。 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 47 雖然軟件基本達(dá)到設(shè)計(jì)要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在 bug 也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。Persist Security Info=False End Function Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的 visual basic開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。 增加時(shí) 輸入錯(cuò)誤字段 系統(tǒng)提示輸入錯(cuò)誤，并重新輸入。實(shí)際上測(cè)試情況有無窮多個(gè)，人們不僅要測(cè)試所有合法的輸入，而且還要對(duì)那些不合法但是可能的輸入進(jìn)行測(cè)試。兩種測(cè)試方法從不同的角度出發(fā)，反映了 軟件的不同側(cè)面，也適用于不同的開發(fā)環(huán)境。 14） MaskColor 屬性：設(shè)置 /返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色 15） Picture 屬性：設(shè)置返回 mandButton 控件中要顯示的圖片。mnuModifyClientType_Click Case tbnDelClientType 39。 , vbInformation End Sub Private Sub mnuDisposeModify_Click() lvDispose, g_Account 39。 , vbInformation End Sub 39。 銷售管理 39。切換選項(xiàng)卡 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 34 = 1 End Sub Private Sub mnuBuyAdd_Click() lvBuy, g_Account 39。=============================================== Private Sub mnuSystemUser_Click() vbModal End Sub 39。 商品類型操作 39。初始化所有數(shù)據(jù)函數(shù) Private Sub InitMain() 39。ToDo: 添加 39。ToDo: 添加 39。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細(xì)資料 = lvwReport End Select End Sub Private Sub mnuHelpAbout_Click() vbModal, Me End Sub Private Sub mnuViewRefresh_Click() 39。 按鈕代碼。粘貼 39。 MsgBox 添加 39。 按鈕代碼。向前 39。應(yīng)做 :添加 39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 22 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。 登錄 窗口的設(shè)計(jì) 圖片 7 登錄窗口 代碼分析 : Option Explicit Private Declare Function GetUserName Lib 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 15 Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As Long Public OK As Boolean Dim m_Admin As New clsAdmin Dim m_nErrCount As Integer Private Sub Form_Load() m_nErrCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() 39。 每個(gè)窗體的二進(jìn)制數(shù)據(jù)文件（ .frx） ,它含有窗體上控件的屬性數(shù)據(jù)。同時(shí)，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 應(yīng)用現(xiàn)狀調(diào)查 當(dāng)前，很多 農(nóng)村超市 的 進(jìn)銷存 管理都是以紙張為介質(zhì)作記錄，人力管理的比例比較大 ,往往是個(gè)體老板 以書面的形式管理自己 小超市的 賬目 ,效率低下。所以開發(fā)超市進(jìn)銷存系統(tǒng)管理軟件提高管理效率是必然的發(fā)展趨勢(shì)。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。然而，雖然 現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件 。 系統(tǒng)應(yīng)符合 超市 原有的 流程 管理制度，并達(dá)到操作直觀、方便、實(shí)用、安全等要求。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。每個(gè)窗體的文件（ .frm） 一個(gè)或多個(gè)包含 ActiveX 控件的文件 (.ocx), 該文件是可選項(xiàng)。本系統(tǒng)采用多文檔界面，這樣可以使程序更加美觀、整齊有序。close all sub forms 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 19 For i = 1 To 1 Step 1 Unload Forms(i) Next If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End If SaveSetting , Settings, ViewMode, End Sub Private Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 SizeControls End Sub 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 20 Private Sub imgSplitter_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) With imgSplitter .Left, .Top, .Width \ 2, .Height 20 End With = True mbMoving = True End Sub Private Sub imgSplitter_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim sglPos As Single If mbMoving Then sglPos = x + If sglPos sglSplitLimit Then = sglSplitLimit ElseIf sglPos sglSplitLimit Then = sglSplitLimit Else = sglPos End If 超市進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計(jì) 21 End If End Sub Private Sub imgSplitter_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) SizeControls = False mbMoving = False End Sub Private Sub TreeView1_DragDrop(S