【文章內(nèi)容簡介】 kqdaysnumeric8不是NOT NULL本月天數(shù)kqrdaynumeric5不是NULL公休假天數(shù)kqtdaynumeric5不是NOT NULL應(yīng)出勤天數(shù)kqworknumeric5不是NOT NULL出勤kqabsentnumeric5不是NULL曠工kqrestnumeric5不是NULL年休kqleavenumeric5不是NULL請假kqlatenumeric5不是NULL遲到kqearlynumeric5不是NULL早退kqforgetnumeric5不是NULL忘訂卡kqover1numeric5不是NULL節(jié)假日加班kqvoer2numeric5不是NULL其它加班kqfillnumeric5不是NULL補(bǔ)休天數(shù)kqgonumeric5不是NULL出差工地天數(shù)kqpaynumeric5不是NULL加班費(fèi)kqdeductnumeric5不是NULL扣考核kqothervarchar20不是NULL其它kqremarktext16不是NULL備注　manappraise員工工作評價信息表列　名數(shù)據(jù)類型長　度主　鍵可否為空說　明pjdeptvarchar10不是NOT NULL部門pjnamevarchar10是NOT NULL姓名pjnochar14不是NOT NULLIDpjidvarchar8是NOT NULL編號pjdatedatetime8不是NOT NULL時間pjresultvarchar40不是NULL工作業(yè)績pjpositionvarchar40不是NULL工作態(tài)度pjlevelvarchar50不是NULL業(yè)務(wù)水平pjremarktext16不是NULL備注pjother1varchar50不是NULL其它1pjother2varchar50不是NULL其它2　pay員工工資信息表列　名數(shù)據(jù)類型長　度主　鍵可否為空說　明gzidvarchar8是NOT NULL編號gznamevarchar10是NOT NULL姓名gzbasenumeric5不是NOT NULL底薪gzallnumeric5不是NULL補(bǔ)貼gzbonusnumeric5不是NULL資金gzpaynumeric5不是NULL加班gzdeductnumeric5不是NULL扣考核gzagenumeric5不是NULL代扣養(yǎng)老金gzmedicalnumeric5不是NULL代扣醫(yī)療保險gzhouse1numeric5不是NULL代扣住房公積金gztotalnumeric5不是NULL稅前小計(jì)gzdutynumeric5不是NULL所得稅gzhouse2numeric5不是NULL房貼gzhouse3numeric5不是NULL房租gzlaboragenumeric5不是NOT NULL實(shí)發(fā)工資gzdatedatetime8不是NOT NULL時間　users用戶信息表列　名數(shù)據(jù)類型長　度主　鍵可否為空說　明idvarchar10是NOT NULL用戶名passwordvarchar10不是NOT NULL用戶密碼namevarchar50不是NOT NULL用戶姓名memotext16不是NULL備注信息　permission表戶權(quán)限表列　名數(shù)據(jù)類型長　度主　鍵可否為空說　明idvarchar10是NOT NULL用戶名moduleint4不是NOT NULL功能模型rwchar10不是NOT NULL讀寫權(quán)限parametervarchar50不是NULL參數(shù)信息　log系統(tǒng)日志信息表列　名數(shù)據(jù)類型長　度主　鍵可否為空說　明logidint4不是NOT NULL日志編號idvarchar10是NOT NULL用戶名dateatetime8不是NOT NULL登錄時間moduleint4不是NOT NULL登錄模塊 數(shù)據(jù)源的連接開放式數(shù)據(jù)庫連接（ODBC）是一個接口，該接口使應(yīng)用程序得以訪問來自O(shè)DBC數(shù)據(jù)源的。ODBC數(shù)據(jù)源包括以不同的格式存儲的數(shù)據(jù)，而不僅僅是SQL數(shù)據(jù)庫中數(shù)據(jù)。應(yīng)用程序使用ODBC驅(qū)動程序訪問數(shù)據(jù)源。ODBC驅(qū)動程序是一個動態(tài)鏈接庫（DLL），它接受對ODBC　API函數(shù)的調(diào)用并采取任何必要的操作來處理對數(shù)據(jù)源的請求。ODBC已經(jīng)被數(shù)據(jù)庫程序員廣泛接受，并且一些數(shù)據(jù)庫供應(yīng)商或第三方公司都提供ODBC驅(qū)動程序。ADO是一項(xiàng)容易使用并且可以擴(kuò)展的將數(shù)據(jù)庫訪問添加到Web頁的技術(shù)。可以使用ADO編寫緊湊簡明的腳本以便連接到ODBC兼容的數(shù)據(jù)庫和OLE DB兼容的數(shù)據(jù)源。，找到“管理工具”，打開。“數(shù)據(jù)源（ODBC）”，并選擇“文件DSN”。“添加”按鈕，并選擇“SQL Server”?！啊?。點(diǎn)擊“下一步”。，單擊“完成”。 Server服務(wù)器名稱?！笆褂糜脩糨斎氲卿汭D和密碼的SQL Server驗(yàn)證”，并輸入用戶名和密碼。（sa和sa，請注意在安裝SQL Server 2000時設(shè)置sa用戶的密碼也為sa）?！跋乱徊健薄?Server的數(shù)據(jù)源9.“下一步”。“完成”。，到這里ODBC的數(shù)據(jù)就創(chuàng)建成功了。第6章 詳細(xì)設(shè)計(jì) 主窗體的創(chuàng)建 工程的創(chuàng)建打開Visual Basic后，單擊File|New project 菜單，在工程模板中選擇Standard EXE，Visual Basic將自動產(chǎn)生一個From窗體，屬性都是缺省設(shè)置。保存這個工程，并將這個工程命名為Personnel_MIS。 主窗體的界面的設(shè)計(jì)這個項(xiàng)目使用的是多文檔界面，單擊工具欄中的ADD MDI Form按鈕，產(chǎn)生這個窗體，在這個窗體上添加我們所需要的控件。加入菜單、工具欄、狀態(tài)欄等?！V龍公司人事信息系統(tǒng)主窗體 創(chuàng)建主窗體的菜單在主窗體中單擊右鍵，選擇彈出式菜單中的Menu Editor，：系統(tǒng)…添加用戶…修改密碼…退出系統(tǒng)員工基本信息員工考勤管理員工工作評價管理員工工資管理操作（＆O）…添加（＆A）…修改（＆E）…刪除（＆D）…刷新（＆R）…查詢（＆F）…－幫助…About　主窗體中的菜單結(jié)構(gòu)使用者在使用過程中并不是所有菜單都是可見的，只有當(dāng)使用者具有相關(guān)功能模塊使用權(quán)限時，相應(yīng)模塊的菜單才會顯示。 登錄界面設(shè)計(jì)本系統(tǒng)在設(shè)計(jì)是充分考慮到系統(tǒng)各種用戶可能的權(quán)限種類，通過各個環(huán)節(jié)的控制和保證各種用戶正常行使相應(yīng)的權(quán)限。當(dāng)用戶想要啟動本系統(tǒng)時，系統(tǒng)先彈出一個登錄窗體。首先判斷用戶名和用戶密碼是否正確，是否具有登錄本系統(tǒng)的權(quán)限?！∮脩舻卿洿绑w用戶輸入用戶名和密碼，當(dāng)點(diǎn)擊“OK”按鈕后，對用戶名和密碼進(jìn)行檢測。代碼如下：Private Sub cmdOK_Click() 39。To Do 創(chuàng)建測試密碼是否正確 39。檢查正確密碼 Dim mrc As Dim txtSQL As String Dim MsgText As String On Error GoTo myErr If Trim(txtUserName amp。 ) Then txtSQL = select * from users where id=39。 amp。 Trim(txtUserName amp。 ) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，再重新輸入！, vbOKOnly + vbExclamation, 登錄 Else 39。登陸成功 If Trim(txtPassword amp。 ) = Trim(mrc!Password) Then sUserName = Trim(txtUserName) If Permission(sUserName, 10, 19) = True Then OK = True Else End End If Else MsgBox 密碼錯誤，再試一次！, vbOKOnly + vbExclamation, 登錄 = 0 = Len() End If End If Else MsgBox 沒有這個用戶，再重新輸入！, vbOKOnly + vbExclamation, 登錄 End If miCount = miCount + 1 If miCount = 3 Then End If Exit Sub myErr: ShowErrorEnd Sub 員工基本信息模塊的創(chuàng)建 主要功能1. 添加員工基本信息2. 修改員工基本信息3. 刪除員工基本信息4. 查詢員工基本信息 創(chuàng)建添加員工信息的窗體?！√砑訂T工基本信息窗體程序首先對是否輸入了內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷。判斷是否有重復(fù)的記錄是很重要的，否則數(shù)據(jù)庫將發(fā)生嚴(yán)重的錯誤。最后根據(jù)狀態(tài)來顯示相應(yīng)的信息：如果是添加狀態(tài)，將提示添加成功，然后重新顯示并清空所有文本框，以便繼續(xù)添加記錄；如果處于修改狀態(tài)，將提示修改成功，然后更新所有記錄的列表。 修改員工基本信息窗體的創(chuàng)建當(dāng)操作員選擇“員工基本信息”菜單后。在此對員工檔案進(jìn)行修改?！∮涗浟斜泶绑w 查詢員工信息窗體的創(chuàng)建程序首先判斷查詢方式，如果沒有設(shè)置查詢方式將顯示所有記錄；然后對查詢內(nèi)容進(jìn)行組合，組成SQL語句，進(jìn)行查詢。查詢到數(shù)據(jù)集以后，需要正常顯示在表格控件中。運(yùn)用循環(huán)將每一條記錄的每一個字段顯示出來。單擊“取消”按鈕將退出程序?！〔樵儐T工信息窗體 員工考勤管理模塊的創(chuàng)建 主要功能；；；。 添加員工考勤信息窗體的創(chuàng)建添加一個新窗體，在新窗體中添加一個SSTAB（屬性頁控件）。、?！√砑涌记谛畔⒋绑w　設(shè)置屬性頁控件 修改考勤信息選擇“員式考勤管理”菜單?！⌒薷目记谛畔⒋绑w首先在記錄列表中選擇記錄，然后在工具欄中選擇“修改”命令，將調(diào)用RecordEdit過程，代碼如下：Public Sub RecordEdit() Dim intCount As Integer If flagEdit Then gintMode = 2 If 1 Then intCount = = select * from checkin where kqid=39。 amp。 Trim((, 1)) amp。 39。 Else Call RecordAdd End If Else MsgBox 請選擇要修改的記錄？, vbOKOnly