表单代码.txt

VFP航班售票管理系统。源代码+设计说明书+演示文档

1.系统封面表单
(1)系统登录.click
release a,b,c,d,e,f,g,h
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form "权限认证表单.scx"
release thisform
(2)退出.click
thisform.release
*quit
2.权限认证表单
(1)确认权限.click
locate all for alltrim(密码表.用户姓名)==alltrim(thisform.Combo1.value)
if found()
if alltrim(thisform.text1.value)==alltrim(密码表.用户密码)
  thisform.release
  do form e:\vf课程设计案例\航班售票管理系统\FORMS\系统主表单.SCX
else
   thisform.Spinner1.value=thisform.Spinner1.value+1
   if thisform.Spinner1.value=3
     messagebox("口令不正确！"+chr(13)+"对不起,你无权使用！",48,"登录信息")
     release thisform
   else
     messagebox("口令不正确！请重新输入！",48,"登录信息")
     thisform.Combo1.setfocus
     thisform.text1.value=""
     thisform.refresh
   endif
 endif
endif  
(2)返回.click
thisform.release
3.系统主表单
(1)乘客订票购票表单.click
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 乘客订票购票表单.SCX
(2)乘客查询与退票表单.click
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 乘客查询与退票表单.SCX
(3)飞行时刻查询表单.click
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 飞行时刻查询表单.scx
(4)系统维护选择表单.click
set path to e;\vf课程设计案例\航班售票管理系统\FORMS
do form 系统维护选择表单.SCX
(5)航班售票收入统计.click
set path to e;\vf课程设计案例\航班售票管理系统\FORMS
do form 航班售票收入统计表单.SCX
(6)结束操作.click
messagebox("真的要退出吗?",0+4+0,"")
t=messagebox("真的要退出吗?",0+4+0,"")
if t=6
      thisform.release
     quit
endif   
4.售票订票窗口.
(1)前一航班.click
sele 航班信息数据表
if recno()<>1
skip -1
thisform.refresh
else
messagebox("已经为第一个航班号记录!")
endif
(2)下一航班.click
sele 航班信息数据表
if not eof()
  skip
  thisform.refresh
else
  messagebox("已经是最后一个航班的记录!")
endif
(3)新乘客订票.click
sele 乘客信息数据表
  if this.caption="新乘客订票"
    this.caption="保存新乘客记录"
    this.parent.parent.tag=str(recno())
    this.parent.parent.grd 乘客信息数据表.setfocus
    append blank
  else
    this.caption="新乘客订票"
    this.parent.command2.caption="修改订票记录"
  endif
sele 航班座位等级分配与座位占用表
locate all for alltrim(航班座位等级分配与座位占用表.座位号)==alltrim(thisform.grd 乘客信息数据表.Column2.Text1.value)   this.parent.parent.text1.value="*"  this.parent.parent.refresh 
(4).修改订票记录.click
  if  this.caption="修改订票记录"
     this.caption="取消修改"
     this.parent.command1.caption="保存修改"
     this.parent.parent.tag=str(recno())
  else
     this.caption="修改订票记录"
     this.parent.command1.caption="新乘客订票"
     tablerevert()
     this.parent.parent.refresh
  endif
  go val(this.parent.parent.tag)
  this.parent.parent.refresh
  (5).备份数据.click
  sele 乘客信息数据表
  copy to e:\vf课程设计案例\航班售票管理系统\DATA\temp
5.6.乘客查询与退票
(1)确认密码.click
   sele 密码表
   locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
   if found()
   thisform.grd 乘客信息数据表.readonly=.f.
   thisform.Commandgroup1.command3.enabled=.t.
   else
   messagebox("对不起,你不是合法用户,不能退票")
   endif
 (2)查找乘客.click
   thisform.grd 乘客信息数据表.setfocus
   locate all for alltrim(乘客信息数据表.身份证号)==alltrim(this.parent.parent.text2.value)
   if found()
     y=recno()
     go y
     messagebox("乘客已经找到,提示乘客先办理完相关手续,否则不能退票!")
   else
     messagebox("未找到该乘客,请确认!")
   endif
确认退票.click
  locate all for alltrim(乘客信息数据表.身份证号)==alltrim(this.parent.parent.text2.value)
  if found()
  if messagebox("当前乘客确实要退票吗?!",32+4+256,"开户确认")=6
  y=recno()
  go y
  this.parent.parent.refresh
  sele 航班座位等级分配与座位占用表
  locate all for alltrim(航班座位等级分配与座位占用表.座位号)==alltrim(this.parent.parent.text3.value)
  x=recno()
  go x
  this.parent.parent.text4.value=""
  release x
  sele 乘客信息数据表
  this.tag=this.parent.parent.grd 乘客信息数据表.RecordSource
  delete next 1
  pack
  this.parent.parent.grd 乘客信息数据表.RecordSource=this.tag
  release y
  thisform.refresh
  else
  messagebox("该乘客未退票,座位仍被占用!")
  thisform.refresh
  endif
  else
  messagebox("对不起,该乘客未找到,请确认身份证号码!")
  endif
6.飞行时刻查询窗口
(1)执行查询.click
sele 航班信息数据表
 do case
   case thisform.Optiongroup1.value=1
   set filter to 航班号=alltrim(thisform.text1.value)
   thisform.refresh
   case thisform.Optiongroup1.value=2
   set filter to 发出城市=alltrim(thisform.text1.value)
   thisform.refresh
   case thisform.Optiongroup1.value=3
   set filter to 到达城市=alltrim(thisform.text1.value)
   thisform.refresh
   case thisform.Optiongroup1.value=4
   set filter to 发出时间=alltrim(thisform.text1.value)
   thisform.refresh
   case thisform.Optiongroup1.value=5
   set filter to 到达时间=alltrim(thisform.text1.value)
   thisform.refresh
   endcase
(2).取消查询click
   sele 航班信息数据表
   set filter to
   thisform.refresh
7.收入统计
(1)执行统计.click
  sele temp
  set talk off
  do case
     case thisform.Optiongroup1.value=1
     set filter to 航班号=alltrim(thisform.text1.value)
     sum 票价 to x
     thisform.label3.caption="统计的航班号为:"+alltrim(thisform.text1.value)+"该航班的总收入为:"
     thisform.text2.value=x
     case thisform.Optiongroup1.value=2
     set filter to 飞行日期=alltrim(thisform.text1.value)
     sum 票价 to x
     thisform.label3.caption="统计的日期为:"+alltrim(thisform.text1.value)+"该天的收入为:"
     thisform.text2.value=x
endcase
thisform.refresh
(2)取消统计click
sele temp
set talk off
set filter to
thisform.refresh
8系统维护选择窗口
(1).用户权限维护.cset path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 用户权限维护表单.scx
(2)航班座位等级初始化.click
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 航班座位与等级配置表单.scx
(3)数据清理.click
set path to e:\vf课程设计案例\航班售票管理系统\FORMS
do form 系统数据清理表单.scx
9.用户权限维护
(1)添加新用户.click
  locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
  if not found()
  messagebox("你不是原合法用户,不能添加新用户,请确认!","错误提示")
  else
  this.parent.tag=str(recno())
  append blank
  thisform.text1.enabled=.t.
  thisform.text2.enabled=.f.
  thisform.text3.enabled=.t.
  thisform.text1.value=""
  thisform.text3.value=""
  endif
(2).删除旧用户.click
  locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
  if found()=.f.
  messagebox("你不是原合法用户,不能删除用户!","错误提示")
  else
  this.parent.tag=str(recno()) 
  thisform.refresh
  delete
  thisform.text1.enabled=.t.
  thisform.text2.enabled=.f.
  thisform.text3.enabled=.t.
  endif
(3)修改旧密码.click
 locate all for alltrim(密码表.用户密码)==alltrim(thisform.text2.value)
 if found()=.f.
 messagebox("你不是原合法用户,不能修改用户密码!","错误提示")
 else
 this.parent.tag=str(recno())
 thisform.refresh
 thisform.text1.enabled=.t.
 thisform.text2.enabled=.f.
 thisform.text3.enabled=.t.
 endif
(4) 确认增加.click
  thisform.refresh
  thisform.text1.enabled=.f.
  thisform.text3.enabled=.t.
(5) 确认删除.click
   if messagebox("是否确认删除当前记录!",32+4+256,"删除记录")=6
   pack
   thisform.refresh
   endif
 (6)确认修改.click
   if messagebox("是否确认修改当前用户!",32+4+256,"修改确认")=6
   thisform.refresh
   endif
10座位登记初始化
(1)确认密码.click
  sele 密码表
  locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
  if found()
  thisform.grd 航班座位等级分配与座位占用表.readonly=.f.
  thisform.grd 航班座位等级分配与座位占用表.AllowAddNew=.t.
  messagebox("你已经通过权限认证,请在左边的表格中进行航班座位配置!")
  else
  messagebox("对不起,你不是合法用户,无法配置航班座位与等级!")
  endif
11数据清理表单
(1)确认密码
  sele 密码表
  locate all for alltrim(密码表.用户密码)==alltrim(thisform.text1.value)
  if found()
  thisform.grd 乘客信息数据表.readonly=.f.
  thisform.grd 乘客信息数据表.AllowAddNew=.t.
  thisform.Command1.enabled=.t.
  messagebox("你已经通过权限认证,请设置数据删除条件并执行删除操作!")
  else
  messagebox("对不起,你不是合法用户,无权进行数据删除操作!")
  endif
(2)执行删除
  sele 乘客信息数据表
  this.tag=thisform.grd 乘客信息数据表.recordsource
  dele for &cond
  pack
  thisform.grd 乘客信息数据表.recordsource=this.tag
  else
  messagebox("记录并未删除,仍可使用!")
  endif
 case  thisform,Optiongroup2.value=1                                                                     cond="("+thisform.combo1.value+"="+"'"+alltrim(thisform.text2.value)+"'"+")"+"and"+;"
   ("+thisform.combo2.value+"="+"'"+alltrim(thisform.text3.value)+"'"+")"
  if messagebox("确实要删除符合条件的记录吗,请确认!",32+4+256,"信息提示")=6
    sele 乘客信息数据表
    this.tag=thisform.grd 乘客信息数据表.recordsource
    dele for &cond
    pack
    thisform.grd 乘客信息数据表.recordsource=this.tag
  else
    messagebox("记录并未删除,仍可使用!")
  endif
  case thisform.Optiongroup2.value=2
  cond="("+thisform.combo1.value+"="+"'"+alltrim(thisform.text2.value)+"'"+")"+"or"+;
  "("+thisform.combo2.value+"="+"'"+alltrim(thisform.text3.value)+"'"+")"
  if messagebox("确实要删除符合条件的记录吗,请确认!",32+4+256,"信息提示")=6
    sele 乘客信息数据表
    this.tag=thisform.grd 乘客信息数据表.recordsource
    dele for &cond
    pack
    thisform.grd 乘客信息数据表.recordsource=this.tag
  else
    messagebox("记录并未删除,仍可使用!")
  endif 
  endcase
 endcase