制作窗口

原创 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键,分别输入正确和错误的密码,点击登录看程序运行情况。

089集-表现层-主窗口的布局制作

  • 2015年10月29日 15:23
  • 47.93MB
  • 下载

用JS制作9种弹出小窗口(HTML)

进入许多网站时,有弹出式小窗口,它们五花八门,使我们捉摸不透下面就来介绍用JS制作9种制作弹出小窗口: 1、最基本的弹出窗口代码         其实代码非常简单:         ...
  • dodott
  • dodott
  • 2014年12月23日 23:54
  • 18084

制作 MSN、QQ 的消息提示窗口.rar

  • 2007年09月04日 21:20
  • 46KB
  • 下载

制作Unity插件之-创建一个Window窗口

制作Unity插件之-创建窗口Window泛型方法: - 查找API Window即可找到相关窗口制作说明 这里只简单做记录 - 新建c#脚本类用于绘制OnGu using UnityE...
  • Test_dx
  • Test_dx
  • 2016年08月24日 15:33
  • 1359

C#中制作的动画窗口AnimateWindow

  • 2010年06月15日 15:06
  • 9KB
  • 下载

GUI_emWin512 窗口 图片 制作工具

  • 2013年10月31日 17:13
  • 996KB
  • 下载

使用SplashScreenManager控件制作窗口加载动画

使用SplashScreenManager控件制作窗口加载动画,可以帮助我们在处理大数据量时,显示友好的等待界面。...

js制作多彩等待窗口

  • 2015年11月14日 16:37
  • 134KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:制作窗口
举报原因:
原因补充:

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