企业管理

开发平台：
Visual Basic

MainForm.frm：源码内容
							VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form MainForm 
   Caption         =   "财务管理系统"
   ClientHeight    =   7320
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9825
   Icon            =   "MainForm.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   7320
   ScaleWidth      =   9825
   Begin VB.Frame Frame5 
      Height          =   1095
      Left            =   7560
      TabIndex        =   24
      Top             =   5760
      Width           =   2055
      Begin VB.CheckBox Check1 
         Caption         =   "禁用快捷按钮"
         Height          =   375
         Left            =   360
         TabIndex        =   25
         Top             =   360
         Width           =   1455
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "流动资产快捷按钮"
      Height          =   1095
      Left            =   120
      TabIndex        =   4
      Top             =   5760
      Width           =   7215
      Begin VB.CommandButton Command19 
         Caption         =   "导出报销记录"
         Height          =   495
         Left            =   4920
         TabIndex        =   23
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command18 
         Caption         =   "查询报销记录"
         Height          =   495
         Left            =   2640
         TabIndex        =   22
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command17 
         Caption         =   "增加报销记录"
         Height          =   495
         Left            =   360
         TabIndex        =   21
         Top             =   360
         Width           =   2055
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "固定资产快捷按钮"
      Height          =   1095
      Left            =   120
      TabIndex        =   3
      Top             =   4560
      Width           =   9495
      Begin VB.CommandButton Command16 
         Caption         =   "固定资产记录删除"
         Height          =   495
         Left            =   7200
         TabIndex        =   20
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command15 
         Caption         =   "固定资产查询"
         Height          =   495
         Left            =   4920
         TabIndex        =   19
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command14 
         Caption         =   "修改固定资产记录"
         Height          =   495
         Left            =   2640
         TabIndex        =   18
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command13 
         Caption         =   "增加固定资产记录"
         Height          =   495
         Left            =   360
         TabIndex        =   17
         Top             =   360
         Width           =   2055
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "工资管理快捷按钮"
      Height          =   1815
      Left            =   120
      TabIndex        =   2
      Top             =   2640
      Width           =   9495
      Begin VB.CommandButton Command12 
         Caption         =   "查询工资记录"
         Height          =   495
         Left            =   4920
         TabIndex        =   16
         Top             =   1080
         Width           =   2055
      End
      Begin VB.CommandButton Command11 
         Caption         =   "删除工资记录"
         Height          =   495
         Left            =   7200
         TabIndex        =   15
         Top             =   1080
         Width           =   2055
      End
      Begin VB.CommandButton Command10 
         Caption         =   "修改工资记录"
         Height          =   495
         Left            =   2640
         TabIndex        =   14
         Top             =   1080
         Width           =   2055
      End
      Begin VB.CommandButton Command9 
         Caption         =   "增加工资记录"
         Height          =   495
         Left            =   360
         TabIndex        =   13
         Top             =   1080
         Width           =   2055
      End
      Begin VB.CommandButton Command8 
         Caption         =   "计算工资"
         Height          =   495
         Left            =   7200
         TabIndex        =   12
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command7 
         Caption         =   "查询考勤记录"
         Height          =   495
         Left            =   4920
         TabIndex        =   11
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command6 
         Caption         =   "修改考勤记录"
         Height          =   495
         Left            =   2640
         TabIndex        =   10
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command5 
         Caption         =   "增加考勤记录"
         Height          =   495
         Left            =   360
         TabIndex        =   9
         Top             =   360
         Width           =   2055
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "管理员选项快捷按钮"
      Height          =   1095
      Left            =   120
      TabIndex        =   1
      Top             =   1440
      Width           =   9495
      Begin VB.CommandButton Command4 
         Caption         =   "退出系统"
         Height          =   495
         Left            =   7200
         TabIndex        =   8
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command3 
         Caption         =   "管理员注销"
         Height          =   495
         Left            =   4920
         TabIndex        =   7
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command2 
         Caption         =   "更管理员密码"
         Height          =   495
         Left            =   2640
         TabIndex        =   6
         Top             =   360
         Width           =   2055
      End
      Begin VB.CommandButton Command1 
         Caption         =   "增加管理员"
         Height          =   495
         Left            =   360
         TabIndex        =   5
         Top             =   360
         Width           =   2055
      End
   End
   Begin MSComctlLib.StatusBar sb1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6945
      Width           =   9825
      _ExtentX        =   17330
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   8819
            MinWidth        =   8819
            Picture         =   "MainForm.frx":08CA
            Text            =   "财务管理系统 v1.00"
            TextSave        =   "财务管理系统 v1.00"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
            TextSave        =   "2004-2-2"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   3
            Alignment       =   1
            Enabled         =   0   'False
            TextSave        =   "INS"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Alignment       =   1
            AutoSize        =   1
            Bevel           =   0
            Enabled         =   0   'False
            TextSave        =   "CAPS"
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   1005
      Left            =   240
      Picture         =   "MainForm.frx":17A4
      Stretch         =   -1  'True
      Top             =   240
      Width           =   9360
   End
   Begin VB.Menu AdminOption 
      Caption         =   "管理员选项"
      Begin VB.Menu menu_AddAdmin 
         Caption         =   "增加管理员"
      End
      Begin VB.Menu menu_AdminPass 
         Caption         =   "更改登录密码"
      End
      Begin VB.Menu s1 
         Caption         =   "-"
      End
      Begin VB.Menu menu_Logout 
         Caption         =   "管理员注销"
      End
      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

						