mainform.frm

感觉还可以了 大家看看 指点下 有什么不足的地方,大家多多指教啊

      Begin VB.Menu menu_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu PayMan 
      Caption         =   "工资管理"
      Begin VB.Menu menu_AddEvent 
         Caption         =   "添加考勤记录"
      End
      Begin VB.Menu menu_ChangeEvent 
         Caption         =   "修改考勤记录"
      End
      Begin VB.Menu menu_QueryEvent 
         Caption         =   "查询考勤记录"
      End
      Begin VB.Menu s2 
         Caption         =   "-"
      End
      Begin VB.Menu menu_CalcPay 
         Caption         =   "计算工资"
      End
      Begin VB.Menu menu_AddPay 
         Caption         =   "添加工资记录"
      End
      Begin VB.Menu menu_ChangePay 
         Caption         =   "修改工资记录"
      End
      Begin VB.Menu menu_DelPay 
         Caption         =   "删除工资记录"
      End
      Begin VB.Menu menu_QueryPay 
         Caption         =   "工资查询"
      End
      Begin VB.Menu menu_MonthBln 
         Caption         =   "月底结算"
      End
   End
   Begin VB.Menu FixedAsset 
      Caption         =   "固定资产"
      Begin VB.Menu menu_AddFixed 
         Caption         =   "添加固定资产记录"
      End
      Begin VB.Menu menu_ChangeFixed 
         Caption         =   "修改固定资产记录"
      End
      Begin VB.Menu menu_DelFixed 
         Caption         =   "固定资产记录删除"
      End
      Begin VB.Menu menu_QueryFixed 
         Caption         =   "固定资产查询"
      End
   End
   Begin VB.Menu CurAsset 
      Caption         =   "流动资产"
      Begin VB.Menu menu_AddCur 
         Caption         =   "添加报销记录"
      End
      Begin VB.Menu menu_QueryCur 
         Caption         =   "查询报销记录"
      End
      Begin VB.Menu menu_ExportCur 
         Caption         =   "导出报销记录"
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub AdminOption_Click()
    sb1.Panels(1).Text = "管理员选项"       '鼠标在"管理员选项"菜单使状态条的提示文字显示
End Sub

Private Sub Check1_Click()
    If Check1.Value Then        '启用或者禁止快捷按钮所在的Frame
        Frame1.Enabled = False
        Frame2.Enabled = False
        Frame3.Enabled = False
        Frame4.Enabled = False
    Else
        Frame1.Enabled = True
        Frame2.Enabled = True
        Frame3.Enabled = True
        Frame4.Enabled = True
    End If
End Sub

Private Sub Command1_Click()
    AddAdmin.Show 1     '显示增加管理员窗体
End Sub

Private Sub Command10_Click()
    FixPay.Show 1     '显示增加修改月工资窗体
End Sub

Private Sub Command11_Click()
    DelPay.Show 1     '显示删除月工资窗体
End Sub

Private Sub Command12_Click()
    QueryPay.Show 1     '显示查询月工资窗体
End Sub

Private Sub Command13_Click()
    AddFixed.Show 1     '显示增加固定资产窗体
End Sub

Private Sub Command14_Click()
    fixFixed.Show 1     '显示修改固定资产窗体
End Sub

Private Sub Command15_Click()
    QueryFixed.Show 1     '显示查询固定资产窗体
End Sub

Private Sub Command16_Click()
    DelFixed.Show 1     '显示删除固定资产窗体
End Sub

Private Sub Command17_Click()
    AddCur.Show 1     '显示增加报销记录窗体
End Sub

Private Sub Command18_Click()
    QueryCur.Show 1     '显示查询报销记录窗体
End Sub

Private Sub Command19_Click()
    ExportCur.Show 1     '显示导出报销记录窗体
End Sub

Private Sub Command2_Click()
    AdminPass.Show 1     '显示修改管理员密码窗体
End Sub

Private Sub Command3_Click()
    Me.Hide
    AdminLogin.User.Text = ""       '登录窗体信息清空
    AdminLogin.Pass.Text = ""
    AdminLogin.Show     '显示注销(登录)窗体
End Sub

Private Sub Command4_Click()
    End     '退出管理系统
End Sub

Private Sub Command5_Click()
    WorkEvent.Show 1     '显示添加考勤记录窗体
End Sub

Private Sub Command6_Click()
    ChangeEvent.Show 1     '显示修改考勤记录窗体
End Sub

Private Sub Command7_Click()
    QueryEvent.Show 1     '显示查询考勤记录窗体
End Sub

Private Sub Command8_Click()
    CalcPay.Show 1     '显示计算工资窗体
End Sub

Private Sub Command9_Click()
    AddPay.Show 1     '显示增加月工资记录窗体
End Sub

Private Sub CurAsset_Click()
        sb1.Panels(1).Text = "流动资产管理"     '鼠标在"流动资产管理"菜单使状态条的提示文字显示
End Sub

Private Sub FixedAsset_Click()
        sb1.Panels(1).Text = "固定资产管理"     '显示增加管理员窗体
End Sub

Private Sub Form_Load()
    Me.Left = (Screen.Width - Me.ScaleWidth) / 2        '初始化窗体居中显示
    Me.Top = (Screen.Height - Me.ScaleHeight) / 2
    Me.Height = 8010
    Me.Width = 9945
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next        '当主窗体关闭时关闭数据库连接
    DbHandle.DbClose
    End
End Sub

Private Sub menu_AddAdmin_Click()
    AddAdmin.Show 1     '显示增加管理员窗体
End Sub

Private Sub menu_AddCur_Click()
    AddCur.Show 1     '显示增加报销记录窗体
End Sub

Private Sub menu_AddEvent_Click()
    WorkEvent.Show 1     '显示增加考勤记录窗体
End Sub

Private Sub menu_AddFixed_Click()
    AddFixed.Show 1     '显示修改考勤记录窗体
End Sub

Private Sub menu_AddPay_Click()
    AddPay.Show 1     '显示增加月工资窗体
End Sub

Private Sub menu_AdminPass_Click()
    AdminPass.Show 1     '显示修改管理员密码窗体
End Sub

Private Sub menu_CalcPay_Click()
    CalcPay.Show 1     '显示计算工资窗体
End Sub

Private Sub menu_ChangeEvent_Click()
    ChangeEvent.Show 1     '显示修改考勤记录窗体
End Sub

Private Sub menu_ChangeFixed_Click()
    fixFixed.Show 1     '显示修改固定资产窗体
End Sub

Private Sub menu_ChangePay_Click()
    FixPay.Show 1     '显示修改月工资窗体
End Sub

Private Sub menu_DelFixed_Click()
    DelFixed.Show 1     '显示删除固定资产窗体
End Sub

Private Sub menu_DelPay_Click()
    DelPay.Show 1     '显示删除月工资窗体
End Sub

Private Sub menu_Exit_Click()
    End      '退出管理系统
End Sub

Private Sub menu_ExportCur_Click()
    ExportCur.Show 1     '显示导出报销记录窗体
End Sub

Private Sub menu_Logout_Click()
    Me.Hide
    AdminLogin.User.Text = ""       '登录窗体信息清空
    AdminLogin.Pass.Text = ""
    AdminLogin.Show     '显示注销(登录)窗体
End Sub

Private Sub menu_MonthBln_Click()
    MonthBln.Show 1     '显示月底结算窗体
End Sub

Private Sub menu_QueryCur_Click()
    QueryCur.Show 1     '显示查询报销记录窗体
End Sub

Private Sub menu_QueryEvent_Click()
    QueryEvent.Show 1     '显示查询考勤记录窗体
End Sub

Private Sub menu_QueryFixed_Click()
    QueryFixed.Show 1     '显示查询固定资产窗体
End Sub

Private Sub menu_QueryPay_Click()
    QueryPay.Show 1     '显示查询月工资窗体
End Sub

Private Sub PayMan_Click()
        sb1.Panels(1).Text = "工资管理"     '鼠标在"工资管理"菜单使状态条的提示文字显示
End Sub