English
- Visual C++源码
- Visual Basic源码
- C++ Builder源码
- Java源码
- Delphi源码
- C/C++源码
- PHP源码
- Perl源码
- Python源码
- Asm源码
- Pascal源码
- Borland C++源码
- Others源码
- SQL源码
- VBScript源码
- JavaScript源码
- ASP/ASPX源码
- C#源码
- Flash/ActionScript源码
- matlab源码
- PowerBuilder源码
- LabView源码
- Flex源码
- MathCAD源码
- VBA源码
- IDL源码
- Lisp/Scheme源码
- VHDL源码
- Objective-C源码
- Fortran源码
- tcl/tk源码
- QT源码
FSXS.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：1k
源码类别：
企业管理
开发平台：
VFP
- pdk = jje
- IF pdk<0
- SET COLOR TO R+/N
- @ 7+bs, 42 SAY jje
- SET COLOR TO W/N
- @ 7+bs, 58 SAY ' '
- ELSE
- IF pdk>0
- @ 7+bs, 42 SAY jje
- @ 7+bs, 58 SAY ' '
- ELSE
- pdk = dje
- @ 7+bs, 42 SAY ' '
- IF pdk<0
- SET COLOR TO R+/N
- @ 7+bs, 58 SAY dje
- SET COLOR TO W/N
- ELSE
- @ 7+bs, 58 SAY dje
- ENDI
- ENDI
- ENDI
- SET COLOR TO W/N
- RETU
- *
