登录 | 注册

首页 | 学习中心 | 下载中心 | 知识大全 | 作文 | 常识 | 加入收藏 | 网站地图

您当前位置:多思学习网知识频道电脑学习软件技巧利用硬盘驱动器号制作防扩散FOXPRO程序

利用硬盘驱动器号制作防扩散FOXPRO程序

11-08 12:39:07软件技巧
浏览次数:886次 
标签:软件技巧大全,http://www.duosi8.com 利用硬盘驱动器号制作防扩散FOXPRO程序,
   程序分2个部份:
        一、设置合法使用者硬盘驱动器程序SET.PRG
        二、检测运行程序的当前硬盘驱动器号TEST.PRG
        ***SET.PRG***
        SET TALK OFF
        !DIR >N.TXT
        USE DRIVE.DBF
        ZAPAPPE FROM N.TXT SDF
        DELE FILE N.TXT
        ***TEST.PRG***
        SET TALK OFF
        USE DRIVE
        COPY TO DRIVTTMP
        GO 3
        A=RIGH(ALLT(DRIVE),LEN(ALLT(DRIVE))-24)
        USE DRIVETMP
        ZAP
        !DIR >N.TXT
        APPE FROM N.TXT SDF
        GO 3
        B=RIGH((ALLT(DRIVE),LEN(ALLT(DRIVE)-24)
        DELE FILE N.TXT
        DELE FILE DRIVETMP.DBF
        IF A=B
        SET COLOR TO /N
        @10,36 CLEAR TO 13,54
        SET COLOR TO +G/GB
        @11,38 CLEAR TO 14,56
        @12,40 SAY `您为合法用户,'
        @13,40 SAY `按任意键继续……'
        S=INKEY(0)
        DO MAIN
        ELSE
        SET COLOR TO /N
        @10,36 CLEAR TO 13,54
        SET COLOR TO +G/R
        @11,38 CLEAR TO 14,56
        @12,40 SAY `您为非法用户,'
        @13,40 SAY `按任意键继续……'
        S=INKEY(0)
        QUIT
        ENDIF
        备注:1.程序中涉及的数据库DRIVE.DBF与DRIVETMP.DBF结构为‘DRIVE.C 50'DRIVETMP.DBF为过渡数据库,DRIVE.DBF为存放硬盘驱动信息的数据库。2.程序设MAIN.PRG为用户的主程序。
 

,利用硬盘驱动器号制作防扩散FOXPRO程序
《利用硬盘驱动器号制作防扩散FOXPRO程序》相关文章

tag: 程序  制作  驱动器  软件技巧,软件技巧大全,电脑学习 - 软件技巧

联系我们 | 网站地图 | 幼教大全 | 试题下载 | 电脑学习 | 加入收藏


幼儿园教案_ 教案模板_ 课件模板_ 教学反思_ 教学计划


多思学习网 1 2 3 4 5 6