Q5/ws_objects/Ew_publ903.pbl.src/sample_app.sra

$PBExportHeader$sample_app.sra
forward
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward

global variables
string publ_operator="miva"
//操作员名
int sys_power[]
//系统权限数组

boolean sys_power_issuper=false
//超级用户标志

string sys_super_name='超级用户'
string sys_super_id='super'
//超级用户ID

STRING SYS_INIFILENAME='sc_wiz.ini'
//指定系统INI文件

string sys_power_key='165747851239866'
string sys_system_id='ScwareV1.0'
//系统信息
string sys_message_title="售价管理系统 V1.0 [Bata 1]"
string sys_message_customer_briefname=""
string sys_message_report_title="顺德得胜涂料有限公司"
string sys_message_customer_TEL=""

string sys_message_maker="miva"
string sys_message_copyright_inc="2000-12-22"
string sys_message_copyright_inE=""
string sys_message_Version="V1"

string sys_message_copytime="2000-12-22"
string sys_message_timeoutdate="2001.05.01"
date sys_begin_date= 2001-02-03

int sys_show_bsn=0 //0-显示业务内容 1-只显示售价管理
string sys_flashbmpname='flashwinpic.bmp' //开始窗口的图片名称
end variables

global type sample_app from application
 end type
global sample_app sample_app

on sample_app.create
appname = "sample_app"
message = create message
sqlca = create transaction
sqlda = create dynamicdescriptionarea
sqlsa = create dynamicstagingarea
error = create error
end on

on sample_app.destroy
destroy( sqlca )
destroy( sqlda )
destroy( sqlsa )
destroy( error )
destroy( message )
end on

event open;//f_regcheck()
//
//IF TODAY()>RelativeDate(DATE(sys_message_timeoutdate),-20) THEN 
//	MESSAGEBOX(sys_message_timeoutdate,'系统即将超使用期限,请与软件供应商联系注册!')
//END IF
//
//IF TODAY()>DATE(sys_message_timeoutdate) THEN 
//	MESSAGEBOX(sys_message_timeoutdate,'超使用期限,请与软件供应商联系!')
//	RETURN
//END IF
//
//OPEN(w_sys_BEGIN)  //打开闪烁窗口(连接数据库)
//
//OPEN(w_sys_wait)
//w_sys_wait.hide()
////
////string ls_rp,LS_FN,LS_TEL
////
////select sysuser into :ls_rp from usermessage where id = 1 ;
////if sqlca.sqlcode <> 0 then
////    MessageBox ('系统',"不能读取用户信息!")
////	HALT
////END IF
////sys_message_report_title=f_psw_bczh(ls_rp,1,sys_power_key)
////
////select userfullNAME into :LS_FN from usermessage where id =1 ;
////if sqlca.sqlcode <> 0 then
////    MessageBox ('系统',"不能读取用户信息!")
////	HALT
////END IF
////sys_message_customer_briefname=f_psw_bczh(LS_FN,1,sys_power_key)
////
////select tel into :LS_TEL from usermessage where id =1 ;
////if sqlca.sqlcode <> 0 then
////    MessageBox ('系统',"不能读取用户信息!")
////	HALT
////END IF
////sys_message_customer_tel=f_psw_bczh(LS_TEL,1,sys_power_key)
////
////f_sytm_orgprams()
//open(w_sys_dl)
//Open (w_genapp_frame_hidebsn)
////Open (w_genapp_frame)
////w_genapp_frame.hide()
//
////if integer(ProfileString (sys_inifilename, "systemsetup", "model", "0"))=0 then
////	w_genapp_frame.setpicture(ProfileString (sys_inifilename, "systemsetup", "wallpaper", ""),true)
////else
////	w_genapp_frame.setpicture(ProfileString (sys_inifilename, "systemsetup", "wallpaper", ""),false)
////end if
//
end event