身份验证的问题！比较简单！但我已经头痛想不出了！(20分)

在一个数据库里有 字段： 用户名、密码、权限 ！
如何在执行语句前先判断
用户名（edit1.text），密码（edit2.text）
得到的权限是不是可以执行以下操作！

Screen.Cursor := StartCursor;
if EditUser.Text = '' then
Application.MessageBox('用户名不能为空。', MessageTitle, WARNING_ICON + MB_OK)
else
begin
Create_Connection(DataModule1.SocketConnection1);
StrUserName := EditUser.Text;
StrPassword := EditPassword.Text;
LoginResult := JX_Get_Login_Result(StrUserName, StrPassword, '节目单管理', DataModule1.ClientDataSet1);
if LoginResult.Login = True then
begin
//SortBool := True;
CookieBool := False;
with FormMain do
begin
Init_QQButton(Panel_TreeView, Notebook_TreeView);
with DataModule1 do
begin
Init_TreeView_Channel(TreeView_Channel, DataModule1.ClientDataSet1);
Init_TreeView_VBCContent(TreeView_VBCContent, DataModule1.ClientDataSet1, DataModule1.ClientDataSet2);
Init_TreeView_Content(TreeView_Content, DataModule1.ClientDataSet1, DataModule1.ClientDataSet2);
end;
end;
ModalResult:= mrOK;
end
else
Application.MessageBox(PChar(LoginResult.ErrMsg), MessageTitle, WARNING_ICON + MB_OK);
end;
Screen.Cursor := EndCursor;

老人家：没有这么恐怖吧！这么多啊！我想很简单的啊！

接受答案了.