SQL简单有关问题(100分求解)

SQL简单问题(100分求解)
我想做个管理班级同学的程序

IP:192.168.1.2
SQL名:XueSheng
密码:123456
表:GL

我的表是这样的
姓名 学号


text1.text:='小王' //名字
text2.text:='42' //学号
当我按BUTTON1后--1:首先连接到我的表--2:在表内'姓名'列中检验下text1.text内容是否已登记过
--3:如没注册过将text1和text2内容保存在'姓名'和'学号'列中
--4:如已经注册过showmessage'该同学已登记过'

------解决方案--------------------
要用到的SQL语句如下:
'select * from gl where 姓名='+quotedstr(edit1.text)//查询是否存在

'Insert into gl values('+quotedstr(edit1.text)+','+quotedstr(edit2.text)+')'//插入数据

------解决方案--------------------
使用ADOquery控件连接的，实现如下：
procedure TForm1.Button1Click(Sender: TObject);
var sqlstr:srting;
begin
sqlstr:='select 姓名 from GL where 姓名=trim(edit.text)';
ado.query1.close;
ado.query1.sql.add(sqlstr);
ado.query1.open;//执行查询
if ado.query1.recordCount>0 then
showmessage('你已经申请过！') else
begin
sqlstr:='Insert into gl values(trim(edit1.text), trim(edit1.text)';
ado.query1.close;
ado.query1.sql.add(sqlstr);
ado.query1.open;//执行修改
end;
end;

------解决方案--------------------
ADOQuery1.close;
ADOQuery1.SQL.Clear;
ADOQuery1.sql.add( 'Insert into gl(姓名,学号) values('+quotedstr(Edit1.text)+ ', '+quotedstr(Edit2.text)+ ')');
ADOQuery1.ExecSQL;