main.prg

对贝尔S1240交换机生成的LOG话务统计进行自动统计

PUBLIC handle
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="myonly"
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    

with _screen
   .visible=.f.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=300
  .left=400
  .windowstate=2
  .caption='S1240话务分析'
  endwith
set talk off
set esca off
set exact off
set excl Off
SET REPROCESS TO AUTOMATIC
*set help to exam_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 HOURS TO 24
set dele on
CLEAR
SET EXACT ON
clear all
CXLJ=JUSTPATH(SYS(16,1))+'\'
set default to (CXLJ)
mypath=left(sys(16),rat("\",sys(16)))   &&确定程序所在的位置
*SET DEFAULT TO (mypath)
*set refresh to 1,1
set help on
SELECT 2
USE "hw.dbf" excl

SELECT 1
USE "20050110b.dbf" EXCLUSIVE
DELETE ALL
PACK
use
*ON ERROR DO err.PRG
on shutdown do quit1.prg

do form fom
read events 

CLEAR MEMORY 
CLEAR ALL
CLOSE all
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
=CloseHandle(handle)
clea event
clea
quit