mainprg.prg

爱师软件工作室的教材管理系统源码

	wait window '系统正在启动,请稍候...            ' nowait
	CLEAR
	CLEAR ALL
    CLOSE ALL
    CLEAR PROGRAM
	SET TALK OFF
	SET SAFETY OFF
	SET STATUS BAR OFF&&06-08-5,add
    SET CONSOLE OFF
	SET NOTIFY ON
	SET HELP ON
	SET CLOCK OFF
	SET BELL ON
	SET ESCAPE ON
	SET LOGERRORS ON&&记错
	SET CARRY ON&&可以拷贝记录到另一个表
	SET CONFIRM ON
	SET STRICTDATE TO 1&&严格日期格式
	SET EXACT OFF
	SET NEAR ON
	SET ANSI ON
	SET LOCK ON&&允许自动锁定
	SET EXCLUSIVE ON
	SET MULTILOCKS ON&&允许记录锁定
	SET HEADINGS ON
	SET DELETED ON
	SET OPTIMIZE ON&&优化
	SET UNIQUE ON&&影响排序
	SET CPDIALOG OFF
	SET REFRESH TO 15,15&&网络刷新
	SET ODOMETER TO 100
	SET BLOCKSIZE TO 64
	SET REPROCESS TO 5&&
	SET COLLATE TO "PINYIN"
	SET CENTURY ON
	SET DATE TO ANSI
	SET DECIMALS TO 2&&小数点
	SET FDOW TO 1
	SET FWEEK TO 1
	SET MARK TO "."
	SET SEPARATOR TO ","
	SET POINT TO "."
    
    &&单机版,只运行一个实例
    DECLARE Integer FindWindow IN User32.DLL String lpClassName,String lpWindowName
    DECLARE Integer ShowWindow IN User32.DLL Integer nhwnd,Integer nCmd
    nHwnd=FindWindow(0,"爱师通用教材管理系统")&&若改动标题,要修改此
    IF nhwnd#0
       =ShowWindow(nHwnd,3)
       QUIT 
    ENDIF
	ON ERROR DO Err.prg ;
       WITH ERROR(), ;
       MESSAGE(), ;
       MESSAGE(1), ;
       PROGRAM(), ;
       LINENO(1) 
      
	SET SYSMENU AUTOMATIC
	SET SYSMENU TO _MSM_WINDO
	RELEASE BAR _MWI_ARRAN OF _MSM_WINDO .T.
	RELEASE BAR _MWI_HIDE OF _MSM_WINDO .T.
	RELEASE BAR _MWI_SHOWA OF _MSM_WINDO .T.
	RELEASE BAR _MWI_CLEAR OF _MSM_WINDO .T.
	RELEASE BAR _MWI_ROTAT OF _MSM_WINDO .T.
	RELEASE BAR _MWI_CMD OF _MSM_WINDO .T.
	RELEASE BAR _MWI_VIEW OF _MSM_WINDO .T.
	RELEASE BAR _MWI_SP100 OF _MSM_WINDO .T.
	RELEASE BAR _MWI_SP200 OF _MSM_WINDO .T.

	RELEASE WINDOW "常用"
	RELEASE WINDOW "表单设计器"
	ZOOM WINDOW SCREEN MAX
	MODIFY WINDOW SCREEN TITLE "爱师通用教材管理系统"
	_SCREEN.BACKCOLOR=RGB(0,0,255)&&背景丢失时的COLOR
    _SCREEN.Closable=.F.&&右上角的"x" ,2006.10.25 add
    =SETPATH()
	SET PATH TO data; form; rep; prg; img; pic; lib; ico

	DO .\prg\packdata.prg&&清理数据

	IF FILE('jcgl.chm')
	   SET HELP TO jcgl.chm
	ENDIF		
	if file('.\data\jcglreg.mem')&&若系统未正常退出,需要
	   delete file  .\data\jcglreg.mem
	endif
	if file('.\data\jcglreg.yin')
	   copy file .\data\jcglreg.yin  to  .\data\jcglreg.mem
	else
	   messagebox('系统已被破坏...,请重新安装!!!',0+16,'提醒你')
	   close all
	   clear
	   quit
	endif   
	
	ON SHUTDOWN DO myshutdown.prg
	   
    SET CLASSLIB TO .\lib\jcgl_class ADDITIVE
    PUBLIC mymainbar
    mymainbar = CREATEOBJ('jcgl_toolbar')
    mymainbar.SHOW
    mymainbar.dock(0)
    mymainbar.enabled=.f.
    
    if file(".\img\zjm1024_2.jpg")
       _SCREEN.PICTURE=".\img\zjm1024_2.jpg"&&主图
    endif
    if file(".\ico\jcglmain.ico")
       _SCREEN.ICON=".\ico\jcglmain.ico"  
    endif
         
    _Screen.AddObject("Label1","labClass") &&网站链接
          
    PUBLIC SKIPCSH&&控制权限
    SKIPCSH=.t.
    
    PUBLIC skip_js,skip_jsll,skip_csll,skip_fs,skip_fsll,skip_bjsf,skip_yh,skip_mm&&控制菜单逻辑
    skip_js=.t.&&跳过进书菜单
    skip_jsll=.t.&&跳进书浏览菜单
    skip_csll=.t.
    skip_fs=.t.
    skip_fsll=.t.
    skip_bjsf=.t.
    
    public skip_ts,skip_bjysgl,skip_ghdw,skip_tsll,skip_bjysglll,skip_ghdwll  
    skip_ts=.t.&&跳退书菜单
    skip_bjysgl=.t.&&跳班级用书管理菜单
    skip_ghdw=.t.&&跳供货单位菜单
    skip_tsll=.t.
    skip_bjysglll=.t.
    skip_ghdwll=.t.
*!*	    public skip_init,skip_bf,skip_hf
*!*	    skip_init=.t.&&暂无用了
*!*	    skip_bf=.t.&&暂无用了
*!*	    skip_hf=.t.&&暂无用了
    skip_yh=.t.
    skip_mm=.t.
    
*!*	    Declare integer Fblz In "fBL.dll" integer x,integer y&&强行改变屏幕分辨率
*!*	    x=800
*!*	    y=600
*!*	    =Fblz(x,y)
*!*	    clea dll

    DO main_menu.mpr
    DO FORM .\form\frmppp
  	READ EVENTS
	CLEAR
	CLEAR ALL
    CLOSE ALL
    CLEAR PROGRAM
	SET SYSMENU TO DEFAULT
    RELEASE mymainbar&&释放工具栏
	
	DEFINE CLASS labClass As Label&&主代码完了,才放这个代码!
    BackStyle=0
    Caption="http://www.aishity.com"
    ForeColor=RGB(0,0,255)
    FontUnderLine=.T.
    Height=80
    Left=50
    MouseIcon="point.cur"
    MousePointer=99
    Name="Label1"
    ToolTipText="欢迎光临爱师软件,这里可能有您想要的东西..."
    Visible=.T.
    Width=220
    
    PROCEDURE Init
        This.Left=50
        This.Top=_Screen.Height-60
    ENDPROC 
    
    PROCEDURE Click 
        **声明ShellExecute函数
        DECLARE INTEGER ShellExecute IN "Shell32.dll" ;
            INTEGER hwnd, ;
            STRING lpVerb, ;
            STRING lpFile, ;
            STRING lpParameters, ;
            STRING lpDirectory, ;
            LONG nShowCmd    
        **设定要打开的Internet站点
        lpFile="http://www.aishity.com/"
        **以最大化方式打开Internet站点
        =ShellExecute(0,"open",lpFile ,"","",3) 
    ENDPROC                 
    
    PROCEDURE MouseEnter
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(0,0,255)   &&当鼠标移动时字体颜色成为红色
    ENDPROC 
    
    PROCEDURE MouseLeave
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        This.ForeColor=RGB(255,0,0)   &&当鼠标移动时字体颜色成为红色
    ENDPROC 
ENDDEFINE 
*************************************************************************

	
	FUNCTION SETPATH()
		   public lcSys16, lcProgram
		   lcSys16 = SYS(16)
		   lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
	CD LEFT(lcProgram, RAT("\", lcProgram))
	ENDFUNC