快捷搜索:

您的位置:澳门新葡4473网站 > 新葡亰平台娱乐 > 数据备份问题

数据备份问题

发布时间:2020-01-24 07:25编辑:新葡亰平台娱乐浏览(77)

    能够在“分明”按键中增添生机勃勃段代码用来推断是不是存在那样叁个路径,若无那么,创立那样三个文本夹,就能够了。
    IF EMPTY(path1) OR EMPTY(path2)
       MESSAGEBOX("备份路线和数据库无法为空!",16,"系统提示"卡塔尔
    ELSE
       IF DIRECTORY(path2)=.f.
          MD "&path2"
       ENDIF
    endif

         日常开采存朋友不能够很好地设计VFP的登陆分界面,重要设有的主题素材有:

         (1卡塔尔(قطر‎无论输入什么都能健康登陆;(2卡塔尔不论输入什么都一定要奇怪登陆;(3卡塔尔输入二个对的的客商无论密码如何都能不奇怪登入;等等,不胜枚举。

         检查开采,发生那几个标题标缘故是多地点的,但顺序思路不对是必然的。大家理解,登陆的重要条件是顾客名和密码都同时满意必要才对。同期,相比客户名和密码的时候无法只作不正确地比较,而是要做标准比较;客户名和密码必得同期开展比较。在检索了客商名和密码然后,符合规律查找的结果只怕正确(那时系统登入成功卡塔尔(قطر‎,要么错误。针对登入错误的状态,记录报到次数。为了确定保障次数的三番两次性,必需在开首化部分装置次数为全局变量,以往在本表单的其他场面,就能够健康使用。当然,还要注意很多细节,比方控件属性的设计,种种状态的设想等。

        先成立三个表单,表单里面增多2个标签,2个文本框,2个指令按键。设置标签的caption值,设置命令开关的caption值,设置文本框的inputmask值。对各目的开展结构。

        程序设计在对控件完成上述专门的学业之后实行。这里,首要针对表单的早先化部分(init事件State of Qatar和分明命令按钮(command1.click卡塔尔(قطر‎。

    (1State of Qatar在表单的早先化部分:
    PUBLIC S
    S=0
    IF FILE("管理员.dbf")
      USE 管理员.dbf
    ELSE
      CREATE TABLE 管理员 (用户名 C(8),密码 C(16))
      INSERT INTO 管理员 VALUES ("SYSTEM","123456")
    ENDIF
    THISFORM.TEXT1.INPUTMASK=REPLICATE("X",8)
    THISFORM.TEXT1.VALUE=''
    THISFORM.TEXT2.INPUTMASK=REPLICATE("X",16)
    THISFORM.TEXT2.VALUE=''
    THISFORM.TEXT2.PASSWORDCHAR='*'

    (2卡塔尔(قطر‎在规定等一声令下开关部分:
    CTEXT1=THISFORM.TEXT1.VALUE
    CTEXT2=THISFORM.TEXT2.VALUE
    IF EMPTY(CTEXT1) OR EMPTY(CTEXT2)
      DO CASE
      CASE EMPTY(CTEXT1) AND EMPTY(CTEXT2)
        MESSAGEBOX("请输入顾客名和密码",46,"顾客登陆"卡塔尔国
        THISFORM.TEXT1.SETFOCUS
      CASE EMPTY(CTEXT1) AND !EMPTY(CTEXT2)
        MESSAGEBOX("请输入客商名",46,"客户登陆"卡塔尔国
        THISFORM.TEXT1.SETFOCUS
      CASE !EMPTY(CTEXT1) AND EMPTY(CTEXT2)
        MESSAGEBOX("请输入密码",46,"客商登入"卡塔尔(قطر‎
        THISFORM.TEXT2.SETFOCUS
      ENDCASE
    ELSE
      LOCATE ALL FOR 用户名=CTEXT1 AND 密码=CTEXT2
      IF FOUND()
        DO FORM 图书管理音讯类别
        CLOSE ALL
        THISFORM.RELEASE
      ELSE
        S=S+1
        IF S>=3
          MESSAGEBOX("三回登入错误!退出系统!",46,"错误"State of Qatar
          THISFORM.RELEASE
          QUIT
        ELSE
          MESSAGEBOX("客商名或密码不科学!",46,"错误"卡塔尔国
          THISFORM.TEXT2.VALUE=''
          THISFORM.TEXT1.SETFOCUS
          THISFORM.REFRESH
        ENDIF
      ENDIF
    ENDIF

    本文由澳门新葡4473网站发布于新葡亰平台娱乐,转载请注明出处:数据备份问题

    关键词: