【文章內(nèi)容簡介】 tc Varchar 50 特長 gzsj Datetime 8 參加工作時間 gn Int 4 工齡 zp Image 16 照片 ssbm Varchar 50 所屬部門 gz Varchar 10 工種 zw Varchar 10 職務 zc Varchar 20 職稱 jbgz Float 8 基本工資 qtgz Float 8 其它 工資 drsj Datetime 8 調(diào)入時間 jl Varchar 200 簡歷 djrq Datetime 8 登記日期 第 11 頁 共 28 頁 各功能模塊的實現(xiàn) 數(shù)據(jù) 模塊設(shè)計 數(shù)據(jù)模塊窗體主要功能是統(tǒng)一管理數(shù)據(jù)庫訪問組件， 在本系統(tǒng)中，這個模塊是最重要的模塊，其他模塊都要通過這個模塊中的組件訪問數(shù)據(jù)庫， 雖然只有簡單的組件屬性設(shè)置， Delphi自動生成代碼，但是不容有誤。 數(shù)據(jù)模塊如圖 3所示 ： 圖 3 數(shù)據(jù)模塊 此模塊的設(shè)計步驟如下： （ 1）在 Delphi中選擇“ File” /“ New” /“ Data Module”菜單項，新建一個數(shù)據(jù)模塊，命名為“ Data1”。 （ 2）在“ ADO”組件頁中點選“ TADOConnection”組件，添加到窗體上，TADOConnection組件用到連接數(shù)據(jù)庫，其它數(shù)據(jù)庫組件通過它連接數(shù)據(jù)庫。 （ 3）點選 ADOConnection1組件，在“ Object Inspector”窗口中，單擊ConnectionString屬性右側(cè)的【?】按鈕，彈出對話框如圖 4所示。 圖 4 數(shù)據(jù)連接對話框 （ 4）單擊【 Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設(shè) 第 12 頁 共 28 頁 置希望連接 的數(shù)據(jù)，如圖 5 所示。 圖 5 連接屬性對話框 （ 5）選擇“連接”選項卡，設(shè)置連接相關(guān)設(shè)置，如圖 6所示。 圖 6 連接屬性對話框 第 13 頁 共 28 頁 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數(shù)據(jù)庫的連接。 （ 7）在窗體上添加 TADOQuery組件，設(shè)置 Connection為 “ ADOConnection1”。 這里的每個 TADOQuery組件連接一個數(shù)據(jù)表。 登錄 界面的設(shè)計 登錄 界面 主要是用于對用戶進行安全性檢查，以防止非法用戶進入該系統(tǒng)。只有合法的用戶，才可以進入系統(tǒng) 。 驗證 操作員及其密碼。主要是通過對數(shù)據(jù)表中的操作員信息表的查 詢，判斷用戶輸入的密碼是否符合數(shù)據(jù)庫中的信息，如果符合則允許登錄 ；否則會有相應的提示。為了安全本系統(tǒng)會在三次錯誤之后自動關(guān)閉。 圖 7 登錄 界面 此模塊的設(shè)計步驟如下： （ 1）新建一個窗 體 ，命名為“ frm_Login”，設(shè)置 Caption 屬性為“登錄”，設(shè)置 Position 屬性為“ poScreenCenter”。 （ 2）在“ Additional”組件頁中點選“ TImage”組件，添加到窗體上，設(shè)置 Align 屬性為“ alClient”； Stretch 屬性 為“ Tree”，在 Pictuer 屬性中添加圖片。 （ 3）在“ Standard”組件頁中點選“ TEdit”組件，添加到窗體上，設(shè)置 Ctl3D屬性為“ False”；設(shè)置 Text 屬性為空，設(shè)置 Edir2 的 PasswordChar 屬性為“ *”。 （ 4）在“ Additional”組件頁中點選“ TSpeedButton”組件，添加到窗體上，設(shè)置 Caption 屬性分別為“登錄”和“取消”；設(shè)置 Flat 屬性為“ True”。 此模塊 調(diào)用了數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫，然后用 select 語句對操作員信息這張數(shù)據(jù)表 進行操作。對數(shù)據(jù)庫的操作主要由以下代碼實現(xiàn)： with do begin close。 。 第 14 頁 共 28 頁 (39。select * from 操作員信息表 where 操作員名稱 = :a and 操作員密碼 = :b39。)。 //使用 SQL語句檢索數(shù)據(jù)表中的用戶名和密碼 (39。a39。).Value:=trim()。 (39。b39。).Value:=trim()。 open。 end。 這里將輸入的用戶名和密碼與操作員信息表中的操作員名稱和操作員密碼進行比較，如果兩者相同才能進入本系統(tǒng)。 新員工登記模塊設(shè)計 新員工登記模塊，主要用于添加、修改新員工的個人基本信息，如：姓名、性別、民族、文化程度等。新員工登記模塊運行結(jié)果如圖 8 所示。 圖 8 新員工登記模塊 此模塊設(shè)計如下： （ 1）新建一個窗體，命名為“ frm_xygdj”，設(shè)置 Caption屬性為“新員工登記”，設(shè)置 Position 屬性為“ poScreenCenter”。 （ 2）在窗體中添加“ TPanel”組件、“ TGroupBox”組件、“ TEdit”組件、“ TCombobox” 組件、“ TLabel”組件、“ TMaskEdit”組件、“ TMemo”組件、“ TBitbtn” 第 15 頁 共 28 頁 組件、“ TImage”組件，設(shè)置屬性如表 5所示。 表 5 主要組件屬性設(shè)置 組件名稱 所在組件頁 屬性 值 Panel1 Standard Align Bevellnner BevelOuter alClient bvSpace bvLowered Panel2 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Panel3 Standard Align Bevellnner BevelOuter alNone bvSpace bvLowered Groupbox1 Standard Caption 基本信息 Groupbox2 Standard Caption 其它信息 MaskEdit Additional Ctl3D EditMask False !9999/99/00。1。_ Image Additional Align Stretch alClient Ture 此模塊調(diào)用數(shù)據(jù)模塊中的 ADOquery 組件連接數(shù)據(jù)庫中的人事表 。 “保存”按鈕的功能主要是通過 Insert 語句向數(shù)據(jù)庫中插入和添加數(shù)據(jù)，這段 Insert 語句如下： with do begin close。 。 (39。insert 人 事表 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o,:p,:q,:r,:s,:t,:u,:v,:w,:x,:y,:z,:aa,:ab,:ac,:ad,:ae,:af)39。)。 這里需要注意的是在“ insert 人事表 values”后面的括號中的項目數(shù)要與數(shù)據(jù)表中的字段數(shù)目相同，因為這是向數(shù)據(jù)表中依次插入數(shù)據(jù)，如果不相同就會出錯。 在編輯框的 OnChange 事件中添加如下代碼，用來控制保存按鈕的使用，如果沒有完全填寫信息， bitbtn 的 Enabled 屬性就設(shè)置為 false， 則設(shè)置 【保存 】按鈕不可用。 這部分判斷輸入是否為空的實現(xiàn)如下： procedure (Sender: TObject)。 begin if (39。39。) and (39。39。) and (39。39。) and (39。39。) then :=true else :=false。 第 16 頁 共 28 頁 end。 在窗體的 OnShow 事件中添加如下代碼，用來向下拉列 表框（ TCombobox）組件添加數(shù)據(jù)表中的數(shù)據(jù)， 為了避免下拉列表框中出現(xiàn)重復，這里用了 select distinct 語句，以民族為例 。 with do begin close。 。 (39。select distinct 民族 from 民族表 39。)。 open。 end。 while Not do //在不是最后一條記錄時進行循環(huán) begin ((39。 民族39。).Value)。 。 //將指針指向下一條記錄 end。 此模塊中的，婚姻狀況、文化程度等所有下拉列表框的實現(xiàn)都是這樣，這里不再重復。 在一個企業(yè)里，難免會用重名的員工，所以姓名不能作為員工的唯一標識，那么如果用員工編號來做唯一標識，就可以解決這個問題了。 人為的編號也難免會出錯，所以在這里我們設(shè)置單擊“添加”按鈕自動生成員 工編號。 這個功能實現(xiàn)，首先需要使用 select語句在人事表中找到最大的編號，實現(xiàn)如下： begin Close。 。 (39。select max(bh) as ss From 人事表 39。)。 Open。 end。 當然，如果是第一次添加新員工，返回值為空時，編號就由 001開始編排。 If (39。ss39。).Value = null then s :=’ mr’ +39。00139。 第 17 頁 共 28 頁 如果不為空就 需要分情況進行處理，這里實現(xiàn)代碼如下： m:= Trim((39。ss39。).Value) 。 n:= StrToInt(copy(m,4,2)) 。//將 m的值從第 4位取 2位變?yōu)檎? if n9 then s:= s+39。0039。+ InttoStr(n +1) else if n99 then s:=s+39。039。+ InttoStr(n +1) else s:= s+InttoStr(n +1)。 這樣就有效的避免了人為操作的輸入失誤。 工資設(shè)置 模塊設(shè)計 工資設(shè)置模塊主要用于設(shè)置員工的工資信息，此窗體中主要應用的也是基本的 SQL 語句 Insert 向數(shù)據(jù)中插入數(shù)據(jù)。工資設(shè)置模塊運行結(jié)果如圖 9 所示。 圖 9 工資設(shè)置 模塊 1 原文已完。下文為附加文檔，如不需要，下載后可以編輯刪除，謝謝！ 施工組織設(shè)計 本施工組織設(shè)計是本著“一流的質(zhì)量、一流的工期、科學管理”來進行編制的。編制時，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項目部經(jīng)過精心研究、合理組織、充分利用先進工藝，特制定本施工組織設(shè)計。 一、 工程概況 ： 西夏建材城生活區(qū) 2 30住宅樓位于銀川市新市區(qū) ，橡膠廠對面。 本工程由寧夏燕寶房地產(chǎn)開發(fā)有限公司開發(fā)，銀川市規(guī)劃建筑設(shè)計院設(shè)計。 本工程耐火等級二級，屋面防水等級三級，地震防烈度為 8度，設(shè)計使用年限 50 年。 本工程建筑面積 :27樓 。30樓 m2。室內(nèi)地坪177。 以絕對標高 m 為準，總長 27樓 ； 30樓 m?？倢?27樓 ； 30樓 m。設(shè)計室外地坪至檐口高度 00m，呈長方形布置，東西向，三個單元 。 本工程設(shè)計屋面為坡屋面防水采用防水涂料。外墻水泥砂漿抹面，外刷淺灰色墻漆。內(nèi)墻面除衛(wèi)生間 200 300 瓷磚，高到頂外，其余均水泥砂槳罩面，刮二遍膩子；樓梯間內(nèi)墻采用 50 2 厚膠粉聚苯顆粒保溫。地面除衛(wèi)生間 200 200 防滑地磚，樓梯間 50 厚細石砼 1： 1 水泥砂漿壓光外，其余均采用 50 厚豆石砼毛地面。樓梯間單元門采用樓宇對講門，臥室門、衛(wèi)生間門采用木門，進戶門采用保溫防盜門。本工程窗均采用塑鋼單框雙玻窗，開啟窗均加紗扇。本工程設(shè)計為節(jié)能型住宅，外墻均貼保溫板。 本工程設(shè)計為磚混結(jié)構(gòu)，共六層?；A(chǔ)采用 C30 鋼筋砼 條形基礎(chǔ)，上砌 MU30 毛石基礎(chǔ)，砂漿采用 M10 水泥砂漿。一、二、三、四層墻體采用 M10 混合砂漿砌筑 MU15 多孔磚；五層以上采用 混合砂漿砌筑 MU15 多孔磚。 本工程結(jié)構(gòu)中使用主要材料：鋼材： I 級鋼， II 級鋼；砼：基礎(chǔ)墊層 C10，基礎(chǔ)底板、地圈梁、基礎(chǔ)構(gòu)造柱均采用 C30，其余均 C20。 本工程設(shè)計給水管采用 PPR 塑料管，熱熔連接；排水管采用UPVC 硬聚氯乙烯管，粘接；給水管道安裝除立管及安裝 IC 卡水表的管段明設(shè)計外，其余均暗設(shè)。 本工程 設(shè)計采暖為鋼制高頻焊翅片管散熱器。 本工程設(shè)計照明電源采用 BV－ 銅芯線，插座電源等采用BV－ 4 銅芯線；除客廳為吸頂燈外，其余均采用座燈。 二、 施工部署及進度計劃 工期安排 本工程合同計劃開工日期： 2020 年 8 月 21 日，竣工日期：2020 年 7 月 10 日，合同工期 315 天。計劃 2020 年 9 月 15 日前 3 完成基礎(chǔ)工程， 2020 年 12 月 30 日完成主體結(jié)構(gòu)工程， 2020 年 6月 20 日完成裝修工種，安裝工程穿插進行，于 2020 年 7 月 1 日