企業(yè)考勤管理系統(tǒng)的設(shè)計說明書

廣西大學(xué)數(shù)學(xué)與信息科學(xué)學(xué)院《數(shù)據(jù)庫開發(fā)與應(yīng)用》課程設(shè)計報告題目：企業(yè)考勤管理系統(tǒng)班級：信息與計算科學(xué)121學(xué)號：1211100xxx姓名：xxxxx日期：二〇一四年六月一、背景與意義考勤管理系統(tǒng)是企業(yè)單位管理系統(tǒng)中最重要的信息。通過員工考勤考核管理，反映員工在一定階段的工作成績。而我國眾多的企業(yè)都是采用傳統(tǒng)的手工方式記錄企業(yè)員工每日的出勤情況，這種方式繁瑣易錯，準(zhǔn)確性、透明度、實時性差，受人為因素影響過大，增加了企業(yè)的人力資源成本。隨著現(xiàn)代科技的進(jìn)步，利用信息和計算機技術(shù)來進(jìn)行企業(yè)員工考勤的管理也成為現(xiàn)代化企業(yè)運作必不可少的一部分。一個企業(yè)對其職工的正常上下班、延時工作及加班工作進(jìn)行考勤，通過報表的形式輸出，合理調(diào)整員工工作安排，用計算機對考勤數(shù)據(jù)進(jìn)行統(tǒng)計分析處理，得到我們所需要的各種統(tǒng)計報表和考勤原始數(shù)據(jù)，方便了企業(yè)對員工的管理。因此，開發(fā)一個合適的、高質(zhì)量的、界面友好、易于操作的企業(yè)考勤管理系統(tǒng)進(jìn)行企業(yè)員工的考勤管理，對企業(yè)的長遠(yuǎn)發(fā)展有重大的意義。本考勤管理系統(tǒng)的開發(fā)，是為了規(guī)范企業(yè)中考勤的管理工作，為考勤管理部門提供一套高效、快捷的應(yīng)用軟件。使用計算機進(jìn)行考勤信息的處理，具有如下優(yōu)點：及時信息交流，改善管理質(zhì)量通過本系統(tǒng)對考勤信息的規(guī)范管理，可以及時掌握員工的信息，也能讓員工及時了解部門主管發(fā)布的通知信息。方便查詢，提高工作效率。二、需求分析本系統(tǒng)要實現(xiàn)的功能模塊主要有：基本信息設(shè)置模塊、檔案管理模塊、審批模塊、查詢模塊、考勤記錄模塊、匯總統(tǒng)計模塊和系統(tǒng)管理模塊。要求提供數(shù)據(jù)輸入、輸出和整理功能，滿足日常工作的需要；具有查詢、統(tǒng)計等功能，方便用戶快捷使用和管理信息，提高工作效率；采用一定的安全保護措施，應(yīng)分有不同的使用權(quán)限，保證系統(tǒng)的實用性；具有系統(tǒng)備份和恢復(fù)功能，使系統(tǒng)使用者能容易進(jìn)行維護，同時軟件功能完整、運行穩(wěn)定、界面友好、操作簡便。1.對功能的規(guī)定針對企業(yè)的考勤管理業(yè)務(wù)，本系統(tǒng)要實現(xiàn)以下功能：基本信息設(shè)置擁有對系統(tǒng)中的基本信息，包括：部門信息、員工職稱信息、請假類型信息、加班類型信息、出差類型信息的添加、修改、刪除、查詢等操作的功能，當(dāng)大量新的信息需要錄入時，可以通過EXCEL表格導(dǎo)入方式實現(xiàn)，同時也可將相應(yīng)信息分別導(dǎo)出到EXCEL表格中。檔案管理擁有對系統(tǒng)中的員工信息、考勤制度信息、通知信息進(jìn)行增加、修改、刪除、查詢等操作的功能。在錄入員工信息時，輸入員工的身份證號，進(jìn)行回車操作即可自動填充員工性別，年齡，身份屬地，生日信息。當(dāng)有大量新的員工信息、通知信息需要錄入時，可以通過EXCEL表格導(dǎo)入方式實現(xiàn)，同時也可將相應(yīng)信息導(dǎo)出到EXCEL表格中。審批管理擁有對系統(tǒng)中的請假信息、加班信息、出差信息進(jìn)行審批的功能。查詢出相應(yīng)的記錄，對該記錄進(jìn)行審批，審批通過則說明該條請假記錄生效，否則為無效記錄。此功能只有考勤主管和部門主管有操作權(quán)限。查詢管理擁有對系統(tǒng)中員工信息、企業(yè)考勤制度、出勤信息、請假信息、加班信息、出差信息進(jìn)行查詢的功能。可以按照員工編號，姓名，部門名等條件對員工具體信息進(jìn)行模糊/精確查詢?？记谟涗浌芾頁碛袑ζ髽I(yè)員工中的出勤信息、請假信息、加班信息、出差信息進(jìn)行增加、修改、刪除、查詢等操作，同時具有將相應(yīng)信息導(dǎo)出到EXCEL表格中的功能。其中只有可以對出勤信息進(jìn)行操作，當(dāng)有大量員工考勤相關(guān)信息需要錄入時，只有考勤管理員可以通過EXCEL表格導(dǎo)入方式實現(xiàn)。匯總統(tǒng)計管理擁有對考勤情況進(jìn)行統(tǒng)計以及報表查看的功能。選擇某一時間段，可對該時間段員工的考勤信息進(jìn)行統(tǒng)計，其中只有審核通過的請假記錄，加班記錄，出差記錄能夠參與到考勤情況統(tǒng)計中?？梢詫y(tǒng)計過的考勤情況通過報表來查看到具體信息。系統(tǒng)管理擁有密碼修改、用戶管理、系統(tǒng)初始化、數(shù)據(jù)備份/恢復(fù)、日志查看的功能。密碼修改供當(dāng)前登錄用戶修改自己的密碼，修改時需要對新密碼提供二次輸入校對。用戶管理提供用戶的添加，修改，刪除，用戶名使用的是員工的編號。系統(tǒng)初始化將系統(tǒng)中的數(shù)據(jù)都刪除，初始化前需對系統(tǒng)中的數(shù)據(jù)進(jìn)行備份。數(shù)據(jù)備份/恢復(fù)擁有對系統(tǒng)中的數(shù)據(jù)進(jìn)行備份和恢復(fù)的功能。日志查看擁有對使用本系統(tǒng)的用戶的登錄及退出信息進(jìn)行查看的功能，以維護系統(tǒng)的正常操作。2.對性能的規(guī)定為保證本系統(tǒng)能夠長期、安全、穩(wěn)定、可靠、高效的運行，系統(tǒng)須滿足以下性能要求：實用性：本系統(tǒng)應(yīng)能夠系統(tǒng)，便捷，快速的實現(xiàn)對員工作休時間的管理，從而保障企業(yè)的高效運營。操作簡單：本系統(tǒng)應(yīng)適用于不同計算機水平的使用者，系統(tǒng)的操作盡可能簡單易行。技術(shù)先進(jìn)：產(chǎn)品的系統(tǒng)設(shè)計和開發(fā)應(yīng)緊跟計算機的發(fā)展潮流，產(chǎn)用目前較先進(jìn)的設(shè)計思想，利用最先進(jìn)的開發(fā)技術(shù)和開發(fā)工具。安裝使用簡便：服務(wù)器端安裝簡潔明了，客戶機無需再裝任何軟件，可直接使用。適應(yīng)性和可擴充性：應(yīng)能廣泛使用與不同的企業(yè)，開發(fā)過程中，應(yīng)充分考慮可擴充問題。3.數(shù)據(jù)管理能力的要求為保證企業(yè)使用本系統(tǒng)中數(shù)據(jù)的完整性，須滿足以下數(shù)據(jù)管理要求：盡可能減少故障的發(fā)生，保障好數(shù)據(jù)的備份，數(shù)據(jù)的備份采用數(shù)據(jù)庫服務(wù)器的備份功能實現(xiàn)。當(dāng)系統(tǒng)發(fā)生故障時，當(dāng)重新啟動的時候，系統(tǒng)能夠正常運行，若有數(shù)據(jù)遺失，能夠通過備份來還原。要保證數(shù)據(jù)的安全性，只有授權(quán)的人員才能進(jìn)入系統(tǒng)進(jìn)行相應(yīng)的操作。發(fā)現(xiàn)有錯誤的數(shù)據(jù)，及時地進(jìn)行修改。系統(tǒng)總體分析與設(shè)計1.解決方案為企業(yè)中的員工分別分配一個用戶號和密碼及相應(yīng)角色，員工可用該用戶名和密碼登錄進(jìn)入企業(yè)考勤管理系統(tǒng)。不同的角色對應(yīng)有不同的使用權(quán)限：普通員工可以進(jìn)入系統(tǒng)可以對各類信息進(jìn)行查詢，錄入自己的請假，加班及出差的記錄，對考勤的統(tǒng)計報表進(jìn)行查看以及對自己的登錄密碼進(jìn)行修改；部門主管除擁有普通員工所有權(quán)限外，還可對員工信息，通知信息進(jìn)行添加，修改，刪除的操作，對員工輸入的請假，加班，出差記錄進(jìn)行審批，對員工某一階段的考勤進(jìn)行統(tǒng)計；考勤管理員除擁有普通員工所有權(quán)限外，還可對企業(yè)的考勤制度進(jìn)行設(shè)置，對員工的出勤信息進(jìn)行錄入或?qū)耄瑫r也可對員工的請假，加班及出差記錄進(jìn)行批量導(dǎo)入；考勤主管具有系統(tǒng)的完全管理權(quán)限，要定期對系統(tǒng)進(jìn)行檢查和備份，以維護系統(tǒng)的安全。系統(tǒng)設(shè)計分八個模塊：主菜單模塊，登錄模塊，檔案管理模塊，審批管理模塊，查詢管理模塊，考勤記錄管理模塊，匯總統(tǒng)計管理模塊和系統(tǒng)管理模塊。具體的功能結(jié)構(gòu)圖如圖1-1所示。圖3-1企業(yè)考勤管理系統(tǒng)功能結(jié)構(gòu)圖本系統(tǒng)采用Delphi技術(shù)，以及SQLServer數(shù)據(jù)管理技術(shù)進(jìn)行主要的設(shè)計，數(shù)據(jù)庫用SQLServer進(jìn)行設(shè)計和管理。系統(tǒng)使用分三種角色，包括：員工，考勤管理員，部門主管，考勤主管。體現(xiàn)各角色的使用權(quán)限的功能結(jié)構(gòu)圖如圖1-2。圖3-2體現(xiàn)各角色使用權(quán)限的功能結(jié)構(gòu)圖2.數(shù)據(jù)庫設(shè)計Personal(員工信息表)員工信息表主要存放員工的基本信息，具體字段信息如表3-1。表3-1員工信息表字段名稱類型長度碼說明Pno員工編號CHAR14PKP+日期+序號Pname姓名VARCHAR10NotnullDno部門編號CHAR14FKNotnullPTno職務(wù)編號CHAR14FKNotnullIDCard身份證CHAR18ShuDi身份屬地CHAR20Sex性別CHAR2Age年齡INT-Birth生日DATE-Tel號碼VARCHAR20Photo相片VARBINARY50PersonalType(職稱表)職稱表主要存放員工職稱信息，被員工信息表所調(diào)用，具體字段信息如表4-9。表4-9職稱表字段名稱類型長度碼說明PTno職稱編號CHAR14PKPT+序號PTname職稱名稱VARCHAR20NotnullDepartment(部門信息表)部門信息表主要存放部門基本信息，提供給員工信息表調(diào)用，具體字段信息如表4-10。表4-10部門信息表字段名稱類型長度碼說明Dno部門編號CHAR14PKD+序號Dname部門名稱VARCHAR20NotnullIntroduce部門簡介VARCHAR100Attendance(考勤記錄表)考勤記錄表主要存放員工日常的出勤信息，具體字段信息如表4-11。表4-11考勤記錄表字段名稱類型長度碼說明Ano記錄編號CHAR14PKA+日期+序號Pno員工編號CHAR14FKNotnullInOut出入情況CHAR2NotnullATime時間DATETIME-NotnullOverwork(加班記錄表)加班記錄表主要存放員工日常加班的記錄信息，只有主管審批通過后才能生效，才能進(jìn)行相應(yīng)的加班統(tǒng)計，具體字段信息見表4-12。表4-12加班記錄表字段名稱類型長度碼說明Ono記錄編號CHAR14PKO+日期+序號Pno員工編號CHAR14FKNotnullStartTime開始時間DATETIME-EndTime結(jié)束時間DATETIME-OTno加班類型編號CHAR14FKNotnullAPProval審核結(jié)果CHAR1OverworkType(加班類型表)加班類型表主要存放加班類型信息，提供給加班記錄表調(diào)用，具體字段信息如表4-13。表4-13加班類型表字段名稱類型長度碼說明OTno加班類型編號CHAR14PKOT+序號OTname加班類型名VARCHAR20NotnullErrand(出差記錄表)出差記錄表主要存放出差記錄信息，只有主管審批通過后才能生效，才能進(jìn)行相應(yīng)的出差統(tǒng)計，具體字段如表4-14。表4-14出差記錄表字段名稱類型長度碼說明Eno記錄編號CHAR14PKE+日期+序號Pno員工編號CHAR14FKNotnullStartTime開始時間DATETIME-EndTime結(jié)束時間DATETIME-Place出差地點VARCHAR20ETno出差類型編號CHAR14FKNotnullAPProval審核結(jié)果CHAR1ErrandType(出差類型表)出差類型表主要存放加班類型信息，提供給出差記錄表調(diào)用，具體字段信息如表4-15。表4-15出差類型表字段名稱類型長度碼說明ETno出差類型編號CHAR14PKET+序號ETname出差類型名VARCHAR20NotnullLeave(請假記錄表)請假記錄表主要存放請假記錄信息，只有主管審批通過后才能生效，才能進(jìn)行相應(yīng)的請假統(tǒng)計，具體字段如表4-16。表4-16請假記錄表字段名稱類型長度碼說明Lno記錄編號CHAR14PKL+日期+序號Pno員工編號CHAR14FKNotnullStartTime開始時間DATETIME-EndTime結(jié)束時間DATETIME-LTno請假類型編號CHAR14FKNotnullDemo情況說明VARCHAR100APProval審核結(jié)果CHAR1LeaveType(請假類型表)請假類型表主要存放加班類型信息，提供給請假記錄表調(diào)用，具體字段信息如表4-17。表4-17請假類型表字段名稱類型長度碼說明LTno請假類型編號CHAR14PKLT+序號LTname請假類型名VARCHAR20NotnullAttendanceCount(出勤情況統(tǒng)計表)出勤情況統(tǒng)計表主要記錄的是員工出勤，請假，加班，出差的一些統(tǒng)計信息，提供給企業(yè)管理著進(jìn)行查看，具體字段信息如表4-18。表4-18出勤情況統(tǒng)計表字段名稱類型長度碼說明ACno記錄編號CHAR14PKG+日期+序號Pno員工編號CHAR14FKNotnullARno制度編號CHAR14FKNotnullYearMonth年月CHAR7NotnullShouldTime應(yīng)工作時間INT-小時ActualTime實際工作時間INT-小時LeaveTime累計請假時間INT-半天OverworkTime累計加班時間INT-小時ErrandTime累計出差時間INT-半天Late遲到次數(shù)SMALLINT-次LateTime遲到時間累計INT-小時Early早退次數(shù)SMALLINT-次EarlyTime早退時間累計INT-小時Absence曠工次數(shù)SMALLINT-次AbsenceTime曠工時間累計INT-小時Logdb(日志信息表)日志信息表主要記錄的是企業(yè)中的員工登錄到系統(tǒng)以及退出系統(tǒng)的信息，具體字段信息如表4-19。表4-19日志信息表字段名稱類型長度碼說明Logno日志編號INT-PK自動編號Uno用戶編號CHAR14FKNotnullLoginTime登錄時間DATETIME-LogoutTime退出時間DATETIME-Userdb(用戶信息表)用戶信息表主要存儲用戶的信息，其中員工編號作為用戶名進(jìn)行登錄，密碼默認(rèn)為‘123456’，同時也定義了用戶的角色，具體字段信息如表4-20。表4-20用戶信息表字段名稱類型長度碼說明Uno用戶編號CHAR14PKU+日期+序號Pno員工編號CHAR14FKNotnullAuthority角色CHAR2Passwd密碼VARCHAR20默認(rèn)為‘123456’ARegulation(考勤制度表)考勤制度表主要存儲的是企業(yè)的考勤制度，具體字段信息如表4-21。表4-21考勤制度表字段名稱類型長度碼說明ARno制度編號CHAR14PKAR+序號ComeTime上午上班時間TIME-NotnullGooffTimepm上午下班時間TIME-NotnullComeTimepm下午上班時間TIME-NotnullGooffTime下午下班時間TIME-NotnullAmemo考勤制度VARCHAR10000ShuDi(屬地表)屬地表主要存儲的是身份證前6位所對應(yīng)的屬地名稱的信息，錄入員工數(shù)據(jù)中身份證數(shù)據(jù)時快速得出員工性別，年齡，身份屬地，生日信息，減小因手工輸入產(chǎn)生的信息錯誤概率，具體字段信息如表4-22。表4-22屬地表字段名稱類型長度碼說明ID編號CHAR6PKNotnullBM屬地編號CHAR14NotnullDQ屬地名稱VARCHAR30NotnullNotice(通知表)通知表主要存儲的是企業(yè)中的一些通知信息，具體字段信息如表4-23。表4-23通知表字段名稱類型長度碼說明Nno通知編號CHAR14PKN+日期+序號NTime通知時間Datetime-Title通知標(biāo)題VARCHAR30NotnullContent通知內(nèi)容CHAR5000四、系統(tǒng)的實現(xiàn)1.界面設(shè)計系統(tǒng)設(shè)計中的界面設(shè)計不同于一般的平面設(shè)計，擁有自身的設(shè)計特征。網(wǎng)頁設(shè)計應(yīng)時刻圍繞“信息傳達(dá)”這一主題來進(jìn)行。界面力求清晰、準(zhǔn)確、有力地傳達(dá)信息。本系統(tǒng)主要采用的的界面模板主要包括：登錄界面、主菜單界面、基本信息設(shè)置界面、檔案管理界面、查詢管理界面、考勤記錄管理界面、審核管理界面、匯總統(tǒng)計界面、系統(tǒng)管理設(shè)置界面。

（1）.登錄界面運行本系統(tǒng)后，出現(xiàn)如圖4-1的登錄界面，輸入用戶名和密碼，選擇用戶角色，點擊“登錄”按鈕，如果輸入的信息不正確，會有“用戶名或密碼錯誤，請檢查!”的錯誤提醒，如果三次登陸錯誤，會有“你無權(quán)使用本系統(tǒng)!”的錯誤提醒，即每次登錄，最多允許有三次登錄錯誤的機會。當(dāng)所有信息都輸入正確后，可以登錄到主界面，不用的用戶角色進(jìn)入的主界面中的功能菜單不同。登錄界面允許效果圖如圖4-1。4-1登錄界面(2).主菜單界面用戶登錄后，可進(jìn)入到如圖4-2的主菜單界面，在主菜單界面中，用戶可以看到企業(yè)中發(fā)布的通知信息，這有利于讓企業(yè)中的員工盡可能快而全面地掌握企業(yè)中消息的動態(tài)。主菜單界面如圖4-2圖4-2主菜單界面(3).查詢管理界面在主菜單上點擊查詢菜單下的“請假情況查詢”，即可進(jìn)入到如下圖4-3請假情況查詢界面，在界面中輸入員工號或員工姓名、部門名稱、請假類型等信息，以及選擇時間范圍的信息，即可進(jìn)行組合查詢以及模糊查詢。其他信息的查詢功能跟此功能基本一致，在此不再贅述。請假情況查詢界面如圖4-3。圖4-3請假情況查詢界面(4).信息管理界面信息管理界面包括：基本信息設(shè)置界面（圖4-4）、檔案管理界面（圖4-5）、考勤記錄管理界面（圖4-6）。點擊信息管理界面中的“添加”按鈕，相應(yīng)的記錄信息將自動編號，在輸入相應(yīng)信息即可。以員工信息管理為例，點擊“添加”按鈕，編號處將自動填充，編號規(guī)則為：:“P+年月日+001”，輸入省份證號后，回車即可得出性別、年齡、省份屬地、生日等信息，在部門的編輯框處雙擊，即可得出企業(yè)中的部門信息，選擇相應(yīng)的部門，則可在該編輯框中得出相應(yīng)的部門編號，也可手動輸入正確的部門編號，職稱的填寫方式和部門的填寫方式相同，再相應(yīng)地填寫其他信息，點擊保存，如果信息填寫無誤，會有“保存成功！”的提示，添加信息完成。同時也可選中相應(yīng)的員工信息，對其進(jìn)行刪除操作。也可導(dǎo)入/導(dǎo)出Excel表格。其他信息管理的功能跟此功能類似，不再贅述。檔案管理界面如圖4-4。圖4-4檔案管理界面圖4-5基礎(chǔ)信息設(shè)置界面圖4-6考勤記錄管理界面(5).審批界面在主菜單上點擊查詢菜單下的“出差審批”，即可進(jìn)入到出差審批界面，如圖4-7。查詢出相應(yīng)的員工出差信息，覺得員工的出差信息無誤后即可進(jìn)行審批，點擊“確定”按鈕后，會出現(xiàn)“審批完成！”的提示。出差審批界面如圖4-7。圖4-7審批界面(6).統(tǒng)計界面在主菜單上點擊查詢菜單下的“出差審批”，即可進(jìn)入到出差審批界面，如圖4-8。選擇需要統(tǒng)計的起始時間，點擊統(tǒng)計，即可得到員工考勤情況的統(tǒng)計表（統(tǒng)計的信息包括：應(yīng)工作時間（小時），實際工作時間（小時），累計請假時間（半天），累計加班時間（小時），累計出差時間（半天），遲到次數(shù)（次），遲到時間累計（小時），早退次數(shù)（次），早退時間累計（小時），曠工次數(shù)（次），曠工時間累計（小時））。統(tǒng)計需要一些時間，進(jìn)度條會顯示統(tǒng)計的進(jìn)度。統(tǒng)計界面如圖4-8。圖4-8統(tǒng)計界面系統(tǒng)實現(xiàn)關(guān)鍵技術(shù)(1).添加數(shù)據(jù)時自動編號運行系統(tǒng)時，當(dāng)需要新增信息時，點擊“添加”按鈕，即可進(jìn)行自動對記錄的ID進(jìn)行編號，以實現(xiàn)編號的規(guī)范性。添加數(shù)據(jù)時自動編號的代碼如下：自定義函數(shù)：根據(jù)原來編號bh,構(gòu)造新編號：年月日+3位序列。functionxbh(bh:string):string;vard0,d1,c:string;begind0:=copy(bh,2,8); //取8位日期數(shù)碼c:=copy(bh,10,3); //取最后3位數(shù)碼d1:=formatdatetime('yyyymmdd',now); //獲取當(dāng)天日期ifd0<>d1then //如果不是同一天bh:=d1+'001' //構(gòu)造當(dāng)天第一個編號elsebeginc:='00'+inttostr(strtoint(c)+1); //在原來基礎(chǔ)上加1bh:=d1+copy(c,length(c)-2,3); //構(gòu)造編號：日期+3位整數(shù)end;xbh:=bh;end;(2).員工信息管理中“添加”按鈕的點擊事件代碼。procedureTDanganForm.SpeedButton1Click(Sender:TObject);varbm:string;beginifadotable1.IsEmptythenbm:='P'+formatdatetime('yyyymmdd',now)+'001' //構(gòu)造第一個編號elsebeginadotable1.Last;bm:=adotable1['Pno']; //讀取數(shù)據(jù)表末尾記錄的編號bm:='P'+xbh(bm);end;adotable1.Append; //在表尾添加新紀(jì)錄DBedit11.Text:=bm; //在編輯框中填寫新編號DBGrid2.Fields[0].Text:=bm; //在表格框中填寫新編號DBedit12.SetFocus; //將光標(biāo)移到填寫姓名框end;員工信息添加為例，效果如圖4-9。圖4-9員工信息添加頁面(3).輸入身份證號回車顯示其他相關(guān)信息運行系統(tǒng)，添加員工信息時，輸入身份證號，回車即可顯示該身份證號對應(yīng)員工的身份屬地、性別、年齡及生日信息。使用此功能減小了錄入信息的人員因失誤輸入錯誤信息的概率，保證了信息的正確性。運行效果圖如圖5-1所示，具體代碼如下：1.身份證號對應(yīng)編輯框回車事件代碼。procedureTDanganForm.DBEdit13KeyPress(Sender:TObject;varKey:Char);constW:array[1..18]ofinteger=(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1);//位權(quán)A:array[0..10]ofchar=('1','0','x','9','8','7','6','5','4','3','2');//校驗碼Vari,j,S:integer;NewID,shud:string;da:Tdatetime;kk:boolean;beginkk:=(key=#8)or(key=#13)or(key='x')or(key='X')or(key>=#48)and(key<=#57);ifnotkkthenkey:=#0;//鍵盤輸入過濾掉非身份證號碼ifkey=#13thenbeginNewID:=DBedit13.Text;//1.檢查長度ifLength(NewID)<>18thenbeginmessageDlg('輸入的數(shù)字不是18位，請重新輸入!',mtError,[mbOK],0);DBedit13.SetFocus;exit;end;//2.檢查屬地ADOquery1.close;ADOquery1.Parameters.ParamByName('sd').Value:=copy(NewID,1,6); //給動態(tài)SQL語句賦值A(chǔ)DOquery1.open;//打開，查詢記錄ifADOquery1.RecordCount=0then//如果找不到sd相同的記錄beginMessageDlg('前面六位數(shù)字無效，請檢查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;endelseshud:=ADOquery1.FieldByName('DQ').Value;//獲取屬地//3.檢查年年份i:=strtoint(copy(NewID,7,4)); //獲取年份if(i<1900)or(i>2021)thenbeginMessageDlg('年份號碼無效，請檢查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;j:=strtoint(copy(NewID,11,2)); //獲取月份if(j<1)or(j>12)thenbeginMessageDlg('月份號碼無效，請檢查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;s:=strtoint(copy(NewID,13,2));if(s<1)or(s>31)thenbeginMessageDlg('日數(shù)號碼無效，請檢查！',mtinformation,[mbok],0);DBedit13.SetFocus;exit;end;da:=EncodeDate(i,j,s); //構(gòu)造生日//4.檢查校驗碼s:=0;fori:=1to17dobeginj:=StrToInt(NewID[i])*W[i];s:=s+j;end;s:=smod11;ifNewID[18]='X'thenNewID[18]:='x';//將大寫字母X變成小寫字母xifNewID[18]<>A[S]thenbeginmessageDlg('校驗碼錯！請重新輸入!',mtError,[mbOK],0);showmessagefmt('校驗碼錯！應(yīng)該是%s！請重新輸入!',[A[S]]);DBedit13.SetFocus;exit;end;//5.填寫證件的詳細(xì)信息ADOTable1.Edit;DBedit16.Text:=shud; //屬地DBedit17.Text:=formatdatetime('ddddd',da);//生日DBedit18.Text:=formatdatetime('yy',date-da);//年齡ifNewID[17]in['1','3','5','7','9']then //以下是判別性別DBedit15.Text:='男'elseDBedit15.Text:='女';end;end;(4).導(dǎo)出EXCEL表格運行系統(tǒng)時，可以對系統(tǒng)中的相應(yīng)數(shù)據(jù)信息導(dǎo)出到excel表格中，方便用戶使用相應(yīng)的數(shù)據(jù)信息。1.將某個數(shù)據(jù)表導(dǎo)出成Excel表的通用函數(shù)functionExportDBGrid(DBGrid:TDBGrid;SheetName:string):boolean; //直接保存，不顯示EXCELVar c,r,i,j:integer;app:Olevariant;TempFileName,ResultFileName:string;begintryresult:=True;app:=CreateOLEObject('Excel.application');app.WorkBooks.Add(xlWBatWorkSheet);exceptApplication.MessageBox('Excel沒有正確安裝！','警告',MB_OK);result:=False;exit;end;mainForm.SaveDialog1.DefaultExt:='xls';mainForm.SaveDialog1.FileName:=SheetName;ifmainForm.SaveDialog1.ExecutethenTempFileName:=mainForm.SaveDialog1.FileNameelseExit;app.Workbooks.add;app.Visible:=false;Screen.Cursor:=crHourGlass;DBGrid.DataSource.DataSet.First;c:=DBGrid.DataSource.DataSet.FieldCount;r:=DBGrid.DataSource.DataSet.RecordCount;Application.ProcessMessages;fori:=0toc-1doapp.cells(1,1+i):=DBGrid.DataSource.DataSet.Fields[i].DisplayLabel;forj:=1tordobeginfori:=0toc-1doapp.cells(j+1,1+i):=DBGrid.DataSource.DataSet.Fields[i].AsString;DBGrid.DataSource.DataSet.Next;end;ResultFileName:=TempFileName;ifResultFileName=''thenResultFileName:='數(shù)據(jù)導(dǎo)出';ifFileExists(TempFileName)thenDeleteFile(TempFileName);app.Activeworkbook.saveas(TempFileName);app.Activeworkbook.close(false);app.quit;app:=unassigned;end;調(diào)用導(dǎo)出Excel數(shù)據(jù)的函數(shù)，“導(dǎo)出Excel表格”按鈕的點擊事件代碼。procedureTDanganForm.SpeedButton5Click(Sender:TObject);begintryScreen.Cursor:=crHourGlass; //將鼠標(biāo)成沙漏狀main.ExportDBGrid(DBGrid2,'');//調(diào)用函數(shù)導(dǎo)出數(shù)據(jù)finallyScreen.Cursor:=crDefault; //回復(fù)鼠標(biāo)原狀end;end;(5).導(dǎo)入EXCEL表格運行系統(tǒng)時，當(dāng)需要新增大量數(shù)據(jù)時，可以通過導(dǎo)入Excel表格實現(xiàn)批量增加的操作。注意：需要導(dǎo)入的Excel表格中的數(shù)據(jù)一定要與數(shù)據(jù)表中的數(shù)據(jù)類型一致，否則會出現(xiàn)導(dǎo)入失敗的情況。導(dǎo)入Excel表格中數(shù)據(jù)的代碼如下：procedureTDanganForm.SpeedButton9Click(Sender:TObject);varoe:variant;str:string;i,j,n:integer;beginifopendialog1.Executethenopendialog1.DefaultExt:='xls';str:=opendialog1.FileName;oe:=CreateOleObject('Excel.Application');oe.workbooks.open(str);//連接所選定的Excel表n:=oe.Worksheets[1].UsedRange.Rows.Count;//求工作表sheet1中已有數(shù)據(jù)的行數(shù)tryfori:=2tondo//從Excel表第2行開始，逐行讀入(假設(shè)第一行為表頭)beginADoTable2.Append; //添加空記錄forj:=1toADOTable2.fieldcountdoADOTable2.Fields[j-1].Value:=oe.worksheets[1].cells[i,j].value;end;ADoTable2.Refresh;showmessage('導(dǎo)入完畢');exceptshowmessage('數(shù)據(jù)庫錯誤或有重復(fù)編號,請檢查');end;end;(6).組合查詢配合模糊查詢組合查詢配合模糊查詢能夠滿足查詢的各種需求。本系統(tǒng)中多處都實現(xiàn)了組合查詢以及模糊查詢。以查詢請假記錄為例，代碼如下：1.查詢請假記錄，“查詢”按鈕的事件代碼。procedureTSelectForm.SpeedButton3Click(Sender:TObject);varsqlstr:string;begdate:string;enddate:string;beginifComboBox2.Text<>''thenbeginbegdate:=datetostr(DateTimePicker3.date);enddate:=datetostr(DateTimePicker4.date);ifcombobox2.Text='在...日'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andStarTime<'''+datetostr(DateTimePicker3.date+1)+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...前'thensqlstr:='select*fromLeave_Per_DwhereStarTime<='''+begdate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...后'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%'''elseifcombobox2.Text='在...間'thensqlstr:='select*fromLeave_Per_DwhereStarTime>='''+begdate+'''andStarTime<='''+enddate+'''andPnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%''';endelsesqlstr:='select*fromLeave_Per_DwherePnolike''%'+edit4.text+'%''andPnamelike''%'+edit10.Text+'%''andDnamelike''%'+edit9.Text+'%''andLTnamelike''%'+edit17.Text+'%''';ADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add(sqlstr);ADOQuery2.open;end;查詢效果如圖4-10。圖4-10請假查詢效果圖（7）.匯總統(tǒng)計運行本系統(tǒng)時，選擇需要統(tǒng)計的起始時間，點擊統(tǒng)計，即可得到員工考勤情況的統(tǒng)計表（統(tǒng)計的信息包括：應(yīng)工作時間（小時），實際工作時間（小時），累計請假時間（半天），累計加班時間（小時），累計出差時間（半天），遲到次數(shù)（次），遲到時間累計（小時），早退次數(shù)（次），早退時間累計（小時），曠工次數(shù)（次），曠工時間累計（小時））。具體代碼如下：“統(tǒng)計”按鈕事件代碼。procedureTHuizForm.SpeedButton2Click(Sender:TObject);varbm,Pno,ARno:string; //保存員工號i,j,n,counter:integer; //用于循環(huán)和計數(shù)Time:Array[0..3]ofTTime; //保存上下班時間//Hour:array[0..1]ofdouble; //保存上下午工作時間//a:double;Hour:array[0..1]ofinteger;a:integer;StartTime,EndTime:TDate; //保存始末時間TimeStamp,Late_Time,Early_Time,Work_Start,Work_end:TDateTime;//保存中間判斷時間Late,Early,Absent,Leave,Errand:Boolean; //保存判斷結(jié)果WorkHour,OverHour,LeaveHDay,ErrandHDay,LateTime,EarlyTime,AbsentTime,ActualTime:Integer; //保存時間間隔長度LateTimes,EarlyTimes,AbsentTimes:SmallInt;Temp:String;beginTime[0]:=strtotime(DanganForm.ADOTable4['ComeTime']);Time[1]:=strtotime(DanganForm.ADOTable4['GooffTimepm']);Time[2]:=strtotime(DanganForm.ADOTable4['ComeTimepm']);Time[3]:=strtotime(DanganForm.ADOTable4['GooffTime']);Hour[0]:=Round((Time[1]-Time[0])*24); //上午工作時間Hour[1]:=Round((Time[3]-Time[2])*24); //下午工作時間a:=Hour[0]+Hour[1]; //一天工作時間ARno:=DanganForm.ADOTable4['ARno'];StartTime:=DateTimePicker1.Date;EndTime:=DateTimePicker2.Date;begin//提取員工列表T_person.Filtered:=True;T_person.Open;n:=T_person.RecordCount;i:=0;Gauge1.Progress:=0;T_person.First;whilenotT_person.Eofdobegin//獲取出勤記錄Pno:=T_person['Pno'];Q_attend.Close;Q_attend.Parameters.ParamValues['Pno']:=Pno;Q_attend.Parameters.ParamValues['STARTTIME']:=StartTime;Q_attend.Parameters.ParamValues['ENDTIME']:=EndTime+1;Q_attend.Open;Q_attend.First;//初始化WorkHour:=0;LeaveHDay:=0;ErrandHDay:=0;LateTimes:=0;LateTime:=0;EarlyTime:=0;AbsentTime:=0;EarlyTimes:=0;AbsentTimes:=0;ActualTime:=0;OverHour:=0;TimeStamp:=StartTime;whileTimeStamp<EndTime+0.1dobeginif(DayOfWeek(TimeStamp)<>1)and(DayOfWeek(TimeStamp)<>7)thenbeginActualTime:=ActualTime+a;forj:=0to1do //遍歷班次beginLate_Time:=TimeStamp+Time[2*j];Early_Time:=TimeStamp+Time[2*j+1];//判斷是否請假Q(mào)_leave.Close;Q_leave.Parameters.ParamValues['Pno']:=Pno;Q_leave.Parameters.ParamValues['STARTTIME']:=Late_Time;Q_leave.Parameters.ParamValues['ENDTIME']:=Early_Time;Q_leave.Open;Leave:=(Q_leave.RecordCount>0);//判斷是否出差Q_errand.Close;Q_errand.Parameters.ParamValues['Pno']:=Pno;Q_errand.Parameters.ParamValues['STARTTIME']:=Late_Time;Q_errand.Parameters.ParamValues['ENDTIME']:=Early_Time;Q_errand.Open;errand:=(Q_leave.RecordCount>0);ifleavethen //請假Inc(LeaveHDay)elseiferrandthen //出差beginInc(ErrandHDay);WorkHour:=WorkHour+Hour[j];endelse //正常上班beginWork_start:=Late_Time;Work_end:=Early_Time;Late:=True;Absent:=False;//判斷是否遲到while(notQ_attend.Eof)and(Q_attend['IOTime']<=Late_Time)dobeginLate:=(Q_attend['InOut']='O');Q_attend.Next;end;//判斷是否曠工ifLatethenbeginif(notQ_attend.Eof)and(Q_attend['IOTime']<Early_Time)thenbeginWork_start:=Q_attend['IOTime']; //記錄遲到時間LateTime:=LateTime+Round((Work_Start-Late_Time)*24);endelseAbsent:=True;AbsentTime:=AbsentTime+Round((Early_Time-Late_Time)*24);end;Early:=False;//判斷是否早退while(notQ_attend.Eof)and(Q_attend['IOTime']<Early_Time)dobeginEarly:=(Q_attend['InOut']='O');ifEarlythenbeginWork_end:=Q_attend['IOTime'];EarlyTime:=EarlyTime+Round((Early_Time-Late_Time)*24);endelseWork_end:=Early_Time;Q_attend.Next;end;ifAbsentthenInc(AbsentTimes)elsebeginifLatethenInc(LateTimes);ifEarlythenInc(EarlyTimes);WorkHour:=WorkHour+Round((Work_end-Work_start)*24);//計算實際工作時間end;end; //一個班次判斷結(jié)束end; //下一班次end; //是否休息日TimeStamp:=TimeStamp+1; //推進(jìn)一天end; //后一天考勤//統(tǒng)計加班時間Q_overtime.Close;Q_overtime.Parameters.ParamValues['Pno']:=Pno;Q_overtime.Parameters.ParamValues['STARTTIME']:=StartTime;Q_overtime.Parameters.ParamValues['ENDTIME']:=EndTime;Q_overtime.Open;try//OverHour:=7;OverHour:=Q_overtime['SUM'];exceptOverHour:=0;end;//增加/修改考勤記錄ifADOTable1.IsEmptythenbm:='G'+formatdatetime('yyyymmdd',now)+'001'//構(gòu)造第一個編號elsebeginADOTable1.Last;bm:=ADOTable1['ACno']; //讀取數(shù)據(jù)表末尾記錄的編號bm:='G'+dangan.xbh(bm);end;//追加統(tǒng)計記錄ADOTable1.AppendRecord([bm,Pno,ARno,datetostr(DateTimePicker3.date),ActualTime,WorkHour,LeaveHDay,OverHour,ErrandHDay,LateTimes,LateTime,EarlyTimes,EarlyTime,AbsentTimes,AbsentTime]);Inc(i);Gauge1.Progress:=(100*i)divn;T_person.Next;end; //下一個員工考勤end;adoquery1.Refresh;end;效果圖如圖4-7。五、總結(jié)1.設(shè)計心得經(jīng)過幾個月來的設(shè)計，“企業(yè)考勤管理信息系統(tǒng)”已經(jīng)基本設(shè)計完成。在這幾個月的開發(fā)過程中，我獲得了許多從課堂上學(xué)不到得知識，其中我對以下幾點有較深刻的體會。編程中定義的窗體及變量的名稱，一定要規(guī)范，必要時加上注解，標(biāo)準(zhǔn)的定義方式，有助于其他編程人員更易看懂程序代碼，便于以后對系統(tǒng)進(jìn)行維護。在進(jìn)行系統(tǒng)設(shè)計的過程中，要多與老師及同學(xué)進(jìn)行溝通交流，特別是導(dǎo)師的建議，會拓寬自己的思路，一個人想問題難免會存在局限性，應(yīng)認(rèn)真聽取他人給予的意見和建議。編程的方法固然重要，程序的使用界面也要注意美觀，布局要合理，主題要突出，風(fēng)格要統(tǒng)一，要讓用戶使用到系統(tǒng)中的功能時能夠一目了然。在程序編好后，對程序的調(diào)試時極其重要的一步，調(diào)試程序可以逐步完善、修正程序中的錯誤。調(diào)試是一個漫長的過程，需要注意每個使用的細(xì)節(jié)，這樣才能盡量減少BUG的產(chǎn)生。2.設(shè)計的優(yōu)點和不足本次設(shè)計存在以下幾個優(yōu)點：系統(tǒng)界面簡潔明了，操作簡單；數(shù)據(jù)輸入方面，盡量提供給用戶選擇，避免錯誤輸入，產(chǎn)生數(shù)據(jù)上的邏輯錯誤，易于使用；對系統(tǒng)用戶進(jìn)行角色管理，并設(shè)置相應(yīng)權(quán)限，每類用戶只能看到自己權(quán)限范圍內(nèi)的頁面，便于對用戶的操作權(quán)限進(jìn)行管理；系統(tǒng)中多處使用了導(dǎo)入/導(dǎo)出Excel表格，減少了當(dāng)有大量新增數(shù)據(jù)時，需要大量的人力進(jìn)行手動輸入，同時也利于對導(dǎo)出的相應(yīng)信息有其他用處；進(jìn)行考勤統(tǒng)計時，只用選擇同時時間范圍就可以得出每個用戶的考勤統(tǒng)計信息，減少了大量繁雜的計算，同時也避免了由于計算時使用的方法不正確而產(chǎn)生的統(tǒng)計信息錯誤的事件發(fā)生。由于時間倉促，系統(tǒng)還存在著一些問題和不足之處：系統(tǒng)異常處理還不夠完善，還有待改進(jìn)；系統(tǒng)還未實現(xiàn)可以查看用戶登錄后，訪問了哪些模塊，對哪些模塊進(jìn)行了操作等，只實現(xiàn)了查看到用戶的登錄時間和退出時間。參考文獻(xiàn)[1]陳豫龍，何旭洪.Delphi數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航[M].人民郵電出版社，2021.[2]賽奎春，陳紫鴻，宋坤.Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實例應(yīng)用[M].人民郵電出版社，2021.[3]王言行，湯荷美，黃維通.數(shù)據(jù)庫技術(shù)及應(yīng)用[M].北京：高等教育出版社，2021.[4]宋坤,鄒天思.Delphi數(shù)據(jù)庫開發(fā)完全手冊[M].北京：人民郵電出版社,2021-3.[5]劉瑞新，萬朝陽，董淑娟.Delphi程序設(shè)計教程[M].機械工業(yè)出版社[6]嚴(yán)蔚敏，吳偉民.數(shù)據(jù)結(jié)構(gòu)[M].清華大學(xué)出版社，2021.[7]王珊,薩師煊.數(shù)據(jù)庫系統(tǒng)概論[M].北京：高等教育出版社,2021-7.[8]戴志誠.SQLServer2021數(shù)據(jù)庫系統(tǒng)開發(fā)與實例[M].電子工業(yè)出版社，2021.[9]胡超，閆玉寶.SQLServer2021從入門到精髓[M].北京：化學(xué)工業(yè)出版社，2021:1-20.[10]TimFLee．ImplementMIS[M].北京出版社，2021.[11]EfremG,Mallach.SupportandDataWarehouseSystems[M].電子工業(yè)出版社，2021.[12]JeffreyLWhitten,LonnieDBentley,KevinCDittman著.肖剛,孫慧,等譯.系統(tǒng)分析與設(shè)計方法.北京：機械工業(yè)出版社.2021.[13]Besselaar,Peter,van,den,Clement,Andrew,Jearvinen.Informationsystem,workandorganizationdesign[M].North-Holland:North-Holland,1991.50-60.[14]WarrenRachele.LearmObjectPascalWithDelphi[M].WordwarePublishing,2021.[15]ClayShannon.TomesofDelphi:Developer’sGuidetoTroubleshooting[M].WordwarePublishing,2021.

咖啡店創(chuàng)業(yè)計劃書第一部分：背景在中國，人們越來越愛喝咖啡。隨之而來的咖啡文化充滿生活的每個時刻。無論在家里、還是在辦公室或各種社交場合，人們都在品著咖啡?？Х戎饾u與時尚、現(xiàn)代生活聯(lián)系在一齊。遍布各地的咖啡屋成為人們交談、聽音樂、休息的好地方，咖啡豐富著我們的生活，也縮短了你我之間的距離，咖啡逐漸發(fā)展為一種文化。隨著咖啡這一有著悠久歷史飲品的廣為人知，咖啡正在被越來越多的中國人所理解。第二部分：項目介紹第三部分：創(chuàng)業(yè)優(yōu)勢目前大學(xué)校園的這片市場還是空白，競爭壓力小。而且前期投資也不是很高，此刻國家鼓勵大學(xué)生畢業(yè)后自主創(chuàng)業(yè)，有一系列的優(yōu)惠政策以及貸款支持。再者大學(xué)生往往對未來充滿期望，他們有著年輕的血液、蓬勃的朝氣，以及初生牛犢不怕虎的精神，而這些都是一個創(chuàng)業(yè)者就應(yīng)具備的素質(zhì)。大學(xué)生在學(xué)校里學(xué)到了很多理論性的東西，有著較高層次的技術(shù)優(yōu)勢，現(xiàn)代大學(xué)生有創(chuàng)新精神，有對傳統(tǒng)觀念和傳統(tǒng)行業(yè)挑戰(zhàn)的信心和欲望，而這種創(chuàng)新精神也往往造就了大學(xué)生創(chuàng)業(yè)的動力源泉，成為成功創(chuàng)業(yè)的精神基礎(chǔ)。大學(xué)生創(chuàng)業(yè)的最大好處在于能提高自己的潛力、增長經(jīng)驗，以及學(xué)以致用;最大的誘人之處是透過成功創(chuàng)業(yè)，能夠?qū)崿F(xiàn)自己的理想，證明自己的價值。第四部分：預(yù)算1、咖啡店店面費用咖啡店店面是租賃建筑物。與建筑物業(yè)主經(jīng)過協(xié)商，以合同形式達(dá)成房屋租賃協(xié)議。協(xié)議資料包括房屋地址、面積、結(jié)構(gòu)、使用年限、租賃費用、支付費用方法等。租賃的優(yōu)點是投資少、回收期限短。預(yù)算10-15平米店面，啟動費用大約在9-12萬元。2、裝修設(shè)計費用咖啡店的滿座率、桌面的周轉(zhuǎn)率以及氣候、節(jié)日等因素對收益影響較大。咖啡館的消費卻相對較高，主要針對的也是學(xué)生人群，咖啡店布局、格調(diào)及采用何種材料和咖啡店效果圖、平面圖、施工圖的設(shè)計費用，大約6000元左右3、裝修、裝飾費用具體費用包括以下幾種。(1)外墻裝飾費用。包括招牌、墻面、裝飾費用。(2)店內(nèi)裝修費用。包括天花板、油漆、裝飾費用，木工、等費用。(3)其他裝修材料的費用。玻璃、地板、燈具、人工費用也應(yīng)計算在內(nèi)。整體預(yù)算按標(biāo)準(zhǔn)裝修費用為360元/平米，裝修費用共360*15=5400元。4、設(shè)備設(shè)施購買費用具體設(shè)備主要有以下種類。(1)沙發(fā)、桌、椅、貨架。共計2250元(2