DELPHI7中关于SQL库转为ACCESS库的代码问题 (急急)

Question

我有一个系统它原来是用SQL数据库的，现在我将它变成了ACCESS数据库，但在写代码时遇到几个代码它是专门用于SQL数据库，急问各位大侠怎样改成在ACCESS可以用的，代码如下：
query2.execsql  这是专用于SQL库的，怎样改成在ACCESS库中也能用的产生同一样的效果呢？
还有
showmessage('密码不正确');
qxkey:=0;这司也是同样的问题.

Answer 1

不是 Query2.ExecSql 专用于 Sql Server，而是执行的语句是和Sql有关系的。修改语句为Access 可以支持的格式。

Answer 2

那能给我一个可以执行access有关系的相同功能的代码吗：谢谢！！1请详细一些。

Answer 3

把你SQL语句写出来啊，你这人真搞笑，

Answer 4

好代码如下
//设置操作权限
procedure Tyhqxgl.BitBtn2Click(Sender: TObject);
begin
if table1.FieldByName('姓名').asstring='系统管理员' then
showmessage('不能删除系统管理员')
else
if table1.recordcount<>0 then
if messagedlg('是否删除当前用户的信息?',mtcustom,[mbyes,mbno],0)=mryes then
begin
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('delete 权限检查表');
query2.SQL.Add('where 姓名=:A');
query2.ParamByName('A').AsString:=table1.fieldbyname('姓名').AsString;
query2.ExecSQL;
table1.Edit;
table1.Delete;
{query1.Close;
query1.Open;}
end;
end;procedure Tyhqxgl.BitBtn4Click(Sender: TObject);
begin
groupbox3.Visible:=true;
end;procedure Tyhqxgl.BitBtn5Click(Sender: TObject);
begin
groupbox3.Visible:=false;
end;procedure Tyhqxgl.Table1AfterScroll(DataSet: TDataSet);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from 权限检查表 where 姓名=:A order by 使用选项 asc');
query1.ParamByName('A').AsString:=table1.fieldbyname('姓名').AsString;
query1.Open;
end;procedure Tyhqxgl.ListBox1DblClick(Sender: TObject);
var a:string;
begin
query1.Close;
query1.SQL.clear;
query1.SQL.Add('select * from 权限检查 where 姓名=:A');
query1.ParamByName('A').AsString:=table1.fieldbyname('姓名').AsString;
query1.Open;
if radiobutton1.Checked then a:=radiobutton1.Caption else a:=radiobutton2.Caption;
if query1.Locate('使用选项',listbox1.Items.Strings[listbox1.ItemIndex],[lopartialkey]) then
begin
query2.Close;
query2.SQL.Clear;
query2.SQL.Add('update 权限检查表 set 读写=:b where 使用选项=:C and 姓名=:d');
query2.ParamByName('c').AsString:=listbox1.Items.Strings[listbox1.itemindex];
query2.ParamByName('d').AsString:=table1.fieldbyname('姓名').AsString;
query2.ParamByName('b').AsString:=a;
query2.ExecSQL;
end
else
begin
query2.Close;
query2.SQL.Clear;
query2.SQL.add('insert 权限检查表(姓名,使用选项,读写)');
query2.SQL.Add('values(:a,:b,:c)');
query2.ParamByName('a').asstring:=table1.fieldbyname('姓名').AsString;
query2.ParamByName('b').AsString:=listbox1.Items.Strings[listbox1.itemindex];
query2.ParamByName('c').AsString:=a;
query2.ExecSQL;
end;
query1.Close;
query1.Open;
end;