【正文】 d, today) Then MsgBox 你已經(jīng)上班，不必再登記！ Else strSql = insert into TShangBan (departmentId,workerId,workday,mstartTime,workmsType) amp。 nowtime amp。 么？ , vbOKCancel) = vbOK Then psw = InputBox(請輸入員工密碼： , 輸入密碼) If yanzhengPWD(labwele, psw, workerPsw) = False Then Exit Sub = False Else Call getTime If DateDiff(s, nowtime, mleave) = 0 Then worktype = 6 Else worktype = 3 End If If yanzheng(departId, workerId, today) Then If mlrecord(departId, workerId, today) Then strSql = update TShangBan set workmlType = amp。 and workerId = amp。 optastart(0).Caption amp。 departId amp。 ,祝你今天下午工作愉快！ MsgBox 登記成功！ Else MsgBox 你已經(jīng)上班，不必再登記！ End If Else strSql = insert into TShangBan (departmentId,workerId,workday,astartTime,workasType) amp。 39。 amp。 nowtime amp。 TransactSQL (strSql) = False = True = amp。 ,39。, amp。 ccContent amp。 amp。 departId amp。 dcTime amp。,39。 Now() Exit Sub Else = = False ccArea = Trim() ccContent = Trim() strSql = insert into TChuChai (departmentId,workerId,ccTime,ccArea,ccLength,dcTime,ccContent) values( _ amp。 and workerId = amp。 么？ , vbOKCancel) = vbOK Then psw = InputBox(請輸入員工密碼： , 輸入密碼) If yanzhengPWD(labwele, psw, workerPsw) = False Then Exit Sub = False Else Call getTime If DateDiff(s, nowtime, aleave) = 0 Then worktype = 6 Else worktype = 3 . . End If If yanzheng(departId, workerId, today) Then If alrecord(departId, workerId, today) Then strSql = update TShangBan set workalType = amp。 39。 workerId amp。 today amp。 amp。 TransactSQL (strSql) = False = True . . = amp。 nowtime amp。 amp。 workerId amp。 departId amp。 m_iDepartId If ConnectToDB() = False Then MsgBox 數(shù)據(jù)庫連接失敗 ! Exit Sub End If TransactSQL (strSql) MsgBox 修改成功 = False DisConnect . . strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment RefreshData , , strSql End If End Sub Private Sub Form_Load() m_iDepartId = GetRowNumber If ConnectToDB() = False Then MsgBox 數(shù)據(jù)庫連接失敗 ! Exit Sub End If strSql = select * from TDepartment where departmentId= amp。% amp。 m_txtdepartID amp。 departId amp。 () amp。分別如下表所示： 表 310 出差表 名稱 字段 類型 為空性 備注 部門代號 departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 出差時間 ccTime 日期 /時間 否 出差地點(diǎn) ccArea 文本 是 出差天數(shù) ccLength 數(shù)字 是 登記時間 dcTime 日期 /時間 是 銷差時間 xcTime 日期 /時間 是 出差備注 ccContent 文本 是 表 311部門表 名稱 字 段 類型 為空性 備注 部門代號 departmentId 數(shù)字 否 唯一表示部門 部門名稱 departmentName 文本 否 部門名稱 . . 表 312 請假表 名稱 字段 類型 為空性 備注 部門代號 departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 請假時間 qjTime 日期 /時間 否 請假天數(shù) qjLength 數(shù)字 是 登記時間 djTime 日期 /時間 是 請假原因 qjReason 文本 是 銷假時間 xjTime 日期 /時間 是 是否曠工 ynKg 是 /否 是 表 313 上班表 名稱 字段 類型 為空性 備注 部門代號 departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 工作日期 workday 日期 /時間 否 上午上班時間 mstartTime 日期 /時間 是 下午上班時間 astartTime 日期 /時間 是 上午下班時間 mleaveTime 日期 /時間 是 下午下班時間 aleaveTime 日期 /時間 是 上班類型 1 workmsType 數(shù)字 是 存放工作類型 表中的 typeId 0：正常上班 1：請假 2：出差 3：早退 4：遲到 上班類型 2 workmlType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 3 workasType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 上班類型 4 workalType 數(shù)字 是 默認(rèn)值為 0，作為是否已經(jīng)登記的標(biāo)記 表 314 用戶表 名稱 字段 類型 為空性 備注 用戶名 username 文本 否 密碼 password 文本 否 真實(shí)姓名 realname 文本 否 注冊時間 regtime 日期 /時間 否 . . 權(quán)限 permission 數(shù)字 否 0:管理員 1:普通用戶 表 315 員工表 名稱 字段 類型 為空性 備注 部門代號 departmentId 數(shù)字 否 員工 ID workerId 數(shù)字 否 員工姓名 workerName 文本 是 員工性別 workerSex 文本 是 員工年齡 workerAge 數(shù)字 是 進(jìn)入公司時間 intoCompanyTime 日期 /時間 否 員工密碼 workerPsw 文本 否 進(jìn)行出勤輸入的最后驗(yàn)證 表 316 上班時間表 名稱 字段 類型 為空性 備注 上午工作開始時間 mstartTime 日期 /時間 否 上午工作離開時間 mleaveTime 日期 /時間 否 下午工作開始時間 astartTime 日期 /時間 否 下午工作離開時間 aleaveTime 日期 /時間