毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB四则运算训练营设计 第2页

更新时间:2010-5-25:  来源:毕业论文
VB四则运算训练营设计 第2页
[SCC]
SCC=This is a source code control file
[工程1.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
[四则运算训练营.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
VERSION 5.00
Begin VB.Form Form6
   Caption         =   "软件登录"
   ClientHeight    =   1935
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5130
   ControlBox      =   0   'False
   LinkTopic       =   "Form5"
   ScaleHeight     =   1935
   ScaleWidth      =   5130
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2
      Caption         =   "取消"
      Height          =   375
      Left            =   3720
      TabIndex        =   5
      Top             =   960
      Width           =   975
   End
   Begin VB.TextBox Text2
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1200
      PasswordChar    =   "*"
      TabIndex        =   4
      Top             =   960
      Width           =   2055
   End
   Begin VB.CommandButton Command1
      Caption         =   "确定"
      Height          =   375
      Left            =   3720
      TabIndex        =   1
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   1200
      TabIndex        =   0
      Top             =   360
      Width           =   2055
   End
   Begin VB.Label Label2
      AutoSize        =   -1  'True
      Caption         =   "密  码:"
      Height          =   180
      Left            =   480
      TabIndex        =   3
      Top             =   1080
      Width           =   720
   End
   Begin VB.Label Label1
      AutoSize        =   -1  'True
      Caption         =   "用户名:"
      Height          =   180
      Left            =   480
      TabIndex        =   2
      Top             =   480
      Width           =   720
   End
End
Attribute VB_Name = "Form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim str_yhm As String, str_mm As String
    Open "sys" For Input As #1
        Input #1, str_yhm, str_mm
    Close #1 毕业论文http://www.751com.cn/  论文网http://www.751com.cn/
    If Trim(Text1.Text) = str_yhm And Trim(Text2.Text) = str_mm Then
        Form1.Show
        Unload Me
    Else
        MsgBox "您输入的用户名或密码不对!", 16, "系统提示:"
    End IfEnd SubPrivate Sub Command2_Click()    EndEnd Sub

上一页  [1] [2] 

VB四则运算训练营设计 第2页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。