【正文】 amp。 amp。 amp。H80000002 Label1(1).ForeColor = amp。H80000002 Label1(5).ForeColor = amp。H80000002 32 Label1(Index).ForeColor = amp。H80000002 Label1(7).ForeColor = amp。H80000002 Label1(3).ForeColor = amp。 amp。 amp。 amp。 amp。 月的簽到信息？ , 292, 公司考勤系統(tǒng) ) If ii = 6 Then = Trim() If Not Then End If Do While Not If = Year(!簽到日期 ) And = Month(!簽到日期 ) Then End If Loop = 1000 26 = = End If End If End Sub Private Sub Command16_Click() 39。 參考文獻(xiàn) [1]龔沛曾 .Visual Basic 程序設(shè)計(jì)教程 [M]. 北京：高等教育出版社 ,2020 [2]陶宏才 .數(shù)據(jù)庫(kù)原理及設(shè)計(jì) [M]. 北京：清華大學(xué)出版社， 2020 [3]郭瑞軍 ,李杰 ,初曉璐． ASP 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例精粹 [M]． 北京：電子 工業(yè)出版社， 2020 [4]張海藩 .軟件工程導(dǎo) 論 [M]. 北京 ： 清華大學(xué)出版社 ,1990 [5]譚浩強(qiáng) .Visual basic 程序設(shè)計(jì) [M]. 北京： 清華大學(xué)出版社 ,2020 [6]申莉莉 .數(shù)據(jù)庫(kù)系統(tǒng)與 ACCESS 教程 [M].北京：清華大學(xué)出版社， 2020 [7]楊晶 .Visual Basic 程序設(shè)計(jì)教程與實(shí)訓(xùn) [M].北京：科學(xué)出版社， 2020 [8]宋翰濤 .數(shù)據(jù)庫(kù)編程與應(yīng)用 [M].北京：電子工業(yè)出版社， 1998 [9]孟德欣 . VB 管理信息系統(tǒng)完整項(xiàng)目實(shí)例剖析 [M]. 北京：北方交通大學(xué)出版社， 2020 [10]謝婷 .VB 管理信息系統(tǒng)開(kāi)發(fā)案例 [M]. 北京：人民郵電出版社， 2020 21 附錄 ：源代碼 清單 登陸代碼 Private Sub Command1_Click() If Not Then End If Do While Not If !用戶名 = Then If !密碼 = Then Unload check Unload begain Exit Sub Else MsgBox 密碼錯(cuò)誤 , 16, 公司考勤系統(tǒng) = Exit Sub End If Else End If Loop MsgBox 沒(méi)有這個(gè)管理員 , 48, 公司考勤系統(tǒng) 2 添加代碼 Private Sub Command1_Click() If = Then MsgBox 編號(hào)不能為空 , 16, 公司考勤系統(tǒng) Call clears Else If Not Then End If Do While Not If !員工編號(hào) = Then MsgBox 員工編號(hào)重復(fù) , 48, 公司考勤系統(tǒng) = Exit Sub Else End If 22 Loop With Adodc1 . .Recordset!員工編號(hào) = .Recordset!員工姓名 = .Recordset!部門 = .Recordset!省份 = .Recordset!城市 = .Recordset!年齡 = .Recordset!性別 = .Recordset!電子郵件 = .Recordset!聯(lián)系地址 = .Recordset!郵政編碼 = .Recordset!電話 號(hào)碼 = .Recordset!昏否 = .Recordset!生肖 = .Recordset!學(xué)歷 = .Recordset!血型 = .Recordset!職稱 = .Recordset!專業(yè)技術(shù)職稱 = .Recordset!備注 = End With = 1000 End If Call clears 3 主窗體代碼 Public transdata As Long Private Sub Image1_Click(Index As Integer) End Sub Private Sub Command1_Click() = False = True For i = 0 To 7 Picture1(i).Left = 240 Next i = 6582 End Sub Private Sub Command10_Click() Dim ii As Boolean 23 ii = True If Then If Not Then End If Do While Not If !部門 = Then = 1000 ii = False = End If Loop If ii Then MsgBox 沒(méi)有這個(gè)部門 , 48, 公司考勤系統(tǒng) End If End If End Sub Private Sub Command11_Click() Dim ii As Integer If Then ii = MsgBox(是否真的刪除這個(gè)部門的員工！ , 292, 公司考勤系統(tǒng) ) If ii = 6 Then If Not Then End If Do While Not If !部門 = Then End If Loop = 1000 = End If End If End Sub Private Sub Command12_Click() Dim ii As Integer If Then If Not Then 24 End If Do While Not If !用戶名 = Then ii = MsgBox(這個(gè)用戶已經(jīng)存在，刪除用戶選 “是 ”，修改密碼選 “否 ”！, 547, 公司考勤系統(tǒng) ) If ii = 6 Then = 1000 = = Exit Sub Else If ii = 7 Then !密碼 = = 1000 = = Exit Sub Else If ii = 2 Then = = Exit Sub Else End If End If Loop !用戶名 = !密碼 = = 1000 = = End If End Sub Private Sub Command13_Click() Dim ii As Integer If Then ii = MsgBox(是否真的刪除這個(gè)員工！ , 292, 公司考勤系統(tǒng) ) 25 If ii = 6 Then If Not Then End If Do While Not If !員工編號(hào) = Then = 1000 = Exit Sub End If Loop MsgBox 沒(méi)有這個(gè)管理員 , 48, 公司考勤系統(tǒng) End If End If End Sub Private Sub Command14_Click() End Sub Private Sub Command15_Click() Dim ii As Integer If = Then = 2020 End If If Then ii = MsgBox(是否真的刪除 amp。 一個(gè)按鈕同時(shí) 可以 實(shí)現(xiàn) 刪除、添加 和 修改 三個(gè)功能。 !年齡 End If Loop = 500 End If If = 0 Then MsgBox 找不到符合條件的員工！ , 48, 公司考勤系統(tǒng) End If End Sub 維護(hù)模塊 (1) 部門維護(hù) 該模塊 可以添加或者刪除一個(gè)部門 。 !員工編號(hào) amp。 !年齡 開(kāi)始查找 輸入 0001 17 End If Loop = 500 Else Do While Not If !員工姓名 = Trim() Then amp。 !員工編號(hào) amp。 運(yùn)行界面如 圖 57 所示： 圖 57 員工查找界面 返回查找結(jié)果的頁(yè)面運(yùn)行效果如 圖 58 所示： 圖 58 查找 結(jié)果 界面 實(shí)現(xiàn)該模塊功能的 主要代碼如下： Private Sub Command5_Click() If Not Then End If If Then Do While Not If !部門 = Then amp。 amp。 在統(tǒng)計(jì)條件中，年份的計(jì)算是可以輸入，如果 text11 的值為 NULL ， 則利用 VB 提供的函數(shù) now 來(lái)確定本統(tǒng)計(jì)的年份。 該函數(shù)的 參數(shù)的設(shè)定是 3 個(gè)參數(shù)的組合。 在左側(cè)的工具條可以看到 8 個(gè)功能的實(shí)現(xiàn)都在右側(cè)的圖片框中得以實(shí)現(xiàn)，看似簡(jiǎn)單的流程圖，其實(shí)包含了 12 個(gè)窗體完成的功能。該表結(jié)構(gòu)和內(nèi)8 容如表 46 所示： 表 46 用戶表 ID 用戶名 密碼 0 xfx 850125 表 47 用戶表屬性 字段 屬性 ID index 用戶名 text 密碼 text 系統(tǒng)的 運(yùn)行 與 維護(hù) 系統(tǒng)的 運(yùn)行 環(huán)境 該系統(tǒng)用 VB()[7]編寫。 該表結(jié)構(gòu)和內(nèi)容 如表 41 所示： 表 41 部門表 ID 部門號(hào) 名稱 1 0001 信息中心 2 0002 財(cái)務(wù)部 3 0003 人事部 表 42 部門表屬性設(shè)置 字段 屬性 ID index 部門號(hào) text 名稱 text (2) 員工表