企業(yè)經(jīng)營模擬中實現(xiàn)局域網(wǎng)選單探索

摘 要:企業(yè)經(jīng)營模擬課程中的選單環(huán)節(jié)，在現(xiàn)場選單中，很難控制，浪費時間，不利于比賽。通過對選單流程的分析，試圖用delphi、sql構(gòu)建的C/S來實現(xiàn)網(wǎng)絡(luò)控制選單，達到選單有效控制，時間精確控制，用于比賽的目的。

關(guān)鍵詞:企業(yè)經(jīng)營模擬;delphi;局域網(wǎng)選單

中圖分類號:F24

文獻標(biāo)識碼:A

文章編號:1672-3198(2010)12-0299-01

1 企業(yè)經(jīng)營模擬課程中現(xiàn)場選單狀況

企業(yè)經(jīng)營模擬課程一般是將受訓(xùn)者分為若干小組，在同一市場環(huán)境中進行競爭博弈。通過模擬企業(yè)運行狀況，讓受訓(xùn)者在做中學(xué)，學(xué)后用，調(diào)動受訓(xùn)者的主觀能動性，激發(fā)學(xué)生受訓(xùn)者的學(xué)習(xí)潛能，讓他們身臨其境地感受一個企業(yè)經(jīng)營者直面市場競爭的精彩與殘酷。

其中，企業(yè)每年的訂單獲得是靠廣告費的多少來排序選單。當(dāng)每年投完廣告費后，就由老師在黑板上或EXCEL上進行排序。排序的規(guī)則如下:

按某市場某產(chǎn)品廣告投入量，高者優(yōu)先;若該市場該產(chǎn)品廣告投入相同，則比較該產(chǎn)品所有市場廣告投入之和;若該產(chǎn)品所有市場廣告投放相同，則比較所有產(chǎn)品，所有市場兩者的廣告總投入;若所有產(chǎn)品，所有市場兩者的廣告總投入也相同，則時間優(yōu)先。

排序完成后，就是各組選單。此時，現(xiàn)場氣氛熱烈，幾乎所有人都擠在屏幕前，討論、爭論、問詢，場面混亂，難以控制。選單時，會出現(xiàn)猶豫不決，組員相互討論，在老師的多次催促下仍無法選單的情況時有發(fā)生。這就顯得場面混亂，而且也浪費時間，如果是比賽的話，無疑，思考和考慮得最久的組將得利最大，這勢必會造成整個比賽時間的延長。

2 網(wǎng)絡(luò)選單的實現(xiàn)

2.1 Delphi簡介

由Borland公司推出的Delphi是全新的可視化編程環(huán)境，是一種方便、快捷的應(yīng)用程序開發(fā)工具。它使用了Microsoft Windows圖形用戶界面的許多先進特性和設(shè)計思想，采用了彈性可重復(fù)利用的完整的面向?qū)ο蟪绦蛘Z言。

2.2 SQL的簡介

SQL是高級的非過程化編程語言，允許用戶在高層數(shù)據(jù)結(jié)構(gòu)上工作。它不要求用戶指定對數(shù)據(jù)的存放方法，也不需要用戶了解具體的數(shù)據(jù)存放方式，所以具有完全不同底層結(jié)構(gòu)的不同數(shù)據(jù)庫系統(tǒng)可以使用相同的SQL語言作為數(shù)據(jù)輸入與管理的接口。它以記錄集合作為操作對象，所有SQL語句接受集合作為輸入，返回集合作為輸出，這種集合特性允許一條SQL語句的輸出作為另一條SQL語句的輸入，所以SQL語句可以嵌套，這使他具有極大的靈活性和強大的功能，在多數(shù)情況下，在其他語言中需要一大段程序?qū)崿F(xiàn)的功能只需要一個SQL語句就可以達到目的，這也意味著用SQL語言可以寫出非常復(fù)雜的語句。

2.3 CS網(wǎng)絡(luò)模式的結(jié)構(gòu)、工作原理和特點

CS模式是一種兩層結(jié)構(gòu)的系統(tǒng):第一層是在客戶機系統(tǒng)上結(jié)合了表示與業(yè)務(wù)邏輯;第二層是通過網(wǎng)絡(luò)結(jié)合了數(shù)據(jù)庫服務(wù)器。首先，交互性強是CS固有的一個優(yōu)點。在CS中，客戶端有一套完整應(yīng)用程序，在出錯提示、在線幫助等方面都有強大的功能，并且可以在子程序間自由切換。其次，CS模式提供了更安全的存取模式。由于CS配備的是點對點的結(jié)構(gòu)模式，采用適用于局域網(wǎng)、安全性可以得到可靠的保證。由于客戶端實現(xiàn)與服務(wù)器的直接相連，沒有中間環(huán)節(jié)，因此響應(yīng)速度快。同時由于開發(fā)是針對性的，因此，操作界面漂亮，形式多樣，可以充分滿足客戶自身的個性化要求。

2.4 實現(xiàn)

按照競單排序流程，服務(wù)器將客戶機的信息收集后，實現(xiàn)如下:

If cb years.itemindex=-1 then

Begin

Show message(\"請先選擇年度!“)

Exit;

End;

Qry，active:=true

If not qry1.isempty then

Begin

Showmessage(cbyears.text+’的選單已經(jīng)開始!);

Exit;

End;

Str:=’確認開始‘+cbyears.text+’的競單嗎?’;

If application.message box(pchar(str)，’提示’，mb_okcancel)=2 then

Exit

Qyr，sql.text:=’update sysparams set value =”1” where kind =”contestbill”and param =”+int tostr(cb yeara.itemindex)+;

Qry1.execsql;

Show message(現(xiàn)在可以進行‘+cb years.text+’的競單了!);

Time1，enabled:=true;

Bbrefresh.enabled;=true;

3 測試

設(shè)定為六組，進行了兩輪，每輪6年的測試。用現(xiàn)場選單的方式來驗證網(wǎng)絡(luò)選單，是正確的。

參考文獻

[1]劉建永，運籌學(xué)算法與編程實踐—Delphi實現(xiàn)[M].北京:清華大學(xué)出版社，2004.

[2]羅鴻，王忠民.ERP原理、設(shè)計、實施[M].北京:電子工業(yè)出版社，2003.