【正文】
參考文獻(xiàn)[1] 薩師煊,王珊 數(shù)據(jù)庫系統(tǒng)概論[M]. 高等教育出版社[2] 郝安林,康會光等 SQL server2008基礎(chǔ)教程與實驗指導(dǎo) 清華大學(xué)出版社[3] 陳豫龍 Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 人民郵電出版社[4] 劉藝 Delphi企業(yè)級解決方案及應(yīng)用剖析 機械工藝出版社[5] 楊長春等 Delphi程序設(shè)計教程(第二版) 清華大學(xué)出版社[6] 伊文敏 Delphi + SQL Server數(shù)據(jù)庫應(yīng)用實例完全解析 人民郵電出版社。在使用Delphi提供的ADO數(shù)據(jù)庫操作組件實現(xiàn)了對數(shù)據(jù)的各項操作,也熟悉了delphi的開發(fā)開發(fā)應(yīng)用環(huán)境和軟件開發(fā)的一般流程。最后進(jìn)行系統(tǒng)整體設(shè)計,完成各個前臺窗體設(shè)計和具體的代碼實現(xiàn)。自己從中學(xué)到了很多。六、回顧與展望整個課程設(shè)計到現(xiàn)在已經(jīng)基本結(jié)束,在這次課程設(shè)計中自己遇到了很多問題與困難,通過自己一邊自學(xué)一邊摸索。end。數(shù)據(jù)庫恢復(fù)完成!39。 。USE 工資信息管理系統(tǒng)39。)。39。+39。+39。39。+39。 (39。USE master39。begin 。 end。數(shù)據(jù)庫備份完成!39。 。WITH FORMAT39。39。39。F:\Study\BF\39。39。39。BACKUP DATABASE 工資信息管理系統(tǒng) TO DISK=39。 begin :=ADOConnection1。選擇員工基礎(chǔ)信息,查詢編號為“1003”的員工信息,結(jié)果如下圖:模糊查詢,查詢姓“張”的員工信息,點擊模糊查詢,輸入“張”結(jié)果如下圖:查詢發(fā)放金額的平均值:2)、數(shù)據(jù)庫備份與恢復(fù)設(shè)計在“工資發(fā)放明細(xì)”模塊,添加一個ADOCommand 、ADOCommand控件。,0+64)。,39。 (39。39。39。39。 where zhanghao=39。39。39。Update 操作用戶表 set pword=39。,0+64)。,39。 if (=) and (=) and(length()3) then (39。提示39。!兩次新密碼輸入不同,請重新輸入!39。 end。,0+64)。,39。7)密碼修改模塊主要代碼:和向數(shù)據(jù)庫表中更新操作類似,只是要從登陸頁面獲取員工或管理員的信息,以下附上條件判斷部分:if() then begin (39。 end。)。39。++39。39。 (39。beginwith adoquery1 do begin Close。6)、一般員工身份進(jìn)入查詢信息模塊 每個員工只可以查看自己的一切信息。 end。)。 (39。beginwith adoquery1 do begin Close。end。 Open。select * from 工資發(fā)放明細(xì)表39。 。) 。已成功執(zhí)行存儲過程,相關(guān)數(shù)據(jù)已導(dǎo)入成功。 ExecSQL。exec 工資_明細(xì)39。 。執(zhí)行存儲模塊主要代碼:procedure (Sender: TObject)。而后再通過錄入員工的加班及事假情況,而這次錄入相當(dāng)于更新了該表中的數(shù)據(jù),進(jìn)而促發(fā)了“工資明細(xì)_更新”觸發(fā)器,進(jìn)而自動將員工的所有工資信息進(jìn)行計算,然后將計算的結(jié)果插入到該表對應(yīng)的“shifa”即“實發(fā)金額”列,方便快捷。end。 open。39。39。%39。%39。39。select * from 員工基礎(chǔ)信息表 where Ename like 39。 。)。,39。,39。begin x:=inputBox(39。4)、員工基礎(chǔ)信息模塊 該模塊除了和以上模塊有相似的插入、刪除、更新、查詢的基本功能外,還集合了模糊查詢、嵌套查詢、自身連接、分組查詢。end。 end。 Open。select * from 部門基礎(chǔ)信息表39。 。,0+64)。,39。 (39。).Value:=trim()。 (39。 2:begin :=39。 Open。select * from 部門基礎(chǔ)信息表39。 。,0+64)。,39。 (39。).Value:=trim()。 (39。 case i of 1: begin :=39。39。) then i:=1。 if(trim()39。beginwith adoquery1 do begin Close。end。提示39。添加成功,點擊確定查看39。 end。)。 (39。 Close。).Value := 。 (39。a39。)。 (39。beginwith ADOQuery1 do begin Close。3)、部門信息、基本工資和浮動工資模塊 這三個模塊功能主要有相關(guān)數(shù)據(jù)的插入、刪除、修改、查詢。end。begin