《VFP编程转到C#的方法20121022》由会员分享，可在线阅读，更多相关《VFP编程转到C#的方法20121022（13页珍藏版）》请在金锄头文库上搜索。
1、VFP编程转到C#的方法【摘要】在VFP将退出编程开发的历史舞台，本人把VFP的SQL命令用C#语言中重写，并且列出具体相对应的转换方法；在本文中也介绍C#语言对ACCESS数据库操作，读者照着本文很容易把VFP的编程转到C#的编程。【关键词】VFP C# 编程 转换 方法2006年VFP9.0发布后，再没有发布新的版本，VFP将退出编程开发的历史舞台，原VFP编程开发的人员将面临选择别的语言进行编程开发。现本人将自己从VFP编程开发转到C#编程开发的一个入门实例献给VFP编程开发爱好者。下面我以VFP的通讯录这样一个程序给大家讲述转换到C#程序的过程：(一)、首先在VFP中建立一个如下图的项
2、目工程文件；数据表结构如下图： 表单的界面设计如下图：本表单对象的名称是：Form1 ;表单中的【】控件对应的控件名是：Command1 ;表单中的【】控件对应的控件名是：Command2 ;表单中的【】控件对应的控件名是：Command3 ;表单中的【】控件对应的控件名是：Command4 ;表单中的表格控件对应的控件名是：Grid1 ;表单中的各个Text编辑框控件对应的控件名如上图所标记 ;(二)、给表单各个控件添加程序代码具体步骤如下：、在表单Form1的Load方法程序中加入如下代码：* 设定初始路径 *cCurrentProcedure = SYS(16,1)nPathStart
3、= AT(:,cCurrentProcedure)- 1nLenOfPath = RAT(, cCurrentProcedure) - (nPathStart)SET DEFAULT TO (SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)*IF USED(txldbf) SELECT txldbfELSE SELECT 0ENDIF USE .txldbf EXCLUSIVE、修改表单Form1的Grid1表格的属性和方法程序：ReadOnly=.T.RecordSourceType=4-SQL说明RecordSource=select xm
4、 as 姓名,cj as 手机,dy as 电话,dw as 单位,mail as 邮箱,qq as QQ号,bz as 备注,id Form txldbf into cursor temptxl在Grid1表格的AfterRowColChange方法程序中加入如下代码：LPARAMETERS nColIndexthisform.text1.Value= temptxl.姓名thisform.text2.Value= temptxl.手机thisform.text3.Value= temptxl.电话thisform.text4.Value= temptxl.单位thisform.text5.
5、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(AL
6、LTRIM(thisform.text1.value)=0 then =messagebox(【姓名】不能为空！,64,输入值检查.) ENDIFinsert 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、修改表单
7、Form1的【】Gommand2命令按钮的Click方法程序IF LEN(ALLTRIM(thisform.text1.value)=0 then =messagebox(【姓名】不能为空！,64,修改提示.) ENDIFIF messagebox(是否保存【姓名】=+ALLTRIM(thisform.text1.value)+ 的信息？,32+1,修改保存提示.) =1 m.xm=ALLTRIM(thisform.text1.value) m.cj=ALLTRIM(thisform.text2.value) m.dy=ALLTRIM(thisform.text3.value) m.dw=AL
8、LTRIM(thisform.text4.value) m.mail=ALLTRIM(thisform.text5.value) m.qq=ALLTRIM(thisform.text6.value) m.bz=ALLTRIM(thisform.text7.value) m.id=temptxl.id UPDATE txldbf SET ; xm=m.xm,; cj=m.cj,; dy=m.dy,; dw=m.dw,; mail=m.mail,; qq=m.qq,; bz=m.bz ; WHERE id=m.id thisform.RefreshENDIF 、修改表单Form1的【】Gomman
9、d3命令按钮的Click方法程序IF LEN(ALLTRIM(thisform.text1.value)=0 then =messagebox(【姓名】不能为空！,64,输入值检查.) ENDIFIF messagebox(是否删除【姓名】=+ALLTRIM(thisform.text1.value),32+1,删除警告！) =1 m.id=temptxl.id DELETE FROM txldbf WHERE id=m.id SELECT txldbf pack thisform.RefreshENDIF、修改表单Form1的【】Gommand4命令按钮的Click方法程序thisform.
10、Grid1.RecordSource=select ;xm as 姓名,;cj as 手机,;dy as 电话,;dw as 单位,;mail as 邮箱,;qq as QQ号,;bz as 备注, ;id ;from txldbf ;where xm like %+ ALLTRIM(thisform.text8.value) +% ;into cursor temptxl 以上是VFP的程序代码，下面我们开始讲述如何把以上的VFP程序转化到C#程序，具体步骤如下：(三)、首先在D:txlmdb目录下建立一个如下图所示的visual studio 2010项目工程文档；数据表结构如下图(建好后
11、拷贝到D:txlmdbtxltxlbinDebug目录中)：表单的界面设计如下图：本表单对象的名称是：Form1 ;表单中的【】控件对应的控件名是：button1 ;表单中的【】控件对应的控件名是：button2 ;表单中的【】控件对应的控件名是：button3 ;表单中的【】控件对应的控件名是：button4 ;表单中的表格控件对应的控件名是：dataGridView1 ;表单中的各个textBox编辑框控件对应的控件名如上图所标记 ;(四)、给表单各个控件添加程序代码具体步骤如下：、在表单图形设计界面状态，鼠标指向空白的地方按鼠标的右键选快捷菜单的【查看代码】选项，进入表单的代码设计，如下
12、图所示：在相对应的地方加入如下的代码：/在using 程序段加入using System.Data.OleDb;/在子程序头部加入OleDbConnection conn = new OleDbConnection (provider=Microsoft.Jet.OLEDB.4.0;datasource=.txlmdb.mdb);OleDbCommand cmd = new OleDbCommand();string GetDateListSQL = select xm as 姓名,cj as 手机,dy as 电话,dw as 单位,mail as 邮箱,qq as QQ号,bz as 备注
13、,id from txl order by id DESC;/在public Form1()子程序尾部加入private void GetDateList(string sql_char) try OleDbDataAdapter ada = new OleDbDataAdapter(sql_char, conn); DataSet ds = new DataSet(); ada.Fill(ds); this.dataGridView1.DataSource = ds.Tables0.DefaultView; catch (OleDbException ex) MessageBox.Show(
14、错误： + ex.Message, 系统提示); 、在表单Form1的Load行为子程序中加入如下代码：private void Form1_Load(object sender, EventArgs e)this.GetDateList(GetDateListSQL);、在表单Form1的【】button1命令按钮控件的Click操作子程序中加入如下代码（在表单的图形设计图面下，用鼠标指向【】button1命令按钮控件双击鼠标的左键，系统会自动生成Click操作子程序并且弹出输入的界面）： private void button1_Click(object sender, EventArgs e) #region 数据非空检验 /非空判断 if (this.textBox1.Text.ToString().Trim()
