O  ，明白了，那还需要新建一个这个目录吧，就像你的表单load事件中创建的目录一样需要在打开文件表单中创建一个目录是吗？

还有哦一件就是当前表单调用同目录下子文件夹中的表单怎么写路径方便移植到其他机器或其他目录下运行

[ 本帖最后由 freejike 于 2013-12-18 09:58 编辑 ]

OK,谢谢

你好在吗？？
vfp9.0
问题1，我把程序编译后在别的电脑上运行为什么可以添加但不能打开。运行库放了这5个文件msvcr71.dll，gdiplus.dll，vfp9r.dll，vfp9rchs.dll，vfp9t.dll
问题2，而且加入了data数据库文件，和index索引文件cdx
但都出现定位数据库（初始化临时表对象时发生错误。找不到****\****.dbc)，之前我把数据库中的dbf和dbc都重新分类存放在文件夹，并且在程序中重新定位了，还在数据库中移除并重新添加，在表单中重新添加了数据环境.
问题3，未编译时运行程序，添加了文件的可以打开，没添加文件的提示函数的值错误运行指向STRTOFILE(m_链接,'d:\tmp\'+ALLTRIM(m_文件))，编译出来后也是这样的提示，但点取消后程序关闭，如何让找不到变量后出现提示并继续运行？
我的打开文件代码是这样的，

IF EMPTY(m_文件) OR EMPTY(m_链接)
    MESSAGEBOX("没有录入",0)
    RETURN
ELSE 
STRTOFILE(m_链接,'d:\tmp\'+ALLTRIM(m_文件))
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING, STRING, STRING, INTEGER
ShellExecute(0,"open",'d:\tmp\'+ALLTRIM(m_文件),"","",1) 
CLEAR DLLS
ENDIF 

[ 本帖最后由 freejike 于 2013-12-20 11:12 编辑 ]

问题1：tmp文件夹创建位置错。
问题2:数据库移除再添加还是一样，请问您知道还有什么原因引起这个问题吗？因为其它表单数据库都运行良好。
问题3：加入容错处理后点打开后无任何提示，要打开没有添加文件的记录是因为这是两个数据库建立的视图，各都各自文件，定位到此记录时在1文件可以打开，2文件如果没有就会出现问题。加入容错处理后无任何提示。还有一点，下面这个if判断为真是否没有意义？
 
IF EMPTY(r_文件) OR EMPTY(r_链接)
    MESSAGEBOX("没有录入",0)
    RETURN
ELSE
 err=.f.
    on error err=.t.    &&定义容错处理
   
STRTOFILE(r_链接,'tmp\'+ALLTRIM(r_文件))

ON ERROR      
if not err and file('tmp\'+ALLTRIM(m_文件))   &&判断对象是否为真
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING, STRING, STRING, INTEGER
ShellExecute(0,"open",'tmp\'+ALLTRIM(r_文件),"","",1)
CLEAR DLLS
ENDIF

[ 本帖最后由 freejike 于 2013-12-20 16:24 编辑 ]

不好意思，昨天 有事没来得及过来答谢你

加了容错在空记录中执行第一句“没有录入”，谢谢你

帮忙看下登陆代码我在数据环境已经添加数据库user

c_name=Alltrim(Thisform.text1.Value)
c_password=Alltrim(Thisform.text2.Value)

c_messageTitle='登陆系统'    &&指定对话框标题栏中的文本
nDialogType=4+32                             &&定义对话框内容

set order to 编号
seek c_name
If Alltrim(User.用户名)==''  &&用户名为空

    c_messageText='请输入用户名'
    nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
    Do Case
        Case nAnswer=6
            Thisform.text1.Value=''
            Thisform.text1.SetFocus
             
        Case nAnswer=7
            thisform.Release
    Endcase

    If Alltrim(User.用户名)==c_name   &&用户名正确

        If Alltrim(User.密码)==''
            c_messageText='请重新输入密码'
            nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
            Do Case
                Case nAnswer=6
                    Thisform.text2.Value=''
                    Thisform.text2.SetFocus
                Case nAnswer=7
                    thisform.Release
            Endcase

            If Alltrim(User.密码)==c_password  &&密码正确
                Thisform.Visible=.F.
                Do Form Index
            Else
                c_messageText='密码错误,请重新输入'
                nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)

                Do Case
                    Case nAnswer=6
                        Thisform.text2.Value=''
                        Thisform.text2.SetFocus
                    Case nAnswer=7
                        thisform.Release
                Endcase
            Endif
        Endif
    Else
        c_messageText='用户名错误,请重新输入'
        nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
        Do Case
            Case nAnswer=6
                Thisform.text1.Value=''
                Thisform.text1.SetFocus
            Case nAnswer=7
                thisform.Release
        Endcase
    Endif
    Thisform.Release
Endif

[ 本帖最后由 freejike 于 2013-12-23 22:21 编辑 ]

我用case也写了个，，表中有记录但是总是找不到，提示账号错误信息，我在表中已经建立你主索引和普通索引，在程序中也定义了索引

If c_name=='' And c_password==''
    c_messageText='请输入用户名和密码'
    nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
    Do Case
        Case nAnswer=6
            Thisform.text1.Value=''
            Thisform.text2.Value=''
            Thisform.text1.SetFocus
        Case nAnswer=7
            Thisform.Release
    Endcase
Else
    SET ORDER TO 编号   && 编号 
    GO TOP
    SEEK c_name
    If Found()
        Do Case
            Case User.密码==c_password
                Do Form Index.scx
                Thisform.Release
            Case  User.密码!=c_password
                c_messageText='请重新输入密码'
                nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
                Do Case
                    Case nAnswer=6
                        Thisform.text2.Value=''
                        Thisform.text2.SetFocus
                    Case nAnswer=7
                        Thisform.Release
                Endcase
        Endcase
    Else
        c_messageText='账号错误'
        nAnswer=Messagebox(c_messageText,nDialogType,c_messageTitle)
        Do Case
            Case nAnswer=6
                Thisform.text1.Value=''
                Thisform.text2.Value=''
                Thisform.text1.SetFocus
            Case nAnswer=7
                Thisform.Release
        Endcase

    Endif
ENDIF
ENDWITH 

[ 本帖最后由 freejike 于 2013-12-23 22:36 编辑 ]

谢谢，这个简介好懂