frmfm.frm

来自「图书馆管理」· FRM 代码 · 共 66 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "图书馆管理系统"
   ClientHeight    =   3600
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4155
   FillColor       =   &H00FFFFFF&
   FillStyle       =   0  'Solid
   LinkTopic       =   "Form1"
   ScaleHeight     =   3600
   ScaleWidth      =   4155
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Image ImageEnter 
      Height          =   390
      Left            =   10440
      Picture         =   "Frmfm.frx":0000
      Top             =   7680
      Width           =   465
   End
   Begin VB.Image Image2 
      BorderStyle     =   1  'Fixed Single
      Height          =   8640
      Left            =   0
      Picture         =   "Frmfm.frx":048F
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11880
   End
   Begin VB.Image Image1 
      Height          =   1000
      Left            =   -3600
      Picture         =   "Frmfm.frx":982D2
      Stretch         =   -1  'True
      Top             =   -1200
      Width           =   1330
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

End Sub


Private Sub Image3_Click()

End Sub

Private Sub ImageEnter_Click()
Me.Hide
If userpow = "管理员" Then
    Frmmain.Show
Else
    If userpow = "读者" Then
        FrmReader.Show
    Else
        Me.Hide
    End If
End If
End Sub