main.prg

出租车公司车辆管理系统

*******main.prg**************
set talk off

set sysmenu to

deactivate window 常用
deactivate window  command
define pad pad1 of _msysmenu prompt "文件" color scheme 3
define pad pad2 of _msysmenu prompt "系统" color scheme 3

on pad pad1 of _msysmenu activate popup 文件
on pad pad2 of _msysmenu activate popup 系统

define popup 文件 margin relative shadow color scheme 4
define bar 1 of 文件 prompt "驾驶员信息"
on selection bar 1 of 文件 do jsyprg
define bar 2 of 文件 prompt "机动车信息"
on selection bar 2 of 文件 do jdcprg
define bar 3 of 文件 prompt "\-------------"
define bar 4 of 文件 prompt "退出"
on selection bar 4 of 文件 do exitprg
define popup 系统 margin relative shadow color scheme 4
define bar 1 of 系统 prompt "软盘备份"
define bar 2 of 系统 prompt "硬盘恢复"
define bar 3 of 系统 prompt "重建索引"
define bar 4 of 系统 prompt "\-"
define bar 5 of 系统 prompt "关于"

********end msin.prg************