【文章內容簡介】 () End If End Sub ③ 管理登陸窗口 Public Function check(ByVal user As String, ByVal pswd As String) 這個函數(shù)主要是用來驗證用戶名和密碼是否正確，及根據(jù)不同的權限出現(xiàn)不同的 button If user = Or pswd = Then MsgBox(用戶名和密碼不能為空 ) Else () Dim sqlstr As sqlstr = New (pswd。1, ) = Dim username As = (@_temp, , 40) create proc pswd。1找出用戶密碼 @_temp varchar(40) as select 密碼 from 用戶表 where 用戶名 =@_temp create proc rigt。1找出權限 @_temp varchar(40) as select 權限 from 用戶表 where 用戶名 =@_temp DIY 裝機平臺系統(tǒng) 項目設計報告 = user Dim sqlstr1 As sqlstr1 = New (rigt。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(您輸入的用戶名或密碼有錯誤 ) = End If () End If End Function Private Sub Button1_Click(ByVal?????? 39。登錄按鈕 Call check(Trim(), Trim()) DIY 裝機平臺系統(tǒng) 項目設計報告 End Sub Private Sub Button2_Click(ByVal ?????? 39。重置按鈕 = = 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 username As = (@tuser, , 40) = Dim password As = (@tpswd, , 40) = Trim(tpswd) () MsgBox(成功修改了您的密碼 ) () ??????完成以后，回到修改前窗口的狀態(tài)，只要改變一些控件的 visble屬性就可以了 End If End Function Private Sub TextBox3_LostFocus(ByVal ???? 39。對輸入密碼長度進行控制 If Len() 20 or Len() 5 Then MsgBox(密碼長度 5到 20為好 !) () End If End Sub 31 產品管理窗口 這個函數(shù)主要是用來更改用戶自己的密碼 兩個參數(shù)就是用戶所填的新密碼和確認密碼 。 create proc editpswd。1更改密碼 @tuser varchar(40),@tpswd varchar(40) as update 用戶表 set 密碼 =@tpswd where 用戶名 =@tuser DIY 裝機平臺系統(tǒng) 項目設計報告 39。有關顯隱性控制、 可訪問性控制 內容很多，但很簡單，因此下面都不再敘述了，相關原始程序代碼請查看原文件 39。有關系統(tǒng)自動 生成的 SqlConnection SqlDataAdapter Dataset1的說明 : 39。Dataset1”產品表“ Dim p As New Point 39。窗體移動相關 Dim row_no As New Integer 39。數(shù)據(jù)所在的行號 Dim ds3 As New Public mybind As BindingManagerBase Public check As Integer = 2 39。check=1對應于點擊了新增按紐之后 Public t1 As String 39。點擊保存前配件名 Public t2 As String 39。點擊保存前品牌名 Public t3 As String 39。點擊保存前配件名 Public Function save() 39。保存函數(shù) If () 200 Then MsgBox(性能描述最多為 200字，請精簡你 的描述 , , 描述過長 ) Else If () 20 Then DIY 裝機平臺系統(tǒng) 項目設計報告 MsgBox(配件名最多為 20字，請精簡你的配件名 , , 配件名過長 ) Else If () 25 Then MsgBox(品牌名最多為 25字，請精簡你的品牌名 , , 品牌名過長 ) Else If () 40 Then MsgBox(型號名最多為 40字，請精簡你的型號名 , , 型號名過長 ) Else If = Or = Or = Or = Then MsgBox(您輸入的信息不完整。 (若性能描述無，請在性能描述中填寫品牌 )。 , , 警告 ) Else If = Then = MsgBox(未填寫價格 , , 未填寫價格 ) DIY 裝機平臺系統(tǒng) 項目設計報告 Else Dim i% i = MsgBox(要保存了，請確認你的編輯 , , 保存提示 ) 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。使回到原選擇單，方便使用 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。對應于 datagrid的更新 Dim myadapater1 As Dim mysqlstr1 As () mysqlstr1 = New (配件 。1, ) = 39。以下為存儲過程 配件 。1 create proc 配件 。1 @_產品名 varchar(40), @_品牌名 varchar(50) as select 型號名 ,價格 ,性能 DIY 裝機平臺系統(tǒng) 項目設計報告 from 產品表 where 產品名 =@_產品名 and 品牌名 =@_品牌名 給出 產品名 及 品牌名 查詢 Dim par1 As = (@_產品名 , , 50) = name1 Dim par2 As = (@_品牌名 , , 50) = name2 myadapater1 = New (mysqlstr1) (ds3, 配件 ) = (配件 ) End Function Public Function refre_co1() 39。ComboBox1的更新 即配件下拉列框的更新 Dim ds1 As New Dim ada1 As Di