【文章內(nèi)容簡介】 的關(guān)系 ,為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。這些實(shí)體包含各種具體信息 ,通過相互之間的作用形成數(shù)據(jù)的流動。 根據(jù)上面的設(shè)計(jì)規(guī)出的實(shí)體有 :員工基本信息實(shí)體 ,員工考勤信息實(shí)體 ,員工工作評價信息實(shí)體 ,員工工資 信息實(shí)體 ,人事變動實(shí)體 ,部門管理實(shí)體。 實(shí)體與實(shí)體之間的 ER 模型如圖 33 所示。 － － 10 n 1 1 1 1 1 1 1 1 m 圖 33 實(shí)體間的 E– R 模型 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì) 根據(jù)實(shí)體間 E – R 模型的需求分析 ,本系統(tǒng)需要 2 個數(shù)據(jù)表分別來存放部門 屬于 員工 考勤管理 員工評價 員工考勤 員工評價 計(jì)算工資 員工工資 人事變動 人員變動 1 － － 11 員工個人信息和人事變動記錄 ,并需要一個外部數(shù)據(jù)表 (部門管理表 )的支持。另外設(shè)計(jì)工資管理 ,考勤管理 ,員工評價 3 個表來管理員工數(shù)據(jù)。具體數(shù)據(jù)表的設(shè)計(jì)如下面的表格所示。 表 31 員工檔案信息表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 ygid Varchar 10 Not null 工號 ygname Varchar 20 Not null 姓名 sex Char 10 Not null 性別 age Varchar 3 Not null 年齡 birth Datetime 8 null 出生日期 address Varchar 50 null 地址 tel Varchar 15 null 電話 politic Varchar 50 null 政治面貌 school Varchar 50 null 畢業(yè)院校 ygidentity Varchar 20 null 身份證號 department Varchar 50 null 所在部門 text Text 16 null 備注 表 32 員工評價表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 pjid Varchar 10 Not null 工號 pjname char 8 Not null 姓名 attitude char 20 null 工作態(tài)度 publish char 40 null 獎勵及處罰 Level1 Varchar 40 null 技術(shù)水平 text Text 16 null 備注 department Varchar 50 Not null 部門 pdate Datetime 8 Not null 日期 － － 12 表 33 部門管理表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 dpid Varchar 10 Not null 編號 dpname varchar 20 Not null 部門名稱 manage Varchar 10 Not null 部門經(jīng)理 表 34 考勤管理表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 kqid Varchar 8 Not null 工號 kqname Varchar 20 Not null 姓名 kqdate Datetime 8 Not null 考勤日期 kqdays Bigint 8 Not null 本月天數(shù) kqrday Numeric 5 null 公休天數(shù) kqtday Numeric 5 Not null 出勤天數(shù) kqwork Numeric 5 Not null 出勤 kqabsent Numeric 5 null 缺勤 kqrest Numeric 5 null 年休 kqleave Numeric 5 null 請假 kqlate Numeric 5 null 遲到 kqearly Numeric 5 null 早退 kqfet Numeric 5 null 忘訂卡 Kqover1 Numeric 5 null 加班 Kqover2 Numeric 5 null 其它加班 kqfill Numeric 5 null 補(bǔ)休天數(shù) kqgo Numeric 5 null 出差 kqpay Numeric 5 null 加班費(fèi) kqdeduct Numeric 5 null 扣考核 kqother Varchar 20 null 其它 kqremark Text 16 null 備注 － － 13 表 35 人事變動表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 id Varchar 10 Not null 事件編號 Case1 Text 16 Not null 事件 text Text 16 Not null 備注 表 36 管理員表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 name char 20 Not null 用戶名 password char 8 Not null 密碼 表 37 工資管理表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 gzid Varchar 10 Not null 工號 gzname Varchar 8 Not null 姓名 salary Money 8 Not null 底薪 award Money 8 null 獎金 attach Money 8 null 補(bǔ)貼 workelse Money 8 null 加班 old Money 8 null 養(yǎng)老金 medical Money 8 null 醫(yī)療保險 public Money 8 null 公積金 True1 Money 8 null 實(shí)發(fā)工資 month Datetime 8 null 月份 本章小結(jié) 本章首先分析了整個系統(tǒng)的功能 ,接下來根據(jù)這些功能模塊繪制數(shù)據(jù)流程圖和 ER 圖 ,并在這些基礎(chǔ)之上創(chuàng)建系統(tǒng)數(shù)據(jù)庫的數(shù)據(jù)表。 － － 14 第 4 章 系統(tǒng)詳細(xì)設(shè)計(jì) 系統(tǒng)模塊的具體實(shí)現(xiàn) 系統(tǒng)的主界面 企業(yè)人事管理系統(tǒng)的主界面采用多重窗體 (MDI),使系統(tǒng)更加美觀 ,方便實(shí) 用 .在登陸主界面之前 ,首先登記用戶管理窗體 : 圖 41 系統(tǒng)登陸流程圖 打開 VB 后，單擊 File|New Project 菜單，在工程模版中選擇 Standard EXE,將自動產(chǎn)生一個窗體，屬性都是缺省設(shè)置。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項(xiàng)目命名為 Renshi_MIS。 用戶登陸 用 戶 名及密碼 正確 進(jìn)入主界面 非法用戶 重新輸入 退出 Y N Y N － － 15 這個項(xiàng)目我們使用多文檔界面，單擊工具欄中的 ADD MDI Form 按扭，產(chǎn)生一個窗體。在窗體上添加所需控件。創(chuàng)建好的窗體如圖 42 所示。 圖 42 系統(tǒng)的主界面 在主界面中 ,員工管理菜單是此系統(tǒng)的重要組成部份 ,其中包括 4 個主要功能模塊 :員工基本信息模塊 ,員工考勤模塊 ,員工評價模塊和員工工資管理模塊。 在編寫程序的具體代碼之前首先要創(chuàng)建公用模塊 ,VB 中可以用公用模塊來存放整個工程項(xiàng)目公用的函數(shù) ,過程和全局變量等。這樣可以極大的提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個 Module,并保存就可以開始添加代碼了。公用代碼如下 : Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New － － 16 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic Set ExecuteSQL = rst MsgString = 查詢到 amp。 amp。 _ 條記錄 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤 : amp。 _ Resume ExecuteSQL_Exit End Function Public Function ConnectString() As String ConnectString = FileDSN= End Function 以上兩個函數(shù)代碼分別用來完成執(zhí)行各種 S