frmsystem.frm

VB写的通过串口与考勤机连接通讯的程序

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmSystem 
   BackColor       =   &H00808000&
   Caption         =   "蓝牙数码考勤管理系统"
   ClientHeight    =   3810
   ClientLeft      =   2550
   ClientTop       =   1950
   ClientWidth     =   6210
   Icon            =   "frmSystem.frx":0000
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   720
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":0894
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":0CE6
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":16C0
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":20D2
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmSystem.frx":2524
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar 
      Align           =   1  'Align Top
      Height          =   660
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6210
      _ExtentX        =   10954
      _ExtentY        =   1164
      ButtonWidth     =   1032
      ButtonHeight    =   1005
      AllowCustomize  =   0   'False
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   11
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "职工信息"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "时间设定"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "公休设定"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "查询打印 "
            ImageIndex      =   4
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "请假管理"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.ToolTipText     =   "退出系统"
            ImageIndex      =   6
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin VB.Menu mnuJiBenSet 
      Caption         =   "基本设置"
      Begin VB.Menu mnuTimeSet 
         Caption         =   "时间设定"
      End
      Begin VB.Menu mnuManSet 
         Caption         =   "职工信息设定"
      End
      Begin VB.Menu mnuGongXiuSet 
         Caption         =   "公休日设定"
      End
      Begin VB.Menu mnuQingJia 
         Caption         =   "请假管理"
      End
   End
   Begin VB.Menu mnuFind_Print 
      Caption         =   "查询报表"
      Begin VB.Menu muKaoQin 
         Caption         =   "考勤查询"
      End
   End
   Begin VB.Menu mnuSystemSet 
      Caption         =   "系统管理"
      Begin VB.Menu mnuUserSet 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mnuSet_Card 
         Caption         =   "设置磁卡"
      End
      Begin VB.Menu MnuINput_KaoQin 
         Caption         =   "手动录入记录"
      End
      Begin VB.Menu mnuSet_KaoQin 
         Caption         =   "设置考勤机"
      End
      Begin VB.Menu MnuAuto 
         Caption         =   "系统自动"
      End
   End
   Begin VB.Menu munLong 
      Caption         =   "登陆"
      Begin VB.Menu mnuRefLog 
         Caption         =   "重新登陆"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuReadMe 
         Caption         =   "使用说明"
      End
      Begin VB.Menu mnuVer 
         Caption         =   "版本信息"
      End
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "frmSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub MDIForm_Load()
Select Case lNum
 Case 0
  mnuSystemSet.Visible = False
  mnuUserSet.Visible = False

 Case 1
   mnuSystemSet.Visible = False
   mnuUserSet.Visible = False

 Case 2
 End Select
 
End Sub

Private Sub mnuExit_Click()
If MsgBox("是否退出考勤系统？", vbYesNo, "系统提示") = vbYes Then
    adoCon.Close
    Set adoRs = Nothing
    Set adoCon = Nothing
    End
End If
End Sub

Private Sub mnuGongXiuSet_Click()
frmGongXiu.Show
End Sub

Private Sub mnuKaoQin_Record_Click()
frmSet_rec.Show
End Sub

Private Sub MnuINput_KaoQin_Click()
frmSet_rec.Show
End Sub

Private Sub mnuManSet_Click()
frmWorker.Show
End Sub
Private Sub mnuRecordSet_Click()
frmUpDate.Show
End Sub

Private Sub mnuQingJia_Click()
frmQingJia.Show
End Sub

Private Sub mnuRefLog_Click()
    frmLogin.Show
    Unload frmSystem
End Sub

Private Sub mnuSet_Card_Click()
frmKaoQinSET.Show
End Sub

Private Sub mnuSetJiaBan_Click()
frmSetJiaBan.Show
End Sub

Private Sub mnuTimeSet_Click()
frmSetTime.Show
End Sub


Private Sub mnuUserSet_Click()
frmMG.Show
End Sub

Private Sub muKaoQin_Click()
frmPrint.Show
End Sub



Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

Case 1
frmWorker.Show
Case 3
frmSetTime.Show
Case 5
frmGongXiu.Show
Case 7
frmPrint.Show
Case 9
frmQingJia.Show
Case 11
If MsgBox("是否退出考勤系统？", vbYesNo, "系统提示") = vbYes Then
    adoCon.Close
    Set adoRs = Nothing
    Set adoCon = Nothing
    End
End If
End Select
End Sub