VFP控制键鼠的组件，电脑自动填报，我刚好可以喝杯咖啡

最近同事有填报价格的，一万多条记录，从EXEL填到软件里面。想着做一个工具，简单操作，又不容易出错。

拉出猫框，随意做一个表单。

价格选择按钮 click

功能：导入EXCEL

lcfile=Getfile("XLS,XLSX")
If !File(lcfile)
  Wait "文件不存在" Windows
  Return .F.
Endif


xx=newobject("importexcel","importexcel.prg")
xx.cursorstruc="货品编码 c(50),货品名称 c(254),货品规格 c(20),比率 I ,单位 c(20),加权价 N(10,2),价格 N(18,6)"


**以下两行也可以改成xx.improt(lcfile,"tmpxxx")
xx.Alias="tmpxxx"
xx.Import(lcfile)


thisform.grid1.RecordSource="tmpxxx"
thisform.grid1.AutoFit()

自动填价按钮click

功能：控制键鼠自动填价

IF !USED("tmpxxx")
  MESSAGEBOX("请先导入价格表")
  RETURN 
ENDIF 
robot=Createobject( "Component.Robot.6" )
Select tmpxxx
Go Top
Scan
  With robot
    .SetContext ("FNWND360->Title=库存管理 - [价格维护]", "")
    .Click ("PBEDIT60->ID=10", "Coords=0,5")     
    Scan
      .Input(数量<Down>)
    Endscan
  Endwith
Endscan
Messagebox("任务完成",0,"OK")

导出价格模板

功能：导出模板

xx=newobject("importexcel","importexcel.prg")
xx.cursorstruc="货品编码 c(50),货品名称 c(254),货品规格 c(20),比率 I ,单位 c(20),加权价 N(10,2),价格 N(18,6)"


**以下两行也可以改成xx.improt(lcfile,"tmpxxx")
xx.Alias="tmpxxx"
*--导出模板文件
xx.templatetoxls()

运行后，先选择价格导入，再启动自动填价，计算机就刷刷地干活。

同时这个组件也提供了录制功能，可以录制相应的操作，根据录制的结果，我们转为VFP代码即可。

录制的结果为VBS代码，我们可以转换为VFP代码即可。

其实这个界面，我也可以用VFP来设计一下捕捉窗口元素和坐标，方便集成在VFP里面也OK的。

猫猫的心里话

加菲猫的VFP|狐友会社群接收投稿啦

加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。

商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。

暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。

如何帮助使用VFP的人？

用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。

我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。

加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。

我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。

2023年狐友会社群会员继续招募中

社群会员获取的权益有：

祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。

开放的录播课程有：

微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。

源码类资源有：

支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。

会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务