添加问题

Question

procedure TuserAddfm.BitBtn1Click(Sender: TObject);
begin
   if length(edit1.Text)<1 then
     showmessage('必须输入用户名，否则无法添加用户！')
     else
     begin
//想这样做但是没有成功
//      if (trim(edit2.Text)=trim(edit3.Text)) then      //edit3为确认密码
//         begin
          with data.loginfmadoquery1 do
           begin
           append;
             FieldValues['User_Name']:=trim(edit1.Text);  //增加用户的用户名
             FieldValues['Password']:=trim(edit2.Text);   //密码
             FieldValues['popedom']:=trim(edit4.Text);    //权限
           post;
           end;
         
         MessageDlg('新用户'+edit1.Text +'已成功注册！',mtConfirmation,[mbOK],0);
         close;
         end;
//      end
//      else
//            MessageDlg('您两次输入的密码不一致，请重新输入！',mtError,[mbOK],2);
//            edit2.setfocus;      end;
就是增加一个用户。怎么老是出错，哪位老兄能提供一个正确的写法，oracle数据库的！谢谢

Answer 1

你的loginfmadoquery1中的SQL是怎么写的？另外，你难道没有跟到是那一行出的错吗？指出来吧

Answer 2

loginfmadoquery1中的SQL是select * from user;
运行没有错误，但按钮按了就没动静，程序也死了！
好象根本就没有运行到　
　MessageDlg('新用户'+edit1.Text +'已成功注册！',mtConfirmation,[mbOK],0);
这里来就死了！

Answer 3

那就奇怪了。要不你试试用Insert语句加参数的方法？

Answer 4

确实看不出什么问题得 fieldByName试试看呢

Answer 5

fieldvalue  换成fieldbyname吧，

Answer 6

这些不是问题的关键的
关键是你的QUERY是否打开了