行业应用

开发平台：

VFP

STUFF.PRG：源码内容

							*********************************************************
*
* Name: Stuff
*       此程序演示人事档案输入
*
**********************************************************
set talk off
set esca off
set path to ..
do LoadSDK                    && 装入SDK
priv all like P_*
P_DMode=GetDMode()
=SetDmode(10)
=ShowBmp(0,0,"Novell.Bmp")
if (GetDMode()!=10)
   do _Info in MisTool with;
      "无法进入640*480*256色模式n只能在16色模式下抖动显示256色图像"
endi
P_Color='N/W,B/W,W/W,W+/B,W/B,W+/BG,GR/W,W/B,N/W,W+/W'
=DefiWind('Stuffin',2,4,21,75,"colo &P_Color titl '人事档案输入'")
=ActiWind('Stuffin')
=SetHZSize(28,28,1)
=SetHZFont(3)
=SetHZColor(6)
=SetHZBkColor(7)
=SetHZStyle(_SHADOW)
=SetHZShadow(4,1,0)
=ShowHZ(201,67,"希望公司人事档案卡")
=DnRect(C2X(1)-1,R2Y(3)-1,C2X(69)+1,R2Y(18)+1)
=UpRect(C2X(1),R2Y(3),C2X(69),R2Y(18))
=ShowIco(C2X(4),R2Y(2)-5,'Note.ICO')
@ 4, 2 say '姓    名               性    别'
@ 6, 2 say '出生年月               身份证号'
@ 8, 2 say '民    族               政治面貌'
@10, 2 say '职    称               学    历'
@12, 2 say '毕业院校'
@14, 2 say '工作单位'
@16, 2 say '家庭住址'
@12, 56 say '相   片'
=UpRect(448,121,584,291)
=DnRect(452,125,580,268)
set curs on
on key labe pgup do PGUPKEY
on key labe pgdn do PGDNKEY
clea type
=refreshscr()
use Stuff
do whil .t.
   =Get(4,11,'XM','size 1,12')
   =Get(4,34,'XB','size 1,15')
   =Get(6,11,"CSNY",'size 1,12')
   =Get(6,34,'SFZH','')
   =Get(8,11,'MZ','size 1,12')
   =Get(8,34,'ZZMM','size 1,15')
   =Get(10,11,'ZC','size 1,12')
   =Get(10,34,'XL','size 1,15')
   =Get(12,11,'BYYX','size 1,38')
   =Get(14,11,'GZDW','size 1,57')
   =Get(16,11,'JTZZ','size 1,57')
      
   read show SHOWZP() colo W+/B,W+/B
   do case
      case last()=5
         skip -1
      case last()=24
         skip
   endc
   if bof()
      go bott
   endi
   if eof()
     go top
   endi
   if last()=27
		exit
	endi
endd
on key labe pgup
on key labe pgdn
=ReleWind('Stuffin')
use
=SetDMode(P_DMode)
retu
*----------------------------------
func SHOWZP
clea type
=SetFillStyle(1,7)
=DrawBar(453,126,579,267)
=ShowPCXin(453,126,579,267,ZP)		 &&显示照片
retu .f.
*----------------------------------
func PGUPKEY
push key clea
skip -1
if bof()
   go bott
endi
show gets
pop key
retu
*----------------------------------
func PGDNKEY
push key clea
skip
if eof()
   go top
endi
show gets
pop key
retu

						