Tecnico Computacion

SET SYSMENU to
SET SYSMENU AUTOMATIC
SET COLOR to w+/b+

@0,0 say "i:\d 8.jpg" bitmap stret
@20,50 say "i:\d 9.jpg" bitmap stret size 18,90
@02,60 say "Sistema De Pago De Empleado" font "old englishtext mt",30 styl "tbs" color RGB (0,255,0)

@38,50 say "Fecha:" font "times new roman",15 styl "t" color RGB (0,255,0)
@38,59 say DATE() font "times new roman",15 styl "t" color RGB (0,255,0)
@38,120say "Hora:" font "times new roman",15 styl "t" color RGB (0,255,0)
@38,128 say TIME() font "times new roman",15 styl "t" color RGB (0,255,0)
@08,90 say "Menu Principal" font "old english text mt",24styl "bts" color RGB (0,255,0)
@40,80 say "Edited by: Daniel Lanza y Mario Flores" font "times new roman",8 styl "t" color RGB (0,255,0)

define pad _1n10 of _msysmenu prompt "Sistema de Pago" keyalt+s,""
define pad _1n11 of _msysmenu prompt "Pago" key alt+p,""
define pad _1n12 of _msysmenu prompt "Consultas" key alt+c,""
define pad _1n13 of _msysmenu prompt "Reportes" key alt+r,""

on pad _1n10of _msysmenu activate popup sistem
on pad _1n11 of _msysmenu activate popup pagos
on pad _1n12 of _msysmenu activate popup consultas
on pad _1n13 of _msysmenu activate popup reportes

define popupsistem margin relative shadow
define bar 1 of sistem prompt "Ingrese Empleado"
define bar 2 of sistem prompt "Modifique Empleado"
define bar 3 of sistem prompt "Elimine Empleado"
define bar 4 of sistemprompt "Salir del Sistema"

on selection bar 1 of sistem do form ingresar
on selection bar 2 of sistem do form Modificar
on selection bar 3 of sistem do form eliminar
on selection bar 4 of sistem setsysmenu to defaul

define popup pagos margin relative shadow
define bar 1 of pagos prompt "Pago de Empleado"

on selection bar 1 of pagos do form pago

define popup consultas margin relative shadowdefine bar 1 of consultas prompt "Consultas de Empleados por Codigo"
define bar 2 of consultas prompt "Consultas de Empleados por Pantalla"

on selection bar 1 of consultas do form codigo
on selection...