| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1457 人关注过本帖
标题:Ttable控件
只看楼主 加入收藏
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
 问题点数:0 回复次数:9 
Ttable控件
请问,在Ttable控件里为什么不可以用if(edit3.Text=fieldbyname('账号').AsString) then的这种形式阿?好像根本都没有读这条语句!
请多指教~~
搜索更多相关主题的帖子: Ttable 控件 
2007-04-13 10:31
sgliuxiu
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:291
专家分:0
注 册:2007-2-2
收藏
得分:0 
if (edit3.Text=tabel1.fieldbyname('账号').AsString) then
有没有执行这句,你得看你程序的流程是怎么走的.不是所有语句都执行的.

小猫说:给我10元钱
2007-04-13 11:14
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
得分:0 
不是阿 该走这条的时候它也没走啊

2007-04-13 11:25
sgliuxiu
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:291
专家分:0
注 册:2007-2-2
收藏
得分:0 
你没看我已经给你修改了一下吗?该走的时候没走,你自己检查一下你的流程哦

小猫说:给我10元钱
2007-04-13 11:38
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
得分:0 

也就是说在程序里用tabel1.fieldbyname('账号').AsString的语句是没有错吧?可运行起来却没有体现,会不会是别的什么地方没有设置呢?呵呵 麻烦版主了


2007-04-13 21:09
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
你把代码弄上来。

昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-04-13 21:26
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
得分:0 

procedure TForm1.Button1Click(Sender: TObject);
begin
if(trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') then
begin
with form1.table1 do
begin
first;
while not eof do
begin
if(edit3.Text=fieldbyname('账号').AsString) then
showmessage('该账号已经存在!')
else
begin
edit;
append;
fieldbyname('账号').AsString:=edit3.Text;
fieldbyname('姓名').AsString:=edit1.Text;
fieldbyname('密码').AsString:=edit2.Text;
post;
Refresh;
showmessage('注册成功!');
break;
end;
end;
end;
ss:=form1.Table1.FieldByName('学号').AsString;
form3.Table1.Edit;
form3.Table1.FieldByName('学号').AsString:=ss;
form3.table1.Post;
form4.Table1.Edit;
form4.Table1.FieldByName('学号').AsString:=ss;
form4.table1.Post;
form5.Table1.Edit;
form5.Table1.FieldByName('学号').asstring:=ss;
form5.table1.Post;
form6.Table1.Edit;
form6.Table1.FieldByName('学号').asstring:=ss;
form6.table1.Post;

end
else
showmessage('信息填写的不完整!');

edit3.Text:='';
edit1.Text:='';
edit2.Text:='';
end;


2007-04-13 22:08
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
得分:0 

不好意思 还落了一句 var ss:string;


2007-04-13 22:09
nongen
Rank: 5Rank: 5
来 自:网络
等 级:贵宾
威 望:17
帖 子:322
专家分:0
注 册:2006-11-25
收藏
得分:0 
while not eof do
begin
if(edit3.Text=fieldbyname('账号').AsString) then
showmessage('该账号已经存在!')
else
begin
edit;
append;
fieldbyname('账号').AsString:=edit3.Text;
fieldbyname('姓名').AsString:=edit1.Text;
fieldbyname('密码').AsString:=edit2.Text;
post;
Refresh;
showmessage('注册成功!');
break;
end;
next;//若第一个不同,那你难道一直比较第一个?
end;
况这段本身就不严谨
var f:boolean;
f:=false;
whil not table1.eof and not f do//当表没结束或者没找到相同的时候循环
begin
if fieldbyname('账号').asstring=edit3.text then
f:=true;//相同记录了,那就赋真值,退出循环
next;//逐条对比
end;
if not f then
begin
//append 进 table1中。

end
else
//message 错误重复

[此贴子已经被作者于2007-4-13 23:20:43编辑过]


昨天不是我的,明天不是你的,今天却是我们的。
http://www.
2007-04-13 23:17
lin_er_h
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2007-4-13
收藏
得分:0 

哦~~~原来我的错误这么大啊~~~~呵呵 非常感谢!!刚刚我试过了,好使了!


2007-04-14 11:10
快速回复:Ttable控件
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018157 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved