表单代码.txt
上传用户:jeanshu
上传日期:2015-02-14
资源大小:11145k
文件大小:9k
源码类别:

交通/航空行业

开发平台:

Others

  1. 1.系统封面表单
  2. (1)系统登录.click
  3. release a,b,c,d,e,f,g,h
  4. set path to e:vf课程设计案例航班售票管理系统FORMS
  5. do form "权限认证表单.scx"
  6. release thisform
  7. (2)退出.click
  8. thisform.release
  9. *quit
  10. 2.权限认证表单
  11. (1)确认权限.click
  12. locate all for alltrim(密码表.用户姓名)==alltrim(thisform.Combo1.value)
  13. if found()
  14. if alltrim(thisform.text1.value)==alltrim(密码表.用户密码)
  15.   thisform.release
  16.   do form e:vf课程设计案例航班售票管理系统FORMS系统主表单.SCX
  17. else
  18.    thisform.Spinner1.value=thisform.Spinner1.value+1
  19.    if thisform.Spinner1.value=3
  20.      messagebox("口令不正确!"+chr(13)+"对不起,你无权使用!",48,"登录信息")
  21.      release thisform
  22.    else
  23.      messagebox("口令不正确!请重新输入!",48,"登录信息")
  24.      thisform.Combo1.setfocus
  25.      thisform.text1.value=""
  26.      thisform.refresh
  27.    endif
  28.  endif
  29. endif  
  30. (2)返回.click
  31. thisform.release
  32. 3.系统主表单
  33. (1)乘客订票购票表单.click
  34. set path to e:vf课程设计案例航班售票管理系统FORMS
  35. do form 乘客订票购票表单.SCX
  36. (2)乘客查询与退票表单.click
  37. set path to e:vf课程设计案例航班售票管理系统FORMS
  38. do form 乘客查询与退票表单.SCX
  39. (3)飞行时刻查询表单.click
  40. set path to e:vf课程设计案例航班售票管理系统FORMS
  41. do form 飞行时刻查询表单.scx
  42. (4)系统维护选择表单.click
  43. set path to e;vf课程设计案例航班售票管理系统FORMS
  44. do form 系统维护选择表单.SCX
  45. (5)航班售票收入统计.click
  46. set path to e;vf课程设计案例航班售票管理系统FORMS
  47. do form 航班售票收入统计表单.SCX
  48. (6)结束操作.click
  49. messagebox("真的要退出吗?",0+4+0,"")
  50. t=messagebox("真的要退出吗?",0+4+0,"")
  51. if t=6
  52.       thisform.release
  53.      quit
  54. endif   
  55. 4.售票订票窗口.
  56. (1)前一航班.click
  57. sele 航班信息数据表
  58. if recno()<>1
  59. skip -1
  60. thisform.refresh
  61. else
  62. messagebox("已经为第一个航班号记录!")
  63. endif
  64. (2)下一航班.click
  65. sele 航班信息数据表
  66. if not eof()
  67.   skip
  68.   thisform.refresh
  69. else
  70.   messagebox("已经是最后一个航班的记录!")
  71. endif
  72. (3)新乘客订票.click
  73. sele 乘客信息数据表
  74.   if this.caption="新乘客订票"
  75.     this.caption="保存新乘客记录"
  76.     this.parent.parent.tag=str(recno())
  77.     this.parent.parent.grd 乘客信息数据表.setfocus
  78.     append blank
  79.   else
  80.     this.caption="新乘客订票"
  81.     this.parent.command2.caption="修改订票记录"
  82.   endif
  83. sele 航班座位等级分配与座位占用表
  84. locate all for alltrim(航班座位等级分配与座位占用表.座位号)==alltrim(thisform.grd 乘客信息数据表.Column2.Text1.value)   this.parent.parent.text1.value="*"  this.parent.parent.refresh 
  85. (4).修改订票记录.click
  86.   if  this.caption="修改订票记录"
  87.      this.caption="取消修改"
  88.      this.parent.command1.caption="保存修改"
  89.      this.parent.parent.tag=str(recno())
  90.   else
  91.      this.caption="修改订票记录"
  92.      this.parent.command1.caption="新乘客订票"
  93.      tablerevert()
  94.      this.parent.parent.refresh
  95.   endif
  96.   go val(this.parent.parent.tag)
  97.   this.parent.parent.refresh
  98.   (5).备份数据.click
  99.   sele 乘客信息数据表
  100.   copy to e:vf课程设计案例航班售票管理系统DATAtemp
  101. 5.6.乘客查询与退票
  102. (1)确认密码.click
  103.    sele 密码表
  104.    locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
  105.    if found()
  106.    thisform.grd 乘客信息数据表.readonly=.f.
  107.    thisform.Commandgroup1.command3.enabled=.t.
  108.    else
  109.    messagebox("对不起,你不是合法用户,不能退票")
  110.    endif
  111.  (2)查找乘客.click
  112.    thisform.grd 乘客信息数据表.setfocus
  113.    locate all for alltrim(乘客信息数据表.身份证号)==alltrim(this.parent.parent.text2.value)
  114.    if found()
  115.      y=recno()
  116.      go y
  117.      messagebox("乘客已经找到,提示乘客先办理完相关手续,否则不能退票!")
  118.    else
  119.      messagebox("未找到该乘客,请确认!")
  120.    endif
  121. 确认退票.click
  122.   locate all for alltrim(乘客信息数据表.身份证号)==alltrim(this.parent.parent.text2.value)
  123.   if found()
  124.   if messagebox("当前乘客确实要退票吗?!",32+4+256,"开户确认")=6
  125.   y=recno()
  126.   go y
  127.   this.parent.parent.refresh
  128.   sele 航班座位等级分配与座位占用表
  129.   locate all for alltrim(航班座位等级分配与座位占用表.座位号)==alltrim(this.parent.parent.text3.value)
  130.   x=recno()
  131.   go x
  132.   this.parent.parent.text4.value=""
  133.   release x
  134.   sele 乘客信息数据表
  135.   this.tag=this.parent.parent.grd 乘客信息数据表.RecordSource
  136.   delete next 1
  137.   pack
  138.   this.parent.parent.grd 乘客信息数据表.RecordSource=this.tag
  139.   release y
  140.   thisform.refresh
  141.   else
  142.   messagebox("该乘客未退票,座位仍被占用!")
  143.   thisform.refresh
  144.   endif
  145.   else
  146.   messagebox("对不起,该乘客未找到,请确认身份证号码!")
  147.   endif
  148. 6.飞行时刻查询窗口
  149. (1)执行查询.click
  150. sele 航班信息数据表
  151.  do case
  152.    case thisform.Optiongroup1.value=1
  153.    set filter to 航班号=alltrim(thisform.text1.value)
  154.    thisform.refresh
  155.    case thisform.Optiongroup1.value=2
  156.    set filter to 发出城市=alltrim(thisform.text1.value)
  157.    thisform.refresh
  158.    case thisform.Optiongroup1.value=3
  159.    set filter to 到达城市=alltrim(thisform.text1.value)
  160.    thisform.refresh
  161.    case thisform.Optiongroup1.value=4
  162.    set filter to 发出时间=alltrim(thisform.text1.value)
  163.    thisform.refresh
  164.    case thisform.Optiongroup1.value=5
  165.    set filter to 到达时间=alltrim(thisform.text1.value)
  166.    thisform.refresh
  167.    endcase
  168. (2).取消查询click
  169.    sele 航班信息数据表
  170.    set filter to
  171.    thisform.refresh
  172. 7.收入统计
  173. (1)执行统计.click
  174.   sele temp
  175.   set talk off
  176.   do case
  177.      case thisform.Optiongroup1.value=1
  178.      set filter to 航班号=alltrim(thisform.text1.value)
  179.      sum 票价 to x
  180.      thisform.label3.caption="统计的航班号为:"+alltrim(thisform.text1.value)+"该航班的总收入为:"
  181.      thisform.text2.value=x
  182.      case thisform.Optiongroup1.value=2
  183.      set filter to 飞行日期=alltrim(thisform.text1.value)
  184.      sum 票价 to x
  185.      thisform.label3.caption="统计的日期为:"+alltrim(thisform.text1.value)+"该天的收入为:"
  186.      thisform.text2.value=x
  187. endcase
  188. thisform.refresh
  189. (2)取消统计click
  190. sele temp
  191. set talk off
  192. set filter to
  193. thisform.refresh
  194. 8系统维护选择窗口
  195. (1).用户权限维护.cset path to e:vf课程设计案例航班售票管理系统FORMS
  196. do form 用户权限维护表单.scx
  197. (2)航班座位等级初始化.click
  198. set path to e:vf课程设计案例航班售票管理系统FORMS
  199. do form 航班座位与等级配置表单.scx
  200. (3)数据清理.click
  201. set path to e:vf课程设计案例航班售票管理系统FORMS
  202. do form 系统数据清理表单.scx
  203. 9.用户权限维护
  204. (1)添加新用户.click
  205.   locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
  206.   if not found()
  207.   messagebox("你不是原合法用户,不能添加新用户,请确认!","错误提示")
  208.   else
  209.   this.parent.tag=str(recno())
  210.   append blank
  211.   thisform.text1.enabled=.t.
  212.   thisform.text2.enabled=.f.
  213.   thisform.text3.enabled=.t.
  214.   thisform.text1.value=""
  215.   thisform.text3.value=""
  216.   endif
  217. (2).删除旧用户.click
  218.   locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
  219.   if found()=.f.
  220.   messagebox("你不是原合法用户,不能删除用户!","错误提示")
  221.   else
  222.   this.parent.tag=str(recno()) 
  223.   thisform.refresh
  224.   delete
  225.   thisform.text1.enabled=.t.
  226.   thisform.text2.enabled=.f.
  227.   thisform.text3.enabled=.t.
  228.   endif
  229. (3)修改旧密码.click
  230.  locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
  231.  if found()=.f.
  232.  messagebox("你不是原合法用户,不能修改用户密码!","错误提示")
  233.  else
  234.  this.parent.tag=str(recno())
  235.  thisform.refresh
  236.  thisform.text1.enabled=.t.
  237.  thisform.text2.enabled=.f.
  238.  thisform.text3.enabled=.t.
  239.  endif
  240. (4) 确认增加.click
  241.   thisform.refresh
  242.   thisform.text1.enabled=.f.
  243.   thisform.text3.enabled=.t.
  244. (5) 确认删除.click
  245.    if messagebox("是否确认删除当前记录!",32+4+256,"删除记录")=6
  246.    pack
  247.    thisform.refresh
  248.    endif
  249.  (6)确认修改.click
  250.    if messagebox("是否确认修改当前用户!",32+4+256,"修改确认")=6
  251.    thisform.refresh
  252.    endif
  253. 10座位登记初始化
  254. (1)确认密码.click
  255.   sele 密码表
  256.   locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
  257.   if found()
  258.   thisform.grd 航班座位等级分配与座位占用表.readonly=.f.
  259.   thisform.grd 航班座位等级分配与座位占用表.AllowAddNew=.t.
  260.   messagebox("你已经通过权限认证,请在左边的表格中进行航班座位配置!")
  261.   else
  262.   messagebox("对不起,你不是合法用户,无法配置航班座位与等级!")
  263.   endif
  264. 11数据清理表单
  265. (1)确认密码
  266.   sele 密码表
  267.   locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
  268.   if found()
  269.   thisform.grd 乘客信息数据表.readonly=.f.
  270.   thisform.grd 乘客信息数据表.AllowAddNew=.t.
  271.   thisform.Command1.enabled=.t.
  272.   messagebox("你已经通过权限认证,请设置数据删除条件并执行删除操作!")
  273.   else
  274.   messagebox("对不起,你不是合法用户,无权进行数据删除操作!")
  275.   endif
  276. (2)执行删除
  277.   sele 乘客信息数据表
  278.   this.tag=thisform.grd 乘客信息数据表.recordsource
  279.   dele for &cond
  280.   pack
  281.   thisform.grd 乘客信息数据表.recordsource=this.tag
  282.   else
  283.   messagebox("记录并未删除,仍可使用!")
  284.   endif
  285.  case  thisform,Optiongroup2.value=1                                                                     cond="("+thisform.combo1.value+"="+"'"+alltrim(thisform.text2.value)+"'"+")"+"and"+;"
  286.    ("+thisform.combo2.value+"="+"'"+alltrim(thisform.text3.value)+"'"+")"
  287.   if messagebox("确实要删除符合条件的记录吗,请确认!",32+4+256,"信息提示")=6
  288.     sele 乘客信息数据表
  289.     this.tag=thisform.grd 乘客信息数据表.recordsource
  290.     dele for &cond
  291.     pack
  292.     thisform.grd 乘客信息数据表.recordsource=this.tag
  293.   else
  294.     messagebox("记录并未删除,仍可使用!")
  295.   endif
  296.   case thisform.Optiongroup2.value=2
  297.   cond="("+thisform.combo1.value+"="+"'"+alltrim(thisform.text2.value)+"'"+")"+"or"+;
  298.   "("+thisform.combo2.value+"="+"'"+alltrim(thisform.text3.value)+"'"+")"
  299.   if messagebox("确实要删除符合条件的记录吗,请确认!",32+4+256,"信息提示")=6
  300.     sele 乘客信息数据表
  301.     this.tag=thisform.grd 乘客信息数据表.recordsource
  302.     dele for &cond
  303.     pack
  304.     thisform.grd 乘客信息数据表.recordsource=this.tag
  305.   else
  306.     messagebox("记录并未删除,仍可使用!")
  307.   endif 
  308.   endcase
  309.  endcase