main.prg

来自「茄子的cs工资管理」· PRG 代码 · 共 50 行

Close ALL
Set HOURS TO 24
Set TALK OFF
Set EXACT ON
Set ESCAPE OFF
Set NEAR ON
Set SYSMENU OFF
Set CENTURY ON
Set DATE ANSI
Set MULTILOCKS ON
Set DELETED ON
Set SAFETY OFF
Set NOTIFY OFF
Set STATUS BAR OFF
Set MARK TO '-'
Set DECIMALS TO 2
Set ANSI ON
Set CONFIRM OFF
Set EXCLUSIVE OFF
_Screen.WINDOWSTATE = 2
_Screen.CAPTION = '工资管理系统！'
MPATH = SYS(5) + SYS(2003) + '\'
Set DEFAULT TO &MPATH
Public GZLJ,OK,GZBRQ,ZRS,XZRS,CJRS
GZLJ = 0
OK = .F.
GZBRQ = {}
ZRS = 0
XZRS = 0
CJRS = 0
GZLJ = sqlstringconnect('driver=sql server;server=RMH;uid=sa;pwd=;database=gzdata')
SQLSETPROP(0,'DispLogin',3)
If GZLJ > 0
	Do FORM login
	If OK = .T.
		_Screen.SHOW
		Do czcd
		Public TOOL
		Set CLASSLIB TO myclass1
		MYTOOLBAR = CREATEOBJECT('tool')
		= MYTOOLBAR.DOCK(0)
		MYTOOLBAR.VISIBLE = .T.
		MYTOOLBAR.SHOW
		Read EVENTS
	Endif
Else
	Messagebox('连接服务器错误!')
	Set SYSMENU TO DEFAULT
	Quit
Endif