mycat分库分表:编一个VF的程序

除了1和他本身之外不能被任何一个整数所整除的自然数叫质数，2以外，其他质数都是奇数也叫质数
所以：
CLEAR
FOR m=3 TO 100 STEP 2
n=INT（SQRT（m））
FOR i=3 TO n
IF MOD（m,i）=0
EXIT
ENDIF
ENDFOR
IF i>n
??m
ENDIF
ENDFOR

我上学期做了一个专题实习，跟你这个差不多，用SQL就可以了，很简单得嘛，大学里面最好学的就是VPF，SQL最好理解了，只要你会点英语。
给你一个输入的，自己改些相应的东东。

select1
useyh//表名
thisform.text2.value=date()
if(thisform.text1.value)=""
messagebox("用户不能为空，请重新输入用户名!",0,"提示")
else
locateforthisform.text1.value=登录号
iffound()
messagebox("已存在的登录号！",4+48,"错误信息")
thisform.text1.value=""
thisform.text1.setfocus
else
insertintoyh(登录号,登录时间,关键词,行文者号,文档名,行文者名,行文地,登出刊物,行文时间,页数,涉及金额,处理情况,摘要)values(thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,thisform.text5.value,thisform.text6.value,thisform.text7.value,thisform.text8.value,thisform.text9.value,thisform.text10.value,thisform.text11.value,thisform.text12.value,thisform.Edit1.value)
messagebox("输入成功！",48,"提示")

endif
endif
thisform.command1.Enabled=.F.
thisform.command2.Enabled=.T.
use
clearevents
**********************************************************************
查询的：
losetables
if""=thisform.text1.value
messagebox("输入内容不能为空!",0+48,"提示")
thisform.Combo1.value=""
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text5.value=""
thisform.text6.value=""
thisform.text7.value=""
thisform.text8.value=""
thisform.text9.value=""
thisform.text10.value=""
thisform.text11.value=""
thisform.text12.value=""
thisform.text13.value=""
thisform.edit1.value=""
thisform.text1.setfocus
else
setexacton
aa=thisform.Combo1.text
select*fromyhwhere&aa=alltrim(thisform.text1.value)intocursora
if.not.eof()
thisform.text2.value=登录号
thisform.text3.value=登录时间
thisform.text4.value=关键词
thisform.text5.value=行文者号
thisform.text6.value=文档名
thisform.text7.value=行文者名
thisform.text8.value=行文地
thisform.text9.value=登出刊物
thisform.text10.value=行文时间
thisform.text11.value=页数
thisform.text12.value=处理情况
thisform.text13.value=涉及金额
thisform.edit1.value=摘要
thisform.command2.Enabled=.T.
thisform.command6.Enabled=.T.
else
messagebox("所查找内容不存在,请重新输入查找!",0+48,"提示")
endif
endif