【正文】 電子。實(shí)用軟件工程教程 高等教育出版社 200411 （英）Ian Sommerville 機(jī)械工業(yè)出版社 200312 美Cantu,U. 在這里我還要感謝和我一起實(shí)習(xí)的同學(xué)，在實(shí)習(xí)的這段時(shí)間里他們給我了很大的幫助。 致謝我首先感謝我的指導(dǎo)老師姜老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。雖然軟件基本達(dá)到設(shè)計(jì)要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的visual basic開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。mnuModifyClientType_Click Case tbnDelClientType 39。切換選項(xiàng)卡 = 4End SubPrivate Sub mnuProviderAdd_Click() lvProviderEnd SubPrivate Sub mnuProviderDel_Click() lvProviderEnd SubPrivate Sub mnuProviderModify_Click() lvProviderEnd SubPrivate Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case tbnAddClientType 39。 供應(yīng)商操作39。, vbInformationEnd Sub39。, vbInformationEnd SubPrivate Sub mnuDisposeModify_Click() lvDispose, g_Account 39。, vbInformationEnd SubPrivate Sub mnuDisposeDel_Click() lvDispose 39。切換選項(xiàng)卡 = 3End SubPrivate Sub mnuDisposeAdd_Click() lvDispose, g_Account 39。 報(bào)損管理39。, vbInformationEnd Sub39。, vbInformationEnd SubPrivate Sub mnuSellModify_Click() lvSell, g_Account 39。, vbInformationEnd SubPrivate Sub mnuSellDel_Click() lvSell 39。切換選項(xiàng)卡 = 2End SubPrivate Sub mnuSellAdd_Click() lvSell, g_Account 39。 銷售管理39。, vbInformationEnd Sub39。, vbInformationEnd SubPrivate Sub mnuBuyModify_Click() lvBuy, g_Account 39。, vbInformationEnd SubPrivate Sub mnuBuyDel_Click() lvBuy 39。切換選項(xiàng)卡 = 1End SubPrivate Sub mnuBuyAdd_Click() lvBuy, g_Account 39。 進(jìn)貨管理39。切換選項(xiàng)卡 = 0End SubPrivate Sub mnuMerchAdd_Click() = 0 lvMerch, GetID()End SubPrivate Sub mnuMerchDel_Click() = 0 lvMerchEnd SubPrivate Sub mnuMerchModify_Click() = 0 lvMerchEnd Sub39。 商品操作39。===============================================Private Sub mnuSystemUser_Click() vbModalEnd Sub39。===============================================39。刪除Private Sub mnuMTypeDel_Click() tvTreeViewEnd Sub39。設(shè)置樹型控件焦點(diǎn) End Sub39。 商品類型操作39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 菜單響應(yīng)函數(shù)39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。將客戶類型顯示到樹型圖中 lvProvider lvMerch lvBuy lvSell lvDisposeEnd Sub39。初始化列表39。初始化所有數(shù)據(jù)函數(shù)Private Sub InitMain()39。 代碼39。ToDo: 添加 39。 代碼39。ToDo: 添加 39。 代碼39。ToDo: 添加 39。 代碼39。ToDo: 添加 39。 代碼。 MsgBox 添加 39。mnuViewRefresh_Click39。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細(xì)資料 = lvwReport End SelectEnd SubPrivate Sub mnuHelpAbout_Click() vbModal, MeEnd SubPrivate Sub mnuViewRefresh_Click() 39。屬性39。 按鈕代碼。應(yīng)做:添加 39。 按鈕代碼。 MsgBox 添加 39。刪除39。 Case 刪除 39。粘貼39。 按鈕代碼。應(yīng)做:添加 39。 按鈕代碼。 MsgBox 添加 39。復(fù)制39。 Case 復(fù)制 39。剪切39。 按鈕代碼。應(yīng)做:添加 39。 按鈕代碼。 MsgBox 添加 39。向前39。 Case 向前 39。返回39。 按鈕代碼。應(yīng)做:添加 39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。設(shè)置 height 屬性 If Then = ( + + ) Else = ( + ) End If = + = = 39。 lblTitle(1).Width = 40 39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。初始化數(shù)據(jù) Call InitMainEnd SubPrivate Sub Form_Unload(Cancel As Integer) Dim i As Integer 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsProvider 39。確定按鈕Private Sub OKButton_Click() OK = True 39。注意以下利用RealString函數(shù)替換去除輸入中的單引號(hào) .ProviderName = RealString() .Introduce = RealString() .Remark = RealString() End WithEnd Sub39。保存數(shù)據(jù)Private Sub SaveValue() 39。用傳入對(duì)象的值更新數(shù)據(jù) With m_obj = .ProviderName = .Introduce = .Remark End With End If End Sub39。如果是新增，則清空所有文本框 39。返回并釋放對(duì)話框 ShowDlg = True Unload Me End Function39。顯示對(duì)話框 OK = False vbModal If OK = False Then ShowDlg = False Exit Function End If 39。對(duì)話框狀態(tài) 39。保存數(shù)據(jù) Set m_obj = obj 39。查看 = False = 關(guān)閉 End SelectEnd Sub39。添加 = True = 確定 Case vtModify 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。顯示狀態(tài)，指添加還是修改39。確定用戶按了OK還是CANCEL按鈕Private m_obj As clsProvider 39。如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對(duì)象 If m_ViewType = vtadd Then Set m_obj = New clsDispose 39。確定按鈕Private Sub OKButton_Click() OK = True 39。操作者賬號(hào) End WithEnd Sub39。注意以下利用RealString函數(shù)替換去除輸入中的單引號(hào) .Count = .Reason = RealString() .Remark = RealString() .MerchandiseID = () 39。保存數(shù)據(jù)Private Sub SaveValue() 39?？蛻纛愋虸d Exit For End If Next i End With End If End Sub39。此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then = End If Next Else 39。設(shè)置控件默認(rèn)值Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer 39。保存數(shù)據(jù) Set obj = m_obj 39。根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus 39。對(duì)話框狀態(tài) If nTypeId = 1 And (Not m_obj Is Nothing) Then m_TypeId = Else m_TypeId = nTypeId End If m_Account = strUser 39。保存數(shù)據(jù) Set m_obj = obj 39。查看 = False = 關(guān)閉 End SelectEnd Sub39。添加 = True = 確定 Case vtModify 39。設(shè)置控件默認(rèn)值 Call SetDefaultValue 39。調(diào)用此對(duì)話框的操作員39。數(shù)據(jù)對(duì)象，用來存儲(chǔ)用戶輸入數(shù)據(jù)Public m_ViewType As gxcViewType 39。 次機(jī)會(huì)，注意密碼區(qū)分大小寫, vbCritical, 登錄 = 0 = Len() Else OK = True g_Account = Account End If End Sub