求助：请问各位老师，表单在运行时如图 - 编程论坛

#2

mywisdom882022-04-29 11:47

问题红1：怎样做才能把每一步的检测结果显示出来，即动态的，代码现在写在表单的激活项
在开始检查某个时，就提示正在检查，检查完毕后，就提示，检查完毕
然后，就继续，，，
问题红2：怎样设计这个combo,让它可以在运行过程中可以选择，如果没选择，检测完后在规定时间自动跳到一个表单？
VFP是单线程的，当正在运行某个程序，还没结束时，你点界面，会出现假死机的，所以不能完全，在运行中选择
但可以，运行某个结束后，停顿某个时间，给客户选择，然后在执行

#3

cjc10102022-04-29 11:48

你检测完成是怎样显示的，每检测一步就怎样显示呗。程序是按先后顺序运行的，程序运行过程中如果没有中断设置，应该不能让你选择combo的。

#4

sdta2022-04-29 12:03

不要纸上谈兵

#5

强国学习2022-04-29 12:11

form1的activate
thisform.text1.value="正在检测网络，请等待..."
   owsh=createobject("wscript.shell")
   owsh.run (" /c ping -n 1 -r 9 192.168.1.65>D:\jyfw\ip.txt",0,.t.)
   IF FILE('D:\jyfw\ip.txt')
      IF AT('来自 192.168.1.65 的回复',FILETOSTR('D:\jyfw\ip.txt'))>10
         DELETE FILE D:\jyfw\ip.txt
         thisform.text1.value="正在检测服务器联通性，请等待..."
         THISFORM.REFRESH
         if not directory('Z:\')
            thisform.text1.value="正在连接服务器，请等待..."
            THISFORM.REFRESH
            run/n net use Z: \\192.168.1.65\data shared

            if thisform.serverconnecttest()=1
               =MESSAGEBOX('连接服务器失败,请联系系统管理员。错误代码3','信息提示')
               thisform.release
            else
               thisform.text1.value="正在检查主要数据文件的完整性，请等待..."
               THISFORM.REFRESH
               if databasecomplete()=0
                  thisform.userdatebasecheck()
                  thisform.text1.value="检测完成，正在登录"


                  *THISFORM.REFRESH
                  *do form dlbd
                  *thisform.release
               else
                  e='重要数据文件丢失,请联系系统管理员。代码:'+alltrim(str(thisform.databasecomplete()))
                  =MESSAGEBOX(e,'信息提示')
                  thisform.release
               endi
            endi

         else
            if thisform.serverconnecttest()=1
               =MESSAGEBOX('连接服务器失败,请联系系统管理员。错误代码3','信息提示')
               thisform.release
            else
               thisform.text1.value="正在检查主要数据文件的完整性，请等待..."
               THISFORM.REFRESH
               if thisform.databasecomplete()=0
                  thisform.userdatebasecheck()
                  thisform.text1.value="检测完成，正在登录"


                  *THISFORM.REFRESH
                  *do form dlbd
                  *thisform.release
               else
                  e='重要数据文件丢失,请联系系统管理员。代码:'+alltrim(str(thisform.databasecomplete()))
                  =MESSAGEBOX(e,'信息提示')
                  thisform.release
               endi
            endi
         endif
      else
         DELETE FILE D:\jyfw\ip.txt
         =MESSAGEBOX('网络连接失败,请检查网络或联系网络管理员。错误代码1','信息提示')
         thisform.release
      endi
   else
      =MESSAGEBOX('检测网络失败,操作系统异常，请联系系统管理员。错误代码2','信息提示')
      thisform.release
   endi

#6

mywisdom882022-04-29 13:02

回复 5楼强国学习

text1 文本，改为列表 list1 效果可能会好点

只有本站会员才能查看附件，请登录

thisform.list1.AddItem("添加最新内容",1) && 最新的在上面

#7

aqyejun2022-05-17 15:56

每一步设定一个需要提示的文本内容或跳转表单加入代码：

只有本站会员才能查看附件，请登录