| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 593 人关注过本帖
标题:大家帮我看看问题出在哪里?
只看楼主 加入收藏
lifa
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-12-19
收藏
 问题点数:0 回复次数:2 
大家帮我看看问题出在哪里?

我用Access 和Delphi连接后,就有代码编程,代码如下:

var
aname,apassword,sqlstr:string;
a:integer;
begin
if (length(trim(name_edit.Text)) > 0) or (length(trim(password_edit.Text)) > 0) then
begin
aname:=trim(name_edit.Text);
apassword:=trim(password_edit.Text);
sqlstr:='select * from 管理者信息 a where (a.用户名称='''+aname+''') and(a.密码='''+apassword+''') ';
with TQuery.Create(nil) do
try
SessionName:=MainWinForm.Table1.SessionName;
DatabaseName:=MainWinForm.Table1.DatabaseName;

     Close;
SQL.Clear;
SQL.Add(sqlstr);
Open;
if RecordCount > 0 then
begin
First;
while not Eof do
begin
a:=strtoint(copy(FieldByName('菜单项').AsString,1,1));

MainWinForm.MainMenu1.Items.Items[a].Visible:=true;

Next;
end;

运行时,语法没错误,就是弹出错误提示:'file'菜单项'not found',到底是怎么回事啊?

搜索更多相关主题的帖子: 管理者 where 密码 信息 用户 
2005-12-21 23:57
chen__han1
Rank: 1
等 级:新手上路
帖 子:256
专家分:0
注 册:2004-9-16
收藏
得分:0 
没有创建菜单项吧,

路漫漫其修远兮 吾将上下而求索!
2005-12-26 23:32
shadow916
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2005-12-27
收藏
得分:0 
FieldByName('菜单项')--错误在这里

天下没有不错的程序!
2005-12-27 12:12
快速回复:大家帮我看看问题出在哪里?
数据加载中...
 
   



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

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