main.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.PRG(主文件)
*  功能:主程序
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

*_SCREEN.HIDE
CLOSE ALL
SET TALK OFF
SET SYSMENU AUTOMATIC 
SET EXCLUSIVE OFF
SET ESCAPE OFF
SET SAFETY OFF
SET STATUS BAR OFF
_SCREEN.AUTOCENTER=.T.
_SCREEN.WINDOWSTATE=2
SET DELETED ON

*QX(8)权限，SYSRQ系统日期，NFRQ年份日期，
PUBLIC QX(8),SYSRQ,NFRQ,CP,CZYXM,C_ID,C_REG,C_REGID,SYSPATH,ZTPATH, ;
     MYEAR,MMONT,MDAY,BMP,N_COLOR,SYQM,M_YEAR,N_DATE,SN,RY,RM,RDAY
PUBLIC JLCS , CWIN , BDS , QJ , NFDH , C_CK , NTOTALPAGES , ZTH , ZTMC , DMLL , ADMICZY ,  ;
     BAKPATH , BAKTIME , USERINFO , ZCS , XS , WINDIR , XGMM , SJ
PUBLIC LERROR,V,VB
PUBLIC handle
V='Building 041016' &&版本号
VB='041016'
XGMM=''
WINDIR=GETENV("windir")
NTOTALPAGES=0
SYQM=.F.
SYSPATH=LEFT(SYS(16),RAT("\",SYS(16)))   &&默认驱动器或卷标+当前目录+"\"
MYEAR=ALLTRIM(STR(YEAR(DATE())))  &&返回四位年份表达
MMONT=PADL(ALLTRIM(STR(MONTH(DATE()))),2,'0') &&月份两位
MDAY=PADL(ALLTRIM(STR(DAY(DATE()))),2,'0')    &&日期两位
M_YEAR=MYEAR
SET DEFAULT TO &SYSPATH
SET PROCEDURE TO drivinfo.prg
C_USER=DRIVINFO()   &&取得硬盘系列号
SET PROCEDURE TO
DO OnlyRun
Application.Visible=.F.
DO FORM FRM\系统登录.SCX
READ EVENTS


PROCEDURE OnlyRun
DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
     INTEGER lpFileMappingAttributes,integer flProtect, ;
     INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
     STRING lpName
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
szname="applicationonly"
handle = createfilemapping(0xFFFFFFFF,0,4,0,128,szname)
IF handle=0
     WAIT WINDOW "CreateFileMapping 失败 - LastError: " ;
        + LTRIM(STR(getlasterror()))
     RETURN
ENDIF
IF handle=0
    MESSAGEBOX("创建内存映射文件失败！",0,"系统提示")
    RETURN .f.
ELSE
    IF GetLastError()=183
        MESSAGEBOX("本系统已经运行了！",32,"系统提示")
        CLOSE ALL
        CLEAR DLLS
        CLEAR EVENTS
        QUIT
    ENDIF
ENDIF