MainForm.Database1 do//数据库登录
begin //1
close;
Params.Clear ;
Params.Add('DATABASE NAME=student');
Params.Add('USER NAME='+edtName.text);//用户名
Params.Add('PASSWORD='+edtPasswd.Text ); //密码
open;
with strlimit do//查询角色名
begin //2
params[1].asstring:=edtName.text;//传递用户名
open;//打开存储过程
Password:=edtPasswd.text;
role:=fieldbyname('GroupName').asstring;
end; //2
//Disenableitem;//将所有菜单置不可用状态
if role='BookAdministration' then //设置教材科权限
begin
flag:=1;
end;
begin //1
close;
Params.Clear ;
Params.Add('DATABASE NAME=student');
Params.Add('USER NAME='+edtName.text);//用户名
Params.Add('PASSWORD='+edtPasswd.Text ); //密码
open;
with strlimit do//查询角色名
begin //2
params[1].asstring:=edtName.text;//传递用户名
open;//打开存储过程
Password:=edtPasswd.text;
role:=fieldbyname('GroupName').asstring;
end; //2
//Disenableitem;//将所有菜单置不可用状态
if role='BookAdministration' then //设置教材科权限
begin
flag:=1;
end;
params〔i]是第i行的参数。
你可双击database看看。