|
Dim sql1 As String sql1 = App.Path If right(sql1, 1) <> "/" Then http://www.paper51.com sql1 = sql1 +"/" copyright paper51.com End If copyright paper51.com
sql1 = "Provider=Microsoft.Jet.OLEDB.3.51;Persist SecurityInfo=False;Data Source=" & sql1 &"\userdatabase\tsl.mdb" 内容来自论文无忧网 www.paper51.com
con.Open sql1 内容来自www.paper51.com sql1 = "select * from passwordtable" http://www.paper51.com ret.Open sql1, con, adOpenStatic, adLockOptimistic copyright paper51.com
If ret.RecordCount = 0 Then paper51.com
frmLogin1.Show paper51.com Else paper51.com frmLogin.Show paper51.com
End If 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com 5．2主界面的设计与实现 http://www.paper51.com 主界面是用菜单形式和框架表现的，如图： copyright paper51.com http://www.paper51.com 菜单的制作过程如下： 内容来自论文无忧网 www.paper51.com 首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： paper51.com 内容来自www.paper51.com 此过程中要注意各菜单的名称唯一，另外还要注意菜单的级别。 paper51.com 最后设置如下的代码（只要单击菜单即可设置各菜单代码），部分代码如下图： copyright paper51.com Private Sub mnuall_Click() 内容来自www.paper51.com SSTab1.Tab = 2 paper51.com End Sub paper51.com
Private Sub mnuBack_Click() http://www.paper51.com Data1.Recordset.Close paper51.com Data2.Recordset.Close http://www.paper51.com Unload frmAbout http://www.paper51.com Unload frmHelp 内容来自论文无忧网 www.paper51.com
Unload frmLogin paper51.com Unload frmLogin1 内容来自www.paper51.com Unload frmTip 内容来自论文无忧网 www.paper51.com
Unload frmMain copyright paper51.com frmBack.Show 内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com
Private Sub mnunote_Click() http://www.paper51.com frmTip.Show paper51.com End Sub copyright paper51.com |