【正文】 39。1, ) = ada1 = New (SqlCommand1) (ds1, 產(chǎn)品名 ) 39。1給出產(chǎn)品名后 ,查到其所有品牌名 產(chǎn)品名 varchar(40) as select 品牌名 DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 from 產(chǎn)品表 where 產(chǎn)品名 =產(chǎn)品名 group by 品牌名 order by 品牌名 Dim adstr As = (產(chǎn)品名 , , 50) = ada2 = New (SqlCommand2) (ds2, 品牌名 ) = ds2 = 品牌名 .品牌名 = 品牌名 .品牌名 End Function Public Function refre3() 39。以下為存儲過程 品牌名 。ComboBox2的更新 即品牌下拉列框的更新 Dim ds2 As New DataSet Dim ada2 As New Dim SqlCommand2 As SqlCommand2 = New (品牌名 。1 create proc 產(chǎn)品名 。1, ) = 39。1 _產(chǎn)品名 varchar(40), _品牌名 varchar(50) as select 型號名 ,價(jià)格 ,性能 DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 from 產(chǎn)品表 where 產(chǎn)品名 =_產(chǎn)品名 and 品牌名 =_品牌名 給出 產(chǎn)品名 及 品牌名 查詢 Dim par1 As = (_產(chǎn)品名 , , 50) = name1 Dim par2 As = (_品牌名 , , 50) = name2 myadapater1 = New (mysqlstr1) (ds3, 配件 ) = (配件 ) End Function Public Function refre_co1() 39。以下為存儲過程 配件 。對應(yīng)于 datagrid的更新 Dim myadapater1 As Dim mysqlstr1 As () mysqlstr1 = New (配件 。 , , 警告 ) Else If = Then = MsgBox(未填寫價(jià)格 , , 未填寫價(jià)格 ) DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 Else Dim i% i = MsgBox(要保存了，請確認(rèn)你的編輯 , , 保存提示 ) If i = Then () ( ) Dim temp1 As String Dim temp2 As String temp1 = temp2 = Call refre(, ) Call refre_co1() = temp1 = temp2 Call refre(temp1, temp2) 39。保存函數(shù) If () 200 Then MsgBox(性能描述最多為 200字，請精簡你 的描述 , , 描述過長 ) Else If () 20 Then DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 MsgBox(配件名最多為 20字，請精簡你的配件名 , , 配件名過長 ) Else If () 25 Then MsgBox(品牌名最多為 25字，請精簡你的品牌名 , , 品牌名過長 ) Else If () 40 Then MsgBox(型號名最多為 40字，請精簡你的型號名 , , 型號名過長 ) Else If = Or = Or = Or = Then MsgBox(您輸入的信息不完整。點(diǎn)擊保存前品牌名 Public t3 As String 39。check=1對應(yīng)于點(diǎn)擊了新增按紐之后 Public t1 As String 39。窗體移動相關(guān) Dim row_no As New Integer 39。有關(guān)系統(tǒng)自動 生成的 SqlConnection SqlDataAdapter Dataset1的說明 : 39。1更改密碼 tuser varchar(40),tpswd varchar(40) as update 用戶表 set 密碼 =tpswd where 用戶名 =tuser DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 39。對輸入密碼長度進(jìn)行控制 If Len() 20 or Len() 5 Then MsgBox(密碼長度 5到 20為好 !) () End If End Sub 31 產(chǎn)品管理窗口 這個(gè)函數(shù)主要是用來更改用戶自己的密碼 兩個(gè)參數(shù)就是用戶所填的新密碼和確認(rèn)密碼 。重置按鈕 = = End Sub Function editpswd(ByVal tpswd As String, ByVal npswd As String) If tpswd = Or npswd = Then MsgBox(您沒有輸入您的密碼 ) ElseIf tpswd npswd Then MsgBox(您兩次輸入的密碼不一致 ,請重新輸入 ) = = () Else () Dim sqlstr As sqlstr = New (editpswd。1, ) = Dim username1 As = (_temp, , 40) = user Dim tmppswd As String = Dim tmprigt As String = If pswd = tmppswd Then = False = False = False = False = False = False = True = True = True = True = True = True If tmprigt = 超級 Then = True = 76 = 296 = 76 = 328 Else = 76 = 296 End If = user usersname = user Else MsgBox(您輸入的用戶名或密碼有錯(cuò)誤 ) = End If () End If End Function Private Sub Button1_Click(ByVal?????? 39。1找出用戶密碼 _temp varchar(40) as select 密碼 from 用戶表 where 用戶名 =_temp create proc rigt。在 Form８中預(yù)覽方案 If (結(jié)構(gòu) ). = 0 Then MsgBox(您的方案中什么產(chǎn)品也沒有 !) Else Call getmydiy() mydiydatas = mydiy Dim f As New Form8 () End If End Sub ③ 管理登陸窗口 Public Function check(ByVal user As String, ByVal pswd As String) 這個(gè)函數(shù)主要是用來驗(yàn)證用戶名和密碼是否正確，及根據(jù)不同的權(quán)限出現(xiàn)不同的 button If user = Or pswd = Then MsgBox(用戶名和密碼不能為空 ) Else () Dim sqlstr As sqlstr = New (pswd。清空右邊方案中的產(chǎn)品 If (結(jié)構(gòu) ). 0 Then If (MsgBox(確定清空 ?, ) = ) Then () End If Call getmoney() Else MsgBox(沒有產(chǎn)品 ) End If End Sub Private Sub Button3_Click(ByVal ?? 39。 經(jīng)過上面對表中數(shù)據(jù)是否為空進(jìn)行判斷，如果為空則直接添加行。1 _產(chǎn)品名 varchar(40),_品牌名 varchar(50) as select 型號名 ,價(jià)格 ,性能 from 產(chǎn)品表 where 產(chǎn)品名 =_產(chǎn)品名 and 品牌名 =_品牌名 給出 產(chǎn)品名 及 品牌名 查詢 DIY 裝機(jī)平臺系統(tǒng) 項(xiàng)目設(shè)計(jì)報(bào)告 If b = True Then (結(jié)構(gòu) ).Rows(j).Item((結(jié)構(gòu) ).Columns(4).Caption) = (結(jié)構(gòu) ).Rows(j).Item((結(jié)構(gòu) ).Columns(4).Caption) + 1