上传文件控件 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 上传文件控件

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 3013 人关注过本帖， 2 人收藏

标题：上传文件控件

只看楼主加入收藏

bccn0906

来　自：广州
等　级：蜘蛛侠
威　望：2
帖　子：414
专家分：1183
注　册：2013-10-16

第 31 楼

得分:0

下班放松去。。。。。。

2013-12-20 16:56

freejike

等　级：新手上路
帖　子：47
专家分：0
注　册：2008-10-13

第 32 楼

得分:0

回复 30楼 bccn0906

2013-12-21 13:15

freejike

等　级：新手上路
帖　子：47
专家分：0
注　册：2008-10-13

第 33 楼

得分:0

回复 29楼 bccn0906

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

2013-12-21 13:17

wengjl

等　级：贵宾
威　望：109
帖　子：2215
专家分：3882
注　册：2007-4-27

第 34 楼

得分:0

我测试了，很好用（稍作修改，在任何目录中都可以）的啊

只求每天有一丁点儿的进步就可以了

2013-12-21 14:06

bccn0906

来　自：广州
等　级：蜘蛛侠
威　望：2
帖　子：414
专家分：1183
注　册：2013-10-16

第 35 楼

得分:0

以下是引用freejike在2013-12-20 16:18:06的发言：

问题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

你可以自己根据需要加些指引提示
IF EMPTY(r_文件) OR EMPTY(r_链接)
    MESSAGEBOX("没有录入",0)
    RETURN
ENDIF
err=.f.
ON ERROR err=.t.
STRTOFILE(r_链接,'tmp\'+ALLTRIM(r_文件))
ON ERROR
IF err
    MESSAGEBOX("录入的资料有问题",0)
    RETURN
ENDIF
IF NOT file('tmp\'+ALLTRIM(m_文件))
    MESSAGEBOX("文件错误",0)
    RETURN
ENDIF
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING, STRING, STRING, INTEGER
ShellExecute(0,"open",'tmp\'+ALLTRIM(r_文件),"","",1)
CLEAR DLLS

2013-12-21 15:52

slm75

等　级：新手上路
帖　子：8
专家分：0
注　册：2006-7-5

第 36 楼

得分:0

建一个文件服务器，用客户服务器的方法上传就可以了。
或是建设一个http服务器。用网页形式上传就可以了。用webbrowser

2013-12-21 22:15

freejike

等　级：新手上路
帖　子：47
专家分：0
注　册：2008-10-13

第 37 楼

得分:0

回复 35楼 bccn0906

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

2013-12-22 16:07

冬冬123

等　级：论坛游民
帖　子：80
专家分：67
注　册：2013-3-3

第 38 楼

得分:0

顶一下吧，总是有那么都的高手。。。。。

天下寒士俱欢言！！！

2013-12-23 20:05

freejike

等　级：新手上路
帖　子：47
专家分：0
注　册：2008-10-13

第 39 楼

得分:0

回复 35楼 bccn0906

帮忙看下登陆代码

我在数据环境已经添加数据库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 编辑 ]

2013-12-23 21:03

bccn0906

来　自：广州
等　级：蜘蛛侠
威　望：2
帖　子：414
专家分：1183
注　册：2013-10-16

第 40 楼

得分:0

回复 39楼 freejike

大哥是从写 DOS程序过来的吧
这样改下吧
*请另外增加一个《退出》按扭 thisform.release

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

c_messageTitle='登陆系统'    &&指定对话框标题栏中的文本
nDialogType=64               &&定义对话框内容
IF EMPTY(c_name)
    c_messageText='请输入用户名'
    =Messagebox(c_messageText,nDialogType,c_messageTitle)
    Thisform.text1.SetFocus
    RETURN
ENDIF
IF EMPTY(c_password)
    c_messageText='请重新输入密码'
    =Messagebox(c_messageText,nDialogType,c_messageTitle)
    Thisform.text2.SetFocus
    RETURN
ENDIF

SELECT user
LOCATE FOR ALLTRIM(用户名)==c_name
IF NOT FOUND()
    c_messageText='用户名错误,请重新输入'
    =Messagebox(c_messageText,nDialogType,c_messageTitle)
    Thisform.text1.Value=''
     Thisform.text1.SetFocus
    RETURN
ENDIF
If not(Alltrim(密码)==c_password)
    c_messageText='密码错误,请重新输入'
    Thisform.text2.Value=''
    Thisform.text2.SetFocus
    RETURN
ENDIF
Thisform.Visible=.F.
Do Form Index

2013-12-23 22:15

快速回复：上传文件控件