谁帮我做一个VF题?Visual
我上学期做了一个专题实习,跟你这个差不多,用SQL就可以了,很简单得嘛,大学里面最好学的就是VPF,SQL最好理解了,只要你会点英语。
给你一个输入的,自己改些相应的东东。
select 1
use yh //表名
lue=date()
if( lue)=" "
messagebox("用户不能为空,请重新输入用户名!",0,"提示" )
else
locate for lue=登录号
if found()
messagebox("已存在的登录号!",4+48,"错误信息")
lue=" "
tfocus
else
insert into yh (登录号,登录时间,关键词,行文者号...全部
我上学期做了一个专题实习,跟你这个差不多,用SQL就可以了,很简单得嘛,大学里面最好学的就是VPF,SQL最好理解了,只要你会点英语。
给你一个输入的,自己改些相应的东东。
select 1
use yh //表名
lue=date()
if( lue)=" "
messagebox("用户不能为空,请重新输入用户名!",0,"提示" )
else
locate for lue=登录号
if found()
messagebox("已存在的登录号!",4+48,"错误信息")
lue=" "
tfocus
else
insert into yh (登录号,登录时间,关键词,行文者号,文档名,行文者名,行文地,登出刊物,行文时间,页数,涉及金额,处理情况,摘要)values( lue, lue, lue, lue, lue, lue, lue, lue, lue, lue, lue, lue, lue)
messagebox("输入成功!",48,"提示")
endif
endif
mand1。
Enabled=。F。
mand2。Enabled=。T。
use
clear events
**********************************************************************
查询的:
lose tables
if ""= lue
messagebox("输入内容不能为空!",0+48,"提示")
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
lue=""
tfocus
else
set exact on
aa=thisform。
Combo1。text
select * from yh where &aa=alltrim( lue) into cursor a
t。eof()
lue=登录号
lue=登录时间
lue=关键词
lue=行文者号
lue=文档名
lue=行文者名
lue=行文地
lue=登出刊物
lue=行文时间
lue=页数
lue=处理情况
lue=涉及金额
lue=摘要
mand2。
Enabled=。T。
mand6。Enabled=。T。
else
messagebox("所查找内容不存在,请重新输入查找!",0+48,"提示")
endif
endif
。
收起