开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
Form_ExitUserPasword.frm
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：3k
源码类别：

企业管理

开发平台：

Visual Basic

Form_ExitUserPasword.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Form_Userpassword 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "口令"
  5.    ClientHeight    =   960
  6.    ClientLeft      =   4500
  7.    ClientTop       =   3420
  8.    ClientWidth     =   3930
  9.    Icon            =   "Form_ExitUserPasword.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   960
  14.    ScaleWidth      =   3930
  15.    StartUpPosition =   2  '屏幕中心
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "取消&C"
  18.       Height          =   300
  19.       Left            =   2700
  20.       TabIndex        =   5
  21.       Top             =   510
  22.       Width           =   1125
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "确定&D"
  26.       Height          =   315
  27.       Left            =   2700
  28.       TabIndex        =   4
  29.       Top             =   90
  30.       Width           =   1125
  31.    End
  32.    Begin VB.TextBox Text1 
  33.       Height          =   285
  34.       IMEMode         =   3  'DISABLE
  35.       Index           =   1
  36.       Left            =   780
  37.       MaxLength       =   8
  38.       PasswordChar    =   "*"
  39.       TabIndex        =   0
  40.       Top             =   90
  41.       Width           =   1755
  42.    End
  43.    Begin VB.TextBox Text1 
  44.       Height          =   285
  45.       IMEMode         =   3  'DISABLE
  46.       Index           =   2
  47.       Left            =   780
  48.       MaxLength       =   8
  49.       PasswordChar    =   "*"
  50.       TabIndex        =   1
  51.       Top             =   510
  52.       Width           =   1755
  53.    End
  54.    Begin VB.Label Label1 
  55.       AutoSize        =   -1  'True
  56.       Caption         =   "口令"
  57.       Height          =   180
  58.       Index           =   1
  59.       Left            =   210
  60.       TabIndex        =   3
  61.       Top             =   150
  62.       Width           =   360
  63.    End
  64.    Begin VB.Label Label1 
  65.       AutoSize        =   -1  'True
  66.       Caption         =   "验证:"
  67.       Height          =   180
  68.       Index           =   2
  69.       Left            =   210
  70.       TabIndex        =   2
  71.       Top             =   570
  72.       Width           =   450
  73.    End
  74. End
  75. Attribute VB_Name = "Form_Userpassword"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Private Sub Command1_Click()
  81. If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then MsgBox "口令验证错误!  ", 16: Exit Sub
  82. Frm_NewUser.Text1(1).Tag = Text1(1).Text
  83. Frm_NewUser.Text1(2).Tag = "T"
  84. Unload Me
  85. End Sub
  87. Private Sub Command2_Click()
  88. Unload Me
  89. End Sub