代码搜索结果
找到约 10,000 项符合
T 的代码
t_reprg.prg
*整理PRG程序,使其自动按缩格排列
*程序名:REPRG.PRG
*程序员:庄稼
*1995.7.12
*变量说明
*CXM:需整理的程序名
*SJK:数据库名
*ML:本程序运行时所在的目录名及文件名(用于取其目录以打开数据库)
*<mark>T</mark>1:开始时间
*<mark>T</mark>2:结束时间
SE<mark>T</mark> <mark>T</mark>ALK OFF
SE<mark>T</mark> SAFE<mark>T</mark>Y OFF
SE<mark>T</mark> ODOME<mark>T</mark>ER <mark>T</mark>O 1
...
t_yxhj.prg
*设置临时运行环境
set talk off
set century on
set safety off
public p_gzrrxm,p_cxlj
p_gzrrxm='庄稼'
*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
t_lscx.prg
*jehj:计算增添记录后总的金额合计
*jehj1:计算本单金额合计
*jehj2:计算本单金额合计
*jhdghs:代销商
*jhdlrdm:品名录入代码
*jls:记录数
*lrtj:录入的途径
*lrfs:录入的方式
*qd:确定是否录入
*xszbl():录入代销销售数据
thisform.command9.enabled=.f.
lrfs=1
qd=.t
t_xjbd.prg
*用通用表单建新表单
jbd='t_tybd '
xbd=space(8)
do form t_xjbd
cancel
t_fzxtwj.prg
set talk off
set safety off
clear
close table all
*设置隐含路径
DQML=SYS(5)+SYS(2003)
CXLJ=SYS(16)
FOR JSQ=1 TO LEN(CXLJ)
CXZF=LEFT(RIGHT(CXLJ,JSQ),1)
IF CXZF='\'
CXLJ=STUFF(CXLJ,LEN(CXL