你应该先在数据库中新建一个表,用来保存用户名和密码的.

如果你是想只有一个用户名和密码可以直接在程序里写例如:在验证用户名和密码的窗口有一个sle_1用来输入用户名,sle_2用来输入密码.一个确定按钮cb_1
那么你在cb_1的clicked事件写:
string usename,pwd
usename="管理员"
pwd="000000"
if sle_1.text=:usename and sle_2.text=:pwd then
open(w_guanlixitong)
else
MessageBox("错误！","用户名或密码错误！请重新输入！按Cancle取消。",exclamation!,okcancel!,2)
end if
if net=1 then
    return 1
else
    close(parent)
end if

上面的有点错误,把代码改成这样:

string usename,pwd,usename1,pwd1

int net
usename="管理员"
pwd="000000"
usename1=sle_1.text
pwd1=sle_2.text
if (usename1=usename)and (pwd1=pwd) then
    open(w_管理系统)
else
net= MessageBox("错误！","用户名或密码错误！请重新输入！按Cancle取消。",exclamation!,okcancel!,2)
end if
if net=1 then
return 1
else
close(parent)

楼上那位,好像代码还是有问题,他提示syntax error
小弟 初学pb,多多指教[em12]

string ls_name,ls_pwd
ls_name = trim(sle_1.text)
ls_pwd = trim(sle_3.text)


    
if trim(ls_name) = "" then
    messagebox("错误提示:","用户名不可为空",stopsign!)
    sle_1.setfocus()
    return
end if

select uid,
         pwd
  into :ls_name,
         :ls_pwd
    from login
    where uid = :ls_name;
    //messagebox("",sqlca.sqlcode)

if sqlca.sqlcode = -1 then
    messagebox("提示信息","未连上数据库",stopsign!)
    return
end if

if sqlca.sqlcode = 100 then
    messagebox("提示信息","用户名错误",stopsign!)
    return
end if

if trim(ls_pwd) <> trim(sle_3.text) then
    messagebox("提示信息","密码不正确",stopsign!)
else
    open(w_vwns_menu)
    close(parent)
end if
这是我刚写的~试下看看