www.pudn.com > jq_transfile.ARJ > 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