VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form 啟動 
   Caption         =   "啟動"
   ClientHeight    =   8400
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11850
   Icon            =   "啟動.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "啟動.frx":0442
   ScaleHeight     =   560
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   790
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   1590
      Top             =   6030
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   1050
      Top             =   6000
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "企業人事管理系統"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   42
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   1215
      Left            =   2040
      TabIndex        =   6
      Top             =   2040
      Width           =   7215
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "文件備份"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   525
      Left            =   2880
      TabIndex        =   5
      Top             =   6210
      Width           =   2220
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "程序設計：倪 卿"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000014&
      Height          =   405
      Left            =   4560
      TabIndex        =   4
      Top             =   7080
      Width           =   2805
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "程序設計：倪 卿"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   345
      Left            =   4560
      TabIndex        =   3
      Top             =   7200
      Width           =   2865
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "退出系統"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   525
      Left            =   6720
      TabIndex        =   2
      Top             =   6210
      Width           =   2220
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "管理人才"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   525
      Left            =   6720
      TabIndex        =   1
      Top             =   5280
      Width           =   2220
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "技術人才"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFF00&
      Height          =   525
      Left            =   2880
      TabIndex        =   0
      Top             =   5280
      Width           =   2220
   End
   Begin VB.Menu 系統 
      Caption         =   "系統"
      Begin VB.Menu 修改口令 
         Caption         =   "修改口令"
      End
      Begin VB.Menu 文件備份 
         Caption         =   "文件備份"
      End
   End
   Begin VB.Menu 幫助 
      Caption         =   "幫助"
      Begin VB.Menu 關于 
         Caption         =   "關于"
      End
   End
End
Attribute VB_Name = "啟動"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'API函數聲明
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal X As Long, ByVal hWndInsterAfter As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long
'常數聲明
Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
'變量聲明
Dim hWndl As Long
Private Sub Form_Activate()
If 用戶登錄.Falg = 1 Then
    Label1.Visible = True: Label2.Visible = True
    Label3.Visible = True: Label4.Visible = True
End If
End Sub
Private Sub Form_Click()
If 用戶登錄.Falg <> 1 Then
 用戶登錄.Show
End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii <> 0 Then
 If 用戶登錄.Falg <> 1 Then
  用戶登錄.Show
 End If
End If
End Sub
Private Sub Form_Load()
Dim A As String
Dim B As Integer
    A = Me.hwnd
    B = 0
    Disabled A, B
    Me.Left = 0: Me.Top = 0
Label1.Visible = False: Label2.Visible = False
Label3.Visible = False: Label4.Visible = False
PlaySound App.Path + "\Windows 登錄音.wav", 0&, &H1
'獲得窗體句柄
  hWndl = FindWindow("Shell_traywnd", "")
'關閉任務欄
'  SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
  '得到屏幕當前分辨率
 SystemParametersInfo SPI_GETWORKAREA, vbNull, VarPtr(apiRECT), 0
'將屏幕當前分辨率保存于 Screen.txt
Open App.Path + "\" + "Screen.txt" For Output As #1
Write #1, apiRECT.Right
Close #1
'將屏幕分辨率改為800×600
SetDisplayMode 800, 600, 16
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFF00: Label2.ForeColor = &HFFFF00
Label3.ForeColor = &HFFFF00: Label4.ForeColor = &HFFFF00
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
End Sub
Private Sub Label1_Click()
Unload Me
技術人才主菜單.Show
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF&
End Sub
Private Sub Label2_Click()
Unload Me
管理人才主菜單.Show
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFF&
End Sub
Private Sub Label3_Click()
Dim FileName1, FileName2 As String
On Error GoTo A1
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.DialogTitle = "第一步：請選擇要備份的數據庫。"
CommonDialog1.ShowOpen
FileName1 = CommonDialog1.FileName
CommonDialog1.DialogTitle = "第二步：請輸入保存的數據庫名稱。"
CommonDialog1.ShowSave
FileName2 = CommonDialog1.FileName
A1:
If Err.Number = 75 Or Err.Number = 53 Then
    Exit Sub
    Else
   If Err.Number = 70 Then
    If FileName1 = FileName2 Then
    MsgBox " 文件已經存在，請更改文件名 ！", vbOKOnly + vbExclamation
    Exit Sub
    Else
    Exit Sub
    End If
    Else
    FileCopy FileName1, FileName2
    MsgBox " 數據庫備份成功 ！", vbOKOnly + vbExclamation
  End If
End If
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &HFF&
End Sub
Private Sub Label4_Click()
Quit
End Sub
Private Sub Quit()
'打開任務欄
SetWindowPos hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
'讀取原屏幕分辨率數值
Open App.Path + "\" + "Screen.txt" For Input As #1
Input #1, apiRECT.Right
Close #1
'按原屏幕分辨率重新設置
Call SetWindowPos(hWndl, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
    Select Case apiRECT.Right
       Case 1024
         SetDisplayMode 1024, 768, 16
       Case 800
         SetDisplayMode 800, 600, 16
       Case 640
         SetDisplayMode 640, 480, 16
    End Select
    Unload Me
  End
End Sub
Private Sub Timer1_Timer()
If 用戶登錄.Falg <> 1 Then
 用戶登錄.Show
End If
End Sub

Private Sub 關于_Click()

關于1.Show
End Sub

Private Sub 文件備份_Click()
Dim FileName1, FileName2 As String
On Error GoTo A1
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.DialogTitle = "第一步：請選擇要備份的數據庫。"
CommonDialog1.ShowOpen
FileName1 = CommonDialog1.FileName
CommonDialog1.DialogTitle = "第二步：請輸入保存的數據庫名稱。"
CommonDialog1.ShowSave
FileName2 = CommonDialog1.FileName
A1:
If Err.Number = 75 Or Err.Number = 53 Then
    Exit Sub
    Else
   If Err.Number = 70 Then
    If FileName1 = FileName2 Then
    MsgBox " 文件已經存在，請更改文件名 ！", vbOKOnly + vbExclamation
    Exit Sub
    Else
    Exit Sub
    End If
    Else
    FileCopy FileName1, FileName2
    MsgBox " 數據庫備份成功 ！", vbOKOnly + vbExclamation
  End If
End If
End Sub

Private Sub 修改口令_Click()
修改口令1.Show
End Sub