close.frm

delphi财务管理系统.rar delphi财务管理系统.rar

         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   1920
      MouseIcon       =   "close.frx":2D1E2
      MousePointer    =   99  'Custom
      TabIndex        =   5
      Top             =   4680
      Width           =   1095
   End
   Begin VB.Label Label5 
      BackColor       =   &H00400000&
      Caption         =   "设置口令"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   1920
      MouseIcon       =   "close.frx":2D4EC
      MousePointer    =   99  'Custom
      TabIndex        =   4
      Top             =   3960
      Width           =   1095
   End
   Begin VB.Label Label4 
      BackColor       =   &H00400000&
      Caption         =   "退出系统"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   1920
      MouseIcon       =   "close.frx":2D7F6
      MousePointer    =   99  'Custom
      TabIndex        =   3
      Top             =   6120
      Width           =   1095
   End
   Begin VB.Label Label3 
      BackColor       =   &H00400000&
      Caption         =   "人事档案"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   600
      MouseIcon       =   "close.frx":2DB00
      MousePointer    =   99  'Custom
      TabIndex        =   2
      Top             =   3000
      Width           =   1095
   End
   Begin VB.Label Label2 
      BackColor       =   &H00400000&
      Caption         =   "工资统计"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   600
      MouseIcon       =   "close.frx":2DE0A
      MousePointer    =   99  'Custom
      TabIndex        =   1
      Top             =   4440
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00400000&
      Caption         =   "部门查询"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   600
      MouseIcon       =   "close.frx":2E114
      MousePointer    =   99  'Custom
      TabIndex        =   0
      Top             =   5160
      Width           =   1095
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim music As Integer
Private Sub Form_Load()
music = 0
mic.Command = "close"
mic.DeviceType = "sequencer"
mic.FileName = "c:\人事管理系统\systemmid\mid.mid"
mic.Command = "open"
mic.Command = "play"
Timer1.Interval = 10
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFFFFFF
Label2.ForeColor = &HFFFFFF
Label3.ForeColor = &HFFFFFF
Label4.ForeColor = &HFFFFFF
Label5.ForeColor = &HFFFFFF
Label6.ForeColor = &HFFFFFF
Label7.ForeColor = &HFFFFFF
Label8.ForeColor = &HFFFFFF
Label9.ForeColor = &HFFFFFF
Label10.ForeColor = &HFFFFFF
Label12.ForeColor = &HFFFFFF
Label13.ForeColor = &HFFFFFF
Label14.ForeColor = &HFFFFFF
End Sub

Private Sub Label1_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = ""
Data2.Recordset.Update
a0:
Form12.Show

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF8080
End Sub

Private Sub Label10_Click()
On Error GoTo a0
Data1.Recordset.Edit
Data1.Recordset("zgbh") = ""
Data1.Recordset.Update
a0:
Form10.Show
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label10.ForeColor = &HFF8080
End Sub

Private Sub Label12_Click()
Line1.Visible = True
Line2.Visible = True
Line3.Visible = True
Line4.Visible = True
Option1.Visible = True
Option2.Visible = True
Label13.Visible = True
Label14.Visible = True

End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label12.ForeColor = &HFF8080
End Sub

Private Sub Label13_Click()
Option1.Value = True
If music = 1 Then
mic.Command = "close"
mic.DeviceType = "sequencer"
mic.FileName = "c:\人事管理系统\systemmid\mid.mid"
mic.Command = "open"
mic.Command = "play"
Timer1.Interval = 10
music = 0
End If
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Option1.Visible = False
Option2.Visible = False
Label13.Visible = False
Label14.Visible = False


End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label13.ForeColor = &HFF8080
End Sub

Private Sub Label14_Click()
Option2.Value = True
mic.Command = "close"
Timer1.Enabled = False
Line1.Visible = False
Line2.Visible = False
Line3.Visible = False
Line4.Visible = False
Option1.Visible = False
Option2.Visible = False
Label13.Visible = False
Label14.Visible = False
music = 1
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label14.ForeColor = &HFF8080
End Sub

Private Sub Label2_Click()
Form11.Show
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF8080
End Sub

Private Sub Label3_Click()
On Error GoTo a0
Data1.Recordset.Edit
Data1.Recordset("zgbh") = ""
Data1.Recordset.Update
a0:
Form2.Show
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.ForeColor = &HFF8080
End Sub

Private Sub Label4_Click()
End
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.ForeColor = &HFF8080
End Sub

Private Sub Label5_Click()
form3.Show
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = &HFF8080
End Sub

Private Sub Label6_Click()
Form9.Show
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.ForeColor = &HFF8080
End Sub

Private Sub Label7_Click()
Form7.Show
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label7.ForeColor = &HFF8080
End Sub

Private Sub Label8_Click()
Form8.Show
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8.ForeColor = &HFF8080
End Sub

Private Sub Label9_Click()
Form4.Show
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label9.ForeColor = &HFF8080
End Sub

Private Sub Timer1_Timer()
If mic.NotifyValue = 1 Then
mic.Command = "close"
mic.DeviceType = "sequencer"
mic.FileName = "c:\人事管理系统\systemmid\mid.mid"
mic.Command = "open"
mic.Command = "play"
End If
End Sub