顧遠(yuǎn)利

（濰坊學(xué)院，山東 濰坊 261061）

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

1 系統(tǒng)需求分析

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

系統(tǒng)主要包括教職工基本信息、教學(xué)、科研管理三個主要的業(yè)務(wù)模塊。各個模塊之間共享人事基本信息。系統(tǒng)的模塊設(shè)計如圖1所示。

圖1 系統(tǒng)的模塊設(shè)計圖

教職工考核管理系統(tǒng)以教職工工號作為教職工的唯一標(biāo)識，將教職工的個人基本信息、教學(xué)、科研等管理數(shù)據(jù)信息進(jìn)行整合，形成一個統(tǒng)一的教職工管理、評價工作平臺。將教職工的結(jié)構(gòu)化數(shù)據(jù)信息和非結(jié)構(gòu)化文檔、多媒體數(shù)據(jù)信息統(tǒng)一起來，構(gòu)成全校范圍內(nèi)的教職工考核管理信息數(shù)據(jù)庫，以便各職能部門的管理人員及時準(zhǔn)確地把握教職工全部考核信息，為實現(xiàn)深入的數(shù)據(jù)分析奠定堅實的信息基礎(chǔ)。

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

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

2 系統(tǒng)設(shè)計

本系統(tǒng)設(shè)計采用瀏覽器／服務(wù)器的體系架構(gòu)，利用ASP動態(tài)網(wǎng)頁技術(shù)作為程序開發(fā)工具，采用SQL Server 2000數(shù)據(jù)庫[3]，使用ADO數(shù)據(jù)庫作為訪問接口?？蛻舳送ㄟ^訪問服務(wù)器的網(wǎng)頁實現(xiàn)系統(tǒng)登陸，系統(tǒng)運行環(huán)境可以是Windows2000、WindowXP等。

采用ASP技術(shù)，具有如下優(yōu)點：客戶端訪問迅速，使用簡便；程序編寫簡單，兼容性強(qiáng)，易于擴(kuò)展；安全性強(qiáng)。

在教職工考核管理系統(tǒng)中，權(quán)限管理體系主要由數(shù)據(jù)庫控制、權(quán)限管理、運行控制三個部分構(gòu)成。系統(tǒng)運行時，這三部分相互配合，共同構(gòu)成教職工考核管理系統(tǒng)的強(qiáng)大權(quán)限管理體系，保障系統(tǒng)安全。部分窗體程序設(shè)計如下：

信息管理窗體主要設(shè)計程序：

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；

／／根據(jù)檢索結(jié)構(gòu)，修改探出菜單項的可操作性

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；

人員管理設(shè)計程序主要部分：

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

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

begin

／／設(shè)置表識

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

modi：＝False；

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

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

ygxx＿Form.ShowModal；

end；

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

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

begin

／／設(shè)置表識

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（＇確認(rèn)要刪除選中教職工信息嗎？＇，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；

／／將數(shù)據(jù)表中的所有部門添加到部門列表中

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 結(jié)束語

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

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

[2]紀(jì)紅.人事管理信息系統(tǒng)的設(shè)計與實施[J].管理信息系統(tǒng)，2000，（6）：46-49.

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