mainprg.prg

来自「主要使用了页框和表格 其中有些小技巧可以值得学学：） 包括即时模糊查询以及筛选、」· PRG 代码 · 共 49 行

_screen.Visible=.f.
SET TALK OFF 
SET SAFETY OFF 
SET RESOURCE OFF 
SET DELETED ON 
MyPath=LEFT(SYS(16),RAT("\",SYS(16)))
SET DEFA TO (MyPath)

*-防止程序重复运行的代码
DECLARE integer FindWindow in Win32Api String, String
wclass=0
winname="〖通讯大全〗"
apphand = FindWindow(wclass ,winname)
* 如果调用成功, 停止处理.
IF apphand<>0
	Messagebox("〖通讯大全〗已经运行！",16,"系统信息")
	QUIT
ENDIF

PUBLIC o_fl,o_ft,o_c1,o_c2,o_c3,o_c4,o_c5,o_c6,o_c7,o_c8,o_w1,o_w2,o_w3,o_w4,o_w5,o_w6,o_w7,o_w8
	 o_fl=0
	 o_ft=0
	 o_hisno=1
	 o_c1=1
	 o_c2=2
	 o_c3=3
	 o_c4=4
	 o_c5=5
	 o_c6=6
	 o_c7=7
	 o_c8=8
	 o_w1=65
	 o_w2=65
	 o_w3=65
	 o_w4=65
	 o_w5=65
	 o_w6=65
	 o_w7=65
	 o_w8=65
IF FILE("option.ini")
	RESTORE FROM option.ini
ENDIF 
IF NOT(FILE('电话.dbf')) 
	=MESSAGEBOX('文件 电话.dbf 丢失或者被损坏！'+CHR(13)+CHR(13),48,'真遗憾')
	quit
ENDIF
DO FORM "mainfrm" NAME MAINfrm
READ EVENTS