vfp 自动填写网页

最新推荐文章于 2022-10-10 14:17:18 发布
最新推荐文章于 2022-10-10 14:17:18 发布
阅读量3.5k 收藏 3
点赞数 1
分类专栏： 软件工程 文章标签： 2010 apple command microsoft mysql object
http://topic.csdn.net/u/20100818/10/02013645-7e0a-426c-a5b3-0b298a8a9a47.html

回4楼:

运行结果,提示出错,出错内容为: 

"document不是一个对象"
 
 
回复次数： 19

 
#1楼 得分：0回复于：2010-08-20 15:50:55
我的步骤是:

1 工具-选项-控件-找到microsoft web 浏览器--勾上--确定

2 新建一个表单,新建ActiveX控件,更名为 OleWebBrowse

3 双击此控件,在init处写入代码 This.Navigate("http://www.lzk.hl.cn/ptgk/default.asp")

4 新建一个command按钮,在此按钮的Click里写上代码:

Thisform.OleWebBrowse.Document.Forms("form1").zkzh.Value="1234567890"
Thisform.OleWebBrowse.Document.Forms("form1").ksxm.Value="张三"
Thisform.OleWebBrowse.Document.Forms("form1").Submit

5 结果提示出错 "document不是一个对象"

我如何操作的,已经详细描述,请老师帮看看我哪里出错了?

我用的是vfp 9.0
 
精华推荐： 关于项目相互引用的问题
#2楼 得分：0回复于：2010-08-20 16:21:50
楼主你这样问真不是办法,有什么问题先GOOGLE了再说,不要走一步就问一下,是人看到你这样问法都怕了
 
精华推荐： 写了几篇oracle和mysql的对比文章，可惜对mysql还不是很熟悉。希望得到版主的指教
#3楼 得分：0回复于：2010-08-20 16:29:08
看一下你添加到表单上的 ActiveX 控件的 OleClass 是什么？

上面代码我是好用的。
 
精华推荐： mysql的查询语句的排序问题
#4楼 得分：0回复于：2010-08-20 16:32:51
表单上的 ActiveX 控件的 OleClass 是空,什么内容也没有.

而且是灰色的,不可以写入东西
 
精华推荐： 主表单以动画的形式从屏幕中向四周扩散，最后至最大化
#5楼 得分：0回复于：2010-08-20 16:50:30
灰色是对的，不过应该有内容，应该是：Shell.Explorer.2
 
精华推荐： 管理mysql的客户端工具
#6楼 得分：0回复于：2010-08-20 16:52:38
那我这里面没有东西在里面,该怎么办呢?
 
#7楼 得分：0回复于：2010-08-20 16:58:04
换个计算机试一下。
如果没有其他计算机，试着重装系统或安装个IE8试试。
 
#8楼 得分：0回复于：2010-08-20 17:01:22
好的. 我来试一下

今天试不成了,到点下班了.

明天哦.

明天告诉你结果.

谢谢你了,老师.
 
  • dkfdtf用户头像
  • dkfdtf
  • (都市夜猫)
  • 等　级：
#9楼 得分：0回复于：2010-08-20 23:08:03
只有等网页下载完成后，解析器才会构造出需要的对象，而下载完整个网页是需要时间的，特别是在网页内容较多或网速较慢的情况下。

这样试试：
1. 按钮的 Enabled 初始值设为 .F. 
2. WebBrowse 控件的 DocumentComplete 事件中写入：
  Thisform.Command1.Enabled = .T.

这样你可以看到，网页是在什么时候下载完成并启用按钮的。
 
#10楼 得分：0回复于：2010-08-21 08:24:23
回十豆三老师:

已经换了二台计算机试了。 && 还是老问题(OleClass 是空)
已经重装系统(我的电脑有一键还原功能). && 还是老问题(OleClass 是空)
安装IE8试试。 && 还是老问题(OleClass 是空)

回都市夜猫老师:
没有找到 OleWebBrowse 控件的 DocumentComplete 属性,我是不是要增加一下属性?
 
#11楼 得分：0回复于：2010-08-21 08:26:55
同时,我在VFP 6.0和VFP 9.0环境下都测试过了, OleClass 始终是灰色,且为空.
 
#12楼 得分：0回复于：2010-08-21 08:27:43
当然,我用VFP 6.0,只是想测试一下.

正常情况下,我都用VFP 9.0最新版本.
 
#13楼 得分：0回复于：2010-08-21 09:37:01
DocumentComplete 属性 是此控件自带的属性，网页加载完成后发生此事件。
 
#14楼 得分：0回复于：2010-08-21 09:48:25
确实没有找着 DocumentComplete 属性.

恕在下愚钝. 我是严格按照1楼的操作步骤做的,就是没有找着此控件.
 
#15楼 得分：80回复于：2010-08-21 10:24:39
VFP9.0
你新一下PRG程序，将以下代码粘到此PRG程序中，运行这个PRG程序试试：

SQL code 
            
            

             
             
             
             Public
             
              oform1

oform1
             
             =
             
             Newobject("form1")
oform1.Show

             
             Return
             
             

Define Class form1 
             
             As
             
              Form

    
             
             Top
             
              
             
             =
             
              
             
             0
             
             
    
             
             Left
             
              
             
             =
             
              
             
             0
             
             
    Height 
             
             =
             
              
             
             571
             
             
    Width 
             
             =
             
              
             
             933
             
             
    ShowWindow 
             
             =
             
              
             
             1
             
             
    DoCreate 
             
             =
             
              .T.
    Caption 
             
             =
             
              "Form1"
    WindowType 
             
             =
             
              
             
             1
             
             
    Name 
             
             =
             
              "form1"

    
             
             Add
             
              Object olewebbrowse 
             
             As
             
              OleControl 
             
             With
             
              ;
        
             
             Top
             
              
             
             =
             
              
             
             12
             
             , ;
        
             
             Left
             
              
             
             =
             
              
             
             12
             
             , ;
        Height 
             
             =
             
              
             
             540
             
             , ;
        Width 
             
             =
             
              
             
             804
             
             , ;
        Name 
             
             =
             
              "OleWebBrowse", ;
        OleClass 
             
             =
             
              "Shell.Explorer.
             
             2
             
             ", ;
        OleLCID 
             
             =
             
              
             
             1033
             
             

    
             
             Add
             
              Object command1 
             
             As
             
              CommandButton 
             
             With
             
              ;
        
             
             Top
             
              
             
             =
             
              
             
             107
             
             , ;
        
             
             Left
             
              
             
             =
             
              
             
             835
             
             , ;
        Height 
             
             =
             
              
             
             28
             
             , ;
        Width 
             
             =
             
              
             
             79
             
             , ;
        Caption 
             
             =
             
              "查询测试", ;
        Enabled 
             
             =
             
              .F., ;
        Name 
             
             =
             
              "Command1"

    
             
             Procedure
             
              olewebbrowse.DocumentComplete
        
             
             ***
             
              ActiveX Control Event 
             
             ***
             
             
        Lparameters pdisp, url
        Thisform.Command1.Enabled
             
             =
             
              .T.
    Endproc

    
             
             Procedure
             
              olewebbrowse.Init
        This.Navigate("http:
             
             //
             
             www.lzk.hl.cn
             
             /
             
             ptgk
             
             /
             
             default
             
             .asp")
    Endproc

    
             
             Procedure
             
              command1.Click
        Thisform.OleWebBrowse.Document.Forms("form1").zkzh.Value
             
             =
             
             "
             
             1234567890
             
             "
        Thisform.OleWebBrowse.Document.Forms("form1").ksxm.Value
             
             =
             
             "张三"
        Thisform.OleWebBrowse.Document.Forms("form1").Submit
    Endproc

Enddefine


 
 
#16楼 得分：0回复于：2010-08-21 10:30:26
OK了

谢谢老师
 
#17楼 得分：0回复于：2010-08-21 10:30:53
15楼的代码,会有许多人采用,绝对的.
 
#18楼 得分：0回复于：2010-08-21 10:32:55
真是太好了,越看越欢喜.
fyfcom
关注
专栏目录
vfp 生成html,利用VFP脚本开发动态Web系统
weixin_42512699的博客
06-05 988
编写的一个软件系统VfpWeb，讨论了VfpWeb的功能、用途、特点及脚本程序的编写方法。提出利用VfpWeb进行网站设计制作的方案。网站设计 众所周知，VFP是一个数据库管理系统，对于中小型数据库，他是非常得心应手的，但利用VFP开发Web系统、制作网站，可能许多人都没听说过。制作网站最传统的方法就是用ASP，ASP脚本中可以使用VbScript与JavaScript两种脚本语言。下面要介绍的就...
VFP控制IE网页内容及对象赋值的方法
11-12
vfp取得IE网页内容及对象赋值的方法,利用VFP在INTERNET上制作数据库动态查询,在VFP里全屏幕开启一个IE窗口 , 如何检测是不连上Internet
利用WebBrowser自动填写网页上的表单
fengshielick的专栏
02-24 5770
procedure TForm1.db_writeClick(Sender: TObject); var o:oleVariant; err,js:string; i:integer; const mz:array[1..51] of string=('汉族','蒙古族','回族','藏族','维吾尔族','苗族','彝族','壮族','布依族', '朝鲜族','满族','侗族','瑶族','白族...
系统登录探究——（三）自动登录
chenqiang8644的博客
07-24 283
用户每天在同一台电脑用同一账号登录同一网站时，可以设置记住我功能，这样在一段时间内无需每天输入用户名密码登录。系统实现自动登录之前，用户肯定是在第一次登录（输入用户名密码）时设置了登录按钮下方的“记住我”选项框，系统记住了用户的登录信息，所以之后一段时间内用户无需输入。用户第一次登录系统时“记...
vfphtml_vfpwebbrowser_
10-03
vfp版的webview.在vfp中使用WebBrowser控件加载网页，并且交互动态绑定或取消与网页的点击事件并且支持内核是ie 或 Edge(edge使用的是chrome的内核哟)
表单格式自动填写小软件
09-15
创建的窗体中的信息自动填写网页表单，表单自动填充节省您的时间。 只需填写表格，连同所需的数据及表格自动填充将这些数据填入到您的网页表格。 - 使用表单自动填充，您可以填写表格，并填写和提交表单的自动。 -...
2021-2022计算机二级等级考试试题及答案No.15084.docx
10-28
- **VFP 表的结构**：表的结构主要取决于字段的数量、名称、类型和长度。 - **资源管理器的操作**：删除文件夹或程序项应使用“删除”而非“新建”命令。 - **WWW 的全称**：World Wide Web 的简称。 - **ASCII 编码...
2021-2022计算机二级等级考试试题及答案No.5199.docx
11-02
13. VFP（Visual FoxPro）属性：如果Print方法在窗体的Load事件过程中不起作用，可能是因为AutoRedraw属性值为false，这意味着自动重绘功能未开启。 14. VFP表达式：`.null..AND..F.`、`.null..OR..F.`、`.null.=....
2021-2022计算机二级等级考试试题及答案No.14434.docx
10-27
3. VFP主索引：在Visual FoxPro中，主索引只能在数据库表中建立，而非自由表。 4. 工作簿与工作表：在Excel中，工作簿是工作表的基础单元，每个工作簿可以包含多个工作表。 5. Java类修饰符：类可以使用public、...
2021-2022计算机二级等级考试试题及答案No.14876.docx
10-28
通过这种方式可以直接在用户的邮件客户端中打开新邮件窗口，并预先填写收件人地址。 ### 20. 触发器的概念及其类型 触发器是在响应某些动作时自动执行的SQL代码段。触发器的主要类型包括INSERT、DELETE和UPDATE...
vfp 动态添加控件的事件绑定处理
12-20
vfp 动态添加的控件如何指定事件处理器
vfp 生成html,Click a HTML button from VFP?
weixin_30467625的博客
06-05 108
Your reply is not relevant. I have found vb.net code is working. vb.net code is almost the same as vfp code. But I don't know why vfp code doesn't work.It seems click method in VFP cannot be linked t...
vfp 表生成html,vfp用代码生成htm
weixin_36397372的博客
06-08 263
SET SAFETY OFFSET TEXTMERGE ONSET TEXTMERGE DELIMITERS TO "##","##"SET TEXTMERGE TO temp.htm noshow\\\\\\My First VFP-HTML\\\\\\\\\Description\\You can use \the PrintWhen expression to change the font...
vfp 生成html,vfp教程之用FoxPro生成HTML文件
weixin_39676034的博客
06-05 328
在 当 前 的 许 多NOVELL 网 络 中， 数 据 平 台 仍 是 基 于DOS 的FoxPro 环 境， 一 般 工 作 站 均 是 无 盘 站， 但 领 导 查 询 用 的 工 作 站 往 往 配 制 较 好， 并 装 有WIN95 或WIN98 等 系 统， 如 果 只 用 于 数 据 查 询 或 简 单 数 据 处 理， 便 造 成 资 源 浪 费； 如 果 同 时 进 行 其 他 ...
vfp能不能编辑html代码,看实例学VFP：制作只能从顶层表单调用的系统主菜单
weixin_42165583的博客
06-20 372
-我们知道正常的VFP菜单都是显示在主屏幕(_screen)中的，但如果要使用顶层表单来做软件的主界面，_screen是要屏蔽掉的。这就产生了一个问题：_screen没有了，软件菜单该往哪里放呢？没有关系，可以使用只能从顶层表单中调用的菜单来解决这个问题，另外这种菜单的调用处是在顶层表单的init事件中，而不是在主程序中。本例来制作一个只能从顶层表单调用的系统主菜单MAIN.MPR，下一课我们将会...
vfp 生成html,[转载]vfp 做 b/s 的方法
weixin_29483167的博客
06-05 777
VFP 做B/S的新方法(二)前言：以前，我也和其他VFP爱好者一样，认为VFP的最大不足是不能做B/S应用开发，现在我已改变了看法，VFP完全可以胜任B/S应用开发，而且性能非常好，也很容易使用，问题的关键是你是否掌握好的开发方法。自从掌握ASP + COM编程方法后，我一直在探索VFP做B/S应用更好的开发方法，特别是寻找一种方法解决COM对象在Application级启动无法使用ASP内置对...
数据交换学习四：VFP通过上传数据到asp.net WebService。
feiyafei2008的专栏
03-16 1826
一、相关表格构*    创建username表并插入一些数据create table userinfo(用户名 c(10),密码 c(10),年龄 i)insert into userinfo values(胡书宾,1234576,24)insert into userinfo values(费青春,7777333,25)insert into userinfo
使用 Visual FoxPro提供一个基于互联网的数据服务
谢威的专栏
08-23 3536
使用 Visual FoxPro提供一个基于互联网的数据服务(翻译)  Rick Strahl写的关于使用VFP构建基于Web的DataService,很好的为我们阐述了整个DataService的数据流程，不管你是使用何种方法构建Webservice的，这篇文章在架构上都有指导意义．花了整整两天翻译，希望与大家共享，水平有限，不当之处请大家指出．使用 Visual FoxPro提
VFP学习_3表的基本操作(Browse命令)
最新发布
pigerr的博客
10-10 1474
字段1 with 表达式1 , 字段2 with 表达式2 …browse (新建一个窗口显示), list (显示在工作区域)[for 条件1][while 条件2 ]replace []
VFP6.0记录删除后自动调整编号：关键代码实现
在VFP6.0中，实现记录删除后自动调整编号是一项实用的功能，特别是在数据管理中，保持连续性和一致性非常重要。为了实现这个功能，开发者通常会利用数据库的特性以及Form上的交互元素。 首先，设计一个人事管理系统...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值