【導(dǎo)讀】大的報表系統(tǒng)、各操作窗口清新、大方，操作方便。數(shù)據(jù)庫的安全性。提供組合查詢，模糊。提供數(shù)據(jù)的導(dǎo)入和導(dǎo)出。員工人事信息管理分為三大模塊：員。工基本信息、員工考勤信息、員工調(diào)動信息。是記錄每天上下班的時間，而其它考勤信息包括：請假，曠工、遲到等基本信息。程度、職務(wù)等信息進(jìn)行初始化，解決了資料重復(fù)輸入的問題。和開發(fā)工作，是公司立足發(fā)展，開拓未來，領(lǐng)先同行業(yè)的關(guān)鍵。VisualBasic功能強(qiáng)，效率高，易學(xué)習(xí)，無論是專業(yè)人員，還是非專業(yè)人員，都可以很容易地掌握VisualBasic。VisualBasic最大的兩個特點(diǎn)是”可視化”和事件驅(qū)動”。票速度何時票將售完，從而采取補(bǔ)救措施?？刂普?，他認(rèn)為管理是一個控制過程。

　　

【正文】 aflag = 出 (工號 ) = (姓名 ) = (當(dāng)前 日期 ) = (下班時間 ) = amp。 : amp。 amp。 : amp。 (出入標(biāo)志 ) = aflag (早退次數(shù) ) = iearly MsgBox 已完成添加下班信息 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End If End Sub Private Sub Form_Load() = Date 39。初始化為當(dāng)天時間 End SubPrivate Sub txtName_Validate(Cancel As Boolean) 39。Validate 表示失去焦點(diǎn)之前發(fā)生的事件 Dim sql As String Dim rs As New Dim strMsg As String sql = select * from t_br where 姓名 = 39。 amp。 txtName amp。 39。 Set rs = ExecuteSQL(sql, strMsg) If Or Then MsgBox 無記錄或此姓 名不存在 , vbOKOnly + vbExclamation, 警告 = = Exit Sub Else = (工號 ) = (姓名 ) End If End Sub Private Sub txtID_Validate(Cancel As Boolean) 39。Validate 表示失去焦點(diǎn)之前發(fā)生的事件 Dim sql As String Dim rs As New Dim strMsg As String sql = select * from t_br where 工號 = 39。 amp。 txtID amp。 39。 Set rs = ExecuteSQL(sql, strMsg) If Or Then MsgBox 無記錄或此工號不存在 , vbOKOnly + vbExclamation, 警告 = 39。 = Exit Sub Else = (工號 ) = (姓名 ) End If End Sub 添加員工加班信息 添加員工出差信息 添加其它考勤信息 添加員工請假信息 在該窗體上填入相應(yīng)的信息，窗體如下，部分代碼如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As New Dim strMsg As String sql = select * from LeaveInfo Set rs = ExecuteSQL(sql, strMsg) If IsNumeric() = False Then MsgBox 輸入的事假天數(shù)須為整數(shù)！ , vbOKOnly + vbExclamation, 警告 = Exit Sub End If If IsNumeric() = False Then MsgBox 輸入的病假天數(shù)須為整數(shù) !, vbOKOnly + vbExclamation, 警告 = Exit Sub End If (工號 ) = (姓名 ) = Trim() (病假天數(shù) ) = Trim() (事假天數(shù) ) = Trim() (假期開始時間 ) = MsgBox 員工請假信息添加已完成 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End Sub 修改員工考勤信息 修改員工考勤信息，當(dāng)考勤信息出現(xiàn)錯誤需要修改的時候，可以從這里修改相應(yīng)的記錄。 修改上下班信息 VB+access 人事檔案管理系統(tǒng)畢業(yè)論文 (開題報告 +源程序 ) Private Sub cmdOK_Click() Dim sql As String Dim rs As New Dim strMsg As String Dim tmsb1 As Date Dim tmxb1 As Date If InFlag = False And OutFlag = False Then MsgBox 請選擇上下班 , vbOKOnly + vbExclamation, 警告 ! End If If InFlag = True Then If MsgBox(確定要做此修改嗎？ , vbQuestion + vbYesNo) = vbNo Then Exit Sub tmsb1 = h = Hour(tmsb1) m = Minute(tmsb1) s = Second(tmsb1) tmsb1 = CDate(h amp。 : amp。 m amp。 : amp。 s) sql = update attendanceInfo set 上班時間 =39。 amp。 tmsb1 amp。 39。 where ID= amp。 CInt() Set rs = ExecuteSQL(sql, strMsg) Call Unload Me ElseIf OutFlag = True Then If MsgBox(確定要做此修改嗎？ , vbQuestion + vbYesNo) = vbNo Then Exit Sub tmxb1 = h = Hour(tmxb1) m = Minute(tmxb1) s = Second(tmxb1) tmsb1 = CDate(h amp。 : amp。 m amp。 : amp。 s) sql = update attendanceInfo set 下班時間 =39。 amp。 tmxb1 amp。 39。 where ID= amp。 CInt() Set rs = ExecuteSQL(sql, strMsg) Call Unload Me End If 修改其它考勤信息 具體實(shí)現(xiàn)類似修改上下班考勤信息，在此不在螯述。 修改員工請假信息 (略 ) 修改員工加班信息 (略 ) 修改員工出差信息 (略 ) 查詢員工考勤信息 查詢員工考勤信息，根據(jù)員工編號或時間進(jìn)行查詢得到所有的考勤信息。包括上下班，加班和出差信息，但是不能夠?qū)π畔⑦M(jìn)行任何的操作。以查詢員工上下班考勤信息為例介紹如下 : 相關(guān)部分代碼如下 : Private Sub cmdOk_Click() Dim strHead As String Dim strAdd As String Dim strSql As String strHead = select ID, , ,當(dāng)前日期 ,出入標(biāo)志 ,上班時間 ,下班時間 ,遲到次數(shù) ,早退次數(shù) from AttendanceInfo,t_br where = If = 1 And Trim() Then strAdd = strAdd amp。 and =39。 amp。 Trim() amp。 39。 End If If = 1 And Trim() Then strAdd = strAdd amp。 and like 39。% amp。 Trim() amp。 %39。 End If If chkDC = 1 Then strAdd = strAdd amp。 and 當(dāng)前日期 = amp。 dtpFrom amp。 and 當(dāng)前日期= amp。 dtpTo amp。 End If strSql = strHead amp。 strAdd (strSql) End Sub 員工考勤信息列表 員工上下班信息列表 該窗體如下圖所示，雙擊某條記錄可進(jìn)行修改操作，右鍵彈出式菜單進(jìn)行添加、修改、查詢、刪除、刷新操作，相應(yīng)窗體如圖所示。 其部分相關(guān)代碼如下： Public Sub Form_Load() Dim sql As String Dim strMsg As String Dim rs As New sql = select * from AttendanceInfo Set rs = ExecuteSQL(sql, strMsg) Call showData(sql, KQGrid1) End Sub Private Sub KQGrid1_DblClick() If = 1 Then Exit Sub If 1 Then Exit Sub Dim strnow As Date Dim strInTime As Date Dim strOutTime As Date = (, 2) = (, 3) strnow = (, 4) VB+access 人事檔案管理系統(tǒng)畢業(yè)論文 (開題報告 +源程序 ) = strnow If (, 6) Then h = Hour((, 6)) s= Second((, 6)) m = Minute((, 6)) (, 6) = CDate(h amp。 : amp。 m amp。 : amp。 s) = (, 6) End If If (, 7) Then h1 = Hour((, 7)) s1= Second((, 7)) m1 = Minute((, 7)) (, 6) = CDate(h1 amp。 : amp。 m1 amp。 : amp。 s1) = (, 7) End If = (, 1) End Sub Private Sub KQGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then pop_mnu End If End Sub 員工其它考勤信息列表 具體實(shí)現(xiàn)類似員工上下班考勤信息，在此不在螯述。 員工請假信息列表 (略 ) 員工加班信息列表功能實(shí)現(xiàn)類似（略） 員工出差信息列表 (略 ) 員工全部出勤信息列表列表窗體如下圖所示，代碼如下： Private Sub Form_Load() Dim sql As String Dim strMsg As String Dim rs1 As New sql = select , ,當(dāng)前日期 ,出入標(biāo)志 ,上班時間 ,下班時間 ,遲到次數(shù) ,早退次數(shù) ,假期開始時間 ,特殊加班天數(shù) ,正常加班天數(shù) ,加班日期 ,出差天數(shù) ,出差目的地 ,出差開始時間 from t_br,AttendanceInfo,LeaveInfo,OverTime