|
sql1 = sql1 +"/" End If 内容来自www.paper51.com sql1 = "Provider=Microsoft.Jet.OLEDB.3.51;Persist SecurityInfo=False;Data Source=" & sql1 &"\userdatabase\tsl.mdb" copyright paper51.com con.Open sql1 copyright paper51.com sql1 = "select * from passwordtable" paper51.com ret.Open sql1, con, adOpenStatic, adLockOptimistic paper51.com If ret.RecordCount = 0 Then paper51.com frmLogin1.Show copyright paper51.com
Else 内容来自论文无忧网 www.paper51.com frmLogin.Show 内容来自www.paper51.com
End If 内容来自www.paper51.com End Sub copyright paper51.com
5．2主界面的设计与实现 内容来自www.paper51.com 主界面是用菜单形式和框架表现的，如图： 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com 菜单的制作过程如下： http://www.paper51.com 首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： http://www.paper51.com 内容来自论文无忧网 www.paper51.com 此过程中要注意各菜单的名称唯一，另外还要注意菜单的级别。 内容来自www.paper51.com 最后设置如下的代码（只要单击菜单即可设置各菜单代码），部分代码如下图： 内容来自www.paper51.com
Private Sub mnuall_Click() http://www.paper51.com
SSTab1.Tab = 2 copyright paper51.com End Sub http://www.paper51.com Private Sub mnuBack_Click() 内容来自论文无忧网 www.paper51.com Data1.Recordset.Close copyright paper51.com
Data2.Recordset.Close http://www.paper51.com
Unload frmAbout paper51.com Unload frmHelp paper51.com Unload frmLogin copyright paper51.com Unload frmLogin1 http://www.paper51.com Unload frmTip paper51.com Unload frmMain 内容来自www.paper51.com frmBack.Show http://www.paper51.com End Sub 内容来自www.paper51.com
Private Sub mnunote_Click() copyright paper51.com frmTip.Show paper51.com
End Sub copyright paper51.com Private Sub mnusigle_Click() http://www.paper51.com SSTab1.Tab = 0 内容来自www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub mnusup_Click() 内容来自论文无忧网 www.paper51.com
SSTab1.Tab = 1 http://www.paper51.com End Sub paper51.com
Private Sub mnuwf_Click() paper51.com frmwf.Show 内容来自论文无忧网 www.paper51.com End Sub paper51.com
主要是通过Show方法调用相应的窗体及sstab的tab属性调用相应的页框。 paper51.com
Sstab的创建方法如下： http://www.paper51.com 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图： 内容来自www.paper51.com
内容来自www.paper51.com 第二步，选择窗体或控件进行属性设置，如图为“SSTAB”的属性设置界面: 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 5．3单人资料模块的设计与实现 内容来自www.paper51.com 1、流程图： http://www.paper51.com 2、运行界面： http://www.paper51.com http://www.paper51.com 1．实现过程： 内容来自论文无忧网 www.paper51.com
界面的构造方法同5.2，主要代码如下： http://www.paper51.com
的代码如下： 内容来自www.paper51.com Private SubcmdAdd_Click() copyright paper51.com Data1.Recordset.AddNew paper51.com
End Sub 内容来自论文无忧网 www.paper51.com |