vb制作登陆界面2页.doc

体验用vb制作登陆界面的美感（程序源代码）先建一个模块在里面输入下列内容：Public conn As ADODB.ConnectionSub main()Set conn = New ADODB.Connection conn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False; _ + User ID=sa;password=sa;Initial Catalog=您的数据库名;Data Source=127.0.0.1conn.Openfrom1.Show 登录界面End Sub再在登录界面“确定”下写入如下代码：Private Sub Command1_Click() If id.Text = ThenMsgBox 用户名不能为空！, vbOKOnly + vbInformation, 友情提示id.SetFocusExit SubE