主要.frm

一间公司的管理系统的源码

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form zhuyao 
   Caption         =   "Form1"
   ClientHeight    =   4515
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   ScaleHeight     =   4515
   ScaleWidth      =   6885
   Begin MSComDlg.CommonDialog Dlg 
      Left            =   3120
      Top             =   480
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.Menu m01 
      Caption         =   "人力资源(&F)"
      Begin VB.Menu 员工档案 
         Caption         =   "员工档案管理"
      End
      Begin VB.Menu 奖惩情况 
         Caption         =   "员工奖惩情况"
      End
      Begin VB.Menu 考核情况 
         Caption         =   "员工考核情况"
      End
      Begin VB.Menu 工资档案 
         Caption         =   "员工工资档案"
      End
   End
   Begin VB.Menu m02 
      Caption         =   "客户资源(&C)"
      Begin VB.Menu 商户查询 
         Caption         =   "商户档案查询"
      End
      Begin VB.Menu 商户档案 
         Caption         =   "商户档案管理"
      End
   End
   Begin VB.Menu m03 
      Caption         =   "个人助理(&P)"
      Begin VB.Menu 工作计划 
         Caption         =   "工作计划"
      End
      Begin VB.Menu 我的日记 
         Caption         =   "我的日记"
      End
      Begin VB.Menu 我的通讯录 
         Caption         =   "我的通讯录"
      End
      Begin VB.Menu m03Bar1 
         Caption         =   "-"
      End
      Begin VB.Menu 修改密码 
         Caption         =   "修改密码"
      End
      Begin VB.Menu m03Bar2 
         Caption         =   "-"
      End
      Begin VB.Menu 重新登录 
         Caption         =   "重新登录"
      End
      Begin VB.Menu 退出系统 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu m04 
      Caption         =   "用品管理(&M)"
      Begin VB.Menu 领取用品 
         Caption         =   "领取办公用品"
      End
      Begin VB.Menu 查询用品 
         Caption         =   "查询领取情况"
      End
      Begin VB.Menu 管理用品 
         Caption         =   "管理用品种类"
      End
   End
   Begin VB.Menu m06 
      Caption         =   "其他(&O)"
      Begin VB.Menu 区号查询 
         Caption         =   "区号查询"
      End
      Begin VB.Menu 万年历 
         Caption         =   "万年历"
      End
      Begin VB.Menu m06Bar1 
         Caption         =   "-"
      End
      Begin VB.Menu 休闲娱乐 
         Caption         =   "休闲娱乐"
         Begin VB.Menu 扑克游戏 
            Caption         =   "扑克游戏"
         End
         Begin VB.Menu 空当接龙 
            Caption         =   "空当接龙"
         End
         Begin VB.Menu 扫雷游戏 
            Caption         =   "扫雷游戏"
         End
         Begin VB.Menu m06Bar11 
            Caption         =   "-"
         End
         Begin VB.Menu 单机五子棋 
            Caption         =   "单机五子棋"
         End
         Begin VB.Menu 网络五子棋 
            Caption         =   "网络五子棋"
         End
         Begin VB.Menu 潜艇大战 
            Caption         =   "潜艇大战"
         End
         Begin VB.Menu 俄罗斯方块 
            Caption         =   "俄罗斯方块"
         End
      End
      Begin VB.Menu m06Bar2 
         Caption         =   "-"
      End
      Begin VB.Menu 实用工具 
         Caption         =   "实用工具"
         Begin VB.Menu 计算器 
            Caption         =   "计算器"
         End
         Begin VB.Menu 电脑设置 
            Caption         =   "电脑设置"
         End
      End
      Begin VB.Menu m06Bar3 
         Caption         =   "-"
      End
      Begin VB.Menu 界面设置 
         Caption         =   "界面设置"
         Begin VB.Menu 背景色 
            Caption         =   "背景色"
            Begin VB.Menu mBG_color 
               Caption         =   "默认背景色"
               Index           =   0
            End
            Begin VB.Menu mBG_color 
               Caption         =   "红色"
               Index           =   1
            End
            Begin VB.Menu mBG_color 
               Caption         =   "绿色"
               Index           =   2
            End
            Begin VB.Menu mBG_color 
               Caption         =   "蓝色"
               Index           =   3
            End
            Begin VB.Menu mBG_color 
               Caption         =   "青色"
               Index           =   4
            End
            Begin VB.Menu mBG_color 
               Caption         =   "紫色"
               Index           =   5
            End
            Begin VB.Menu mBG_color 
               Caption         =   "粉色"
               Index           =   6
            End
            Begin VB.Menu m06Bar31 
               Caption         =   "-"
            End
            Begin VB.Menu 自定义背景色 
               Caption         =   "自定义背景色"
            End
         End
         Begin VB.Menu 背景图像 
            Caption         =   "背景图像"
            Begin VB.Menu mBG_img 
               Caption         =   "默认背景图像"
               Index           =   0
            End
            Begin VB.Menu mBG_img 
               Caption         =   "绿叶黄花"
               Index           =   1
            End
            Begin VB.Menu mBG_img 
               Caption         =   "夕阳西下"
               Index           =   2
            End
            Begin VB.Menu mBG_img 
               Caption         =   "蓝色幻想"
               Index           =   3
            End
            Begin VB.Menu mBG_img 
               Caption         =   "墨绿竹叶"
               Index           =   4
            End
            Begin VB.Menu mBG_img 
               Caption         =   "青青世界"
               Index           =   5
            End
            Begin VB.Menu mBG_img 
               Caption         =   "夏日荷花"
               Index           =   6
            End
            Begin VB.Menu m06Bar32 
               Caption         =   "-"
            End
            Begin VB.Menu 自定义背景图像 
               Caption         =   "自定义背景图像"
            End
         End
      End
   End
   Begin VB.Menu m07 
      Caption         =   "设置(&S)"
      Begin VB.Menu 帐号管理 
         Caption         =   "帐号管理"
      End
      Begin VB.Menu m07Bar1 
         Caption         =   "-"
      End
      Begin VB.Menu 日志管理 
         Caption         =   "日志管理"
      End
      Begin VB.Menu m07Bar2 
         Caption         =   "-"
      End
      Begin VB.Menu 数据备份 
         Caption         =   "数据备份"
      End
      Begin VB.Menu 数据恢复 
         Caption         =   "数据恢复"
      End
      Begin VB.Menu m07Bar3 
         Caption         =   "-"
      End
      Begin VB.Menu 系统设置 
         Caption         =   "系统设置"
      End
   End
End
Attribute VB_Name = "zhuyao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim iniLeft, iniTop, iniWidth, iniHeight, iniState, iniBgImg, iniBgColor As Long
Private Sub Form_Load()
'设置应用程序图标
Me.Icon = LoadPicture(App.Path & "\resource\logo.ico")

Call CheckLogin(Me)
Call SetCenter(Me)
Call zhuyaoSet(Me)

'读取INI文件设置信息
INIpath = App.Path + "\other\systemSet.ini"

Me.Left = GetIni("窗口", "x坐标", INIpath)
Me.Top = GetIni("窗口", "y坐标", INIpath)
Me.Width = GetIni("窗口", "宽度", INIpath)
Me.Height = GetIni("窗口", "高度", INIpath)
Me.WindowState = GetIni("窗口", "状态", INIpath)
'将INI的背景图像路径给变量IMGpath，退出时无更改则原样将IMGpath保存，防止背景图像路径丢失
IMGpath = GetIni("背景", "图像", INIpath)
'判断背景图像文件是否存在
If Dir(IMGpath, vbHidden + vbReadOnly) = "" Then
  MsgBox "背景图像已经删除、改名或移走！" & vbCr & vbCr & "请登录后重新设置背景图像……"
Else
'设置背景图像
Me.Picture = LoadPicture(IMGpath)
End If
'设置背景颜色
BGcolor = GetIni("背景", "颜色", INIpath)
Me.BackColor = BGcolor

'将登录信息写入日志
Call WriteLog

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'将当前状态信息写入INI文件
iniLeft = WriteIni("窗口", "x坐标", CStr(Me.Left), INIpath)
iniTop = WriteIni("窗口", "y坐标", CStr(Me.Top), INIpath)
iniWidth = WriteIni("窗口", "宽度", CStr(Me.Width), INIpath)
iniHeight = WriteIni("窗口", "高度", CStr(Me.Height), INIpath)
iniState = WriteIni("窗口", "状态", CStr(Me.WindowState), INIpath)
iniBgImg = WriteIni("背景", "图像", CStr(IMGpath), INIpath)
iniBgColor = WriteIni("背景", "颜色", CStr(BGcolor), INIpath)

'询问退出系统
Call CloseSystem(UnloadMode, Cancel)
End Sub

Private Sub mBG_color_Click(Index As Integer)
'去掉背景图像，用于显示出背景色
IMGpath = ""
Me.Picture = LoadPicture(IMGpath)
'设置背景颜色
Select Case Index
  Case 0
  '默认背景色
    BGcolor = 8438015
  Case 1
  '红色
    BGcolor = 255
  Case 2
  '绿色
    BGcolor = 51200
  Case 3
  '蓝色
    BGcolor = 13107200
  Case 4
  '青色
    BGcolor = 8182452
  Case 5
  '紫色
    BGcolor = 13107400
  Case 6
  '粉色
    BGcolor = 9211135
End Select
Me.BackColor = BGcolor
End Sub

Private Sub mBG_img_Click(Index As Integer)
Select Case Index
  Case 0
  '默认背景图像
    IMGpath = App.Path & "\resource\默认.jpg"
  Case 1
  '绿叶黄花
    IMGpath = App.Path & "\resource\绿叶黄花.jpg"
  Case 2
  '夕阳西下
    IMGpath = App.Path & "\resource\夕阳西下.jpg"
  Case 3
  '蓝色幻想
    IMGpath = App.Path & "\resource\蓝色幻想.jpg"
  Case 4
  '墨绿竹叶
    IMGpath = App.Path & "\resource\墨绿竹叶.jpg"
  Case 5
  '青青世界
    IMGpath = App.Path & "\resource\青青世界.jpg"
  Case 6
  '夏日荷花
    IMGpath = App.Path & "\resource\夏日荷花.jpg"
End Select
'设置背景图像
Me.Picture = LoadPicture(IMGpath)
End Sub

Private Sub 工作计划_Click()
jihua.Show 1
End Sub

Private Sub 计算器_Click()
Shell ("calc.exe"), vbNormalFocus
End Sub

Private Sub 奖惩情况_Click()
jiangcheng.Show 1
End Sub

Private Sub 空当接龙_Click()
Shell ("freecell.exe"), vbNormalFocus
End Sub

Private Sub 扑克游戏_Click()
Shell ("sol.exe"), vbNormalFocus
End Sub

Private Sub 区号查询_Click()
youbianquhao.Show 1
End Sub

Private Sub 日志管理_Click()
rzhi.Show 1
End Sub

Private Sub 扫雷游戏_Click()
Shell ("winmine.exe"), vbNormalFocus
End Sub

Private Sub 商户查询_Click()
shanghuchaxun.Show 1
End Sub

Private Sub 商户档案_Click()
shanghu.Show 1
End Sub

Private Sub 数据备份_Click()
shujuku.DB_Backup.Visible = True
shujuku.DB_Restore.Visible = False
shujuku.Show 1
End Sub

Private Sub 数据恢复_Click()
shujuku.DB_Backup.Visible = False
shujuku.DB_Restore.Visible = True
shujuku.Show 1
End Sub

Private Sub 退出系统_Click()
If MsgBox("真的要退出吗？", vbYesNo + vbQuestion) = vbYes Then
    End
End If
End Sub

Private Sub 万年历_Click()
rli.Show 1
End Sub

Private Sub 我的日记_Click()
rji.Show 1
End Sub

Private Sub 我的通讯录_Click()
tongxunlu.Show 1
End Sub

Private Sub 系统设置_Click()
xitong.Show 1
End Sub

Private Sub 修改密码_Click()
mima.Show 1
End Sub

Private Sub 员工档案_Click()
yuangong.Show 1
End Sub

Private Sub 帐号管理_Click()
zhanghao.Show 1
End Sub

Private Sub 重新登录_Click()
Unload Me
denglu.Show
End Sub

Private Sub 自定义背景色_Click()
DLG.ShowColor

    BGcolor = DLG.Color
    Me.BackColor = BGcolor
    Me.Picture = LoadPicture("")

End Sub

Private Sub 自定义背景图像_Click()
DLG.DialogTitle = "选择背景图像--" & App.Title & "--开发：张俊强  电话：[phone]"
DLG.Filter = "JPG图像(*.jpg)|*.jpg|BMP位图(*.bmp)|*.bmp|GIF图像(*.gif)|*.gif"
DLG.InitDir = App.Path & "\resource"
DLG.ShowOpen

If Len(Trim(DLG.FileName)) = 0 Then
    Exit Sub
Else
    IMGpath = DLG.FileName
    Me.Picture = LoadPicture(IMGpath)
End If
End Sub