用VB做数据库登陆

大家好 我是宣QQ:37829327 ,今天给大家做的教程是

用VB做菜单的教程。。具体看我操作，我们先来打来VB

先来建立一个窗体。。在来建立数据库。。具体看我操作吧。。

我就不多打字了。这样就好了，是不是很简单？

我们在来建立标签和文本等。。。。databasename是数据库地址。。

RecordSource属性是填加刚才那个名字ID

Datasource填加数据名  DataField是名称。

好，我们来编写代码。。。我们在来加一个定时器，让字体会变化。。。

Interval是时间触发。。Default是凸出

我们来运行看看哈。。。我们先来输入错误的，看它会不会提示。。。

提示了。那我们来输入正确的看看。。看到了吗？

登陆成功。。之所以能变化字体，我刚才已经说了。

对了，还可以把这程序生成EXE文件。。看我操作。。美化下。。

代码我给大家看下。。

Private Sub Command1_Click()
If Text1.Text = Text2.Text Then  '意思就是说  把第一个文本和第二个文本连在一起
Form1.Hide   '把窗体1隐藏起来
Form2.Show '把窗体二显示出来
Else   '否则的话，它会判断下面的语句。。它会提示下面的。
MsgBox "输入错误，请从新输入", 48, "提示"   '48是警告的意思。
End If  '结束语句。。
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
'换成 易语言 就是说 label1是标签的颜色forecolor等于读取当前的数值255，rnd随机变化颜色。
End Sub

好了，今天的教程就到这边吧。如果有什么不懂的问我QQ: 37829327