Discussion forums for open issues and questions concerning database tools, data access components and developer tools from Devart
https://forums.devart.com/
wait.. be patient..djedai wrote:Hey SOmeone Can Help me or all in this forum dead.
Code: Select all
procedure TForm1.SetCurrentAccessLevel;
var
i:integer;
AccLvl:integer;
begin
if not flSelected then exit;
Query .Close;
Query .SQL.Text:='SELECT [User],[Password],[AccessLevel] FROM One WHERE [User]='''+CurName+'''';
try
Query .Open;
except
end;
if Query .RecordCount = 0 then
ShowMessage('Нет такого юзера.')
else
try
AccLvl:=Query .Recordset.Collect[2];
if string(Query .Recordset.Collect[1])=CurPass then
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i].Tag= 0 then continue else
if (Form1.Components[i] is TControl)then (Form1.Components[i] as TControl).Enabled :=AccLvl>=Form1.Components[i].Tag
else if (Form1.Components[i] is TMenuItem)then (Form1.Components[i] as TMenuItem).Enabled :=AccLvl>=Form1.Components[i].Tag;
end
else ShowMessage('Неправильный пароль.');
except
ShowMessage('Неудачно.');
end;
flSelected:=false;
end;
Code: Select all
procedure TForm1.SetCurrentAccessLevel;
var
i:integer;
AccLvl:integer;
begin
if not flSelected then
exit;
Query .Close;
Query .SQL.Text:='SELECT User, Password, AccessLevel FROM One WHERE User='''+CurName+'''';
try
Query .Open;
except
end;
if Query .RecordCount = 0 then
ShowMessage('Нет такого юзера.')
else
try
AccLvl := Query.FieldByName( 'AccessLevel' ).AsInteger;
if Query.FieldByName( 'Password' ).AsString =CurPass then
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i].Tag= 0 then
continue
else
if (Form1.Components[i] is TControl) then
(Form1.Components[i] as TControl).Enabled :=AccLvl>=Form1.Components[i].Tag
else if (Form1.Components[i] is TMenuItem)then (Form1.Components[i] as TMenuItem).Enabled :=AccLvl>=Form1.Components[i].Tag;
end
else ShowMessage('Неправильный пароль.');
except
ShowMessage('Неудачно.');
end;
flSelected:=false;
end;
