高手们俺不知道错在哪

Question

dm.ADO_jiayong_Query.SQL.Add ('select yonghu form 用户表 ');
    dm.ADO_jiayong_Query.SQL.Add('where yonghu='''+ edit1.text+'''');

Answer 1

if Edit1.text='' then
     ShowMessage('请输入新用户！');
     dm.ADO_jiayong_Query.Close ;
     dm.ADO_jiayong_Query.SQL.Clear;
    dm.ADO_jiayong_Query.SQL.Add ('select yonghu form 用户表 ');
    dm.ADO_jiayong_Query.SQL.Add('where yonghu=''+ edit1.text+''');
-------------------------------------------------------------^^
....

Answer 2

dm.ADO_jiayong_Query.SQL.Add ('select yonghu form 用户表 ');
    dm.ADO_jiayong_Query.SQL.Add('where yonghu='''+ edit1.text+'''');

Answer 3

if Edit1.text='' then
     ShowMessage('请输入新用户！');
     dm.ADO_jiayong_Query.Close ;
     dm.ADO_jiayong_Query.SQL.Clear;
    dm.ADO_jiayong_Query.SQL.Add ('select yonghu form 用户表 ');
    dm.ADO_jiayong_Query.SQL.Add('where yonghu=''+ edit1.text+''');
-------------------------------------------------------------^^
....

Answer 4

if Edit1.text='' then
     ShowMessage('请输入新用户！');
     dm.ADO_jiayong_Query.Close ;
     dm.ADO_jiayong_Query.SQL.Clear;
     dm.ADO_jiayong_Query.SQL.Add ('select yonghu form 用户表 ');
     dm.ADO_jiayong_Query.SQL.Add('where yonghu='''+ edit1.text+'''');

Answer 5

To： pengdali(大力 V2.0) 
在运行时提示的错误为：　语法错误（操作符丢失）在查询表达式'yonghu form'用户表where yonghu='风''。

Answer 6

除了你的语句问题，
还应该在你的用户表里给yonghu加唯一索引，这样才安全，也规范。
甚至可以通过异常来判断插入是否成功。

Answer 7

To： CrazyFor(蚂蚁) 
   在运行时提示的错误为：　语法错误（操作符丢失）在查询表达式'yonghu form'用户表where yonghu='+ edit1.text+''。

Answer 8

if Edit1.text='' then
     ShowMessage('请输入新用户！');
     dm.ADO_jiayong_Query.Close ;
     dm.ADO_jiayong_Query.SQL.Clear;
    dm.ADO_jiayong_Query.SQL.Add ('select * form 用户表 ');
    dm.ADO_jiayong_Query.SQL.Add('where yonghu='''+ edit1.text'''');
  //  dm.ADO_jiayong_Query.ExecSQL ;
    dm.ADO_jiayong_Query.Open ;
  if Edit1.Text= dm.ADO_jiayong_Query.FieldByName('yonghu').AsString then
   ShowMessage('此用户名已存在')
 else
  dm.ADO_jiayong_Query.Append  ;
  dm.ADO_jiayong_Query.FieldByName('yonghu').value:=edit1.text;
  dm.ADO_jiayong_Query.FieldByName('password').value:=edit2.text;
  dm.ADO_jiayong_Query.post ;
  Edit1.Text:='';
  Edit2.Text :='';
  ShowMessage ('添加成功');