main.prg

自己花了五天用c/s做的一个小软件

_SCREEN.VISIBLE = .F.
SET TALK OFF &&关闭对话
SET ESCAPE OFF &&关闭ESCAPE键
SET EXACT ON   &&打开完全匹配
SET EXCLUSIVE ON &&打开独占
SET CONSOLE ON  &&
SET DATE ANSI
SET DATE TO LONG &&设置长日期
SET SCORE OFF &&关闭分值栏
SET SAFETY OFF &&关闭安全提示
SET STATUS OFF
SET STATUS BAR OFF &&关闭系统提示栏
SET CENTURY ON &&打开世纪开关
SET COLOR TO &&关闭颜色
SET DELETED ON &&屏闭删除项
SET SYSMENU OFF &&关闭系统菜单
SET NOTIFY OFF &&关闭提示
SET OPTIMIZE ON &&(默认值)启用 Rushmore 优化。
SET DATE TO LONG
SET DATE ymd
SET SAFETY OFF
SET NULL OFF
SET MARK TO "-"
*SET DEFAULT TO "e:\cx\cw_yfgl\"
PUBLIC ARRAY  pub_array[10]
PUBLIC begin_connect &&表单变量名
PUBLIC con,sys_maindir,sys_user_name,sys_user_level,sys_login_success
PUBLIC pub_fp_hzcx_condition,pub_fk_hzcx_condition ,pub_kh_hzcx_condition,pub_fp_cs_hzcx_condition,pub_fk_cs_hzcx_condition&&发票汇总条件、付款汇总条件
PUBLIC pub_fp_cs_dzdcx_condition,pub_fp_dzdcx_condition,pub_fk_cs_dzdcx_condition,pub_fk_dzdcx_condition,pub_kh_dzdcx_condition
PUBLIC pub_cs_date,pub_zz_date,pub_kh_dm
PUBLIC pub_cs_kh_dm,pub_zz_kh_dm
PUBLIC pub_para_textname
pub_fp_cs_hzcx_condition=''
pub_fk_cs_hzcx_condition=''
pub_fp_hzcx_condition=''
pub_fk_hzcx_condition=''
pub_kh_hzcx_condition=''

pub_fp_cs_dzdcx_condition=''
pub_fp_dzdcx_condition=''
pub_fk_cs_dzdcx_condition=''
pub_fk_dzdcx_condition=''
pub_kh_dzdcx_condition=''
pub_kh_dm=''
pub_cs_date=DTOC(CTOD(STR(YEAR(DATE()),4)+"."+STR(MONTH(DATE()),2)+'.01'))
pub_zz_date=DTOC(CTOD(STR(YEAR(DATE()),4)+"."+STR(MONTH(DATE()),2)+'.'+STR(DAY(DATE()),2)))
*!*	if MONTH(DATE()) =12
*!*		pub_zz_date=DTOC(ctod(str(YEAR(DATE()),4)+".12.31"))
*!*	else
*!*		pub_zz_date=DTOC(ctod(str(YEAR(DATE()),4)+"."+str(MONTH(DATE())+1,2)+'.01')-1)
*!*	endi
pub_cs_kh_dm="00000"
pub_zz_kh_dm="99999"

sys_user_name=""
sys_user_level=0
sys_login_success=.F.
con =0

*--------------------------------定位主路径
lcsys16 = SYS(16)
lcprogram = SUBSTR(lcsys16, AT(":", lcsys16) - 1)
CD LEFT(lcprogram, RAT("\", lcprogram))
IF RIGHT(lcprogram, 3) = "FXP"
    CD ..
ENDIF
sys_maindir= SYS(5)+SYS(2003)+"\"
*sys_datadir= SYS(5)+SYS(2003)+"\data001"
sys_tempdir= sys_maindir+"temp"
SET DEFAULT TO (sys_maindir)
SET PATH TO CODE;DATA;FORM;SYSTEM;REPORT
DO FORM BEGIN
DO FORM begin_connect WITH 1 NAME begin_connect
DO 连接数据库
IF con<=0
    WAIT WINDOW "连接数据库失败,退出系统"
    CLEAR EVENTS
    CLOSE ALL
    CLEAR ALL
    QUIT
    RETURN
ENDIF
DO FORM begin_connect WITH 2 NAME begin_connect
DO FORM login
begin_connect.RELEASE
READ EVENTS
IF !sys_login_success &&如果登陆失败
    sqldisconnect(con)
    CLEAR EVENTS
    CLOSE ALL
    CLEAR ALL
    QUIT
ENDIF
DO FORM mainform
READ EVENTS
sqldisconnect(con)
CLOSE ALL
CLEAR ALL
QUIT