frmdialog.frm

一个vb的mis系统

VERSION 5.00
Begin VB.Form frmmainbutton 
   BorderStyle     =   0  'None
   Caption         =   "系统设置"
   ClientHeight    =   1065
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   Picture         =   "frmdialog.frx":0000
   ScaleHeight     =   1065
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timerstart 
      Interval        =   400
      Left            =   720
      Top             =   1800
   End
   Begin VB.Timer Timer 
      Enabled         =   0   'False
      Interval        =   2
      Left            =   120
      Top             =   1800
   End
   Begin VB.Image pic_temp 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":4B044
      Top             =   -1050
      Width           =   15360
   End
   Begin VB.Image pic_backbf 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":7F888
      Stretch         =   -1  'True
      Top             =   4320
      Width           =   15375
   End
   Begin VB.Image pic_back 
      Height          =   1050
      Left            =   -120
      Picture         =   "frmdialog.frx":7FA0C
      Stretch         =   -1  'True
      Top             =   5400
      Width           =   15375
   End
   Begin VB.Image p0 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":BBA50
      Top             =   13560
      Width           =   8610
   End
   Begin VB.Image p10 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":D91FC
      Top             =   12480
      Width           =   15000
   End
   Begin VB.Image p9 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":10C690
      Top             =   12000
      Width           =   15000
   End
   Begin VB.Image p8 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":13FB24
      Top             =   11400
      Width           =   15000
   End
   Begin VB.Image p7 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":172FB8
      Top             =   10920
      Width           =   15000
   End
   Begin VB.Image p6 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":1A644C
      Top             =   10320
      Width           =   15000
   End
   Begin VB.Image p5 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":1D98E0
      Top             =   9720
      Width           =   15000
   End
   Begin VB.Image p4 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":20CD74
      Top             =   9120
      Width           =   15000
   End
   Begin VB.Image p3 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":240208
      Top             =   8520
      Width           =   15000
   End
   Begin VB.Image p2 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":27369C
      Top             =   7920
      Width           =   15000
   End
   Begin VB.Image p1 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":2A6B30
      Top             =   7320
      Width           =   15000
   End
   Begin VB.Image back 
      Height          =   1050
      Left            =   0
      Picture         =   "frmdialog.frx":2D9FC4
      Top             =   0
      Visible         =   0   'False
      Width           =   8610
   End
End
Attribute VB_Name = "frmmainbutton"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub back_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case X
        Case 120 To 735
            If frmmain.serachwindowsishas = False Then              '打开“查询数据”窗口前先检查是否已经存在窗体了
                Set frmmain.Picture = frmmain.pic_serach.Picture
                frmserach.Show
            End If
        Case 990 To 1605
            If frmmain.addwindowsishas = False Then              '打开“添加数据”窗口前先检查是否已经存在窗体了
                Set frmmain.Picture = frmmain.pic_add.Picture
                frmadd1.Show
            End If
        Case 1850 To 2465
            Set frmmain.Picture = frmmain.pic_mdf.Picture
            frmmdf.Show
        Case 2680 To 3295
            '先暂时提升权限
            If chksuperuser = False Then
                Exit Sub
            End If
            
            If frmmain.clearwindowsishas = False Then    '打开“清空学生信息数据库”窗口前先检查是否已经存在窗体了
                Set frmmain.Picture = frmmain.pic_clr.Picture
                frmcleardb.Show
            End If
            
            '恢复权限
            frmmain.chkuser.Value = 0
        Case 3600 To 4215
            If frmmain.check_have.Value = 0 Then
            Set publicmbox.Picture = publicmbox.pic9.Picture: publicmbox.Show vbModal
            End If
        Case 4435 To 5050
            If frmmain.check_have.Value = 0 Then
            Set publicmbox.Picture = publicmbox.pic9.Picture: publicmbox.Show vbModal
            End If
        Case 5280 To 5895
            If frmmain.check_have.Value = 0 Then
            Set publicmbox.Picture = publicmbox.pic9.Picture: publicmbox.Show vbModal
            End If
        Case 6150 To 6800
            frmmain.Visible = False
            frmLogin.Show
            frmLogin.reland.Value = 1
            frmLogin.picuser.Visible = False
        Case 7060 To 7675
            Shell "showchm.exe"
        Case 7890 To 8505
            frmAbout.Show vbModal
        Case Else
            Set back.Picture = p0.Picture
    End Select
End Sub

Private Sub back_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Select Case X
        Case 120 To 735
            Set back.Picture = p1.Picture
        Case 990 To 1605
            Set back.Picture = p2.Picture
        Case 1850 To 2465
            Set back.Picture = p3.Picture
        Case 2680 To 3295
            Set back.Picture = p4.Picture
        Case 3600 To 4215
            Set back.Picture = p5.Picture
        Case 4435 To 5050
            Set back.Picture = p6.Picture
        Case 5280 To 5895
            Set back.Picture = p7.Picture
        Case 6150 To 6800
            Set back.Picture = p8.Picture
        Case 7060 To 7675
            Set back.Picture = p9.Picture
        Case 7890 To 8505
            Set back.Picture = p10.Picture
        Case Else
            Set back.Picture = p0.Picture
    End Select
End Sub

'初始化窗口
Private Sub Form_Load()
    pic_temp.Top = -1050
    Me.Top = 0
    Me.Left = 0
    Me.Height = 1050
    Me.Width = 11982
End Sub

'滚动动画控制
Private Sub Timer_Timer()
    '加速度下降控制语句
    If pic_temp.Top < 0 Then
        If pic_temp.Top < -500 Then
            If pic_temp.Top < -750 Then
                If pic_temp.Top < -920 Then
                    pic_temp.Top = pic_temp.Top + 20
                Else
                    pic_temp.Top = pic_temp.Top + 45
                End If
            Else
                pic_temp.Top = pic_temp.Top + 60
            End If
        Else
            pic_temp.Top = pic_temp.Top + 80
        End If
    Else
        '停止timer并设置背景、按钮层和隐藏下降层
        Timer.Enabled = False
        Set Me.Picture = pic_back.Picture
        pic_temp.Visible = False
        back.Visible = True
    End If
End Sub
'暂时停换控制
Private Sub Timerstart_Timer()
    Timer.Enabled = True
    Timerstart.Enabled = False
End Sub