【正文】
同時(shí),感謝所有關(guān)心、支持我的老師、同學(xué)們。在他的鼓勵(lì)與耐心的指導(dǎo)下,我的設(shè)計(jì)和論文才能快速、保質(zhì)量完成。但,此次能認(rèn)識(shí)到自己的不足,相信在今后的工作中,能根據(jù)工作的具體要求不斷的修改、完善,爭(zhēng)取使該系統(tǒng)慢慢趨向全面。由于自身的知識(shí)膚淺,經(jīng)驗(yàn)不足。要編一個(gè)功能完善的系統(tǒng),絕不是一件簡(jiǎn)單的事情,這需要長(zhǎng)期的實(shí)踐經(jīng)驗(yàn)積累。圖513系統(tǒng)管理員登錄界面結(jié)束語(yǔ)這是我借鑒開(kāi)發(fā)的第一個(gè)系統(tǒng),開(kāi)發(fā)此系統(tǒng)也是對(duì)以前幾年的學(xué)習(xí)進(jìn)行一個(gè)全方面的檢驗(yàn)。如果數(shù)據(jù)表SysAdmin中不存在該用戶信息或用戶密碼不正確,則進(jìn)入登錄部分。程序?qū)⒔邮沼脩粜畔ⅲM(jìn)行身份驗(yàn)證。圖511用戶修改密碼界面同時(shí),系統(tǒng)管理員可以單擊“管理員入口”超鏈接,進(jìn)入后臺(tái)管理頁(yè)面,其運(yùn)行界面如圖512所示。 ORDER BY sql,conn,1,3 If Not Then InfoName = rs(InfoName) TypeId = rs(TypeId) TypeName = rs(TypeName) CreateDate = rs(CreateDate) iCount = rs(ICount) iPrice = rs(IPrice) Detail = rs(IDetail) CreateDate = rs(CreateDate) End If () End If%167。 InfoNo amp。編輯記錄 If Action = edit Then sql = SELECT i.*, FROM Information i,Types t _ + WHERE = And =39。變量初始化 InfoNo = InfoName = TypeId = 0 TypeName = CreateDate = Date() iCount = 0 iPrice = 0 Detail = CreateDate = Date() 39。圖59內(nèi)部資料信息界面在后臺(tái)管理界面中,管理員還可以添加資料信息,單擊“新建資料信息”超鏈接,如圖510所示。 id Set rs = (sql) h3會(huì)議信息成功刪除/h3 Set rs = Nothing%167。 id sql,Conn,1,3 rs(Subject) = Request(subject) rs(RoomNo)= Request(rno) rs(MDate) = Request(mdate) rs(MTime) = Request(mtime) rs(Preside) = Request(preside) rs(Attendant) = Request(attend) rs(MDetail) = Request(detail) rs(CreateDate) = Date() h3會(huì)議信息成功保存/h3 Else 39。圖57查看會(huì)議信息界面2).添加會(huì)議信息,“新建會(huì)議信息”,其運(yùn)行界面如圖58所示。代碼如下:a href=?action=editamp。 會(huì)議信息界面在主界面中,用戶都可以查看目前的會(huì)議安排信息,單擊“會(huì)議安排”超鏈接,如圖56所示。 End If Else UpperDepName = End If DepName = UpperDepName amp。判斷此部門是否為一級(jí)部門,如果不是,則讀取其上級(jí)部門名稱 If UId0 Then sql = Select * From Departments Where DepId= amp。讀取此部門信息 sql = Select * From Departments Where DepId= amp。變量初始化 Sex = 男 HireDate = Date() State = 在職 Dim EmpId,DepId,DepName,UId,UpperDepName 39。 tid Set rs = (sql) h3培訓(xùn)信息成功刪除/h3 Set rs = Nothing%4).添加員工信息,其運(yùn)行界面如圖55所示。()。不能刪除此培訓(xùn)記錄,請(qǐng)先清空其下的所有報(bào)名信息!39。判斷報(bào)名表中是否存在此培訓(xùn)信息 sql = Select * From TrainingSign Where TrId= amp。圖54添加培訓(xùn)信息界面3).刪除培訓(xùn)信息。設(shè)置SELECT語(yǔ)句,讀取記錄數(shù)據(jù) sql = SELECT * FROM Training WHERE Id= amp。讀取參數(shù)action Set rs = () If Action = edit Then 39。) name=add具體添加代碼如下:% Dim Id,Subject,tTypeId,sTypeId,CreateDate,Detail,Status,Place,Teacher Dim StartDate,EndDate,SignSDate,SignEDate,Attendant,Cost Dim File1,FileName1,File2,FileName2,AttList Dim Action,rs 39?!靶陆ㄅ嘤?xùn)信息”按鈕的定義代碼如下:input type=button value=新建培訓(xùn)信息 onclick=newView(39。 培訓(xùn)信息界面1).查看培訓(xùn)信息在主頁(yè)面點(diǎn)擊最新培訓(xùn)信息之后就可以查看最新培訓(xùn)信息(),此頁(yè)面可顯示及查看最新培訓(xùn)信息,其運(yùn)行界面如圖53所示。圖52主頁(yè)面,、分別用來(lái)處理連接數(shù)據(jù)庫(kù)、用戶身份驗(yàn)證、左側(cè)和右側(cè)的顯示內(nèi)容。 把用戶名和密碼放入Session Session(user_id) = UID Session(user_pwd) = PSWD ()%167。圖51用戶登錄界面當(dāng)用戶輸入用戶名和密碼后,點(diǎn)擊“登錄”按鈕,將提交表單,代碼如下:form method=POST action=,用戶名和密