【正文】 男 39。DELPHI 課程設(shè)計(jì) 第 57 頁 共 132 頁 57 mp39。 end。,mb_yesno+mb_iconquestion)=idyes then begin if ()=false then begin showmessage(39。 begin if (39。 :=()。 :=()。 then :=true。 男 39。 :=()。 DELPHI 課程設(shè)計(jì) 第 55 頁 共 132 頁 55 (())。對(duì)不起，該員工編號(hào)不存在！ 39。 end。,39。39。39。 39。39。39。work_time=39。39。,birthday=39。39。,39。39。39。,link_phone=39。39。,39。39。39。,address=39。39。,39。39。39。,school_age=39。39。,39。39。39。update base_data set worker_name=39。男 39。 end。 DELPHI 課程設(shè)計(jì) 第 52 頁 共 132 頁 52 if ()=true then begin showmessage(39。請(qǐng)選擇一張照片！ 39。 var modsql,path1,sex:string。 end。 except 。 try :=()*3。 var area:trect。 const Rect: TRect。COME_TIME 入本單位時(shí)間 ,REMARK 備注 FROM BASE_DATA39。POLITIC_STATUS 政治面貌 ,LINK_PHONE 聯(lián)系電話 ,DEPARTMENT_NAME39。 +39。 var findsql:string。 begin 。 :=true。 :=true。 :=true。 :=true。 end else if =39。 :=false。 :=false。 :=false。普通用戶 39。 。 。 begin 。 。+。,now)+39。 DELPHI 課程設(shè)計(jì) 第 45 頁 共 132 頁 45 begin :=39。如：當(dāng)單擊“基本信息管理”菜單下的“員工信息查詢后”，程序首先隱藏主窗體 mainfrm，然后顯示被調(diào)窗體。 單擊按鈕可以轉(zhuǎn)到相應(yīng)模塊，進(jìn)行查詢、插入、修改、刪除等操作。Initial Catalog=PERSONNEL_SYS。 二）創(chuàng)建數(shù)據(jù)庫連接類 本程序采用兩級(jí)連接方式連接到服務(wù)器端的數(shù)據(jù)庫。 DELPHI 課程設(shè)計(jì) 第 42 頁 共 132 頁 42 end。 FileStream:=(AFile,fmOpenRead)。 實(shí)現(xiàn)代碼 如下： function GetTextFromFile(AFile:String。) end。 except (39。 。,)。 (39。system39。,39。USER_NAME39。)。 var strCreateDB:string。 三、連接數(shù)據(jù)庫設(shè)置 一）連接數(shù)據(jù)庫并創(chuàng)建用戶表 當(dāng)系統(tǒng)第一次運(yùn)行或者 SQL server 數(shù)據(jù)庫信息有變動(dòng)時(shí)建好，則需彈出數(shù)據(jù)庫連接窗口。39。Option39。,39。 (39。Option39。,39。LastUserName39。,True)。 if =True then begin (39。,mb_ok)。 end else begin (39。 exit。,39。 。對(duì)不起 ,用戶名不能為空 !39。 DELPHI 課程設(shè)計(jì) 第 37 頁 共 132 頁 37 end。 begin try b:=()。 end。)。,39。39。Option39。,39。\39。 如果 中的 AutoLogon 等于 1，則將用戶名和密碼自動(dòng)填 到相應(yīng)編輯框，并將窗體中的“記住用戶名和密碼”標(biāo)記為選中狀態(tài) 否則將用戶名和密碼框清空，并將“記住用戶名和密碼”標(biāo)記為取消狀態(tài)。 ?????? 二、創(chuàng)建登錄窗體 啟動(dòng)畫面消失后，將彈出登錄窗體。 。 end。 begin :=timetostr(now)。應(yīng)用程序初始化的時(shí)候，用戶可從中獲取基本信息。雖然很多數(shù)據(jù)庫都對(duì) SQL語句進(jìn)行了在開發(fā)和擴(kuò)展，但是包括 Select, Update, Delete, Create，以及 Drop 在內(nèi)的標(biāo)準(zhǔn)的 SQL 命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。 SQL 語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。根據(jù)計(jì)算機(jī)的配置和工作環(huán)境，可以做一些時(shí)來提高 Microsoft SQL Server2021 或數(shù)據(jù)庫的性能。 。 創(chuàng)建數(shù)據(jù)庫的步驟 : 。并且由于今天 Windows 操作系統(tǒng)占領(lǐng)著主導(dǎo)地的位，選擇 SQL Server 一定會(huì)在兼容性方面取得一些優(yōu)勢(shì)。 Delphi 提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（ Image Editor ）， 以 及 各種 開 發(fā) 數(shù) 據(jù) 庫 的 應(yīng)用 程 序 ， 如DesktopDataBase Expert 等。它一直是程序員至愛 的編程工具。“真正的程序員用 c，聰明的程序員用 Delphi”，這句話是對(duì) Delphi 最經(jīng)典、最實(shí)在的描述。 通過傳遞 SQL 語句執(zhí)行插入操作 procedure UserUpdate(UpdateSQL:string)。 根據(jù)員工編號(hào)和月份編號(hào)執(zhí)行刪除操作 類 Tusertable 類封裝了對(duì) user_table 表的各種操作，類中定義的方法和過程名稱如 表 表 Tusertable 類封裝的方法和過程 方法或過程名 具體說明 Function Getuserpwd(UserName:string):string。 根據(jù)員工編號(hào)和月份返回備注信息 Function CheckInfoRecs(SQL:string):OLEVariant。 根據(jù)員工編號(hào)和月份返回遲到次數(shù) Function GetleaEartimes(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回出勤天數(shù) Function Getbusinessdays(Id,momth:string):string。 根據(jù)員工編號(hào)和月份返回員工姓名 Function Getmonthdays(Id,momth:string):string。 通過傳遞 SQL語句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 根據(jù)員工編號(hào)返回評(píng)定單位 Function Getassesstitle(Id:string):string。 根據(jù)員工編號(hào)查詢職稱記錄是否存在 Function ProtitleRec1(findSQL:string):Boolean。 通過傳遞 SQL 語句執(zhí)行插入操作 procedure RecUpdate(updateSQL:string)。 通過記錄號(hào)返回備注信息 Function Getrewardcount(month1,month2:string):integer。 通過記錄號(hào)返回批準(zhǔn)單位 procedure Recinsert(insertSQL:string)。 通過記錄號(hào)返回記錄號(hào) Function Getwokename(ReId:string):string。 通過傳遞 SQL 語句返回工資信息記錄 DELPHI 課程設(shè)計(jì) 第 24 頁 共 132 頁 24 表 Twageinfo 類封裝的方法和過程 類封裝了對(duì) reward_pun 表的各種操作，類中定義的方法和過程如 表 。 根據(jù)員工編號(hào)和月份返回失保險(xiǎn)費(fèi)業(yè) Function gethousemoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回扣除的考核費(fèi)用 Function getagedmoney(Id,GiveData:string):string。 根據(jù)員工編號(hào)和月份返回公共補(bǔ)貼信息 Function Getallowance2(Id,GiveData:string):string。 通過傳遞 SQL 語句查詢記錄是否已經(jīng)存在 Function GetRecId(Id,givedata:sting):sting。 通過傳遞 sql 語句執(zhí)行插入操作 procedure recupdate(updatesql:string)。 根據(jù)記錄號(hào)返回員工級(jí)別 function getremark(reid:string):string。 根據(jù)記錄號(hào)返回起始日期 function getoverdate(reid:string):string。 根據(jù)員工編號(hào)和工作單位查詢記錄是否存在 function workagerec1(findsql:string):boolean。 通過傳遞 SQL 語句執(zhí)行插入操作過程 procedure recupdate(updatesql:stirng)。path1:string)。 根據(jù)員工編號(hào)趕回員工聯(lián)系電話 DELPHI 課程設(shè)計(jì) 第 20 頁 共 132 頁 20 function getaddress(workid:string):string。 根據(jù)員工編號(hào)趕回員工畢業(yè)學(xué)校 function getpolista(workid:string):string。 根據(jù)員工編號(hào)趕回員工出生日期 function getnativeplace(workid:string):string。 根據(jù)員工編號(hào)返回員工的檔案編DELPHI 課程設(shè)計(jì) 第 19 頁 共 132 頁 19 號(hào) function getworkername(workid:string):string。用戶帳號(hào)表的具體結(jié)構(gòu)如表 所示。 本系統(tǒng)創(chuàng)建的數(shù)據(jù)庫名為 personnel_sys,單擊開始 /程序/Microsoft SQL Server /企業(yè)管理器，為所使用電腦 SQL Server進(jìn)行注冊(cè)，在控制臺(tái)根目錄 下，右擊‘?dāng)?shù)據(jù)庫’ /新建數(shù)據(jù)庫 /‘常規(guī)’：數(shù)據(jù)庫名稱設(shè)為 personnel_sys/在‘?dāng)?shù)據(jù)文件’和‘事務(wù)日記’ 內(nèi)設(shè)置相應(yīng)的位置、初始大小、文件增長(zhǎng)方式等屬性。用戶登錄操作，用戶登錄操作主要是對(duì)用戶的帳號(hào)（包括用戶名和密碼）進(jìn)行身份驗(yàn)證。 用戶權(quán)限控制無疑是安全中最重要的環(huán)節(jié)； DELPHI 課程設(shè)計(jì) 第 6 頁 共 132 頁 6 其次簡(jiǎn)單實(shí)用的數(shù)據(jù)備份也是系統(tǒng)功能模塊的重要組成部分。員工工作履及管理主要實(shí)現(xiàn)的功能有： DELPHI 課程設(shè)計(jì) 第 5 頁 共 132 頁 5 履歷信息與維護(hù) 員工履歷信息查詢 五、職稱信息管理 員工職稱信息記錄員工的職稱評(píng)定信息，因?yàn)閱T工的職稱高低與工資有直接的關(guān)系，所以員工職稱信息記錄的結(jié)果將直接影響員工的工資水平。 第二節(jié) 系統(tǒng)功能分析 本系統(tǒng)主要包括員工基本信息管理、考勤信息管理、獎(jiǎng)懲信息管理、員工履歷管理、職稱信息管理、員工工資管理等模塊，另外還包括進(jìn)行系統(tǒng)管理的一些輔助模塊，其具體各模塊功能如下： 一、基本信息管理 員工的基本信息包括員工的編號(hào)、員工姓名、員工所 在部門、DELPHI 課程設(shè)計(jì) 第 4 頁 共 132 頁 4 性別、畢業(yè)學(xué)校、專業(yè)、職稱、政治面貌、工作時(shí)間和聯(lián)系方式等。 第三節(jié) 系統(tǒng)功能分析 .................................. 3 一、基本信息管理 ................................... 3 二、考勤信息管理 ................................... 4 三 、獎(jiǎng)懲信息管理 ................................... 4 四、員工履歷管理 ................................... 4 五、職稱信息管理 ................................... 5 六、員工工資管理 ................................... 5 七、系統(tǒng)功能模塊 ................................... 5 第四節(jié) 系統(tǒng)功能模塊設(shè)計(jì) ............................... 7 第五節(jié) 系統(tǒng)的流程分析 ................................. 9 第二章 數(shù)據(jù)庫應(yīng)用程序