制作窗口

原创 2016年06月01日 20:51:35

制作登录窗口

一、 实验目的

1、 掌握在窗体上添加控件的方法;

2、 了解窗体等基本对象属性的设置方法;

3、 掌握可视化数据管理器的使用方法;

4、 掌握数据控件及绑定控件的使用方法;

5、 掌握代码操作数据库的方法。

二、 实验内容

1、 建立登录窗口

a. 首先放置两个label,左对齐,在label右侧放置两个text box左对齐,并且与label上对齐,在下侧最后放置两个command。

b. 属性设置

 

对象

属性

属性值

说明

Form1

Caption

FrmLogin

Form1的标题

Alignment

Center

窗口居中

Label1

Caption

 用户(U)

命名label1

Label2

Caption

密码(P)

命名label2

  Textbox

Text

txtUserID

 

Textbox

Text

txtPassword

 

Passwordchar

     *

输入密码时显示为*

Command1

Caption

登录

命名command1

名称

cmdLogin

 

Default

True

Enter—登录

Command2

Caption

   取消

命名command2

 名称

 cmdCancel

 

Cancel

   True

Esc—取消

   所有的字体为小二号;

   所有控件的TabIndex属性:txtUserID-0

 txtPassword-1

 cmdLogin-2

 cmdCancel-3

2、 建立数据库

a. 启动可视化数据管理器,建立数据库,选择文件\新建\Microsoft Access\Version\弹出对话框后输入TestExample.mdb为文件名\保存到桌面

b. 添加数据表:右击可视化数据管理器窗口,然后从弹出的快捷菜单中选择新建表命令,表名称为UserInformation,单击“添加字段”,弹出对话框,UserID,20,UserPassword,添加记录信息,选中表右击打开添加UserID为123456,UserPassword为123456。

3、 编写程序

Option Explicit

Const MaxLoginTimes As Integer = 3

Private Sub cmdLogin_Click()

    Static loginTimes As Integer

    loginTimes = loginTimes + 1

If loginTimes < MaxLoginTimes Then

    On Error GoTo ppp

    Dim Cn As Connection

    Dim Rs As Recordset

    Dim strSQL As String

    Set Cn = New Connection

    Set Rs = New Recordset

Cn.ConnectionString="provider=Microsoft.Jet.OLEDB.3.51;

Data Source=C:\Users\jf\Desktop\TestExample.mdb"

   Cn.Open

   Rs.ActiveConnection = Cn

        strSQL = "select UserPassword from UserInformation where UserID= '" & Me.txtUserID.Text & "'"

   Rs.Open (strSQL)

   If Rs.EOF = True Then

       MsgBox txtUserID.Text & "不存在"

        Me.txtUserID.SetFocus

        Me.txtUserID.SelStart = 0

        Me.txtUserID.SelLength = Len(Me.txtUserID.Text)

    Else

       If Rs.Fields("UserPassword").Value = Me.txtPassword.Text Then

            MsgBox "登录成功"

            Unload Me

       Else

        MsgBox "密码错误"

       End If

     End If

        

ppp:

    Cn.Close

Else

    MsgBox "亲,您的输入次数超过允许的最大次数", vbCritical, "登录"

End If

End Sub

 

Private Sub txtUserID_Change()

 

End Sub

4、可以读取并改写数据表的第三方程序\ActiveX—OLE\工程\引用\Microsoft ActiveX Data Objects 2.5 Library

5、运行并检查问题

  输入用户名,点击Tab键,分别输入正确和错误的密码,点击登录看程序运行情况。

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

MFC不规则窗口制作

  • 2015-07-24 20:33
  • 854KB
  • 下载

制作Javascript弹出窗口技巧九则

1、最基本的弹出窗口代码   其实代码非常简单:     window.open ("page.html");--〉     因为这是一段Javascript代码,所以它们应该放在之间。 是对一些版本...

VC2010 MFC 使用图片制作不规则外形窗口

1.新建一个MFC项目,如图所示       2.在设计视图右键对话框,选择属性选项并设置窗口属性,如下图所示     3.CTRL+...

制作Javascript弹出窗口技巧九则

1、最基本的弹出窗口代码    其实代码非常简单:          window.open ("page.html")   --  >       因为这...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)