【文章內容簡介】 100 17 到崗日期 日期型 18 所在部門編號 數(shù)值型 10 19 工作崗位 字符型 40 20 職務 字符型 20 21 員工狀態(tài) 字符型 10 22 合同有效期 字符型 20 23 備注 字符 型 200 24 填表用戶 字符型 20 25 填表日期 日期型 11 （ 3）考勤表 考勤表用來保存員工考勤的基本信息。表結構如下所示 考勤表的結構 編號 字段名稱 數(shù)據(jù)結構 大小 ，說明 1 考勤日期 日期型 8 2 員工編號 整型 4 3 全勤天數(shù) 數(shù)值型 3 4 也差天數(shù) 數(shù)值型 3 5 病假天數(shù) 數(shù)值型 3 6 事假天數(shù) 數(shù)值型 3 7 曠工天數(shù) 數(shù)值型 3 8 法定休假天數(shù) 數(shù)值型 3 9 年休假天數(shù) 數(shù)值型 3 10 倒休假天數(shù) 數(shù)值型 3 11 遲 到時間 整型 單位為分鐘 12 早退時間 整型 單位為分鐘 13 法定節(jié)假日加班 數(shù)值型 3 14 周六日加班 數(shù)值型 3 15 日常加班 數(shù)值型 3 16 備注 備注型 200 （ 4）考評表 考評表用來保存員工每天的工作考評信息，表結構如下所示 考評表的結構 編號 字段名稱 數(shù)據(jù)結構 大小 說明 1 考評月份 字符型 7 2 員工編號 整型 4 3 總體評價 備注型 200 4 獎勵事由 備注型 200 5 獎勵金額 數(shù)值型 10 6 處罰事由 備注型 200 7 處罰金額 數(shù)值型 10 8 備注 備注型 200 （ 5）用戶表 用戶用來保存系統(tǒng)用戶信息，表結構如下所示 用戶表的結構 編號 字段名稱 數(shù)據(jù)結構 大小 ，說明 1 用戶名 字符型 40 12 2 密碼 字符型 40 3 用戶類型 數(shù)值型 1 用戶登錄模塊的實現(xiàn) 用戶要使用這個系統(tǒng)，首先必須通過系統(tǒng)的身份認證，這個過程叫做登錄。這將是登錄模塊的實現(xiàn)過程。 設置登錄表單的屬性 屬性 設置值 AutoCenter T真 Caption 登錄對話框 BackColor 背景顏色 Contro1Box F假 WindowType 1模式 13 設置登錄表單的屬性 控件名稱 屬性 取值 Label1 AutoSize T BackStyle 0 Caption 用戶名 FontBold T ForeColor 255,255,255 Label2 AutoSize T BackStyle 0 Caption 用戶名 FontBold T ForeColor 255,255,255 txtUserName IMEMode 2 txtUserPwd IMEMode 2 passwordChar * cmdOK Caption 確定 cmdCancel Caption 取消 登錄窗口代碼如下： IF ALLTRIM () == 39。39。 Message Box(請輸入用戶名 ) RETURN ENDIF IF ALLTRIM () == 39。39。 Message Box(請輸入密碼 ) RETURN ENDIF SELECT 用戶表 Locate For Allot(用戶名 )=Allot() If Found () == .T. If Allot(密碼 ) == Allot() 入 Message Box(歡迎光臨 , 64, 提示信息 ) Username = 用戶名 14 User Type = 用戶類型 Release this form Else Message Box(密碼不正確 , 16, 錯誤提示 ) End if Else Message Box(用戶名不存在 , 16, 錯誤提示 ) 部門管理模塊的實現(xiàn) 部門管理模塊可以實現(xiàn)以下功能。 （ 1） 系統(tǒng)管理員用戶可以添加部門記錄、修改部門記錄、刪除部門記錄和查看部門記錄。 （ 2） 普通用戶只能查看部門數(shù)據(jù)。 部門管理模塊需要設計部門信息管理表單，用于對部門信息進行管理，包括添加、修改和刪除等操作。 主窗體界面 表單的屬性 屬性 設置值 具體說明 15 Auto Size .T. 自動位于主窗口中央 Back Style 部門管理 設置背景顏色 Caption 159， 206， 253 設置表單的標題條文本 Control Box .F. 設置控制按鈕 window Type 1 在關閉此表單前，不能對其他表單進行操作 表單中的各部分代碼。 Init事件添加代碼如下： =.T. =.F. = = 1 = 1 SELECT 部門表 Go Top (,39。N039。,39。部門 39。) This. Nodes (1).Image=1 Scan (39。N39。+ALLTRIM(STR(上級編號 )),4,39。N39。+ALLTRIM(STR(編號 )),ALLTRIM(名稱 )) This. Nodes (RECNO () +1).Image=1 End scan = .F. = .F. 2 .Tree 控件的 Click 事件添加代碼如下 : Name = Locate For 名稱 = name .Read only = .T. .Read only = .T. = .F. = .F. 16 = .T. Click事件 If == Message Box(請選擇上級部門 ) return Endive .Read Only = .F. .Read Only = .F. = .T. = .T. = .F. = add SELECT 部門表 GO Bottom LOCAL bah bah = 編號 APPEND BLANK .Value = bah + 1 Value = .Value = Val(Right(value, Len(value)1)) Click事件 If .Value = 0 Message Box(不能編 輯根節(jié)點 ,16,提示 ) Return End if .Read Only = .F. .Read Only = .F. = .T. 17 = .T. = .F. = modify 員工信息管理模塊的實現(xiàn) 員工信息管理模塊可以 實現(xiàn)以下功能。 (1)系統(tǒng)管理員用戶可以添加員工記錄、修改員工記錄、刪除員工記錄和查