标题:大家帮我看看问题出在哪里?
取消只看楼主
lifa
Rank: 1
等 级:新手上路
帖 子:13
专家分:0
注 册:2005-12-19
 问题点数:0 回复次数:0 
大家帮我看看问题出在哪里?

我用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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-39377-1-1.html




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

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