表单代码.txt
上传用户:jeanshu
上传日期:2015-02-14
资源大小:11145k
文件大小:9k
- 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课程设计案例航班售票管理系统DATAtemp
- 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