main.prg

建设银行计算机设备台帐程序计算机设备管理程序。其中包括一个网络文件传输示例

*-------------------main.prg
set talk off
set esca off
set exact off
set excl Off
SET REPROCESS TO AUTOMATIC
set help to comp_help.chm
set cons on
set date ansi
set score off
set safe off
set stat bar on
set cent on
set color to 
set sysmenu off
set dele on
*set refresh to 1,1
set help on
clea
clear all
ON ERROR DO err.PRG
on shutdown do qUIT1.prg
with _screen
 * .caption=''
 * .closable=.f.
 * .controlbox=.f.
 * .maxbutton=.f.
 * .minbutton=.f.
 * .movable=.f.
  .windowstate=1 
 * .caption=''
  .visible=.f.
endwith
do form begin
read event
do form login
read event
with _screen
  .visible=.t.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=0
  .left=0
  .windowstate=2
  .caption='中国建设银行计算机设备台帐管理系统'
  *.picture='zhj6.bmp'
  .icon='screen2.ico'
  endwith
 
*---------------------
*do start.mpr
public tz_lr,tz_gj,tz_tjb,tz_dy,tz_date,tz_bf,tz_hf,tz_sc,tz_js,tz_hm,tz_zl,tz_zl2
SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _s4r0mpm7v OF _MSYSMENU PROMPT "台帐基础管理(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _s4r0mpm7w OF _MSYSMENU PROMPT "系统参数设置(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _s4r0mpm7x OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _s4r0mpm7v OF _MSYSMENU ACTIVATE POPUP 台帐基础管
ON PAD _s4r0mpm7w OF _MSYSMENU ACTIVATE POPUP 系统参数设
ON PAD _s4r0mpm7x OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 台帐基础管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 台帐基础管 PROMPT "台帐手工录入(\<J)" ;
		 MESSAGE '设备台帐的手工录入'
DEFINE BAR 2 OF 台帐基础管 PROMPT "台帐报表生成(\<S)" ;
	MESSAGE '设备台帐报表数据的生成'
DEFINE BAR 3 OF 台帐基础管 PROMPT "台帐报表打印(\<P)" ;
	MESSAGE '打印设备台帐报表'
DEFINE BAR 4 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 5 OF 台帐基础管 PROMPT "报表日期(\<D)" ;
	MESSAGE '报表日期录入'
DEFINE BAR 6 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 7 OF 台帐基础管 PROMPT "数据备份(\<C)" ;
	MESSAGE '备份台帐数据'
DEFINE BAR 8 OF 台帐基础管 PROMPT "数据恢复(\<R)" ;
	MESSAGE '恢复台帐数据'
DEFINE BAR 9 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 10 OF 台帐基础管 PROMPT "数据上传(\<M)" ;
    MESSAGE '形成上报台帐数据'
DEFINE BAR 11 OF 台帐基础管 PROMPT "数据接收(\<G)" ;
    MESSAGE '接受下级行台帐数据'
DEFINE BAR 12 OF 台帐基础管 PROMPT "\-" 
DEFINE BAR 13 OF 台帐基础管 PROMPT "退出系统(\<Q)" ;
    MESSAGE '退出台帐管理系统'
ON SELECTION BAR 1 OF 台帐基础管 DO  form TZ_lr name tz_lr
ON SELECTION BAR 2 OF 台帐基础管 DO FORM TZ_tjb name tz_tjb
ON SELECTION BAR 3 OF 台帐基础管 DO FORM TZ_DY name tz_dy
ON SELECTION BAR 5 OF 台帐基础管 DO FORM TZ_date name tz_date
ON SELECTION BAR 7 OF 台帐基础管 DO FORM TZ_BF name tz_bf
ON SELECTION BAR 8 OF 台帐基础管 DO FORM TZ_HF name tz_hf
ON SELECTION BAR 10 OF 台帐基础管 DO FORM TZ_SC name tz_sc
ON SELECTION BAR 11 OF 台帐基础管 DO FORM TZ_JS name tz_js
ON SELECTION BAR 13 OF 台帐基础管 do quit1

DEFINE POPUP 系统参数设 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统参数设 PROMPT "行名管理(\<N)" ;
	MESSAGE '本行名称、下级行名称、设备使用部门管理'
DEFINE BAR 2 OF 系统参数设 PROMPT "\-"
DEFINE BAR 3 OF 系统参数设 PROMPT "设备种类型号字典管理(\<Z)" ;
	MESSAGE '设备的种类、型号等'
DEFINE BAR 4 OF 系统参数设 PROMPT "\-"
DEFINE BAR 5 OF 系统参数设 PROMPT "更改密码(\<P)" ;
	MESSAGE '更改系统密码'
ON SELECTION BAR 1 OF 系统参数设 DO FORM TZ_HM name tz_hm
*ON SELECTION BAR 3 OF 系统参数设 DO FORM TZ_DW
*ON SELECTION BAR 3 OF 系统参数设 DO FORM TZ_ZL name tz_zl
******
ON BAR 3 OF 系统参数设 ACTIVATE POPUP 设备种类型

DEFINE POPUP 设备种类型 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 设备种类型 PROMPT "手工删改设备字典" message'手工修改设备字典中的数据'
DEFINE BAR 2 OF 设备种类型 PROMPT "磁盘导入/导出设备字典" message'将已经存在的字典文件导入/导出'
ON SELECTION BAR 1 OF 设备种类型 do form tz_zl name tz_zl
ON SELECTION BAR 2 OF 设备种类型 do form tz_zl2 name tz_zl2

******
ON SELECTION BAR 5 OF 系统参数设 DO FORM TZ_passwd name tz_passwd
DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "系统使用说明(\<H)" ;
	MESSAGE '系统使用帮助说明'
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "关于(\<A)" ;
    MESSAGE '系统著作版权及版本号'
ON SELECTION BAR 1 OF 帮助h do tzhelp
ON SELECTION BAR 3 OF 帮助h DO FORM ABOUT
acti menu _msysmenu nowait
do form tz_gj name tz_gj
*read event


 _screen.addobject("imge1","quit1")
  read event
define class quit1 as image
  top=-10
  left=0
 *height=_screen.height-50
 *width=_screen.width-50
  picture='main.jpg'
 backstyle=0
  visible=.t.
*  stretch=1
 enddefine