谁有一份简单的用visual foxpro软件制作的数据库程序?发一份我参考下,可以吗?! 或谁会操作visual foxpro电脑软件的？帮帮小忙！请给我留言…立刻，马上，火速…

谁有一份简单的用visual foxpro软件制作的数据库程序?发一份我参考下,可以吗?!
或谁会操作visual foxpro电脑软件的？帮帮小忙！请给我留言…立刻，马上，火速…

去我网站下载吧

都是VFP写的

http://www.qinwind.cn/Soft/ShowClass.asp?ClassID=4

VfP操作Sql数据的简单示例

数据连接

sqlsetprop(0,"displogin",3) &&设置环境为：从不显示ODBC登陆对话框 driver_temp='SQL SERVER' server_temp='10.1.0.12' database_temp='biocclock' uid_temp='sa' pwd_temp='sa'

connect_temp="driver="+driver_temp+";server="+server_temp+";uid="+uid_temp+";pwd="+pwd_temp+";database="+database_temp con=SQLSTRINGCONNECT(connect_temp) IF con<=0 MESSAGEBOX( "连接数据失败！请重新设置！",0+16,"提示信息") RETURN ENDIF

数据查询

TEXT TO cmd NOSHOW SELECt * FROM user ENDTEXT if used('dsk') select dsk use endif N1=SQLEXEC(CON,cmd,"dsk") if n1<0 messagebox('命令错误！！',0+48,'系统提示') return endif select dsk

数据保存

Transactions_error=.f. = SQLSETPROP(con, 'Transactions', 2) &&启动手动事务处理 N1=SQLEXEC(CON,"UPDATE gly SET 密码=?txt2 WHERe 编号=?grbh") IF N1<=0 Transactions_error=.t. ENDIF IF Transactions_error=.t. =SQLROLLBACK(con) =MESSAGEBOX("重要提示：密码修改失败，请重试！！！"+CHR(13)+CHR(13)+; CHR(13)+CHR(13),0+16,"错误提示信息") RETURN ELSE =SQLCOMMIT(con) MESSAGEBOX("提示：密码修改成功！！！"+CHR(13)+CHR(13)+; CHR(13)+CHR(13),0+48,"提示信息",3) thisform.Release ENDIF = SQLSETPROP(con, 'Transactions', 1) &&恢复自动事务处理