ADOQUERY和DBEDIT

nb20022 2004-04-23 09:40:12
ADOQUERY 连接一个SQLSERVER的一个表,
SQL为SELECT ADDRESS FROM TEN ; ADDRESS为VARCHAR(50)
DBEDIT指向ADOQUERY 的ADDRESS 但DBEDIT 怎么每次最多输入最多3个字符

...全文
65 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
jacket008 2004-06-12
要控制长度为3
maxlength=3



回复
jacket008 2004-06-12
不好意思看错题目
回复
foxdelphi 2004-06-12
小弟搞錯,
可能是 maxlength<>0
回复
foxdelphi 2004-06-12
procedure TForm1.Edit1Exit(Sender: TObject);
var
strs:string;
i,j:integer;
begin
j=0
strs:=trim(edit1.text);
for i=0 to len(strs)-1
begin
if substring(strs,i,1)=(a..Z,A..Z) then
j=j+1
if j>=3 then
showmessage('不能....')
result:=false;
end;
end;

小弟想思路如上:
回复
jacket008 2004-06-12
应该不会吧?

看一下dbedit的属性有没有搞错!
回复
nb20022 2004-06-12
d
回复
发动态
发帖子
数据库相关
创建于2007-08-02

2440

社区成员

Delphi 数据库相关
申请成为版主
社区公告
暂无公告