【正文】 ??? 39。 create proc editpswd。有關(guān)顯隱性控制、 可訪問性控制 內(nèi)容很多，但很簡單，因此下面都不再敘述了，相關(guān)原始程序代碼請查看原文件 39。Dataset1”產(chǎn)品表“ Dim p As New Point 39。數(shù)據(jù)所在的行號 Dim ds3 As New Public mybind As BindingManagerBase Public check As Integer = 2 39。點擊保存前配件名 Public t2 As String 39。點擊保存前配件名 Public Function save() 39。 (若性能描述無，請在性能描述中填寫品牌 )。使回到原選擇單，方便使用 End If End If End If End If End If End If End If End Function Public Function refre(ByVal name1 As String, ByVal name2 As String) 39。1, ) = 39。1 create proc 配件 。ComboBox1的更新 即配件下拉列框的更新 Dim ds1 As New Dim ada1 As Dim SqlCommand1 As SqlCommand1 = New (產(chǎn)品名 。以下為存儲過程 產(chǎn)品名 。1 as select 產(chǎn)品名 from 產(chǎn)品表 group by 產(chǎn)品名 order by 產(chǎn)品名 查出所有的產(chǎn)品名 ada1 = New (SqlCommand1) (ds1, 產(chǎn)品名 ) = ds1 = 產(chǎn)品名 .產(chǎn)品名 = 產(chǎn)品名 .產(chǎn)品名 End Function Public Function refre_co2() 39。1, ) = 39。1 create proc 品牌名 。ComboBox3的更新 點擊配件名文本框后將出現(xiàn) Dim ds1 As New Dim ada1 As Dim SqlCommand1 As SqlCommand1 = New (產(chǎn)品名 。存儲過程 產(chǎn)品名 。ComboBox4的更新 點擊品牌名文本框后將出現(xiàn) Dim ds2 As New DataSet Dim ada2 As New Dim SqlCommand2 As SqlCommand2 = New (品牌名 。存儲過程 品牌 名 。清空函數(shù) DIY 裝機平臺系統(tǒng) 項目設(shè)計報告 = = = = = End Function 39。對 dategrid1樣式定義 = True = True = False = False 39。配件下拉列框 Call refre_co2() Call resettxt() 39。品牌下拉列框 Call refre(, ) Call resettxt() 39。點擊 datagrid窗體進行選擇之后 Dim sqlmand6 As sqlmand6 = New (產(chǎn)品號 。得到產(chǎn)品號 Dim sqlstri As String sqlstri = select count(*) from 產(chǎn)品表 where 產(chǎn)品號 =_ch_no Dim sqlmand7 As sqlmand7 = New (sqlstri, ) Dim para1 As = (_ch_no, , 40) = ch_no () row_no = () 39。文本綁定 = False = False 39。以下對應(yīng)于點擊了刪除按紐之后 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles DIY 裝機平臺系統(tǒng) 項目設(shè)計報告 Dim i% i = MsgBox(要進行刪除了，你確認刪除？ , , 刪除提示 ) If i = Then () () ( ) Call resettxt() = True = True 39。使回到原選擇單，方便集中刪除 End If End Sub 39。獲得點擊編輯之前配件名，以便點擊保存后進行比較 t2 = () 39。獲得點擊編輯之前型號名，以便點擊保存后進行比較 = False = False 39。以下對應(yīng)于點擊了新增按紐之后 Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles check = 1 對應(yīng)于點擊了新增按紐 (, 產(chǎn)品表 ) mybind = (, 產(chǎn)品表 ) () = False = False = False = False = False 39。以下對應(yīng)于點擊了保存按紐之后 Private Sub Button7_Click(ByVal sender As , ByVal e As ) Handles If check = 1 Then Dim sqlmand10 As sqlmand10 = New (產(chǎn)品號 。得到虛擬產(chǎn)品號 看其是否存在 If ch10 Then MsgBox(此產(chǎn)品已經(jīng)存在于數(shù)據(jù)庫當 中 , , 重復(fù)添加 ) DIY 裝機平臺系統(tǒng) 項目設(shè)計報告 Else Call save() check = 2 End If Else 39。以下字段直至按紐時間末尾對應(yīng)于“選定產(chǎn)品編輯時，修改后的配件名，品牌名，型號名和已存在于產(chǎn)品表中的某一產(chǎn)品重名”，以至在查詢產(chǎn)品號時不唯一的情況， 39。相同，相同的則視為更改了價格或者性能的等同情況，否則查看修改后的配件名，品牌名，型號名是否和產(chǎn)品表中的已有產(chǎn)品重名，重名的給出警告，不重名的順利保存 If t1 = And t2 = And t3 = Then Call save() Else Dim sqlmand11 As sqlmand11 = New (產(chǎn)品號 。得到虛擬產(chǎn)品號 If ch11 Then MsgBox(編輯后的此產(chǎn)品與數(shù)據(jù)庫當中已經(jīng)存在的產(chǎn)品重名，請更改配件名，品牌名或者型號名，以示區(qū)別。以下對應(yīng)于點擊了取消按紐之后 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles check = 2 () () = True End Sub 39。其他的可讀性，可寫性非常繁多，但是比較簡單，不在此敘述了，詳細可見原程序 End Sub Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As , ByVal e As ) Handles = 39。方便輸入品牌名 End Sub 39。使 ComboBox3（配件名）更新后，文本框內(nèi)恢復(fù)原文 字 End Sub 39。使 ComboBox4（ 品牌 名）更新后，文本框內(nèi)恢復(fù)原文字 End Sub 39。產(chǎn)品號用于添加 Dim alno As Integer 39。有一個表 ,產(chǎn)品的信息 , create proc edithead修改案例頭 _t0 int,_t1 varchar(40),_t2 varchar(200) as update 案例表 set 標題 =_t1,說明 =_t2 where 案例號 =_t0 create proc addhead新增案例頭 _t1 varchar(40),_t2 varchar(200) as insert into 案例表 (標題 ,說明 ) values(_t1,_t2) create proc addbody案例產(chǎn)品的新增 t int, tt int, ttt int 案例號 產(chǎn)品號 數(shù)量 as insert into 明細表 (案例號 ,產(chǎn)品號 ,數(shù)量 )values(t,tt,ttt) create proc getno獲取產(chǎn)品號 t1 varchar(40),t2 varchar(50),t3 varchar(40) as select 產(chǎn)品號 from 產(chǎn)品表 where 產(chǎn)品名 =t1 and 品牌名 =t2 and 型號名 =t3 create proc deletehead案例的刪除 t int as delete from 案例表 where 案例號 =t create proc deletebodys案例產(chǎn)品的清空 t int as delete from 明細表 where 案例號 =t DIY 裝機平臺系統(tǒng) 項目設(shè)計報告 Dim ds2 As New 39。有一個表 ,案例 號 ,表中兩列 ,案例號 ,標題 Private Sub editexa_Load(ByVal ???? ( ) 39。1, ) = Dim adstr As = (產(chǎn)品名 , , 50) = myadapter = New (mysqlstr) (ds, 品牌名 ) = ds = 品牌名 .品牌名 = 品牌名 .品牌名 39。對 dategrid2進行初始化，函數(shù)體類似于 FORM２中的 getdatas函數(shù) Call getname()39。獲取案例號 Call getdatas1()39。對 bobox3初始化 () Dim myada As Dim mysql As mysql = New (案例號 。獲得即時案例號 If (案例號 ). 0 Then alno = (案例號 ).Rows().Item(案例號 ) Else : alno = 0 End If End Function Public Function getdatas1() () Dim mysql3 As mysql3 = New (案例頭