企业经营模拟中实现局域网选单探索
摘 要:企业经营模拟课程中的选单环节,在现场选单中,很难控制,浪费时间,不利于比赛。通过对选单流程的分析,试图用delphi、sql构建的C/S来实现网络控制选单,达到选单有效控制,时间精确控制,用于比赛的目的。
关键词:企业经营模拟;delphi;局域网选单
中图分类号:F24
文献标识码:A
文章编号:1672-3198(2010)12-0299-01
1 企业经营模拟课程中现场选单状况
企业经营模拟课程一般是将受训者分为若干小组,在同一市场环境中进行竞争博弈。通过模拟企业运行状况,让受训者在做中学,学后用,调动受训者的主观能动性,激发学生受训者的学习潜能,让他们身临其境地感受一个企业经营者直面市场竞争的精彩与残酷。
其中,企业每年的订单获得是靠广告费的多少来排序选单。当每年投完广告费后,就由老师在黑板上或EXCEL上进行排序。排序的规则如下:
按某市场某产品广告投入量,高者优先;若该市场该产品广告投入相同,则比较该产品所有市场广告投入之和;若该产品所有市场广告投放相同,则比较所有产品,所有市场两者的广告总投入;若所有产品,所有市场两者的广告总投入也相同,则时间优先。
排序完成后,就是各组选单。此时,现场气氛热烈,几乎所有人都挤在屏幕前,讨论、争论、问询,场面混乱,难以控制。选单时,会出现犹豫不决,组员相互讨论,在老师的多次催促下仍无法选单的情况时有发生。这就显得场面混乱,而且也浪费时间,如果是比赛的话,无疑,思考和考虑得最久的组将得利最大,这势必会造成整个比赛时间的延长。
2 网络选单的实现
2.1 Delphi简介
由Borland公司推出的Delphi是全新的可视化编程环境,是一种方便、快捷的应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想,采用了弹性可重复利用的完整的面向对象程序语言。
2.2 SQL的简介
SQL是高级的非过程化编程语言,允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法,也不需要用户了解具体的数据存放方式,所以具有完全不同底层结构的不同数据库系统可以使用相同的SQL语言作为数据输入与管理的接口。它以记录集合作为操作对象,所有SQL语句接受集合作为输入,返回集合作为输出,这种集合特性允许一条SQL语句的输出作为另一条SQL语句的输入,所以SQL语句可以嵌套,这使他具有极大的灵活性和强大的功能,在多数情况下,在其他语言中需要一大段程序实现的功能只需要一个SQL语句就可以达到目的,这也意味着用SQL语言可以写出非常复杂的语句。
2.3 CS网络模式的结构、工作原理和特点
CS模式是一种两层结构的系统:第一层是在客户机系统上结合了表示与业务逻辑;第二层是通过网络结合了数据库服务器。首先,交互性强是CS固有的一个优点。在CS中,客户端有一套完整应用程序,在出错提示、在线帮助等方面都有强大的功能,并且可以在子程序间自由切换。其次,CS模式提供了更安全的存取模式。由于CS配备的是点对点的结构模式,采用适用于局域网、安全性可以得到可靠的保证。由于客户端实现与服务器的直接相连,没有中间环节,因此响应速度快。同时由于开发是针对性的,因此,操作界面漂亮,形式多样,可以充分满足客户自身的个性化要求。
2.4 实现
按照竞单排序流程,服务器将客户机的信息收集后,实现如下:
If cb years.itemindex=-1 then
Begin
Show message("请先选择年度!“)
Exit;
End;
Qry,active:=true
If not qry1.isempty then
Begin
Showmessage(cbyears.text+’的选单已经开始!);
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(现在可以进行‘+cb years.text+’的竞单了!);
Time1,enabled:=true;
Bbrefresh.enabled;=true;
3 测试
设定为六组,进行了两轮,每轮6年的测试。用现场选单的方式来验证网络选单,是正确的。
参考文献
[1]刘建永,运筹学算法与编程实践—Delphi实现[M].北京:清华大学出版社,2004.
[2]罗鸿,王忠民.ERP原理、设计、实施[M].北京:电子工业出版社,2003.
推荐访问: 选单 企业经营 局域网 探索 模拟