procedure Trightform.BitBtn1Click(Sender: TObject);
begin

query1.Close;//关闭QUERY1组件
query1.SQL.Clear;//因为SQL每次只能处理一个命令语句,所以在用之前先清除掉,不然SQL.ADD()内的字符串会自动加到上一句SQL命令语句上,容易出现错误.
query1.SQL.Add('select qx from u where ID='''+loginform.ComboBox1.Text+'''') ;//SQL.ADD(查询语句)
query1.Open;//激活QUERY1

if query1.FieldByName('qx').AsString='b' then//如果QUERY1所对应的数据表内字段qx等于b

//下面的不用我说了吧
begin
if CheckBox1.State=cbChecked then
 mainform.N3.Enabled:=true 
else    mainform.N3.Enabled:=false;


 if CheckBox2.State=cbChecked then
 mainform.N18.Enabled:=true 
else  mainform.N18.Enabled:=false;

 if   CheckBox7.State=cbChecked  then
       mainform.N10.Enabled:=true
 else mainform.N10.Enabled:=false;
end;
//if query1.FieldByName('qx').AsString='a' then
  //    BitBtn3.Click;
end;

end.

谢谢了哈~呵呵~不过我下面的我还是有点不知道哈~

下面都是很基础的哦
自己多看看书

对了~嘿嘿~我还想问你一下~就是哪个数据库的问题哈~不是我用的是SQL数据库吗？？不是我每次运行的时候都要出现叫我输入数据库名称和密码哈~如果我不要这个的话~我具体的该怎么做哈~

数据库连接控件的LoginPrompt属性设为False;