在VFP上使用DM数据库-技术开发专区

在VFP上使用DM数据库

作者：IT168 技术频道编辑：覃里 2010-03-26 18:45 IT168网站原创

　　2. ADD按钮

　　LOCAL sql_insert
　　LOCAL id_add
　　LOCAL name_add
　　LOCAL cont_add
　　id_add=VAL((TRIM(thisform.txt_id.Text)))
　　name_add=TRANSFORM(TRIM(thisform.txt_name.Text))
　　cont_add=TRANSFORM(TRIM(thisform.txt_cont.Text))

　　insert INTO mycursor (ID,NAME,CONTENT) VALUES(id_add, name_add, cont_add)
　　browse

　　3. DEL按纽

　　LOCAL id_del &&取得文本框输入的ID

　　LOCAL name_del &&取得文本框输入的NAME

　　LOCAL cont_del &&取得文本框输入的CONTENT

　　id_del=CEILING(VAL((TRIM(thisform.txt_id.Text))))
　　name_del=TRANSFORM(TRIM(thisform.txt_name.Text))
　　cont_del=TRANSFORM(TRIM(thisform.txt_cont.Text))

　　*设置删除有效

　　SET DELETED ON

　　*根据输入ID为条件进行删除

　　DELETE FROM mycursor WHERE ID=id_del

　　*显示删除结果

　　Browse

　　4. UPDATE按纽

　　LOCAL id_upd
　　LOCAL name_upd
　　LOCAL cont_upd
　　id_upd=CEILING(VAL((TRIM(thisform.txt_id.Text))))
　　name_upd=TRANSFORM(TRIM(thisform.txt_name.Text))
　　cont_upd=TRANSFORM(TRIM(thisform.txt_cont.Text))

　　*根据输入的参数更新表

　UPDATE mycursor SET NAME=name_upd,CONTENT=cont_upd WHERE id=id_upd
　　Browse

　　5. SELECT按纽

　　LOCAL id_slc
　　LOCAL name_slc
　　LOCAL cont_slc
　　id_slc=VAL((TRIM(thisform.txt_id.Text)))
　　name_slc=TRANSFORM(TRIM(thisform.txt_name.Text))
　　cont_slc=TRANSFORM(TRIM(thisform.txt_cont.Text))

　　*以ID为条件对表做查询

　　IF id_slc<>0
　　select * from mycursor WHERE ID = id_slc
　　endif
　　browse

第1页：Visual FoxPro 中内置的13个 SPT函数第2页：使用SqlConnect() 函数连接到DM数据库第3页：使用SqlStringConnect()函数 & 访问数据库第4页：构造动态SQL语句使用DM数据库第5页：Visual FoxPro的游标第6页：一个实例第7页：Connect 按钮第8页：ADD按钮DEL按纽UPDATE按纽SELECT按纽

关注我们