實(shí)驗(yàn)一：身份驗(yàn)證與授權(quán)控制

1、 電子商務(wù)安全技術(shù)上機(jī)實(shí)驗(yàn)實(shí)驗(yàn)一：身份驗(yàn)證與授權(quán)控制一、 實(shí)驗(yàn)?zāi)康耐ㄟ^本實(shí)驗(yàn)，使學(xué)生理解身份驗(yàn)證及訪問控制技術(shù)的原理，掌握它們在應(yīng)用程序設(shè)計(jì)中的應(yīng)用；同時學(xué)習(xí)掌握多層分布式系統(tǒng)結(jié)構(gòu)（C/S或B/S）應(yīng)用程序設(shè)計(jì)方法。二、 實(shí)驗(yàn)要求1、 掌握基于口令的身份驗(yàn)證技術(shù)；2、 掌握應(yīng)用程序設(shè)計(jì)中的用戶訪問授權(quán)控制技術(shù)；3、 掌握多層分布式系統(tǒng)結(jié)構(gòu)（C/S或B/S）應(yīng)用程序設(shè)計(jì)方法。三、 實(shí)驗(yàn)內(nèi)容設(shè)計(jì)一個三層結(jié)構(gòu)的基于口令的身份驗(yàn)證及用戶訪問授權(quán)控制系統(tǒng)。該系統(tǒng)由客戶端程序、應(yīng)用服務(wù)器端程序及后臺數(shù)據(jù)庫等三部分構(gòu)成。1、 后臺數(shù)據(jù)庫：由一個用戶身份數(shù)據(jù)表、一個簡單的用戶訪問授權(quán)表和操作對象數(shù)據(jù)表組成。其

2、中，用戶身份數(shù)據(jù)表至少包括用戶ID、用戶口令字段等字段，用戶訪問授權(quán)表至少包括用戶ID、輸入操作權(quán)限、刪除操作權(quán)限、修改操作權(quán)限、查詢操作權(quán)限等字段，操作對象數(shù)據(jù)表可以有學(xué)生自行設(shè)計(jì)。2、 客戶端程序：包括輸入并向應(yīng)用服務(wù)器端程序提交用戶ID與用戶口令的用戶登錄程序，用戶對數(shù)據(jù)庫數(shù)據(jù)進(jìn)行輸入刪改查詢等操作的數(shù)據(jù)操作程序，其中用戶對數(shù)據(jù)的輸入、刪除、修改、查詢等操作受授權(quán)控制。3、 應(yīng)用服務(wù)器端程序：包括應(yīng)用服務(wù)器程序和用戶身份驗(yàn)證與訪問授權(quán)控制程序。其中用戶身份驗(yàn)證與訪問授權(quán)控制程序?qū)τ脩糨斎氩⑻峤坏挠脩鬒D與用戶口令進(jìn)行驗(yàn)證，并向客戶端用戶登錄程序傳輸驗(yàn)證成功與失敗的標(biāo)志，客戶端用戶登錄程序

3、據(jù)此向用戶提示驗(yàn)證結(jié)果，同時，如果驗(yàn)證成功，還需要向客戶端用戶登錄程序傳輸數(shù)據(jù)操作權(quán)限，由它調(diào)用客戶端的數(shù)據(jù)操作程序并將這些權(quán)限通過參數(shù)傳遞給數(shù)據(jù)操作程序。推薦精選四、 實(shí)驗(yàn)步驟步驟1：設(shè)計(jì)后臺數(shù)據(jù)庫，向各個關(guān)系表輸入數(shù)據(jù)；推薦精選推薦精選步驟2：設(shè)計(jì)應(yīng)用服務(wù)器程序；步驟3：設(shè)計(jì)服務(wù)器端用戶身份驗(yàn)證與訪問授權(quán)控制程序；步驟4：設(shè)計(jì)客戶端用戶登錄程序；推薦精選其中登錄按鈕代碼如下：procedure TForm1.Button1Click(Sender: TObject);var UserID,PW:String; DeleteR,QueryR,UpdateR,ImportR:boolean;b

4、egin UserID :=Edit1.Text; PW :=Edit2.Text; if SalesDM.Users.FindKey(UserID) and (pw=SalesDM.Users.FieldByName(Password).Value) then begin with SalesDM.Rights do begin FindKey(userid); DeleteR:= FieldByName(DeleteRight).Value; QueryR:= FieldByName(QueryRight).Value; UpdateR:= FieldByName(UpdateRight)

5、.Value; ImportR:= FieldByName(ImportRight).Value; end; Form2.button1.Enabled:=DeleteR; Form2.button2.Enabled:=QueryR; Form2.button3.Enabled:=UpdateR; Form2.button4.Enabled:=ImportR; Form2.button5.Enabled:=DeleteR or UpdateR or ImportR;推薦精選 form2.DBGrid1.DataSource.AutoEdit:=DeleteR or UpdateR or Imp

6、ortR; form1.Visible := false; Form2.show; end else application.MessageBox (請輸入正確的用戶名字和密碼！,提示,MB_OK);end;步驟5：設(shè)計(jì)客戶端數(shù)據(jù)操作程序；其中刪除按鈕代碼：procedure TForm2.Button1Click(Sender: TObject);begin salesdm.Products.MoveBy(0); if Messagedlg(確定刪除嗎？,mtConfirmation,mbYes,mbNo,0)=mrYes then salesdm.Products.Delete;end;查

7、詢代碼：procedure TForm2.Button2Click(Sender: TObject);begin salesdm.Products.Active:=false; salesdm.Products.Active:=true;推薦精選end;更新代碼：procedure TForm2.Button3Click(Sender: TObject);begin salesdm.Products.FieldByName(ProductID).AsString := dbedit1.EditText ; salesdm.Products.FieldByName(ProductName).As

8、String := dbedit2.EditText ; salesdm.Products.FieldByName(Price).AsString := dbedit3.EditText ; salesdm.Products.Post ; application.MessageBox (已經(jīng)更新！,提示,MB_OK);end;添加代碼：procedure TForm2.Button4Click(Sender: TObject);begin salesdm.Products.Last ; salesdm.Products.Insert;end;保存代碼：procedure TForm2.Butt

9、on5Click(Sender: TObject);begin salesdm.Products.FieldByName(ProductID).AsString := dbedit1.EditText ; salesdm.Products.FieldByName(ProductName).AsString := dbedit2.EditText ; salesdm.Products.FieldByName(Price).AsString := dbedit3.EditText ; salesdm.Products.Post ; application.MessageBox (已經(jīng)為您保存！,提示,MB_OK);end;步驟6：運(yùn)行應(yīng)用服務(wù)器程序；推薦精選步驟7：運(yùn)行調(diào)試客戶端用戶登錄程序及應(yīng)用服務(wù)器端的應(yīng)用服務(wù)器程序和用戶身份驗(yàn)證與訪問授權(quán)控制程序；使用管理員登錄：賬戶密碼分別為：101和101使用員工登錄：賬戶密碼分別為：102和102推薦精選步驟8：運(yùn)行調(diào)試客戶端數(shù)據(jù)操作程序。五、 實(shí)驗(yàn)結(jié)果調(diào)試完成的可實(shí)現(xiàn)基于口令的身份驗(yàn)證與訪問授權(quán)控制的客戶端與服務(wù)器端程序及后臺數(shù)據(jù)庫。員工登錄只能實(shí)現(xiàn)查詢功能：單價查詢得到數(shù)據(jù)，但無法進(jìn)行編輯：如果使用管理員登錄，這可進(jìn)行對數(shù)據(jù)的修改刪除。推薦精選演示刪除：選擇208數(shù)據(jù)，點(diǎn)擊刪除，會彈出窗口提示是否刪除，點(diǎn)擊確定：看數(shù)據(jù)庫改變，