main.bak

专家库管理系统(多用户)

*-------------------main.prg
set talk off
set esca off
set exact off
set excl Off
SET REPROCESS TO 0
set help to experthelp.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 MESSAGE TO 0
SET MESSAGE TO ""
*set refresh to 1,1
set help on
clea
clear all
ON ERROR DO err.PRG

with _screen
  .windowstate=1 
  .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="专家库管理系统--操作员"+Nowuser
  *.picture='zhj6.bmp'
  .icon='zhj4.ico'
  endwith
 
*---------------------
*do start.mpr
public tz_gj,ryzl,xtzd,dy,bfhf,about,zbxx,yryc
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0lw07no93 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _0lw07no95 OF _MSYSMENU PROMPT "查看(\<V)" COLOR SCHEME 3 ;
	KEY ALT+V, ""
DEFINE PAD _0lw07no96 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0lw07no93 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _0lw07no95 OF _MSYSMENU ACTIVATE POPUP 查看v
ON PAD _0lw07no96 OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件f PROMPT "人员资料(\<M)" ;
	KEY CTRL+M, "Ctrl+M" ;
	PICTURE "zhj163.bmp" ;
	MESSAGE "人员基本资料录入管理"
DEFINE BAR 2 OF 文件f PROMPT "系统字典(\<D)..." ;
	PICTURE "zhj53.bmp" ;
	MESSAGE "各种系统字典库管理"
DEFINE BAR 3 OF 文件f PROMPT "打印(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	PICTURE "print3.bmp" ;
	MESSAGE "打印各种人员资料报表"
DEFINE BAR 4 OF 文件f PROMPT "数据备份/恢复(\<R)     " ;
	PICTURE "disk3.bmp" ;
	MESSAGE "备份/恢复人员数据资料"
DEFINE BAR 5 OF 文件f PROMPT "招标信息管理(\<R)     " ;
	PICTURE "zbxx1.bmp" ;
	MESSAGE "招标设置与中标人员管理"
DEFINE BAR 6 OF 文件f PROMPT "数据导入/导出(\<R)     " ;
	MESSAGE "导入/导出专家资料数据"		
DEFINE BAR 7 OF 文件f PROMPT "\-"
DEFINE BAR 8 OF 文件f PROMPT "关闭(\<E)" ;
	KEY CTRL+E, "Ctrl+E" ;
	PICTURE "zhj24.ico" ;
	MESSAGE "关闭系统"
ON SELECTION BAR 1 OF 文件f do form ryzl name ryzl
ON SELECTION BAR 2 OF 文件f do form xtzd name xtzd
ON SELECTION BAR 3 OF 文件f do form dy name dy
ON SELECTION BAR 4 OF 文件f do form bfhf name bfhf
ON SELECTION BAR 5 OF 文件f do form zbxx name zbxx
ON SELECTION BAR 6 OF 文件f do form yryc name yryc
ON SELECTION BAR 8 OF 文件f quit

DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "撤消(\<U)    ";
    KEY CTRL+Z, "Ctrl+Z" ;
    PICTURE "undo.bmp" ;
    MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF _medit PROMPT "重作(\<D)    ";
    KEY CTRL+Z, "Ctrl+R" ;
    PICTURE "redo.bmp" ;
    MESSAGE "重复上一次命令或操作"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-"

DEFINE BAR _med_cut OF _medit PROMPT "剪切(\<T)    " ;
    KEY CTRL+X, "Ctrl+X" ;
    PICTURE "cut.bmp" ;
    MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF _medit PROMPT "复制(\<C)    " ;
    KEY CTRL+C, "Ctrl+C" ;
    PICTURE "copy.bmp" ;
    MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF _medit PROMPT "粘贴(\<P)    " ;
    KEY CTRL+V, "Ctrl+V" ;
    PICTURE "paste.bmp" ;
    MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_clear OF _medit PROMPT "清除(\<A)" ;
    MESSAGE "移去选定内容，并且不将其放到剪贴板上"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-"
DEFINE BAR _med_slcta OF _medit PROMPT "全部选定(\<L)    ";
    KEY CTRL+A, "Ctrl+A" ;
    MESSAGE "选定当前窗口中的所有文本或数据项"
DEFINE POPUP 查看v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查看v PROMPT "工具栏(\<T)... "
ON SELECTION BAR 1 OF 查看v do gjxz

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助(\<H)      " ;
	KEY F1, "F1" ;
	PICTURE "help3.bmp" ;
	MESSAGE "系统帮助"
DEFINE BAR 2 OF 帮助h PROMPT "关于(\<A)" ;
	PICTURE "ABOUT2.bmp" ;
	MESSAGE "系统版本"
ON SELECTION BAR 1 OF 帮助h do help.prg
ON SELECTION BAR 2 OF 帮助h do form about

acti menu _msysmenu nowait
do form tz_gj name tz_gj
*read event
 set mark of bar 1 of 查看v to WEXIST("tz_gj")

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