用VB设计登陆界面

来源：百度知道 编辑：UC知道 时间：2024/07/02 10:39:41
各位大侠，希望你们能帮帮小弟。现在我要用VB设计一个登陆界面，可以连接到数据库，调用账号密码。而且登陆后，在程序主界面能添加、修改、删除数据库里的帐户密码。
我是个菜鸟，所以最好有说明，控件尽量不要改名字，顺便写出用到的控件和代码！
还有想麻烦各位大侠，给我说说VB和数据库（本人用ACCESS实现）的连接，怎么实现添加、删除、修改的功能。谢谢···

用VB新建一个工程，在窗体Form1上画两个label控件，一个是Label1一个是Label2，把Label1的Caption属性设为“用户名”，Label2的Caption属性设为“密码”，然后分别在这俩Label右边各画一个textbox控件，一个叫Text1，一个叫Text2，把Text2的PasswordChar属性设为“*”，同时把两个Textbox的Text属性设为空（就是都清空），然后在窗体的下部合适的位置画两个CommandButton控件，一个叫Command1，另一个叫Command2，分别设置他们的Caption属性为“确定”和“取消”。
界面就画完了，下面是代码。
先点菜单项里的工程下面的引用，找到Activex Data Objects 2.6或以上版本的类库，选中前面的对勾，然后确定，该操作是用来引用ADO对象的。
双击确定按钮，写入以下代码。
dim conn as new adodb.connection
dim rs as new adodb.recordset

if text1.text="" or text2.text="" then
msgbox "对不起，用户名与密码不能为空",vbinformation,"输入错误"
exit sub
end if

conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(这里去掉括号写入你的数据库文件路径形如：c:\aaa\bbb.mdb，这是Access数据库的用法);Persist Security Info=False"

conn.open
rs.open "select * from tbl_user where username='" & text1.text & "&#