在DELPHI中向数据库添加信息的代码

应该再添加一个edit3用来输第二次密码的，先判断是否为空

注册的：

if(trim(edit1.text)<>'')and(trim(edit2.text)<>'')and(trim(edit3.text)<>'')then

begin

if(edit2.text=edit3.text)then

begin

adoquery1.sql.close

adoquery1.sql.add('select

count(*)

from

denglu

where

yh='''

+

edit1.text

+

'''')

adoquery1.open

if(adoquery1.recordcount=0)then

begin

adoquery1.sql.close

adoquery1.sql.add('insert

into

denglu

values('''

+

edit1.text

+

''','''

+

edit2.text

+

'''')

adoquery1.execsql

end

else

begin

showmessage('改用户已存在，请重新输入用户名！')

edit1.text:=''

edit2.text:=''

edit3.text:=''

end

end

else

begin

showmessage('两次输入的密码不一致，请重新输入！')

edit2.text:=''

edit3.text:=''

end

end

改密码:

if(trim(edit2.text)<>'')and(trim(edit3.text)<>'')then

begin

if(edit2.text=edit3.text)then

begin

adoquery1.sql.close

adoquery1.sql.add('select

count(*)

from

denglu

where

yh='''

+

用户名

+

'''')

adoquery1.open

if(adoquery1.recordcount<>0)then

begin

adoquery1.sql.close

adoquery1.sql.add('update

denglu

set

mm='''

+

edit1.text

+

'''

where

yh='''

+

用户名

+

'''')

adoquery1.execsql

end

else

begin

showmessage('该用户不存在，请重新输入用户名！')

edit1.text:=''

edit2.text:=''

edit3.text:=''

end

end

else

begin

showmessage('两次输入的密码不一致，请重新输入！')

edit2.text:=''

edit3.text:=''

end

end

你在listbox的ondbclick事件中添加如下代码：

测试:先增加一组数据

procedure TForm1.ListBox1DblClick(Sender: TObject)

begin

ListBox1.Items.Add('A')

Memo1.Lines.Add(ListBox1.Items.Strings[ListBox1.ItemIndex])

end

你要先Open之后才能对数据进行 *** 作：

//ADOQuery1.SQL.Add('select * from UserTable where 用户名='''+edit1.Text+'''')

ADOQuery1.Open //添加!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

// if ADOQuery1.RecordCount>0 then

//Adoquery1.Post //无用，要去掉！！！！！！！！！！！！！

---