作用
管理信息系統是為了適應現代化管理的需要,在管理科學、系統科學、信息科學和計算機科學等學科的基礎上形成的一門科學,它研究管理系統中信息處理和決策的整個過程,並探討計算機的實現方法。它是一個由人、計算機、通信設備等硬體和軟體組成的,能進行管理信息的收集、加工、存儲、傳輸、維護和使用的系統。管理信息系統可促使企業向信息化方向發展,使企業處於一個信息靈敏、管理科學、決策準確的良性循環之中,為企業帶來更高的經濟效益。所以,管理信息系統是企業現代化的重要標誌,是企業發展的一條必由之路。
信息系統在管理各項事務中有著普遍的套用,促進了企業管理工作的提升。管理信息系統是為管理服務的,它的開發和建立使企業擺脫落後的管理方式,實現管理現代化的有效途徑。管理信息系統將管理工作統一化、規範化、現代化,極大地提高了管理的效率,使現代化管理形成統一、高效的系統。過去傳統的管理方式是以人為主體的人工操作,雖然管理人員投入了大量的時間、精力,然而個人的能力是有限的,所以管理工作難免會出現局限性,或帶有個人的主觀性和片面性。而管理信息系統使用系統思想建立起來的,以計算機為信息處理手段,以現代化通信設備為基本傳輸工具,能力管理決策者提供信息服務的人機系統,這無疑是將管理與現代化接軌,以科技提高管理質量的重大舉措。管理信息系統將大量複雜的信息處理交給計算機,使人和計算機充分發揮各自的特長,組織一個和諧、有效的系統,為現代化管理帶來便捷。
在現代化管理中,計算機管理信息系統已經成為企業管理不可缺少的幫手,它的廣泛套用已經成為管理現代化的重要標誌。在企業管理現代化中,組織、方法、控制的現代化離不開管理手段的現代化。隨著科學技術的發展,尤其是信息技術和通訊技術的發展,使計算機和網路逐漸套用於現代管理之中。面對越來越多的信息資源和越來越複雜的企業內外部環境,企業有必要建立高效、實用的管理信息系統,為企業管理決策和控制提供保障,這是實現管理現代化的必然趨勢。
管理信息系統在管理現代化中起著舉足重輕的作用。它不僅是實現管理現代化的有效途徑,同時,也促進了企業管理走向現代化的進程。
實例
1. 管理信息系統綜述
1.1 概述
管理信息系統(Management Information System,簡稱MIS)是一個由管理人員和計算機組成的用以進行信息的收集、傳輸、加工、存儲、維護和使用的系統。它是一門綜合了管理科學,系統理論,計算機科學的系統性邊緣科學。
管理信息系統的物理組成:
(1) 計算機硬體系統:包括主機、外部存儲器、輸入輸出設備等。
(2) 計算機軟體系統:包括系統軟體和套用軟體兩大部分。
(3) 通信系統:包括線路等通信設施和與計算機網路、數據通信有關的軟體等。
(4) 工作人員:包括系統分析員、程式設計員、維護人員、管理員、操作人員等。
1.2 管理信息系統的發展
管理信息系統通過對企業當前運行的數據進行處理來獲得有關信息,以控制企業的行為;利用過去和現在的數據及相應的模型,對未來的發展進行預測;能從全局目標出發,對企業的管理決策活動予以輔助。
1.3 目前我國人事管理的現狀
我國的計算機套用於企業管理,只是在70年代末期以後才逐漸開展起來的。目前,計算機輔助管理已在我國的各行各業得到了廣泛地套用,但總的來說,計算機在我國管理中的套用,還處於初級階段,儘管近兩年發展較快,但還需要不斷地探索和研究。尤其是計算機輔助人事管理僅是近幾年才在我國得到普及和發展,而在許多已開發國家計算機輔助人事管理已十分普及,因此對這方面的研究是必要的,它將推動我國企業的發展和人事管理信息處理的現代化。
1.4 人事管理信息系統建設的好處
科技是第一生產力,離開了科學技術的企業是不會長遠發展的,科技的載體是人,沒有人也說無所謂科學技術,因此人力資源的開發和管理是十分重要的。隨著時代的發展,人才在我國各行各業中的地位日趨重要,各類人才肩負著企業發展的重任,所以人事管理的好壞,決定著一個企業的興衰成敗,因此,開發人事管理信息系統對企業的管理及人才素質的提高具有重大的社會意義,具體到某一企業,可以提高該企業管理的現代化水平,提高人事管理的工作效率。
1、改變了工作方式,提高了工作效率
2、提高了經濟效益
3、強化了企業的科學管理
1.5 開發管理信息系統的幾點建議
開發系統不必貪大求全,力爭簡單實用。應從大處著眼,小處著手,循序漸進,逐步完善。對開發過程中的各種文檔應當注意保存。
2. 開發方法
2.1系統開發方法概述
建立一個管理信息系統,是一項複雜的軟體工程的實施。近30多年來,軟體工程發展成為新科學,至今已經成為IT產業的重要支柱。一開始,人們往往使用手工作坊式的軟體開發方法,靠個人的力量編寫各種小型程式;但是隨著計算機硬體技術的飛速發展,計算機軟體在各個領域中的作用日益突出,那種多年來被人們沿用的手工作坊式的開發方法,已經在軟體產品的質量、成本及開發時間等方面無法滿足需求。
2.2 結構化生命周期法簡介
結構化生命周期法是一種傳統的管理信息系統開發方法,其基本思想是把整個系統開發過程分成若干個階段,每個階段進行若干活動,每項活動套用一系列標準、規範、方法和技術,完成一個或多個任務,形成符合給定規範的產品。
2.3 快速原型法簡介
快速原型法是80年代發展起來的,旨在縮短開發周期,提高開發效率和用戶對系統的滿意程度。其基本思想是在系統開發的初期,儘快構造出系統的原型,使用戶能及早地運行這個系統原型,通過使用它、熟悉它,受到啟發並取得經驗,然後對系統的目標和功能提出更精確、具體的要求,研製人員據此逐漸修改和完善原型,使它滿足用戶的需求,最後完成系統的開發。該方法大大提高了系統開發效率,彌補了結構化生命周期法開發時間長的缺陷。
2.4 本系統開發方法的選擇
基於以上開發方法的優劣和本系統的實際情況,本系統總體上採用結構化生命周期法進行系統規則、系統分析和系統設計,但在系統實施階段採用原型法。
3. 開發平台和工具
3.1開發平台的選擇
考慮到本系統的性能要求,和現有的條件,我們選擇了WINDOWSXP中文版作為開發、測試和運行的平台。因為WINDOWS作業系統是目前套用最廣的作業系統,它以全新的圖形界面,簡單快捷的操作方式,支持多媒體功能等特點而成為軟體發展的流行趨勢,選用它作為開發平台,易於功能的擴展和軟體升級。
3.2 開發工具的選擇
針對目前世界上流行的大量軟體和開發工具,經過認真分析其優缺點,結合計量器具管理系統的需要和目前的硬體環境,我們選用微軟WINDOWS平台下的Visual FoxPro 6.0(簡寫為VF6.0)作為軟體開發工具。
3.2.1 開發語言介紹
現在,市場上可以選購的套用開發產品很多,流行的也有數十種。目前在我國市場上最為流行、使用最多、最為先進的可用作做作企業級開發工具的產品有:
Microsoft公司的Visual FoxPro
4.系統規劃和分析
系統規劃,應根據組織的目標和發展戰略以及管理信息系統建設的客觀規律,並考慮到組織面臨的內外部環境,科學地制定管理信息系統的發展戰略和總體方案,合理安排系統建設的進程;它是管理信息系統(MIS)生命周期的第一個階段,是MIS的概念形成時期,這一階段的主要目標,就是制定出MIS的長期發展方案,決定MIS在整個生命周期內的發展方向、規模和發展進程。它的主要任務是:制定MIS的發展戰略、確定組織的主要信息需求,形成MIS的總體方案、制定系統建設的資源分配計畫。
4.1 系統的可行性分析
可行性分析是系統分析階段的第二項活動,可行性分析能使新系統達到以最小的開發成本取得最佳的經濟效益。可行性分析的目的,是根據開發管理信息系統的請求,通過初步調查,對要開發的管理信息系統從技術上、經濟上、資源上和管理上進行是否可行的研究分析。這是一項保證資源合理使用、避免失誤和浪費的重要工作。
1、經濟上的可行性。
2、技術上的可行性。
3、資源上的可行性。
4、管理上的可行性。
4.2 系統的詳細調查
系統的詳細調查目標是在可行性分析的基礎上進一步對原有系統進行全面、深入的調查和分析,弄清原有管理信息系統的運行狀況,發現其薄弱環節,找出要解決問題的實質,確保新系統比原系統更加有效、可靠。具體內容包括:管理業務狀況的調查分析、數據流程的調查分析。
詳細調查之後,繪製出人事管理子系統的業務流程圖,如下圖:
查詢要求
查詢結果
用戶設定 統計要求
表單維護 統計結果
4.3 系統邏輯模型的提出
為了實現管理信息系統的計算機化,僅僅用業務流程圖形象地描述信息的流動和存儲還遠遠不夠,還要進一步調查分析捨去物質流,抽象出信息流,繪製出數據流程圖,並對各種數據的屬性和各項處理功能進行詳細分析。系統分析的主要成果是系統的邏輯模型。本系統主要是以數據流圖、數據字典為主要描述工具來勾畫系統的概貌。
5.3.1 數據流圖(DFD)
數據流圖(Data Flow Diagram),是描述系統邏輯模型的主要工具之一,它是在對系統的業務流程圖進行分析的基礎上用少數幾種符號綜合地反映出信息在系統中的流動、存儲和處理等情況,並能將信息處理功能和彼此之間的聯繫,自上而下,逐層分解,從邏輯上精確地描述出系統應具有的數據加工功能、數據輸入輸出、數據存儲、數據來源和去向等項目。
1、計量器具管理子系統的關聯圖如下:
各單位 F1 F2
人事管理 部門 F3
職工 F4
註:F1基本信息表; F2信息管理; F3 招聘人員、職員人事檔案; F4 人員信息管理
4.3.2 數據字典(DD)
數據字典(Data Dictionary),是數據流圖(DFD)上所有成分的定義和解釋的文字集合。它是系統分析階段的重要文檔,它的作用是將數據流圖中全部數據流及其組成部分的數據元素、數據存儲、數據加工外部項等,通過數據字典描述清楚,以便於以後系統設計時使用。
5. 系統設計
管理信息系統設計階段的主要目的是將系統分析階段所提出的反映了用戶信息需求的系統邏輯方案轉換成可以實施的基於計算機與通信系統的物理(技術)方案。
5.1 系統設計的依據
1、系統分析的成果
2、現行技術
3、現行信息管理和信息技術的標準、規範和有關法律制度
4、用戶需求
5、系統運行環境
5.2 系統總體結構設計
總體流程圖如下:
按照結構化的系統設計方法,分析企業人事管理系統的總體流程圖如下:
5.3 系統的詳細設計
5.3.1 代碼設計
代碼,就是用來表征客觀事物的實體類別,以及屬性的一個或一組易於計算機識別和處理的特定符號或記號。它的作用是描述對象狀態,便於統計和檢索對象。
代碼設計的原則:適應計算機處理、簡單明了、具有可擴充性、系統性、便於識別和記憶等。
本系統對所有資料庫表中的主碼和外來碼均採用“漢字名稱”作為代碼。
5.3.2 資料庫設計
資料庫設計是要在一個給定的套用環境(DBMS)中,通過合理的邏輯設計和有效的物理設計,構造較優的資料庫模式、子模式,建立資料庫和設計應用程式,滿足用戶的各種信息需求。
基於以上設計原則,本系統中相關資料庫(人事管理)包括以下幾個表現將表結構設計舉例如下:
jbxx表
jyjl表
grjl表
gwbd表
jc表
ltdj表
ypxx表
lqqk表
pxap表
pxqk表
資料庫的安全性、完整性、並發控制和恢復
信息數據是企業中非常重要的資源,因此保證資料庫的安全可靠、正確有效是非常重要的問題。一般的資料庫管理系統(DBMS)都有提供了一定的數據保護功能。資料庫保護也稱為數據控制,主要包括數據的安全性、完整性、並發控制和資料庫的恢復等。
(1)資料庫的安全性
資料庫的安全性是指保護資料庫以防止不合法的使用所造成的數據泄露、更改或破壞。由於資料庫系統中存放著大量的數據,且為許多用戶所共享,因此安全性問題是必須首先要解決的。一般計算機系統中的安全措施是按照“用戶標識和鑑別”、“DBMS存取控制”、“OS級安全控制”、“DB密碼存儲”來一級一級設定的。
在現在流行的資料庫系統中一般都提供以下兩種控制:用戶標識和鑑別、數據存取控制。
(2)數據完整性
為了保證資料庫數據的正確性和相容性,資料庫管理系統(DBMS)都提供了一種機制來檢查資料庫中的數據,看它是否滿足語義的規定條件,DBMS稱這種機制為“數據完整性檢查”。一般的DBMS中是通過完整性約束和資料庫觸發器來實現這一機制的。
(3)並發控制
在多用戶資料庫環境中,多個用戶程式可並行存取資料庫中的數據,為了以正確的方式調度該並發操作,避免造成“丟失修改”、“不能重讀”、“讀髒數據”等不一致的情況,DBMS引入了“並發控制”這一機制。
並發控制的主要方法是採用封鎖機制,一般採用兩種封鎖機制:共享機制和排它機制來實現。
(4)資料庫後備與恢復
主要使用轉儲、日誌等方法進行資料庫的恢復。
5.3.3 用戶界面設計
用戶界面是指軟體系統與用戶之間互動的接口,通常包括輸出,輸入,人機對話的界面與方式等。由於本系統的最終用戶是那些對計算機技術並不算很精通的管理人員,因此本系統採用了基於選單選擇,用戶名與密碼的填寫登入和頁框、按鈕及彈出表單等友好的用戶界面互動方式。
系統安全性驗證用戶界面設計
用戶登錄視窗界面是用戶看到的第一幅畫面,也是進入系統之前必須經過的一道“關口”。因此,簡潔、實用、友好、美觀、安全是設計時應當考慮到的風格。
用戶登錄本系統,登錄畫面為:
系統主畫面螢幕區域設計
進行系統的主畫面螢幕區域設計時,是將整個螢幕劃分為三個區域,如下圖所示:
主 菜 單 區
工 作 區
狀 態 信 息 區
在螢幕的最上方是主選單區,顯示本系統的功能主選單。用戶可以有滑鼠左鍵來選擇相應的選單,也可以用快捷鍵進行操作,然後用同樣的方法在相應選單下拉出該項的二級選單(如果有的話),如果還有三級選單,用戶可在二級選單選擇相應的功能項,系統會自動彈出三級選單。
當通過選單選擇了所要進行的工作以後,系統進入相應的業務處理功能,這時業務處理活動在螢幕中間區域即工作區進行。在整個業務處理過程中,主選單區始終存在以使用戶明確當前正在進行的處理,當用戶為業務處理完畢後,系統返回主選單。
5.3.4處理過程設計
處理過程設計要根據模組劃分以及結構化設計的基本原則,對每一程式處理模組中的詳細處理過程進行設計。常用的設計工具包括程式流程圖、過程化設計語言、判定表、判定樹等。
6. 系統的運行
管理信息系統在完成系統實施、投入正常運行之後,就進入了系統運行與維護階段。
6.1 系統的配置
1、硬體配置要求:
CPU:PII200以上。
記憶體:32MB以上。
硬碟:2.1GB以上(可用空間最好在160MB以上)。
印表機:推薦EPSON LQ-1600KII
2、軟體配置要求:
WINDOWS95/98/2000/XP中文版作業系統。
6.2 系統的運行
本系統運行:首先啟動WindowsXP,將本系統拷貝到硬碟相應地目錄下,運行“企業人事管理.EXE”即可。
本系統的主要選單功能簡介如下:
(1)系統管理:用戶名輸入,修改密碼,退出系統等。
(2)人員信息管理:包括職員基本信息、職員教育經歷、職員個人簡歷、職員崗位變動、職員獎懲登記、職員離退休登記。
(3)招聘信息管理:包括招聘人員基本信息、應聘人員錄取情況。
(4) 培訓信息管理:各部門培訓安排、員工培訓情況信息。
下面簡要介紹一下各種功能源碼實現:
用戶登入:
確定進入系統:command2_click()
i=i+1
if thisform.text2.value="123456"
keyb'{CTRL+F4}'
modi wind screen titl'人力資源管理系統'
do form rsgl\renshi
else
if i<3
messagebox("密碼錯,請重新輸入!")
thisform.text2.value=""
thisform.text2.setfocus
else
messagebox("密碼錯,禁止進入系統!")
thisform.release
endif
endif
do form rsgl\renshi
退出系統:
command1_click()
YN=MESSAGEBOX("確定退出系統",4+32,"用戶登錄")
IF YN==6
CLEAR EVENTS
QUIT
ENDIF
進入人事管理系統界面:
人員信息管理:page1:
職員基本信息:command1_click()
do form rsgl\jibenxinxi
職員教育經歷:command2_click()
do form rsgl\jiaoyujingli
職員個人簡歷:command3_click()
do form rsgl\zhiyuangerenjianli
職員崗位變動:command4_click()
do form rsgl\zhiyuangangweibiandong
職員獎懲登記:command5_click()
do form rsgl\zhiyuanjiangchengdengji
職員離退休登記:command6_click()
do form rsgl\zhiyuanlituixiudengji
招聘信息管理:page2:
招聘人員基本信息:command1_click()
do form rsgl\zhaopinrenyuanjibenxinxi
應聘人員錄取情況:command2_click()
do form rsgl\yingpinrenyuanluquqingkuang
培訓信息管理:page3:
各部門培訓安排:command1_click()
do form rsgl\gebumenpeixunanpai
員工培訓情況信息:command2_click()
do form rsgl\yuangongpeixunqingkuangxinxi
退出:
thisform.release
點擊按鈕分別彈出各表單:
增加新記錄:command1_click()
thisform.commandgroup1.enabled=.F.
thisform.command2.enabled=.F.
thisform.command3.enabled=.F.
thisform.command4.enabled=.T.
if thisform.command1.caption='增加新記錄'
thisform.txt職員編號.enabled=.T.
thisform.txt姓名.enabled=.T.
thisform.txt性別.enabled=.T.
thisform.txt出生日期.enabled=.T.
thisform.txt民族.enabled=.T.
thisform.txt文化程度.enabled=.T.
thisform.txt畢業學校.enabled=.T.
thisform.txt政治面貌.enabled=.T.
thisform.txt家庭地址.enabled=.T.
thisform.txt家庭電話.enabled=.T.
append blank
thisform.command1.caption='增加確認'
thisform.refresh
thisform.txt職員編號.setfocus
else
get職員編號=alltrim(thisform.txt職員編號.value)
get姓名=alltrim(thisform.txt姓名.value)
get性別=alltrim(thisform.txt性別.value)
get出生日期=alltrim(thisform.txt出生日期.value)
get民族=alltrim(thisform.txt民族.value)
get文化程度=alltrim(thisform.txt文化程度.value)
get畢業學校=alltrim(thisform.txt畢業學校.value)
get政治面貌=alltrim(thisform.txt政治面貌.value)
get家庭地址=alltrim(thisform.txt家庭地址.value)
get家庭電話=alltrim(thisform.txt家庭電話.value)
if empty(get職員編號) or empty(get姓名) or empty(get性別) or empty(get出生日期) or empty(get民族) or empty(get文化程度) or empty(get畢業學校) or empty(get政治面貌) or empty(get家庭地址) or empty(get家庭電話)
messagebox("資料不足",48,"錯誤")
else
thisform.command1.caption='增加新記錄'
tableupdate(.t.)
thisform.txt職員編號.enabled=.F.
thisform.txt姓名.enabled=.F.
thisform.txt性別.enabled=.F.
thisform.txt出生日期.enabled=.F.
thisform.txt民族.enabled=.F.
thisform.txt文化程度.enabled=.F.
thisform.txt畢業學校.enabled=.F.
thisform.txt政治面貌.enabled=.F.
thisform.txt家庭地址.enabled=.F.
thisform.txt家庭電話.enabled=.F.
thisform.commandgroup1.enabled=.T.
thisform.command2.enabled=.T.
thisform.command3.enabled=.T.
thisform.command4.enabled=.F.
endif
endif
修改記錄:command2_click()
thisform.command1.enabled=.F.
thisform.command3.enabled=.F.
thisform.command4.enabled=.T.
thisform.commandgroup1.enabled=.F.
if thisform.command2.caption='修改記錄'
thisform.txt職員編號.enabled=.T.
thisform.txt姓名.enabled=.T.
thisform.txt性別.enabled=.T.
thisform.txt出生日期.enabled=.T.
thisform.txt民族.enabled=.T.
thisform.txt文化程度.enabled=.T.
thisform.txt畢業學校.enabled=.T.
thisform.txt政治面貌.enabled=.T.
thisform.txt家庭地址.enabled=.T.
thisform.txt家庭電話.enabled=.T.
thisform.command2.caption='修改確認'
thisform.refresh
thisform.txt職員編號.setfocus
else
thisform.command2.caption='修改記錄'
tableupdate(.t.)
thisform.txt職員編號.enabled=.F.
thisform.txt姓名.enabled=.F.
thisform.txt性別.enabled=.F.
thisform.txt出生日期.enabled=.F.
thisform.txt民族.enabled=.F.
thisform.txt文化程度.enabled=.F.
thisform.txt畢業學校.enabled=.F.
thisform.txt政治面貌.enabled=.F.
thisform.txt家庭地址.enabled=.F.
thisform.txt家庭電話.enabled=.F.
thisform.command1.enabled=.T.
thisform.command3.enabled=.T.
thisform.command4.enabled=.F.
thisform.commandgroup1.enabled=.T.
endif
刪除記錄:command3_click()
get職員編號=alltrim(thisform.txt職員編號.value)
thisform.txt職員編號.controlsource=''
thisform.txt姓名.controlsource=''
thisform.txt性別.controlsource=''
thisform.txt出生日期.controlsource=''
thisform.txt民族.controlsource=''
thisform.txt文化程度.controlsource=''
thisform.txt畢業學校.controlsource=''
thisform.txt政治面貌.controlsource=''
thisform.txt家庭地址.controlsource=''
thisform.txt家庭電話.controlsource=''
use jbxx exclusive
set order to 職員編號
seek get職員編號
delete
pack
thisform.txt職員編號.controlsource='jbxx.職員編號'
thisform.txt姓名.controlsource='jbxx.姓名'
thisform.txt性別.controlsource='jbxx.性別'
thisform.txt出生日期.controlsource='jbxx.出生日期'
thisform.txt民族.controlsource='jbxx.民族'
thisform.txt文化程度.controlsource='jbxx.文化程度'
thisform.txt畢業學校.controlsource='jbxx.畢業學校'
thisform.txt政治面貌.controlsource='jbxx.政治面貌'
thisform.txt家庭地址.controlsource='jbxx.家庭地址'
thisform.txt家庭電話.controlsource='jbxx.家庭電話'
thisform.refresh
thisform.txt職員編號.enabled=.F.
thisform.txt姓名.enabled=.F.
thisform.txt性別.enabled=.F.
thisform.txt出生日期.enabled=.F.
thisform.txt民族.enabled=.F.
thisform.txt文化程度.enabled=.F.
thisform.txt畢業學校.enabled=.F.
thisform.txt政治面貌.enabled=.F.
thisform.txt家庭地址.enabled=.F.
thisform.txt家庭電話.enabled=.F.
取消操作:command4_click()
if thisform.command1.caption='增加確認'
thisform.command1.caption='增加新記錄'
thisform.command2.enabled=.T.
thisform.command3.enabled=.T.
thisform.commandgroup1.enabled=.T.
tablerevert(.f.)
endif
if thisform.command2.caption='修改確認'
thisform.command2.caption='修改記錄'
thisform.command1.enabled=.T.
thisform.command3.enabled=.T.
tablerevert(.f.)
endif
thisform.txt職員編號.enabled=.F.
thisform.txt姓名.enabled=.F.
thisform.txt性別.enabled=.F.
thisform.txt出生日期.enabled=.F.
thisform.txt民族.enabled=.F.
thisform.txt文化程度.enabled=.F.
thisform.txt畢業學校.enabled=.F.
thisform.txt政治面貌.enabled=.F.
thisform.txt家庭地址.enabled=.F.
thisform.txt家庭電話.enabled=.F.
thisform.commandgroup1.enabled=.T.
thisform.command4.enabled=.F.
thisform.refresh
退出:command5_click()
thisform.release
命令按鈕組commandgroup1:
上頁:command1_click()
skip -1
if bof()
messagebox("已是第一個記錄",48,"信息視窗")
this.parent.command1.enabled=.f.
this.parent.command3.enabled=.f.
skip
else
this.parent.command1.enabled=.t.
this.parent.command3.enabled=.t.
endif
this.parent.command2.enabled=.t.
this.parent.command4.enabled=.t.
thisform.refresh
下頁:command2_click()
skip
if eof()
messagebox("已是最後一條記錄",48,"信息視窗")
skip -1
this.parent.command2.enabled=.f.
this.parent.command4.enabled=.f.
else
this.parent.command2.enabled=.t.
this.parent.command4.enabled=.t.
endif
this.parent.command1.enabled=.t.
this.parent.command3.enabled=.t.
thisform.refresh
第一頁:command3_click()
goto top
this.parent.command1.enabled=.f.
this.parent.command2.enabled=.t.
this.parent.command4.enabled=.t.
thisform.refresh
最後一頁:command4_click()
goto bottom
this.parent.command2.enabled=.f.
this.parent.command1.enabled=.t.
this.parent.command3.enabled=.t.
thisform.refresh
其它幾個表單的程式也依次這樣列舉出來.故不重複描述.