人事管理方案樣本

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

20、本思想：建立ole對象連接word,獲得要導(dǎo)入數(shù)據(jù)窗口的行數(shù)和列數(shù)根據(jù)數(shù)據(jù)窗口的行數(shù)和列數(shù)獲得數(shù)據(jù)窗口中的數(shù)據(jù)，然后一個數(shù)據(jù)一個數(shù)據(jù)的寫入到word中，最后斷開ole對象連接。具體代碼：/=/ 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錯誤,OLE無法連接!)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/得到標題頭的名字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)/斷開OLE連接Ole_Object.DisConnectObject()D

25、estroy Ole_Object42導(dǎo)入excel函數(shù)導(dǎo)入excel函數(shù)基本思想：建立ole對象連接excel,獲得要導(dǎo)入數(shù)據(jù)窗口的行數(shù)和列數(shù)，根據(jù)數(shù)據(jù)窗口的行數(shù)和列數(shù)獲得數(shù)據(jù)窗口中的數(shù)據(jù)，然后一個數(shù)據(jù)一個數(shù)據(jù)的寫入到excel中，最后斷開ole對象連接. 具體代碼：/=/ 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錯誤,OLE無法連接，請返回重試！)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 /列名，列標題string ls_data, ls_syntax /數(shù)組記錄各顯示列的值，取各列string array_title, array_col /以數(shù)組記錄非隱藏列的列標題string ls_xzb/X坐標string ls_xll_cols = Long(datawindow.Describe(DataWindow.Column.Count) /記錄總列數(shù)xlsub = ole_excel.Application.Active

28、Workbook.Worksheets1/得到顯示字段的列標題和坐標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 /記錄其列標題array_colk = datawindow.D

29、escribe(# + String(i) + .name)ls_xk = ls_xzbend ifnext/按坐標值從小到大進行冒泡排序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/列標題ls_temp = array_titleiarray_titlei = array_titlejarray_titlej = ls_temp/列名ls_temp = array_coliarray_coli = array_coljarray_co