foxbase programs 和 visual Basic程序
一.启动用封面程序(fox语言,需在ucdos下运行,并要运行tx.com)
set status off
set escape off
set talk off
SET SCOR OFF
ymd=ltri(str(year(date())))+'年'+ltri(str(mont(date())))+'月';
+ltri(str(day(date())))+'日'
yr=ltri(str(year(date())))
mt=ltri(str(mont(date())))
dt=ltri(str(day(date())))
ym=ltri(str(year(date())))+'年'+ltri(str(mont(date())))+'月'
wk='星期'+subs('日一二三四五六',(dow(date())-1)*2+1,2)
clear
@ 0 , 0 say chr(14)+'[{@60,60}]'
@ 0 , 0 say chr(14)+'[{%1}]'
@ 0 , 0 say chr(14)+'[ST0]'
@ 0 , 0 say chr(14)+'[{(15)1}]'
@ 0 , 0 say chr(14)+'[CO9]'
@ 0 , 0 say chr(14)+'[B47,90,600,180]'
@ 0 , 0 say chr(14)+'[{=0}]'
@ 0 , 0 say chr(14)+'[{-50|100}]'
@ 0 , 0 say chr(14)+'[{中国人保☆财务系统}]'
@13,18 say '中国人寿保险公司谷城县支公司某某镇办事处'
@14,18 say '地址: 湖北省谷城县中山镇东大路37号'
@15,