【正文】 1, ) = Dim par3 As = (_案例號 , ) = alno Dim myadapter3 As myadapter3 = New (mysql3) (ds2, 案例頭 ) 。1, ) = myada = New (mysql) (mydst, 案例號 ) = mydst = 案例號 .標(biāo)題 = 案例號 .標(biāo)題 If (案例號 ). = 0 Then DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 = False = False End If End Function Public Function getalno()39。對 datagrid1及兩個 textbox進(jìn)行初始化 Dim ts1 As New DataGridTableStyle If alno = 0 Then = False = False End If = False = False = False = False = False End Sub Public Function getname()39。對 bobox3初始化 ,mydst Call getalno()39。對 bobox2進(jìn)行初始 化 Call getdatas(, ) 39。對 bobox1進(jìn)行初始化 Dim myadapter As Dim ds As New Dim mysqlstr As mysqlstr = New (品牌名 。有兩個表 ,一個是案例頭 ,一個是案例信息 Dim mydst As New 39。案例號 Dim ds1 As New 39。以下三個事件對應(yīng)于點擊了價格、價格或者性能文本框 Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As ) Handles = False = False End Sub Private Sub TextBox4_GotFocus(ByVal sender As Object, ByVal e As ) Handles = False = False End Sub Private Sub TextBox5_GotFocus(ByVal sender As Object, ByVal e As ) Handles = False = False End Sub End Class 32 推薦方案管理窗口 DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 Dim cmd As Integer Dim cpno As Integer 39。以下對應(yīng)于點擊了品牌名文本框使其可編輯之后 Private Sub TextBox2_GotFocus(ByVal sender As Object, ByVal e As ) Handles Dim t As String t = = True = False Call refre4() = t 39。以下對應(yīng)于點擊了配件名文本框使其可編輯之后 Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As ) Handles Dim t As String t = = True = False DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 Call refre3() = t 39。方便輸入配件名 End Sub Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = 39。以下對應(yīng)于點擊了重置按紐之后 Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles Call resettxt() = False = False 39。 , , 重名添加 ) DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 Else Call save() End If End If End If End Sub 39。1, ) = Dim para_c3_11 As = (_產(chǎn)品名 , , 40) Dim para_c3_12 As = (_品牌名 , , 50) Dim para_c3_13 As = (_型號名 , , 40) = = = Dim ch11 As String () ch11 = () 39。判斷邏輯如下：點擊編輯前先儲存原配件名，品牌名，型號名，點擊保存判斷為編輯后保存后，比較編輯后的配件名，品牌名，型號名是否和原配件名，品牌名，型號名 39。對應(yīng)于編輯的 else 39。1, ) = Dim para_c3_1 As = (_產(chǎn)品名 , , 40) Dim para_c3_2 As = (_品牌名 , , 50) Dim para_c3_3 As = (_型號名 , , 40) = = = Dim ch10 As String () ch10 = () 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 End Sub 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 = False End Sub DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 39。獲得點擊編輯之前品牌名，以便點擊保存后進(jìn)行比較 t3 = () 39。以下對應(yīng)于點擊了編輯按紐之后 Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles t1 = () 39。其他的可讀性，可寫性非常繁多，但是比 較簡單，不在此敘述了，詳細(xì)可見原程序 Dim temp1 As String Dim temp2 As String temp1 = temp2 = Call refre(, ) Call refre_co1() = temp1 = temp2 Call refre(temp1, temp2) 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 End Sub 39。得到行號 (, 產(chǎn)品表 ) mybind = (, 產(chǎn)品表 ) = row_no 1 39。1, ) = Dim para_c3_1 As = (_產(chǎn)品名 , , 40) Dim para_c3_2 As = (_品牌名 , , 50) Dim para_c3_3 As = (_型號名 , , 40) = = = (配件 ).Rows().Item(0) Dim ch_no As New Integer () ch_no = () 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 End Sub DIY 裝機(jī)平臺系統(tǒng) 項目設(shè)計報告 Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As ) Handles 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 End Sub Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細(xì)可見原程序 End Sub Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles 39。以下為窗口載入時 Private Sub exa_ma_Load(ByVal sender As , ByVal e As ) Handles Call refre_co1() Call refre_co2() Dim ts As New DataGridTableStyle = 配件 () (ts) (配件 ).RowHeadersVisible = False (配件 ).ReadOnly = True (配件 ).RowHeaderWidth = 5 (配件 ).GridColumnStyles(型號名 ).Width = 100 (配件 ).GridColumnStyles(價格 ).Width = 45 (配件 ).GridColumnStyles(性能 ).Width = 600 39。1見前面 = ds2 = 品牌名 .品牌名 = 品牌名 .品牌名 End Function Public Function resettxt() 39。1, ) = Dim adstr As = (產(chǎn)品名 , , 50) = ada2 = New (SqlCommand2) (ds2, 品牌名 ) 39。1見前面 = ds1 = 產(chǎn)品名 .產(chǎn)品名 = 產(chǎn)品名 .產(chǎn)品名 End Function Public Function refre4()