帮我填括号里面的：在面向对象的数据库中，对象标识( ？)

//-- ADOConnection1的数据库连接信息= 变量"file name", 当前程序目录\databest.udi--//

ADOConnection1.ConnectionString:='file name='+ExtractFilePath(Application.ExeName)+'databest.udl'

//-- 不显示输入密码对话框 --//

ADOConnection1.LoginPrompt:=false

//-- 查询数据, ADOQuery1 --//

with ADOQuery1 do

begin

close

//-- 清空 SQL语句, 以便重新定义新 SQL语句 --//

sql.Clear

//-- SQL查询语句 --//

sql.Add('sellect *from users where username=:username and password=:password')

//-- 变量username等于Edit1的内容 --//

//-- 变量password等于Edit2的内容 --//

parameters.ParamByName('username').Value:=edit1.Text

parameters.ParamByName('password').Value:=edit2.Text

//-- 打开(执行)SQL语句 --//

open

//-- 如果记录数大于0 (如果有记录) --//

if ADOQuery1.RecordCount>0 then

begin

//-- 变量level等于字段3的内容 --//

level:=ADOQuery1.Fields[2].AsString

//-- 清空Edit2内容 --//

loginfrm.Edit2.Text:=''

//-- 创建新窗体 --//

application.CreateForm(TFormm,Formm)

//-- 窗体显示 --//

formm.Show

//-- 登录窗体关闭 --//

loginfrm.Destroy

end

else

begin

//-- 如果没有满足条件的记录, d出对话框 --//

showmessage('对不起，您的用户名或密码有误，请重新输入！')

//-- 清空Edit2内容(密码), Edit1的内容全选 --//

edit2.Text:=''

edit1.SelectAll

end

end

设置一个无意义的ID给对象，凡是你对表对象进行增加 *** 作，你就让ID自行加一就可以了。这样ID就实现了唯一。你可以去看看数据库方面的书，Ibook8. com 上有数据库的书 免费下载。

---