dialog.frm

一个较为完整的校园铃声控制系统。可以任意设置时间次数。

VERSION 5.00
Begin VB.Form Dialog 
   BackColor       =   &H00404040&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登录"
   ClientHeight    =   1350
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   5085
   Icon            =   "Dialog.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Dialog.frx":030A
   ScaleHeight     =   1350
   ScaleWidth      =   5085
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      IMEMode         =   3  'DISABLE
      Left            =   120
      MaxLength       =   6
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   720
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   480
      Left            =   1800
      TabIndex        =   4
      Top             =   735
      Width           =   1575
   End
   Begin VB.CommandButton CancelButton 
      BackColor       =   &H00FFC0C0&
      Caption         =   "取  消"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3720
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   840
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      BackColor       =   &H00FFC0C0&
      Caption         =   "确  定"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3720
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "密  码"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF80&
      Height          =   285
      Left            =   405
      TabIndex        =   3
      Top             =   360
      Width           =   930
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "用 户 名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C0FFFF&
      Height          =   285
      Left            =   1965
      TabIndex        =   2
      Top             =   360
      Width           =   1230
   End
End
Attribute VB_Name = "Dialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub CancelButton_Click()
Me.Visible = False
End Sub

Private Sub OKButton_Click()

If Me.Text1.Text = use.Text47.Text Then
    If Me.Text2.Text = use.Text46.Text Then
        
        Load Form2
        Form2.show
        Form2.sys.Enabled = True
        Form2.Command46.Visible = False
        
        Call kulupnieqix
        
       
        Me.Visible = False
    Else
    MsgBox "密码错误，请重新输入"
    Me.Text2.Text = ""
    Me.Text2.SetFocus
    End If
        
Else
MsgBox "用户名错误，请重试"
Me.Text1.Text = ""
Me.Text1.SetFocus
End If
End Sub
Private Sub kulupnieqix()
'解锁界面
Form2.Command1.Enabled = True
Form2.Command2.Enabled = True
Form2.Command3.Enabled = True
Form2.Command4.Enabled = True
Form2.Command5.Enabled = True
Form2.Command6.Enabled = True
Form2.Command7.Enabled = True
Form2.Command8.Enabled = True
Form2.Command9.Enabled = True
Form2.Command10.Enabled = True
Form2.Command11.Enabled = True
Form2.Command12.Enabled = True
Form2.Command13.Enabled = True
Form2.Command14.Enabled = True
Form2.Command15.Enabled = True
Form2.Command16.Enabled = True
Form2.Command17.Enabled = True
Form2.Command18.Enabled = True
Form2.Command19.Enabled = True
Form2.Command20.Enabled = True
Form2.Command21.Enabled = True
Form2.Command22.Enabled = True
Form2.Command24.Enabled = True
Form2.Command25.Enabled = True
Form2.Command26.Enabled = True
Form2.Command27.Enabled = True
Form2.Command28.Enabled = True
Form2.Command29.Enabled = True
Form2.Command30.Enabled = True
Form2.Command31.Enabled = True
Form2.Command32.Enabled = True
Form2.Command33.Enabled = True
Form2.Command34.Enabled = True
Form2.Command35.Enabled = True
Form2.Command36.Enabled = True
Form2.Command37.Enabled = True
Form2.Command38.Enabled = True
Form2.Command39.Enabled = True
Form2.Command40.Enabled = True
Form2.Command41.Enabled = True
Form2.Command42.Enabled = True
Form2.Command43.Enabled = True
Form2.Command44.Enabled = True
Form2.Command45.Enabled = True

Form2.Combo1.Enabled = True
Form2.Combo2.Enabled = True
Form2.Combo3.Enabled = True
Form2.Combo4.Enabled = True
Form2.Combo5.Enabled = True
Form2.Combo6.Enabled = True
Form2.Combo7.Enabled = True
Form2.Combo8.Enabled = True
Form2.Combo9.Enabled = True
Form2.Combo10.Enabled = True
Form2.Combo11.Enabled = True
Form2.Combo12.Enabled = True
Form2.Combo13.Enabled = True
Form2.Combo14.Enabled = True
Form2.Combo15.Enabled = True
Form2.Combo16.Enabled = True
Form2.Combo17.Enabled = True
Form2.Combo18.Enabled = True
Form2.Combo19.Enabled = True
Form2.Combo20.Enabled = True
Form2.Combo21.Enabled = True
Form2.Combo22.Enabled = True
Form2.Combo23.Enabled = True
Form2.Combo24.Enabled = True
Form2.Combo25.Enabled = True
Form2.Combo26.Enabled = True
Form2.Combo27.Enabled = True
Form2.Combo28.Enabled = True
Form2.Combo29.Enabled = True
Form2.Combo30.Enabled = True
Form2.Combo31.Enabled = True
Form2.Combo32.Enabled = True
Form2.Combo33.Enabled = True
Form2.Combo34.Enabled = True
Form2.Combo35.Enabled = True
Form2.Combo36.Enabled = True
Form2.Combo37.Enabled = True
Form2.Combo38.Enabled = True
Form2.Combo39.Enabled = True
Form2.Combo40.Enabled = True
Form2.Combo41.Enabled = True
Form2.Combo42.Enabled = True
Form2.Combo43.Enabled = True
Form2.Combo44.Enabled = True
Form2.Combo48.Enabled = True

Form2.Combo51.Enabled = True
Form2.Combo52.Enabled = True
Form2.Combo53.Enabled = True
Form2.Combo54.Enabled = True
Form2.Combo55.Enabled = True
Form2.Combo56.Enabled = True
Form2.Combo57.Enabled = True
Form2.Combo58.Enabled = True
Form2.Combo59.Enabled = True
Form2.Combo60.Enabled = True
Form2.Combo61.Enabled = True
Form2.Combo62.Enabled = True
Form2.Combo63.Enabled = True
Form2.Combo64.Enabled = True
Form2.Combo65.Enabled = True
Form2.Combo66.Enabled = True
Form2.Combo67.Enabled = True
Form2.Combo68.Enabled = True
Form2.Combo69.Enabled = True
Form2.Combo70.Enabled = True
Form2.Combo71.Enabled = True
Form2.Combo72.Enabled = True
Form2.Combo73.Enabled = True
Form2.Combo74.Enabled = True
Form2.Combo75.Enabled = True
Form2.Combo76.Enabled = True
Form2.Combo77.Enabled = True
Form2.Combo78.Enabled = True
Form2.Combo79.Enabled = True
Form2.Combo80.Enabled = True
Form2.Combo81.Enabled = True
Form2.Combo82.Enabled = True
Form2.Combo83.Enabled = True
Form2.Combo84.Enabled = True
Form2.Combo85.Enabled = True


End Sub