人事管理方案樣本

1、人事管理系統(tǒng)分析與概述【摘要】信息技術(shù)為企業(yè)的發(fā)展提供了機(jī)遇，也帶來(lái)了挑戰(zhàn)。如何改良企業(yè)內(nèi)部經(jīng)營(yíng)機(jī)制，公正、客觀、全面、快捷地評(píng)估員工的業(yè)績(jī)，實(shí)現(xiàn)以人為本的經(jīng)營(yíng)戰(zhàn)略，提高人事管理工作的效率，使人事管理員有更多的精力去做人力資源分析、研究和開(kāi)發(fā)工作，是企業(yè)立足發(fā)展，開(kāi)拓未來(lái)，領(lǐng)先同行業(yè)的關(guān)鍵。本文敘述了一個(gè)人事管理系統(tǒng)形成的全過(guò)程，包括部分演示?！娟P(guān) 鍵 詞】RAD、OLE、powerbulid 8.0、sql server 20001引言隨著計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)和信息技術(shù)的發(fā)展，越來(lái)越多地改善著現(xiàn)代人的觀念。網(wǎng)絡(luò)辦公自動(dòng)化系統(tǒng)是計(jì)算機(jī)技術(shù)和網(wǎng)絡(luò)迅速發(fā)展的一個(gè)辦公應(yīng)用解決方案，它的主要目的是實(shí)現(xiàn)

2、信息交流和信息共享，提供協(xié)同工作的手段,提高辦公的效率,讓人們從繁瑣的有紙辦公中解脫出來(lái)。現(xiàn)在我國(guó)的許多的機(jī)關(guān)單位的人事管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代?；谶@種情況，我研究開(kāi)發(fā)了這套人事管理系統(tǒng)，希望這套系統(tǒng)能為學(xué)校的人事管理帶來(lái)更多的方便。2 系統(tǒng)需求分析及可行性研究21系統(tǒng)需求分析人事管理系統(tǒng)可以實(shí)現(xiàn)功能包括人事信息維護(hù)、數(shù)據(jù)查詢、統(tǒng)計(jì)報(bào)表、系統(tǒng)維護(hù)。 該系統(tǒng)應(yīng)該提供人事信息的錄入（修改）、刪除、統(tǒng)計(jì)；人事常用的數(shù)據(jù)查詢（包括各種復(fù)雜查詢）；各類人事統(tǒng)計(jì)報(bào)表的設(shè)計(jì)、

3、生成、表式的導(dǎo)入和導(dǎo)出、打?。挥脩糍~號(hào)權(quán)限的設(shè)置、管理。22可行性研究人事管理一般是對(duì)人事基本信息的管理，所以在數(shù)據(jù)庫(kù)模式定義中可以將人事基本信息定義在一個(gè)表中，這樣對(duì)數(shù)據(jù)的增加、修改、刪除、查詢、統(tǒng)計(jì)操作處理起來(lái)都相對(duì)簡(jiǎn)單。統(tǒng)計(jì)報(bào)表的導(dǎo)出可以利用OLE（對(duì)象的連接與嵌入）這項(xiàng)成熟的技術(shù)來(lái)實(shí)現(xiàn)。打印功能完全可以根據(jù)開(kāi)發(fā)工具自帶的屬性靈活的實(shí)現(xiàn)。用戶賬號(hào)權(quán)限的設(shè)置、管理可以在數(shù)據(jù)庫(kù)中建立一張獨(dú)立的表來(lái)實(shí)現(xiàn)，人事系統(tǒng)將根據(jù)用戶不同的權(quán)限設(shè)置不同的操作功能。對(duì)于開(kāi)發(fā)工具我選擇powerbuild8.0 + sql sever 2000。因?yàn)镻owerBilder作為一種可視化的、面向?qū)ο蟮目焖賾?yīng)用開(kāi)

4、發(fā)(RAD)工具，內(nèi)置了包括數(shù)據(jù)窗口在內(nèi)的多種對(duì)象類，可方便的訪問(wèn)數(shù)據(jù)庫(kù)，它與Sql Server結(jié)合，使開(kāi)發(fā)應(yīng)用程序這項(xiàng)艱辛的工作就象堆積木那樣簡(jiǎn)單方便。另外，PowerBilder有多個(gè)版本以支持多平臺(tái)，其在某一平臺(tái)下開(kāi)發(fā)的代碼，可容易的移植到另一平臺(tái)上，只需重新編譯即可。因此人事管理系統(tǒng)運(yùn)行于Windows系統(tǒng)是沒(méi)有問(wèn)題的。同時(shí)SQL Server 2000使用了工業(yè)界最先進(jìn)的數(shù)據(jù)結(jié)構(gòu)，能夠?yàn)橐笞羁量痰腤eb應(yīng)用和企業(yè)應(yīng)用提供高度的可擴(kuò)展性和高可靠性。微軟提供了許多技術(shù)和工具，作為數(shù)據(jù)庫(kù)系統(tǒng)的標(biāo)準(zhǔn)集成組件。而且，通過(guò)巧妙的設(shè)計(jì)以及自動(dòng)調(diào)整，自動(dòng)管理特性，SQL Server 2000使

5、客戶可以更快，更容易的享受所用這些最先進(jìn)的Web和分析技術(shù)所帶來(lái)的好處，能夠快速提交應(yīng)用，從而贏得競(jìng)爭(zhēng)上的優(yōu)勢(shì)。SQL Server 2000提供了重要的安全性方面的增強(qiáng)，保護(hù)防火墻內(nèi)和和防火墻外的數(shù)據(jù)，支持強(qiáng)有力的，靈活的，基于角色的安全，擁有安全審計(jì)工具，并提供高級(jí)的文件加密和網(wǎng)絡(luò)加密。SQL Server 2000在TPC-C測(cè)試中在所有平臺(tái)下都創(chuàng)立了新的世界紀(jì)錄。3 系統(tǒng)規(guī)劃31項(xiàng)目規(guī)劃人事管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序，它分為數(shù)據(jù)的錄入、數(shù)據(jù)的刪除、數(shù)據(jù)的修改、數(shù)據(jù)的查詢、數(shù)據(jù)的統(tǒng)計(jì)分析、賬號(hào)的管理、日志的管理八部分組成。具體可分為數(shù)據(jù)錄入模塊、修改刪除模塊、查詢模塊、統(tǒng)計(jì)模塊、

6、報(bào)表打印模塊、賬號(hào)管理模塊、日志的管理模塊組成，另外還有一特殊系統(tǒng)模塊?，F(xiàn)規(guī)劃功能模塊如下:311數(shù)據(jù)輸入模塊該模塊的主要功能是負(fù)責(zé)輸入數(shù)據(jù)，所以該模塊的設(shè)計(jì)出發(fā)點(diǎn)應(yīng)從方便用戶操作的角度出發(fā),如:非法數(shù)據(jù)輸入出現(xiàn)錯(cuò)誤提示等，另外一些較固定數(shù)據(jù)可讓用戶從下拉框種選擇，不必自己輸入。312 數(shù)據(jù)查詢模塊用戶可以直接快速地查閱和打印系統(tǒng)中的員工個(gè)人信息（如人員情況、部門(mén)情況、科室情況、職稱評(píng)定、在職情況和決策支持等信息）；也可以做出各種復(fù)雜的查詢, 用戶可根據(jù)任意字段進(jìn)行查詢，包括多條件的與和或運(yùn)算，為領(lǐng)導(dǎo)作出準(zhǔn)確判斷提供數(shù)據(jù)的支持。313數(shù)據(jù)刪除修改模塊修改刪除模塊通常也是數(shù)據(jù)庫(kù)中必須有的一個(gè)模塊

7、，因?yàn)樵谳斎霐?shù)據(jù)過(guò)程中難免會(huì)有出錯(cuò)的時(shí)候。當(dāng)修改刪除涉及到多個(gè)表時(shí)，本系統(tǒng)將做出判斷并給出提示及相應(yīng)處理，以保證數(shù)據(jù)的完整性及一致性。314數(shù)據(jù)統(tǒng)計(jì)分析模塊該模塊將對(duì)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)，包括分組統(tǒng)計(jì)，二維表統(tǒng)計(jì)及餅圖統(tǒng)計(jì)。各種統(tǒng)計(jì)結(jié)果都應(yīng)該能夠打印。315報(bào)表打印模塊 數(shù)據(jù)的打印也是系統(tǒng)不可或缺的模塊，打印頁(yè)面的大小及上下左右的邊距應(yīng)由用戶自己自由設(shè)置。也可以將報(bào)表導(dǎo)入到word或者excel中，由用戶自己設(shè)定打印方式。316賬號(hào)管理模塊實(shí)現(xiàn)了對(duì)用戶分組管理，并且可對(duì)用戶的數(shù)據(jù)訪問(wèn)權(quán)限、功能操作權(quán)限進(jìn)行設(shè)置，大地保證了操作的安全性、嚴(yán)謹(jǐn)性及保密性。317日志管理模塊系統(tǒng)將用戶名，操作時(shí)間，操作內(nèi)容都

8、記錄下來(lái)，然后寫(xiě)到數(shù)據(jù)庫(kù)中。這樣可以知道那個(gè)用戶什么時(shí)間作了什么操作，更好的維護(hù)了系統(tǒng)的安全性。32系統(tǒng)流程圖保存用戶對(duì)數(shù)據(jù)庫(kù)所作的操作，并且寫(xiě)入日志表中退出系統(tǒng)數(shù)據(jù)查詢基本信息模塊部門(mén)信息模塊科室信息模塊登陸系統(tǒng)人事管理系統(tǒng)編制信息模塊日志信息模塊數(shù)據(jù)增加數(shù)據(jù)刪除數(shù)據(jù)修改數(shù)據(jù)統(tǒng)計(jì)日志管理賬號(hào)信息模塊基本信息錄入賬號(hào)管理數(shù)據(jù)錄入33規(guī)劃數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（flat-file）和關(guān)系數(shù)據(jù)庫(kù)（relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，

9、數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的記錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。根據(jù)系統(tǒng)規(guī)劃和上面的理論：可將該數(shù)據(jù)庫(kù)信息分為人事基本信息，職稱變動(dòng)信息，職務(wù)變動(dòng)信息，職別變動(dòng)信息，學(xué)習(xí)

10、情況信息，工作變動(dòng)信息，學(xué)習(xí)情況信息，科室名稱，部門(mén)名稱九個(gè)主題，也就是說(shuō)至少要九個(gè)表，另外還有部分系統(tǒng)編碼表。4系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)4.1 數(shù)據(jù)分析與編碼設(shè)計(jì) 數(shù)據(jù)分析主要是分析各種數(shù)據(jù)的用途及相互之間的關(guān)聯(lián),分析數(shù)據(jù)的類型、數(shù)量發(fā)生頻度和使用頻度，并具體弄清楚每個(gè)數(shù)據(jù)所需的范圍和位數(shù)及來(lái)源的時(shí)間性，為數(shù)據(jù)庫(kù)、文件設(shè)計(jì)及輸出、輸入設(shè)計(jì)提供依據(jù)，也為制定合理的數(shù)據(jù)處理方法提供依據(jù)。 編碼是一項(xiàng)基礎(chǔ)工作，編碼必須唯一，編碼設(shè)計(jì)的目的是為了便于數(shù)據(jù)的存儲(chǔ)和檢索，提高處理的效率和精度，節(jié)省處理時(shí)間和減少存儲(chǔ)空間且方便使用。4.2 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)新建一個(gè)數(shù)據(jù)庫(kù)(rsgl.dbf),加強(qiáng)完善對(duì)人事系統(tǒng)的管

11、理。 4.2.1 理論依據(jù) 一般來(lái)說(shuō),一個(gè)應(yīng)用程序的數(shù)據(jù)結(jié)構(gòu)是實(shí)現(xiàn)該程序的關(guān)鍵因素,SqlServer關(guān)系數(shù)據(jù)庫(kù)模型，是以關(guān)系集合理論中重要的數(shù)學(xué)原理為基礎(chǔ)的，通過(guò)定義創(chuàng)建該集合的很少一些規(guī)則，即可方便地處理一些數(shù)據(jù)，這種技術(shù)被稱為數(shù)據(jù)規(guī)范化。 .第一范式(1NF):消除重復(fù)字段和非原子的值。 .第二范式(2NF):要求每一個(gè)字段都依賴于主關(guān)鍵字段的每一部分。 .第三范式(3NF):要求所有非主關(guān)鍵字都只依賴于主關(guān)鍵字段。 確定字段原則: 根據(jù)表中存儲(chǔ)信息的不同,表中所需的字段也不一樣,在確定所需字段時(shí)有下列方法可供使用: .描述不同主題的字段應(yīng)屬于不同的表,通過(guò)定義之間的關(guān)系,可以將多個(gè)表中

12、的字段進(jìn)行數(shù)據(jù)組合,生成各種表單或報(bào)表。 .不要在表中存儲(chǔ)通過(guò)推導(dǎo)或計(jì)算可以得到的數(shù)據(jù)。.收集所需的全部信息。應(yīng)全面檢查書(shū)面的表單和報(bào)表，確定所需的數(shù)據(jù)都已包括在所設(shè)計(jì)的表中或可由這些表計(jì)算出來(lái)。 .以最小的邏輯單位存儲(chǔ)信息。應(yīng)盡量把信息分解成比較小的邏輯單位。 .對(duì)于主關(guān)鍵字段,SqlServer不允許其有重復(fù)值或NULL 值。 確定字段數(shù)據(jù)類型規(guī)則: 在實(shí)際選擇數(shù)據(jù)類型時(shí),應(yīng)結(jié)合字段的自身情況并考慮以下幾點(diǎn): .該字段用于存儲(chǔ)什么類型的值 .要對(duì)字段中的值執(zhí)行什么類型的運(yùn)算 .是否要用字段進(jìn)行排序或篩選 .是否用字段對(duì)記錄進(jìn)行分組 422數(shù)據(jù)庫(kù)模式定義根據(jù)需求分析本系統(tǒng)一共定義了12個(gè)表，

13、分別為人員基本信息表（T_Rsxx）、部門(mén)表（T_Bmxx）、科室表（T_Ksxx）、職稱變動(dòng)表（T_Zcbd）、職務(wù)變動(dòng)表（T_Zwbd）、職別變動(dòng)表 （T_Zbbd）、學(xué)習(xí)情況表 （T_Xxqk）、工作變動(dòng)情況表（T_Gzbd）、教學(xué)經(jīng)歷表（T_Jxjl）、編制信息表（T_Bzxx）、人事管理日志表（T_Rsrz）賬號(hào)管理表（T_Zhgl）。其中人員基本信息表與職稱變動(dòng)表、職務(wù)變動(dòng)表、職別變動(dòng)表、學(xué)習(xí)情況表、工作變動(dòng)情況表、教學(xué)經(jīng)歷表通過(guò)字段rybh相關(guān)聯(lián)，構(gòu)成了人事的全部信息。人事管理日志表保存每次用戶登陸系統(tǒng)后所作的一切操作。賬號(hào)管理表保存所有用戶的信息，包括用戶名，口令。編制信息表保

14、存了12個(gè)表中的匯總信息，包括部門(mén)編號(hào)、政工人數(shù)、行政人數(shù)、會(huì)統(tǒng)人數(shù)、教學(xué)人數(shù)、科研人數(shù)、出版人數(shù)、開(kāi)發(fā)人數(shù)、資料人數(shù)、實(shí)驗(yàn)人數(shù)、技術(shù)人數(shù)、衛(wèi)技人數(shù)、中幼教人數(shù)等等。部門(mén)表包括了本系統(tǒng)的所有部門(mén)，科室表包括了本系統(tǒng)的所有科室。以下是數(shù)據(jù)庫(kù)表結(jié)構(gòu)的圖形表示。 43模塊設(shè)計(jì)4.3.1數(shù)據(jù)錄入模塊的設(shè)計(jì)通過(guò)數(shù)據(jù)窗口的insertrow(0)函數(shù)，先插入一條空記錄，然往空記錄中輸入數(shù)據(jù)，保存到數(shù)據(jù)庫(kù)中即可。對(duì)于不同的表，保存方式不同。人員基本信息表的新記錄保存使用數(shù)據(jù)窗口的update()函數(shù)完成。在保存之前做安全性檢測(cè)，以防不合理數(shù)據(jù)入庫(kù)。其它表的輸入與基本信息表類似。其中科室表的新記錄保存使用數(shù)據(jù)

15、窗口的update()函數(shù)完成。剩余的表由于它們的主鍵都是行號(hào)(int類型的)，在數(shù)據(jù)庫(kù)中把它們的Identity屬性都設(shè)為了yes，所以這些表的新記錄保存只能用insert into 表名（）values()語(yǔ)句來(lái)完成。4.3.2數(shù)據(jù)刪除模塊的設(shè)計(jì)通過(guò)數(shù)據(jù)窗口的deleterow(currentrow)函數(shù)，刪除一條當(dāng)前記錄，保存到數(shù)據(jù)庫(kù)中即可.人員基本信息表中的一條記錄被刪除，與其關(guān)聯(lián)的其他表中的信息也將被刪除，這一目的是為了保證數(shù)據(jù)的一致性和完整性，此表的記錄保存使用數(shù)據(jù)窗口的update()函數(shù)完成。其他表中的相關(guān)信息被刪除是通過(guò)”delete from 表名 where 條件”sql

16、語(yǔ)句完成的。4.3.3數(shù)據(jù)修改模塊的設(shè)計(jì)如果修改一條當(dāng)前記錄，先檢查一下數(shù)據(jù)是否合法，然后通過(guò)數(shù)據(jù)窗口的update()函數(shù)保存到數(shù)據(jù)庫(kù)中即可。如果人員信息的人員編號(hào)被修改，其他關(guān)聯(lián)表中的人員編號(hào)也作相應(yīng)的修改，其目的是為了保證數(shù)據(jù)的一致性和完整性。人員信息的修改的格式式freeform其他的表的修改與其操作類似，只是顯示風(fēng)格不同而已4.3.4數(shù)據(jù)查詢模塊的設(shè)計(jì)數(shù)據(jù)的查詢是通過(guò)sql語(yǔ)句實(shí)現(xiàn)的，系統(tǒng)使用一個(gè)數(shù)據(jù)窗口顯示查詢條件，包括“名稱” “匹配” “數(shù)值” “條件”。單擊“增加”可以在條件框中增加一個(gè)空條件，然后按照用戶的要求添加合適的條件，其中“名稱”字段可選擇，包括了基本信息表中的所有

17、字段，“匹配”字段可選擇，包括“,=,=,”，“數(shù)值”字段可根據(jù)“名稱”字段添加不同的值，“條件”字段是為了做多條件查詢?cè)O(shè)置的，包括“And Or”。當(dāng)用戶做了一次查詢之后，可以修改“數(shù)值”字段的值做下一次查詢，也可以單擊上面的“刪除”一個(gè)查詢條件，以適應(yīng)不同的查詢，或者單擊“全刪”刪除所有的查詢條件重新安排查詢。當(dāng)查詢條件輸入完畢以后，單擊“確定”就可按照相應(yīng)的條件進(jìn)行查詢了，查詢的結(jié)果顯示在右上方的基本信息框中?；拘畔⒖蛑酗@示了基本信息表中的所有字段，可以根據(jù)用戶的要求選擇要顯示的字段。4.3.5報(bào)表打印模塊的設(shè)計(jì)數(shù)據(jù)的打印包括：頁(yè)面設(shè)置，打印預(yù)覽，打印三部分，其中打印的參數(shù)是通過(guò)結(jié)構(gòu)體

18、來(lái)傳遞的。結(jié)構(gòu)體的定義如下：struc_printinfo from structureintegeri_marginleft /到左邊沿的距離integeri_marginright /到右邊沿的距離integeri_margintop /到上邊沿的距離integeri_marginbottom /到下邊沿的距離integeri_orientation /橫打還是縱打integeri_papersize /紙張大小integeri_papersource /紙張來(lái)源booleanb_OK /是否單擊了“確定”頁(yè)面設(shè)置：頁(yè)面設(shè)置的參數(shù)是通過(guò)結(jié)構(gòu)體穿傳送的，界面見(jiàn)下圖打?。喉?yè)面設(shè)置完成以后就可以

19、打印了，打印的窗口如下圖：打印預(yù)覽的基本思想：打開(kāi)預(yù)覽窗口時(shí)，先把要預(yù)覽的數(shù)據(jù)窗口中的數(shù)據(jù)傳送到到預(yù)覽窗口，然后設(shè)置預(yù)覽窗口屬性完成預(yù)覽。預(yù)覽界面見(jiàn)下圖：4.3.6賬號(hào)管理模塊的設(shè)計(jì)賬號(hào)管理是按照用戶的權(quán)限設(shè)定的，高級(jí)用戶可以分配用戶、修改其他用戶的權(quán)限。中級(jí)用戶和普通用戶只能修改自的口令。這些操作可以利用數(shù)據(jù)窗口的基本屬性就可以實(shí)現(xiàn)。具體界面如下圖：4.3.7日志管理模塊的設(shè)計(jì)在每次退出系統(tǒng)的時(shí)候，查找一下數(shù)據(jù)窗口的緩沖區(qū)就可以獲得用戶對(duì)數(shù)據(jù)庫(kù)的操作，包括數(shù)據(jù)的增加、刪除、修改。然后系統(tǒng)將用戶名，操作時(shí)間，操作內(nèi)容都記錄下來(lái)，寫(xiě)到數(shù)據(jù)庫(kù)中。4.4關(guān)鍵技術(shù)41導(dǎo)入word函數(shù)導(dǎo)入word函數(shù)基

20、本思想：建立ole對(duì)象連接word,獲得要導(dǎo)入數(shù)據(jù)窗口的行數(shù)和列數(shù)根據(jù)數(shù)據(jù)窗口的行數(shù)和列數(shù)獲得數(shù)據(jù)窗口中的數(shù)據(jù)，然后一個(gè)數(shù)據(jù)一個(gè)數(shù)據(jù)的寫(xiě)入到word中，最后斷開(kāi)ole對(duì)象連接。具體代碼：/=/ Function - f_exportto_word/-/ Description: 將數(shù)據(jù)窗口中的數(shù)據(jù)導(dǎo)出到word文件中/-/ Arguments:/datawindow datawindow/ 要保存的數(shù)據(jù)窗口/-/ Returns:(none)/=OLEObject ole_objectole_object = CREATE OLEObject/連接wordIF ole_object.Conne

21、ctToNewObject(Word.Application) 0 THENMessageBox(OLE錯(cuò)誤,OLE無(wú)法連接!)returnEND IFole_object.Visible = Truelong ll_colnum,ll_rownumconstant long wdWord9TableBehavior = 1constant long wdAutoFitFixed = 0constant long wdCell = 12string ls_value/得到數(shù)據(jù)窗口數(shù)據(jù)的列數(shù)與行數(shù)（行數(shù)應(yīng)該是數(shù)據(jù)行數(shù) + 1）ll_colnum = Long(datawindow.object.

22、datawindow.column.count)ll_rownum = datawindow.rowcount() + 1ole_object.Documents.Add()ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range, ll_rownum, ll_colnum)string ls_colnameinteger i,jfor i = 1 to ll_colnum/得到標(biāo)題頭的名字ls_colname = datawindow.describe(# + string(i) + .name) + _t ls_valu

23、e = datawindow.describe(ls_colname + .text)ole_object.Selection.TypeText(trim(ls_value)ole_object.Selection.MoveRight(wdCell)nextdatawindow.setredraw(false)ole_object.Selection.MoveLeft(wdCell)for i = 2 to ll_rownumfor j = 1 to ll_colnumdatawindow.scrolltorow(i - 1)datawindow.setcolumn(j)ls_value =

24、datawindow.gettext()ole_object.Selection.MoveRight(wdCell)ole_object.Selection.TypeText(ls_value)nextnextdatawindow.setredraw(true)constant long wdFormatDocument = 0/保存新建的文檔ole_object.ActiveDocument.SaveAs(sample.doc, 0,False,True,False,False,False, False,False)/斷開(kāi)OLE連接Ole_Object.DisConnectObject()D

25、estroy Ole_Object42導(dǎo)入excel函數(shù)導(dǎo)入excel函數(shù)基本思想：建立ole對(duì)象連接excel,獲得要導(dǎo)入數(shù)據(jù)窗口的行數(shù)和列數(shù)，根據(jù)數(shù)據(jù)窗口的行數(shù)和列數(shù)獲得數(shù)據(jù)窗口中的數(shù)據(jù)，然后一個(gè)數(shù)據(jù)一個(gè)數(shù)據(jù)的寫(xiě)入到excel中，最后斷開(kāi)ole對(duì)象連接. 具體代碼：/=/ Function - f_exportto_excel/-/ Description: 將數(shù)據(jù)窗口中的數(shù)據(jù)導(dǎo)出到excel文件中/-/ Arguments:/datawindow datawindow/ 要保存的數(shù)據(jù)窗口/-/ Returns:(none)/=OLEObject ole_excel, xlsubole_e

26、xcel = CREATE OLEObjectint li_retli_ret = ole_excel.ConnectToObject(Excel.Application)if li_ret 0 thenli_ret = ole_excel.ConnectToNewObject(Excel.Application)if li_ret 0 thenMessageBox(OLE錯(cuò)誤,OLE無(wú)法連接，請(qǐng)返回重試！)end ifole_excel.Visible = falseend ifole_excel.Application.Workbooks.add()ole_excel.Applicatio

27、n.Visible = truelong i, j, ll_cols, ll_TargetRow,kstring ls_colname, ls_title /列名，列標(biāo)題string ls_data, ls_syntax /數(shù)組記錄各顯示列的值，取各列string array_title, array_col /以數(shù)組記錄非隱藏列的列標(biāo)題string ls_xzb/X坐標(biāo)string ls_xll_cols = Long(datawindow.Describe(DataWindow.Column.Count) /記錄總列數(shù)xlsub = ole_excel.Application.Active

28、Workbook.Worksheets1/得到顯示字段的列標(biāo)題和坐標(biāo)for i = 1 to ll_cols ls_xzb = datawindow.Describe(# + String(i) + .x)if ls_xzb ! and ls_xzb ? thenls_colname = datawindow.Describe(# + String(i) + .name) + _tls_title = datawindow.Describe(ls_colname + .text)k+array_titlek = ls_title /記錄其列標(biāo)題array_colk = datawindow.D

29、escribe(# + String(i) + .name)ls_xk = ls_xzbend ifnext/按坐標(biāo)值從小到大進(jìn)行冒泡排序string ls_tempfor i = 1 to upperbound(ls_x) - 1for j = i + 1 to upperbound(ls_x)if long(ls_xi) long(ls_xj) then/列標(biāo)題ls_temp = array_titleiarray_titlei = array_titlejarray_titlej = ls_temp/列名ls_temp = array_coliarray_coli = array_coljarray_co