高校職工考核管理系統的設計＊

顧遠利

（濰坊學院，山東 濰坊 261061）

隨著近年來高校間競爭的加劇，對管理工作的要求越來越高，只有利用先進的技術手段，改進傳統的管理方式，才能進一步提高管理效能，取得良好的管理效果。利用校園網，把人事信息、教學、科研等教職工管理的各個環節全部納入計算機管理，實現管理數據由用戶分別錄入，歸口部門審核確認的管理工作過程，建成各部門信息共享、查詢自如、方便快捷的教職工考核管理系統，將為學校的日常管理和領導科學決策提供必要的平臺支持。

1 系統需求分析

通過對高校教職工管理制度和管理方式的調研，在深入分析教職工各項管理工作流程的基礎上，確立了以模塊管理為主線，基于C／S與B／S相結合的體系結構[1]，滿足高校教職工管理需求的系統解決方案。首先，從系統的功能和性能兩方面進行系統需求分析，列出部分功能模型和業務流程圖；進行系統設計時，再根據系統分析得到的結果，細化系統定義，制定系統設計原則及所采用的技術路線和體系結構，進行系統具體功能模塊劃分和數據庫設計。

系統主要包括教職工基本信息、教學、科研管理三個主要的業務模塊。各個模塊之間共享人事基本信息。系統的模塊設計如圖1所示。

圖1 系統的模塊設計圖

教職工考核管理系統以教職工工號作為教職工的唯一標識，將教職工的個人基本信息、教學、科研等管理數據信息進行整合，形成一個統一的教職工管理、評價工作平臺。將教職工的結構化數據信息和非結構化文檔、多媒體數據信息統一起來，構成全校范圍內的教職工考核管理信息數據庫，以便各職能部門的管理人員及時準確地把握教職工全部考核信息，為實現深入的數據分析奠定堅實的信息基礎。

教職工考核管理業務流程設計的主要原則是：管理科學、脈絡清晰、操作簡便。根據高校教職工考核管理業務流程定義及需求分析結果，可以獲得教職工發出信息審核申請到綜合評價各階段的業務流程圖，并用它來指導后面的程序設計[2]。整個教職工考核評價工作主要過程如圖2所示。

圖2 教職工綜合評價流程圖

2 系統設計

本系統設計采用瀏覽器／服務器的體系架構，利用ASP動態網頁技術作為程序開發工具，采用SQL Server 2000數據庫[3]，使用ADO數據庫作為訪問接口。客戶端通過訪問服務器的網頁實現系統登陸，系統運行環境可以是Windows2000、WindowXP等。

采用ASP技術，具有如下優點：客戶端訪問迅速，使用簡便；程序編寫簡單，兼容性強，易于擴展；安全性強。

在教職工考核管理系統中，權限管理體系主要由數據庫控制、權限管理、運行控制三個部分構成。系統運行時，這三部分相互配合，共同構成教職工考核管理系統的強大權限管理體系，保障系統安全。部分窗體程序設計如下：

信息管理窗體主要設計程序：

public

modi：boolean；

xcaption：string；

end；

var

yggl＿Form：Tyggl＿Form；

implementation

uses main；

｛＄R＊.dfm｝

procedure Tyggl＿Form.FormClose（Sender：TObject；var Action：TCloseAction）；

begin

Action：＝caFree；

MainForm.N21.Enable：＝True；

end；

／／確定按鈕單擊事件

procedure Tyggl＿Form.cmdokClick（Sender：TObject）；

var

bmdm，sqlstr：String；

begin

／／生成檢索所有教職工的SQL語句

if bmdm＿CBox＝0then

begin

sqlstr：＝＇select a.＊ b.bmmc，c.zcmc，d.zwmc from ygb a，bmdm b，＇；

sqlstr：＝sqlstr＋＇zcdm c，zwdmd where（a.bmdm＝b.bmdm）and（a.zcdm＝c.zcdm）＇；

sqlstr；＝sqlstr＋＇and（a.zwdm＝d.zwdm）order by a.bmdm，a.bh＇）；

end

else

／／生成檢索某一部門員工的SQL語句

begin

bmdm：＝IntToStr（bmdm＿Cbox.ItemIndex-1）；

sqlstr：＝＇select a.＊ ，b.bmmc，c.zcmc，d.zwmc from ygb a，td＿bmdm b，＇；

sqlstr：＝sqlstr＋＇and（a.zwdm＝d.zwdm）and（a.bmdm＝＇"＋bmdm＋"＇）order by a.bh＇；

end；

Query1.Close；

Query1.SQL.Clear；

Query1.SQL.Add（sqlstr）；

Query1.Open；

／／根據檢索結構，修改探出菜單項的可操作性

if Query1.RecordCount＞0then

begin

N1.Enabled：＝True；

N2.Enabled：＝True；

N3.Enabled：＝True；

end

else

begin

N1.Enabled：＝False；

N2.Enabled：＝False；

N3.Enabled：＝False；

end；

end；

人員管理設計程序主要部分：

／添加員工探出菜單單擊事件

procedure Tyggl＿Form.N1Click（Sender：TObject）；

begin

／／設置表識

Xcaption：＝＇添加教職工信息＇；

modi：＝False；

／／打開添加／修改教職工信息窗體

Application.CreateForm（Tygxx＿Form，ygxx＿Form）；

ygxx＿Form.ShowModal；

end；

／／修改員工 彈出菜單單擊事件

procedure Tyggl＿Form.N2Click（Sender：TObject）；

begin

／／設置表識

Xcaption：＝＇修改教職工信息＇；

modi：＝True；

／／打開添加／修改員工信息窗體

Application.CreateForm（Tygxx＿Form，ygxx＿Form）；

ygxx＿Form.ShowModal；

end；

／／刪除教職工 彈出菜單單擊事件

procedure Tyggl＿Form.N3Click（Sender：TObject）；

var

id：String；

begin

if MessageDlg（＇確認要刪除選中教職工信息嗎？＇，mtconfirmation，[mbYes，mbNo]，0）＝mrYes

then

begin

id：＝Query1.FieldbyName（＇id＇）.AsString；

with TQuery.Create（nil）do

begin

try

Close；

SQL.Clear；

SQL.Add（＇delete from ygb where id＝＇"＋id＋"＇）；

ExecSQL；

finally

Free；

end；

end；

ShowMessage（＇成功刪除教職工信息＇）；

end；

end；

procedure Tyggl＿Form.cmdcloseClick（Sender：TObject）；

begin

with TQuery.Create（nil）do

try

Close；

SQL.Clear；

SQL.Add（＇select＊from bmdm order by bmdm＇）；

Open；

First；

／／將數據表中的所有部門添加到部門列表中

bmdm＿CBox.Items.Add（＇所有部門＇）；

while not Eof do

begin

bmdm＿CBox.Items.Add（FieldByName（＇bmmc＇）.AsString；

Next；

end；

bmdm＿CBox.ItemIndex：＝0；

finally

Free；

end；

end；

3 結束語

本系統采用了B／S模式，以學校的校園網為平臺予以開發設計。在開發工具的選擇上，使用ASP和SQL server開發系統，是一種較好的MIS開發模式。該系統具有數據集中程度高，系統可操作性強；數據存儲靈活，通用性強；信息較全面，安全可靠等特點。依托這一有效平臺，學校管理者能夠借助智能分析手段找出管理工作的不足，及時調整管理政策，不斷提升管理工作水平的目的。

[1]徐曉霞，貝雨馨.B／S模式與C／S模式之比較[J].延邊大學學報：自然科學版，2002，28（2）：126-129.

[2]紀紅.人事管理信息系統的設計與實施[J].管理信息系統，2000，（6）：46-49.

[3]Tony Bain.SQL Server 2000數據倉庫與 Analysis Services[M].邵勇，譯.北京：中國電力出版社，2003.