start.bak

来自「VC数据库编程综合应用。订单的管理」· BAK 代码 · 共 39 行

set talk off
set esca off
set echo off
set date ansi
set cent on
set hour to 24
set dele on
set excl off
on shutdown do shutdown
on error do Err_Hand with error(),message(),message(2),program(),program(1),lineno(2) 
public oSystemData,oReportForm,oResultForm,nTotalPAGEs
nTotalPages=1

public plManageMode

cCaption="客户资料 - 红虎工作室"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
   _screen.caption=cCaption
   =messagebox("客户资料程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！    @_@ ")
   return .f.
endif

set classlib to myclasslib addi

do sysmenu.mpr
_screen.caption=cCaption
_screen.picture="back.bmp"
_screen.autocenter=.t.
_screen.autocenter=.t.
_screen.windowstate=2
_screen.ControlBox=.f.
_screen.show
 do form frm_about
 do form frm_login with "login_new"
 do form frm_start
 _screen.ControlBox=.t.
 read events