【正文】 給開始時間賦值 .DTPEndDate = Left((結(jié)束時間 ), 10) 39。關(guān)閉數(shù)據(jù)集對象 Else select * from 員工信息表 where 部門 =39。只要記錄不到尾 (部門名稱 ) 39。 （ 2） 在窗體上添加一個 mmandbutton 控件用于查詢員工公 出 /請假信息，一個 tooolbar 控件和一個 imagelist 控件作為添加、修改以及刪除命令的工具欄。 (原因 ) = txtCause (錄入日期 ) = Now 39。否則 (請假時間 ) = Round(myminute / 60, 1) amp。遍歷員工列表 If .(i) = True Then 39。該屬性的功能很簡單，它用于返回、設(shè)置語句或返回一個記錄集的查詢。關(guān)閉數(shù)據(jù)集對象 39。刷新數(shù)據(jù)表 Unload Me 39。顯示 打開 對話框 = LoadPicture(.FileName) 39。否則窗體為修改員工信息， 使用賦值語句將字段值賦給相關(guān)控件，為用戶修改數(shù)據(jù)提供方便。 數(shù)據(jù)表建立完之后，將用于存儲二進制數(shù)據(jù)的字段設(shè)置成二進制 binary，varbinary 和 image 的數(shù)據(jù)類型或是 ole 對象后，可用如下兩種方法將二進制文件寫入數(shù)據(jù)庫（ 1）使用 ado 對象的 appendchunk 和 getchunk方法。鼠標(biāo)右鍵單擊 toolbar，在彈出的菜單中選擇屬性命令，打開 toolbar控件的屬性頁對話框。User ID=sa。 4) 自動分配員工編號和部門編號。 1 申明兩個字符型公共變量，其中的 tb1 是用于傳遞數(shù)據(jù)表名， sql1時用于傳遞 sql 語句。通過以上過程，一個簡單漂亮的 MDI 主窗體就設(shè)計完成。Persist Security Info=False。 添加員工信息模塊實現(xiàn)過程 本模塊使用的數(shù)據(jù)表：員工信息表 1 窗體設(shè)計 窗體設(shè)計的步驟如下： （ 1） 在工程中新建一個窗體，命名為 main_yggl_addmodify,設(shè)置 MDIchild 屬性為 TRUE， borderstyle 屬性為 1Fix額 Single，清空 caption 屬性值。 （ 4） 當(dāng)用戶按下回車鍵時，應(yīng)使需要錄入內(nèi)容的控件獲得焦點，這樣可方便用戶操作。按 編號 檢索數(shù)據(jù) select * from 員工 信 息表 where 編號 =39。關(guān)閉 Stream 對象 39。 sql1 Else = select * from 員工信息表 order by 編號 End If If 0 Then = True For i = 0 To 1 (1, i + 1) = (i).Caption Next i 39。 2 、代碼設(shè)計 （ 1）在代碼窗口中申明部分定義 recordset 對象，代碼如下： Dim rs As New （ 2） 窗體啟動時候，用 additem 方法初始化公出請假列表、代碼如下： Private Sub Form_Load() 39。計算天數(shù) myminute = DateDiff(n, , ) 39。, n, adOpenKeyset, adLockOptimistic 39。否則 (請假時間 ) = Round(myminute / 60, 1) amp。 這一點很重要。連接員工信息表 If 0 Then 39。將記錄指針移到下一條記錄 Loop End If 39。顯示修改員工公出 /請假窗體 With main_kqgl_gcqj_addModify .Caption = 修改公出 /請假信息 39。 (姓名 ) 39。添加部門信息到 cboDept If = 總公司 Then 39。DataSource=NORTHWIND\SQLEXPRESS， recordsource 屬性的命令為 2— adcmdtable 表。 小時 39。如果列表項被選定 select * from 公出請假記錄表 where 員工編號 =39。 (原因 ) = txtCause (錄入日期 ) = Now 39。 (2) 在窗體上添加一個 frame 控件，設(shè)置 caption 屬性為“起止時間”然后在該控件中添加一個 label 控件作為標(biāo)題，兩個 dtpicker控件用于顯示時間，兩個 maskedbox 控件用于顯示時間。創(chuàng)建工作簿 Set newsheet = (1) 39。保存記錄 39。彈出提示框 If A = vbYes Then 39。在 Combo6 中添加職位 (無 ) (經(jīng)理 ) (副經(jīng)理 ) (部門經(jīng)理 ) = 0 39。也就是將多媒體文件的文件名保存在數(shù)據(jù)庫中。 1）與數(shù)據(jù)源的連接 （ 1） 與數(shù)據(jù)庫的鏈接： 定義數(shù)據(jù)集對象： Dim rs As New （ 2） 連接數(shù)據(jù)庫 鏈接數(shù)據(jù)庫主要使用 recordset Provider=。 3 MDI 主窗體實現(xiàn)過程 實現(xiàn) MDI 主窗體的方法很簡單，首先創(chuàng)建一個工程（也就是本系統(tǒng)的工程），然后選擇工程 — 添加 Mdi窗體命令，打開添加 mdi 窗體，再此選擇 mdi 窗體，單擊打開按鈕 MDI 主窗體就創(chuàng)建成功了，最后將 mdi 主窗體命名為 mdifrm_main. 剛創(chuàng)建的 Mdi 窗體很難看，接下來要簡單的修飾以下。 使用模塊前，首先應(yīng)創(chuàng)建它，方法為：選擇 工程 — 添加模塊命令，創(chuàng)建一個新模塊，使用默認(rèn)的名稱 module1。 7) 每月工資的批量添加、修改、刪除和查詢。Data Source=NORTHWIND\SQLEXPRESS End Function 注意：上述代碼用到了 ado 對象的 connectiong 對象，使用對象前先引用它，選擇 工程 部件 ，選擇 microsoft actionX data objects library 五 主窗體設(shè)計 1 主窗體模塊概述 本系統(tǒng)的主窗體采用的是 MDI 窗體，即多文檔界面，類似于 WORD 應(yīng)用程序，可以打開多個窗體進行操作，可以對窗體進行排列， 如圖所示 潘慶強的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 13 2 窗體技術(shù)分析 主窗體采用 MDI 窗體，顯然第一步就該創(chuàng)創(chuàng)建它 子窗體重排 主窗體使用 MDI 窗體的 arrange 方法，該方法用于重排 MDIForm 對象中的窗口或圖標(biāo)，這對于在 MDI 主窗體中啟動多個 MDI 子窗體是非常有用的。 + + 39。讀出數(shù)據(jù)時，使用 getchunk 方法先將二進制文件讀入內(nèi)存，然后再存為二進制文件。在 Combo1 中添加性別 (男 ) (女 ) = 0 39。 給 變 量photoFilename 賦值 End With End Sub （ 6） 判斷標(biāo)記 blnaddrs 是修改狀態(tài)還是添加狀態(tài)。標(biāo)記為 True，添加狀態(tài) If Txt1(1).Text = Then 39。 sql1 If 0 Then Else MsgBox 沒有找到符合條件的記錄！ , , 提示窗口 End If End If 39。綁定時候后，只要設(shè)置ado 控件的 datasource 屬性為 ado 控件名稱。添加新記錄 39。請假時間按小時計算 End If 39。計算天數(shù) myminute = DateDiff(n, , ) 39。 （ 4） 在窗體上添加一個 ado 控件，設(shè)置 datasource 屬性為Provider=。將記錄指針移到下一條 Loop End If 39。 order by 編號 , n, adOpenKeyset, adLockOptimistic 39。給結(jié)束時間賦值 .cboStyle = (假別 ) 39。設(shè)置該窗體的標(biāo)題欄 .DTPStartDate = Left((開始時間 ), 10) 39。將員工編號和姓名添加到員工列表中 潘慶強的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 36 39。如果表中有記錄 39。刷新數(shù)據(jù)表 End With End If End Sub 4 員工沖出 /請假模塊的實現(xiàn)過程 員工 /公出請假模塊主要實現(xiàn)調(diào)用添加或修改員工公出 /請假窗體，查詢員工公出 /請假信息以及刪除指定的員工公出 /請假信息 ，顯現(xiàn)過程如下。 (結(jié)束時間 ) = amp。 小時 39。如果標(biāo)記為 True（添加數(shù)據(jù)） With main_kqgl_gcqj select * from 公 出 請 假 記 錄 表 , n, adOpenKeyset, adLockOptimistic 39。 （ 1） 用 ado 控件查詢并顯示數(shù)據(jù) 1查詢數(shù)據(jù)： ado控件的 recordsource 屬性可以是一個有效的 sql語句，因此通過該屬性即可實現(xiàn)數(shù)據(jù)查詢，查詢后還要使用 refresh方法刷新數(shù)據(jù)表。如果表中沒有記錄 Txt1(0) = 00001 39。關(guān)閉數(shù)據(jù)集對象 39。設(shè)置對話框標(biāo)題欄上的文字 .Filter = jpg 圖片 |*.jpg 39。定義整型變量 Dim rs1 As New 39。 (2)通過賦值語句將數(shù)據(jù)傳送給相應(yīng)的字段 例如： (編號 ) = txt1(0) (姓名 ) = txt1(1) (性別 ) = (身份證號 ) = txt1(2) (出生年月 ) = 潘慶強的畢業(yè)設(shè)計 《企業(yè)人事管理系統(tǒng)》 20 (年齡 ) = Val(txt1(13)) (民族 ) = Combo2 (婚姻狀況 ) = Combo3 (政治面貌 ) = Combo4 (入黨團時間 ) = (籍貫 ) = txt1(3) ??????? (3)使用 recordset 對象的 update 方法更新記錄集 新紀(jì)錄輸入完成后需要用 update 方法才能將當(dāng)前的數(shù)據(jù)真正的存入到數(shù) 據(jù)庫 例如 3 記錄定位的方法 記錄定位主要使用 recordset 對象的 movenext/moveprevious/movelast方法，本系統(tǒng)用的較多的是 movenext/movefirst/movelast 4 自動編號 自動編號原理是使用 sql語句查詢表中的所有數(shù)據(jù)，并按“編號”排序，如果表中沒有數(shù)據(jù)（即記錄數(shù)等于 0），則第一個編號默認(rèn)為“ 00001” ；如果有數(shù)據(jù)（記錄數(shù)大于 0），即先把記錄指針移動到最后一條，讓好設(shè)置“編號”字段加 1，最后使