本程序的功能是获取文本框中的文本。窗口中有两个文本框“用户名”和“密码”,以及三个按钮“登录”、“其他用户登录,,和“关闭”,初始状态“用户名”文本框是只读的,单击“其他用户登录”按钮后变成可写的,“密码”文本框使用的不是密码文本框,在用户键入的时候设置显示为*号。输入用户名和密码后,单击“登录”按钮后,如果输入的密码为空,则弹出提示消息框,否则后台将显示输入的用户名和密码。比如显示为“admin用户的密码:password”(admi为输入的用户名,password为输入密码)。 import java

题目

本程序的功能是获取文本框中的文本。窗口中有两个文本框“用户名”和“密码”,以及三个按钮“登录”、“其他用户登录,,和“关闭”,初始状态“用户名”文本框是只读的,单击“其他用户登录”按钮后变成可写的,“密码”文本框使用的不是密码文本框,在用户键入的时候设置显示为*号。输入用户名和密码后,单击“登录”按钮后,如果输入的密码为空,则弹出提示消息框,否则后台将显示输入的用户名和密码。比如显示为“admin用户的密码:password”(admi为输入的用户名,password为输入密码)。 import java.awt.*; import java.awt.event.*; import javax.swing.JOptionPane; public class java3 { public static void main(String args[]) { final Frame. frmFrame=new Frame; Panel pnlPanel=new Panel; Label lblUsername=new Label("用户名"); Label lblPassword=new Label("密码"); final TextField txtUsername=new TextField(" Student"); final TextField txtPassword=new TextFidd("", 8); txtUsername.setEditable(false); txtPassword.setChar('*'); Button btnButtonl=new Button("登录"); ButtOn btnButton2=new Button("其他用户登 录"); Button btnButton3=new Button("关闭"); btnButtonl.addActionListener(new ActionListen- er { public void actionPerformed(ActionEvent e) { if((txtPassword.getText).length= =0) { JOptionPane.showMessageDialog(frmFrame,"密 码不能为空"); return; } txtPassword.setColumns(16); System.out.println(txtUsername.getText+" 用户的密码:" +txtPassword.getPassword); } }); btnButton2.addActionListener(new ActionListen- er { public void actionPerformed(ActionEvent e) { txtUsername.setEnable(true); } }); btnButton3.addActionListener(new ActionListen- er { public void actionPerformed(ActionEvent e) { System.exit(0); } }); pnlPanel.add(1blUsername); pnlPanel.add(txtUsername); pnlPanel.add(1blPassword); pnlPanel.add(txtPassword); pnlPanel.add(btnButtonl); pnlPanel.add(btnButton2); pnlPanel.add(btnButton3); frmFrame.add(pnlPanel); frmFrame.setTitle("advance"); frmFrame.pack; frmFrame.show; } }


相似考题

1.阅读以下应用说明以及用Visual Basic开发过程中进行的属性设置和所编写的程序代码,将应填入(n)处。[应用说明]启动某应用程序运行的登录窗口如下:其中的标签(Label1)“用户名(U)”对应文本框Username,标签(Label2)“密 码(P)”对应文本框Password。当用户在Username文本框中输入用户名“ali88”,在Password文本框中输入“zmkm”(显示的字符均为“*”),并单击“确定”按钮时,就会弹出应用程序的主窗口frmAPP,而该登录窗口就会卸载。如果用户名或密码输入错误,则会弹出报警信息框。当用户单击其中的“确定”按钮后,登录窗口中Password文本框的内容就会消失,光标停留在该框内,以便用户重新输入密码,必要时用户还可以再修改用户名,再次做登录尝试。本应用程序允许发生3次输入错误。在第3次输入错误后,就会立即退出该应用程序。在弹出登录窗口后,当按组合键“Alt+U”时光标就会停留在Username文本框中:当按组合键“Alt+P”时光标就会停留在Password文本框中。当用户按Enter键时,就相当于单击“确定”按钮:当用户按Esc键时,就相当于单击“取消”按钮,立即退出该应用程序。[属性设置]在开发过程中,部分控件及属性设置如下:[程序代码]Private Sub cmdOK_Click()(3) As Integer ' 静态变量times的说明If (4) ThenUnload Me ' 卸载本登录窗口(5) ' 弹出应用程序主窗口frmAPPElseMsgBox ("用户名或密码错! ")times=times+1Password.Text="" ' 清除密码框中的内容Password.SetFocus ' 将光标定位于密码框If times=3 Then EndEnd IfEnd SubPrivate Sub cmdCanee1_Click()EndEnd Sub

更多“本程序的功能是获取文本框中的文本。窗口中有两个文本框“用户名”和“密码”,以及三个按钮“登录”、“其 ”相关问题
  • 第1题:

    考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好窗体对象“fSys”。请在此基础上按照以下要求补充“fSys”窗体的设计:

    (1)将窗体的边框样式设置为“对话框边框”,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮(导航按钮)、分隔线、控制框、关闭按钮、最大化按钮和最小化按钮。

    (2)将窗体标题栏显示文本设置为“系统登录”。

    (3)将窗体中“用户名称”(名称为“1User”)和“用户密码”(名称为“Pass”)两个标签上的文字颜色改为浅综色(浅综色代码为128)、字体粗细改为“加粗”。

    (4)将窗体中名称为“&ass”的文本框控件的内容以密码形式显示。

    (5)按照以下窗体功能,补充事件代码设计。

    在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“cmdEnter”和“cmdQuit”。在“tIJser”和“&ass”两个文本框中输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确,如果输入的用户名称为“cueb”,用户密码为“1234”,则显示提示框,提示框标题为“欢迎”,显示内容为“密码输入正确,欢迎进入系统!”,提示框中只有一个“确定”按钮,当单击“确定”按钮后,关闭该窗体:如果输入不正确,则提示框显示内容为“密码错误!”,同时清除“tUser”和“tPass”两个文本框中的内容,并将光标置于“tUser”文本框中。当单击窗体上的“退出”按钮后,关闭当前窗体。

    注意:不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。

    只允许在“*****Add*****”与“*****Ad*****”之间的空行内补充一条语句,不允许增删和修改其他位置已存在的语句。


    正确答案:【操作步骤】 (1)步骤1:打开“samp3.mdb”数据库选中“窗体”对象右键单击窗体“fSys”选择下拉菜单中的“设计视图”命令。 步骤2:右键单击“窗体选择器”选择下拉菜单中的“属性”命令将窗体的“边框样式”设置为“对话框边框”将窗体的“滚动条”设置为“两者均无”将窗体的“记录选择器”、“导航按钮”、“分隔线”、“控制框”均设置为“否”将窗体的“关闭按钮”、“最大最小化按钮”均设置为“无”。关闭窗体“属性”对话框。 步骤3:单击“保存”按钮。 (2)步骤l:右键单击“窗体选择器”选择下拉菜单中的“属性”命令在“属性”对话框中将窗体的标题设置为“系统登录”。 步骤2:关闭属性窗口。 (3)步骤l:选中将窗体中“用户名称”(名称为“lUscr”)和“用户密码”(名称为“Pass”)两个标签右键单击选择下拉菜单中的“属性”命令将窗体的“前景色”设置为“128”“字体粗细”设置为“加粗”。 步骤2:关闭“属性”对话框。 (4)步骤1:右键单击“tPass”文本框选择下拉菜单中的“属性”命令在“数据选项卡”中的“输入掩码”中输入:密码。 步骤2:关闭“属性”对话框。 (5)步骤1:右键单击“确定”按钮选择下拉菜单中的“事件生成器”命令在空行内输入代码: ************Addl**************** If name=“cueb”And pass=“1234”rhen ************Add1**************** ************Add2**************** Me!tUser.SetFocus ************Add2**************** ************Add3**************** DoCmd.Closc ************Add3***************** 步骤2:关闭代码窗口。单击“保存”按钮关闭设计视图。
    【操作步骤】 (1)步骤1:打开“samp3.mdb”数据库,选中“窗体”对象,右键单击窗体“fSys”,选择下拉菜单中的“设计视图”命令。 步骤2:右键单击“窗体选择器”,选择下拉菜单中的“属性”命令,将窗体的“边框样式”设置为“对话框边框”,将窗体的“滚动条”设置为“两者均无”,将窗体的“记录选择器”、“导航按钮”、“分隔线”、“控制框”均设置为“否”,将窗体的“关闭按钮”、“最大最小化按钮”均设置为“无”。关闭窗体“属性”对话框。 步骤3:单击“保存”按钮。 (2)步骤l:右键单击“窗体选择器”,选择下拉菜单中的“属性”命令,在“属性”对话框中,将窗体的标题设置为“系统登录”。 步骤2:关闭属性窗口。 (3)步骤l:选中将窗体中“用户名称”(名称为“lUscr”)和“用户密码”(名称为“Pass”)两个标签,右键单击,选择下拉菜单中的“属性”命令,将窗体的“前景色”设置为“128”,“字体粗细”设置为“加粗”。 步骤2:关闭“属性”对话框。 (4)步骤1:右键单击“tPass”文本框,选择下拉菜单中的“属性”命令,在“数据选项卡”中的“输入掩码”中输入:密码。 步骤2:关闭“属性”对话框。 (5)步骤1:右键单击“确定”按钮,选择下拉菜单中的“事件生成器”命令,在空行内输入代码: ************Addl**************** If name=“cueb”And pass=“1234”rhen ************Add1**************** ************Add2**************** Me!tUser.SetFocus ************Add2**************** ************Add3**************** DoCmd.Closc ************Add3***************** 步骤2:关闭代码窗口。单击“保存”按钮,关闭设计视图。 解析:本题考查窗体中控件的设计方法,控件格式的设置方法。在控件中利用系统函数、宏以及模块的实现控件的功能与作用。

  • 第2题:

    本程序用户在文本框中输入任何数,点击ok按钮,则会判断文本框中的数字是否是整数,并将结果显示在文本框中,用户如果在文本框中输入回车,则文本框清空。


    B

  • 第3题:

    编程题: 按要求定义如下功能的窗口(10分): 文本框中输入数值,单击“平方”按钮实现对文本框中数值求平方的功能,并将结果用标签显示在窗口中。


    editor

  • 第4题:

    试题12

    有一个标题为“登录”的用户登录窗体,窗体上有两个标签,标题分别是“用户名:”和“密码:”,用于输入用户名的文本框名为“UserName”,用于输入密码的文本框名为“UserPassword”,用于进行倒计时显示的文本框名为“Tnum”,窗体上有一个标题为“确认”的按钮名为“OK”,用于输入完用户名和密码后单击此按钮确认。

    输入用户名和密码,如用户名或密码错误,则给出提示信息;如正确,则显示“欢迎使用!”信息,要求整个登录过程要在30秒中完成,如果超过30秒还没有完成正确的登录操作,则程序给出提示自动终止整个登录过程。

    请在程序空白处填入适当的语句,使程序完成指定的功能。

    Option ,Compare Database

    Dim Second As Integer

    Private Sub Form_open(Cancel As Integer)

    Second=0

    End Sub

    Private Sub Form_Timer()

    If Second > 30 Then

    MsgBox “请在30秒中登录”, vbcritical, “警告”

    Docmd.close

    Else

    Me!Tnum=30-Second

    End If

    Second =___【12】__

    End Sub

    Private Sub OK_Click()

    If Me.UserName< > “123” Or Me.UserPassword < > “456” Then

    MsgBox “错误!”+“您还有”& 30-Second & “秒”,vbcritical,“提示”

    Else

    Me.TimerInterval=___【13】____ ‘终止Timer事件继续发生

    End If

    End Sub


    正确答案:

    试题12分析
    题目设计了一个登陆窗体,要求整个登录过程要在30秒中完成,如果超过30秒还没有完成正确的登录操作,则程序给出提示自动终止整个登录过程。Private Sub Form_Timer()过程首先判断时间是否超过30秒,超过则发出警告,如果没有则显示还剩多少时间,然后second时间增1,所以第12空应天“second+1”,如果出现错误,要终止Timer事件继续发生,将Me.TimerInterval重新设置,第13空天False。
    试题12答案
    [12]second+1
    [13]False

  • 第5题:

    2、用户注册界面。要求:在用户登录网页中,有“注册”链接。在注册界面中,要求输入用户名(文本框)、密码(密码框)、性别(单选按钮)、籍贯(下拉列表:江苏、山东、上海、安徽),点击“注册”按钮,跳转到注册成功界面。如果注册成功,则以新用户进行登录;如果注册失败,请重新注册。


    RequiredFieldValidator