frmmain.frm

一个管理程序（实用）VB

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain 
   ClientHeight    =   6135
   ClientLeft      =   1875
   ClientTop       =   1755
   ClientWidth     =   8220
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MouseIcon       =   "frmMain.frx":0442
   MousePointer    =   99  'Custom
   Picture         =   "frmMain.frx":0884
   ScaleHeight     =   6135
   ScaleWidth      =   8220
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.ProgressBar ProgressBar2 
      Height          =   30
      Left            =   4560
      TabIndex        =   1
      Top             =   3120
      Width           =   135
      _ExtentX        =   238
      _ExtentY        =   53
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   600
      Top             =   1680
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "教师工作安排管理系统"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   855
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   7335
   End
   Begin VB.Menu mnuEmpinfor 
      Caption         =   "研究生工作"
   End
   Begin VB.Menu mnuSalary 
      Caption         =   "本科生工作"
   End
   Begin VB.Menu mnuGztj 
      Caption         =   "实验实习"
   End
   Begin VB.Menu mnuKqtj 
      Caption         =   "其它"
   End
   Begin VB.Menu mnuZgkq 
      Caption         =   "教师考勤"
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统设置"
      Begin VB.Menu mnuChgPin 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuBackup 
         Caption         =   "数据备份"
      End
      Begin VB.Menu mnuHf 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuAid 
      Caption         =   "辅助功能"
      Begin VB.Menu mnuClock 
         Caption         =   "时钟"
      End
      Begin VB.Menu mnuRili 
         Caption         =   "日历"
      End
      Begin VB.Menu mnuIP 
         Caption         =   "Ip and Port"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "About Me"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
'初始化窗体
    On Error Resume Next
    Timer1.Interval = 1000
    Timer1.Enabled = True
    Label1.Left = frmMain.Width / 2 - Label1.Width / 2
    Label1.Top = frmMain.ScaleHeight / 4
    LoadPicture (App.Path + "\picture\jie008.gif")
    FileCopy App.Path + "\backup\教师管理系统.mdb", App.Path + "\教师管理系统.mdb"
End Sub

Private Sub Form_Unload(Cancel As Integer)
'提示是否需要备份数据
    'a = MsgBox("您需要备份数据吗？", vbYesNo + vbExclamation, "提示")
    'If a = vbYes Then
        'FileCopy App.Path + "\教师管理系统.mdb", App.Path + "\backup\教师管理系统.mdb"
    'Else
        'End
    'End If
End Sub

Private Sub mnuAbout_Click()
'显示About窗口
    frmAbout.Show
End Sub

Private Sub mnuBackup_Click()
    frmBackup.Show
End Sub

Private Sub mnuChgPin_Click()
    frmPassword.Show
End Sub

Private Sub mnuClock_Click()
    frmTime.Show
End Sub

Private Sub mnuEmpinfor_Click()
    frmZgjbqk.Show
End Sub

Private Sub mnuExit_Click()
    End
End Sub

Private Sub mnuGztj_Click()
    frmZggztj.Show
End Sub

Private Sub mnuHf_Click()
    '恢复数据
    FileCopy App.Path + "\backup\教师管理系统.mdb", App.Path + "\教师管理系统.mdb"
End Sub

Private Sub mnuIP_Click()
    frmIP.Show
End Sub

Private Sub mnuKqtj_Click()
    frmKqtj.Show
End Sub

Private Sub mnuRili_Click()
    frmCalendar.Show
End Sub

Private Sub mnuSalary_Click()
    frmZggz.Show
End Sub

Private Sub mnuZgkq_Click()
    frmZgkq.Show
End Sub

Private Sub Timer1_Timer()
    '在每次整点的时候自动备份数据
    On Error Resume Next
    frmMain.Caption = "我的毕业设计 " & Format(Now, "yyyy年mm月dd日 hh:mm:ss")
    If Right$(frmMain.Caption, 5) = "59:59" Then
        FileCopy App.Path + "\教师管理系统.mdb", App.Path + "\backup\教师管理系统.mdb"
    End If
End Sub