delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
排班算法跪求 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061208131750224.html
字段名 字段 数据类型       说明  
  序号 ID int         自增  
  医生编号 DocNo Char[8]         外键  
  轮值周期 ReturnType       int         0   周,1半月,2一个月;缺省   0  
  轮值序号 ReturnID         int         当ReturnType为0,取值为1-7;当ReturnType为1,取值为1-15;当ReturnType为2,取值为1-31(根据月份应不一样);  
   
  班次 ReturnSq int         1上午班、2下午班、3晚班、0整班  
  生效日期 ValideTime     Date  
  是否专家 IsPro Boolean         0   不是,1是  
  类别 ProType Char[6]  
   
   
  数据表形式如上,我该怎么实现说明中的所说~

10分少了点吧!   呵呵呵呵.

可是我只能写10不知道为什么??

帮我下吧~

10分少了点吧!   呵呵呵呵.  
  -------------------开玩笑的别在意  
  没有问题,   给你做一个.   如果你能等待的话.   晚上好吗?

好的.我自己想了个很白痴的方法.不是算法.都是在界面上实现的.选了"轮值周期"ReturnType之后,要录入"轮值序号   "使用mousedown事件来判断我选择的ReturnType,根据选择跳出不同的窗口,提示选择"轮值序号   ",这时是用combobox手动添加好""轮值序号   "供选择.比如我选了   ReturnType为0,那判断后跳出另一个FORM,上面的   combobox供选择已经设好了1-7.依次类推...很小儿科的做法~  
  老冯麻烦指点下比较"专业"的算法

posted on 2009-02-11 16:49 delphi2007 阅读(222) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。