【正文】 平臺管理者通過登陸確認其身份，管理者權(quán)限分為“超級”用戶和“普通”用戶兩種，“普通”權(quán)限用戶可以進行產(chǎn)品表的管理，推薦方案的管理，更改自己的登陸密碼，“超級”權(quán)限用戶除擁有“普通”權(quán)限用戶的管理權(quán)限外，還可以進入用戶管理界面，對其他用戶進行管理。 ? 瀏覽推薦方案： 點擊 推薦方案，消費者可以瀏覽商家推薦的裝機方案，以便參考后更好地進行自己的消費。 二、 項目 主要功能描述 DYI兼兼 容容 機機 裝裝 機機 平平 臺臺 系系 統(tǒng)統(tǒng) 使用者包括消費者和系統(tǒng)管理者兩個使用群體，下面按照使用群體的不同分別介紹此平臺的各個功能： 針對消費者的功能： ? 消費者自主裝機 ： 通過主界面，消費者能通過“配件”、“品牌”兩個下拉框很快在產(chǎn)品列表中查找到自己想購買的產(chǎn)品類，通過比較后最終選擇自己中意的型號，并添加到自己的裝機方案中，系統(tǒng)會自動統(tǒng)計出總價。DIY 裝機平臺系統(tǒng) 項目設計報告 同濟大學 《數(shù)據(jù)庫技術及應用 》 項目設計 報告 項目設計報告題目： DIY兼容機裝機平臺 小組成員姓名 ： 蘭皓 04133伍志航 041330 班級： 數(shù)據(jù)庫（ 3 ）班 年級： 大 三 專業(yè)： 機械設計制造及其自動化 姓名： 伍志航 學號： 041330 指導教師： 袁科萍 日期： 2020 年 1 月 日 DIY 裝機平臺系統(tǒng) 項目設計報告 項目設計報告 一、 項目 設計目的和意義 項項 目目 名名 稱稱 ：： DYI裝裝 機機 平平 臺臺 系系 統(tǒng)統(tǒng) 項項 目目 設設 計計 目目 的的 和和 意意 義義 ：： DYI裝裝 機機 平平 臺臺 系系 統(tǒng)統(tǒng) 是專為 自助裝機的消費者提供的一個模擬裝機平臺，通過此平臺，商家能及時地把電腦配件的各種動態(tài)的、詳細的產(chǎn)品信息提供給消費者，也可以通過推薦方案功能向消費者進行推薦，而消費者自身也可以通過平臺，全面的比較各個產(chǎn)品，組合出最符合自己需求的兼容機?？傊ㄟ^這個平臺，把產(chǎn)品、消費者、商家整合在一起，給三者的信息的溝通提供一個便利的渠道，免去消費者為了買臺中意 的電腦而四處奔波之苦，使得整個購買過程中價格透明化，此外，也方便商家進行產(chǎn)品管理。對于消費者自己的裝機方案，系統(tǒng)提供預覽和保存到本地功能，方便消費者保存到本地 后進行打印。和產(chǎn)品選擇比較的主界面一樣，此界面也提供保存到本地功能。 ? 產(chǎn)品的管理： 通過此界面， 管理者 可以 實現(xiàn)對產(chǎn)品的新增，刪除，更新， 程序中的各種判別保證數(shù)據(jù)的合法和安全性，此外，為了方便輸入，很多不必要的輸入可以通過選擇實現(xiàn)。 ? 平臺 用戶 的 管理 ： 通過此界面，“超級”用戶 可以對其他用戶進行權(quán)限設置，增加、刪除用戶，此外，“超級”用戶可以查看其他用戶密碼，方便用戶找 回 自己的密碼，特別強調(diào) 的是，雖然“超級”用戶可以查看所有用戶的密碼， 但無權(quán)修改。exists39。exists39。?????? Public usersname As String = Public mydiydatas As String Sub Main()39。對 bobox1進行初始化 Dim myadapter As Dim ds As New Dim mysqlstr As mysqlstr = New (品牌名 。左鍵放下。左鍵拖動。對 bobox2進行初始化 Call getdatas(, ) 39。1, ) = myadapater3 = New (mysqlstr3) (ds3, 結(jié)構(gòu) ) = (結(jié)構(gòu) ) 39。1, ) = Dim adstr As = (產(chǎn)品名 ,.VarChar, 50) = myadapter = New (mysqlstr) create proc 產(chǎn)品名 。1給出產(chǎn)品名后 ,查到其所有品牌名 產(chǎn)品名 varchar(40) as select 品牌名 from 產(chǎn)品表 where 產(chǎn)品名 =產(chǎn)品名 group by 品牌名 order by 品牌名 create proc 結(jié)構(gòu) 。每次都對 bbox２進行賦值 Call getdatas(, ) 39。每次都對 datagrid２進行賦值 End Sub Function getmydiy()39。 我的 DIY裝機方案 amp。 vbCrLf If (結(jié)構(gòu) ). 0 Then Call getmoney() mydiy = mydiy amp。 money amp。 vbCrLf Dim i As Integer Dim j As Integer For i = 0 To (結(jié)構(gòu) ). 139。 (結(jié)構(gòu) ).Columns(j).Caption amp。 (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu)).Columns(j).Caption) amp。 Next mydiy = mydiy amp。 (結(jié)構(gòu) ).Columns(j).Caption amp。 (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu)).Columns(j).Caption) amp。 Next mydiy = mydiy amp。 (結(jié)構(gòu) ).Columns(j).Caption amp。 (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu)).Columns(j).Caption) amp。 此方案總價 :￥ amp。 元 amp。 文件 保存日期 : amp。獲取 ds3中方案的價格 Dim n As Integer Dim mo As Single Dim no As Single money = 0 For n = 0 To (結(jié)構(gòu) ). 1 mo = (結(jié)構(gòu) ).Rows(n).Item((結(jié)構(gòu) ).Columns(3).Caption) no = (結(jié)構(gòu) ).Rows(n).Item((結(jié)構(gòu) ).Columns(4).Caption) DIY 裝機平臺系統(tǒng) 項目設計報告 money = money + mo * no Next = money amp。給 datagrid2賦值 Dim myadapater1 As Dim mysqlstr1 As Dim ds1 As New mysqlstr1 = New (配件 。添加產(chǎn)品按鈕 If (結(jié)構(gòu) ). 0 Then Dim b As Boolean Dim i As Integer Dim j As Integer For i = 0 To (結(jié)構(gòu) ). 1 If (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu) ).Columns(0).Caption) = And (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu) ).Columns(1).Caption) = And (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu) ).Columns(2).Caption) = (, 0) Then b = True j = i Exit For Else b = False End If Next 這個 button 的功能是向右邊添加產(chǎn)品，先判斷被添加的產(chǎn)品是否已存在，是則只更改數(shù)量這一項，否則將選中的產(chǎn)品加到右邊。 create proc 配件 。從右邊方案中刪除選定的產(chǎn)品 If (結(jié)構(gòu) ). = 0 Then MsgBox(您還沒有選擇產(chǎn)品到您自己的方案中 !) Else Dim i As Integer i = If (結(jié)構(gòu)).Rows(i).Item((結(jié)構(gòu) ).Columns(4).Caption) 1 Then (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu) ).Columns(4).Caption) = (結(jié)構(gòu) ).Rows(i).Item((結(jié)構(gòu) ).Columns(4).Caption) 1 Else (結(jié)構(gòu) ).((結(jié)構(gòu) ).(i)) End If End If Call getmoney() 定義一個新的行，并對行 進行賦值，然后用到 的 add() 方法將新行加到 dataset 中去。 DIY 裝機平臺系統(tǒng) 項目設計報告 End Sub Private Sub Button4_Click(ByVal???? 39。保存方案到本地文件夾 Call getmydiy() If (結(jié)構(gòu) ). = 0 Then MsgBox(您的方案中什么產(chǎn)品也沒有 !) Else Dim diaRes As DialogResult = () If (diaRes = ) Then Else If Then FileOpen(1, , ) Print(1, mydiy) FileClose(1) End If End If End If End Sub DIY 裝機平臺系統(tǒng) 項目設計報告 Private Sub Button5_Click(ByVal ???? 39。1, ) = Dim username As = (_temp, , 40) create proc pswd。1找出權(quán)限 _temp varchar(40) as select 權(quán)限 from 用戶表 where 用戶名 =_temp DIY 裝機平臺系統(tǒng) 項目設計報告 = user Dim sqlstr1 As sqlstr1 = New (rigt。登錄按鈕 Call check(Trim(), Trim()) DIY 裝機平臺系統(tǒng) 項目設計報告 End Sub Private Sub Button2_Click(ByVal ?????? 39。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 ?