- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
VFP编程转到C#的方法
【摘要】在VFP将退出编程开发的历史舞台,本人把VFP的SQL命令用C#语言中重写,并且列出具体相对应的转换方法;在本文中也介绍C#语言对ACCESS数据库操作,读者照着本文很容易把VFP的编程转到C#的编程。
【关键词】VFP C# 编程 转换 方法
2006年VFP9.0发布后,再没有发布新的版本,VFP将退出编程开发的历史舞台,原VFP编程开发的人员将面临选择别的语言进行编程开发。现本人将自己从VFP编程开发转到C#编程开发的一个入门实例献给VFP编程开发爱好者。
下面我以VFP的《通讯录》这样一个程序给大家讲述转换到C#程序的过程:
(一)、首先在VFP中建立一个如下图的项目工程文件;
数据表结构如下图:
表单的界面设计如下图:
本表单对象的名称是:Form1 ;
表单中的【】控件对应的控件名是:Command1 ;
表单中的【】控件对应的控件名是:Command2 ;
表单中的【】控件对应的控件名是:Command3 ;
表单中的【】控件对应的控件名是:Command4 ;
表单中的表格控件对应的控件名是:Grid1 ;
表单中的各个Text编辑框控件对应的控件名如上图所标记 ;
(二)、给表单各个控件添加程序代码具体步骤如下:
①、在表单Form1的Load方法程序中加入如下代码:
*** 设定初始路径 ***
cCurrentProcedure = SYS(16,1)
nPathStart = AT(:,cCurrentProcedure)- 1
nLenOfPath = RAT(\, cCurrentProcedure) - (nPathStart)
SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath))
*******
IF USED(txldbf)
SELECT txldbf
ELSE
SELECT 0
ENDIF
USE .\txldbf EXCLUSIVE
②、修改表单Form1的Grid1表格的属性和方法程序:
ReadOnly=.T.
RecordSourceType=4-SQL说明
RecordSource=select xm as 姓名,cj as 手机,dy as 电话,dw as 单位,mail as 邮箱,qq as QQ号,bz as 备注,id Form txldbf into cursor temptxl
在Grid1表格的AfterRowColChange方法程序中加入如下代码:
LPARAMETERS nColIndex
thisform.text1.Value= temptxl.姓名
thisform.text2.Value= temptxl.手机
thisform.text3.Value= temptxl.电话
thisform.text4.Value= temptxl.单位
thisform.text5.Value= temptxl.邮箱
thisform.text6.Value= temptxl.QQ号
thisform.text7.Value= temptxl.备注
③、在表单Form1的Refresh方法程序中加入如下代码:
thisform.Grid1.RecordSource=select ;
xm as 姓名,;
cj as 手机,;
dy as 电话,;
dw as 单位,;
mail as 邮箱,;
qq as QQ号,;
bz as 备注, ;
id ;
Form txldbf into cursor temptxl
④、修改表单Form1的【】Gommand1命令按钮的Click方法程序
IF LEN(ALLTRIM(thisform.text1.value))==0 then
=messagebox(【姓名】不能为空!,64,输入值检查...)
ENDIF
insert into txldbf (xm,cj,dy,dw,mail,qq,bz) VALUES (;
thisform.text1.value,;
thisform.text2.value,;
thisform.text3.value,;
thisform.text4.value,;
thisform.text5.value,;
thisform.text6.value,;
thisform.text7.value)
thisform.refresh
⑤、修改表单Form1的【】Gommand2命令按钮的Click方法程序
IF LEN(
您可能关注的文档
最近下载
- 西门子保护说明书7SJ686用户手册.pdf VIP
- YYT 0735.1-2009 麻醉和呼吸设备 湿化人体呼吸气体的热湿交换器(HME) 第1部分:用于最小潮气量为250mL的HME.docx VIP
- 5.1.3.1生物圈(第一课时) 课件--人教版(2024)生物八年级上册.pptx VIP
- 小学一年级语文下册《夜色》课件.pptx VIP
- 生物圈+课件-2025-2026学年人教版(2024)生物八年级上册.pptx VIP
- 2025年护士资格肿瘤试题及答案 .pdf VIP
- 2025.6.27--12、博微配电网工程设计软件使用手册.pdf VIP
- 阿里巴巴集团股权结构分析.doc VIP
- 锡安长老纪要1-24本.pdf VIP
- 汽车仪表盘图标全解.docx VIP
原创力文档


文档评论(0)