frmmainedit.frm

一个小型管理系统.~!!不同的用户拥有不同的权限

VERSION 5.00
Begin VB.Form FrmMainEdit 
   Caption         =   "提示"
   ClientHeight    =   2460
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4260
   LinkTopic       =   "Form1"
   ScaleHeight     =   2460
   ScaleWidth      =   4260
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2415
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4215
      Begin VB.PictureBox Picture1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   615
         Left            =   480
         Picture         =   "FrmMainEdit.frx":0000
         ScaleHeight     =   615
         ScaleWidth      =   675
         TabIndex        =   4
         Top             =   480
         Width           =   675
      End
      Begin VB.CommandButton Cmd_Cancel 
         Caption         =   "否(&N)"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2280
         TabIndex        =   2
         Top             =   1320
         Width           =   1335
      End
      Begin VB.CommandButton Cmd_OK 
         Caption         =   "是(&Y)"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   360
         TabIndex        =   1
         Top             =   1320
         Width           =   1335
      End
      Begin VB.Label Label1 
         Caption         =   "确认退出系统吗?"
         BeginProperty Font 
            Name            =   "楷体_GB2312"
            Size            =   15
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1320
         TabIndex        =   3
         Top             =   600
         Width           =   2415
      End
   End
End
Attribute VB_Name = "FrmMainEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Text1_Change()

End Sub

Private Sub Cmd_Cancel_Click()
  Unload Me
    
End Sub

Private Sub Cmd_OK_Click()
  DBapi_Disconnect
  End
End Sub