frmmain.frm

员工个人信息管理

    MSFlxData.Col = 5
    MSFlxData.Text = "员工地址"
    MSFlxData.CellBackColor = RGB(255, 255, 255)
    
    MSFlxData.Row = 2
    For IntIndex = 1 To MSFlxData.Cols - 1
        MSFlxData.Col = IntIndex
        MSFlxData.Text = " "
    Next
    MSFlxData.MergeRow(2) = True
End Sub
'==========================================
'帮助信息
'==========================================
Private Sub aboutmeMemu_Click()
    frmAbout.Show vbModal
End Sub
'==========================================
'添加员工信息
'==========================================
Private Sub addinfoMenu_Click()
    'Dim EMPADD As New FrmEmpAdd
    'EMPADD.Show
    FrmEmpAdd.Show
    SbStatusBar.Panels(1).Text = "员工信息"
End Sub
'==========================================
'超级用户管理帐号
'==========================================
Private Sub adduserMenu_Click()
     SbStatusBar.Panels(1).Text = "添加新帐号"
     Frmadduser.Show vbModal
End Sub
'==========================================
'删除员工信息
'==========================================
Private Sub deletemeno_Click()
    SbStatusBar.Panels(1) = "删除员工信息"
    Dim i As String
    Dim j As String
    Dim strCode As String
    
    strCode = InputBox("请输入要删除的员工号码", "删除员工信息", vbModal)
    If strCode <> Empty Then
        strCode = CStr(strCode)
        If MsgBox("你确定要删除员工号为 " & strCode & " 的员工吗?", vbQuestion + vbOKCancel, "删除员工") = vbOK Then
            MSFlxData.Col = 1
            For IntIndex = 2 To MSFlxData.Rows - 1
                MSFlxData.Row = IntIndex
                If MSFlxData.Text = strCode Then
                    MSFlxData.RemoveItem (IntIndex)
                    Exit For
                End If
            Next
            MSFlxData.Col = 0
            For IntIndex = 3 To MSFlxData.Rows - 1
                MSFlxData.Row = IntIndex
                MSFlxData.Text = IntIndex - 2
            Next
            'MsgBox "删除 " & strCode & " 号员工完毕！", , "删除完成"
            SbStatusBar.Panels(1) = "就绪..."
            Exit Sub
        Else
            SbStatusBar.Panels(1) = "就绪..."
            Exit Sub
        End If
    Else
        SbStatusBar.Panels(1) = "就绪..."
    End If
End Sub
'==========================================
'退出登陆帐号
'==========================================
Private Sub exitloginMenu_Click()
    If MsgBox("你确定退出管理员登陆吗？", vbQuestion + vbOKCancel, "退出登陆") = vbOK Then
        gUserName = Empty
        gSuperUser = False
        SbStatusBar.Panels(2) = "操作员：" & Trim(CStr(gUserName))
        openfileMunu.Enabled = False
        savefileMenu.Enabled = False
        saveasfileMunu.Enabled = False
        adduserMenu.Enabled = False
        modifyPWDMenu.Enabled = False
        exitloginMenu.Enabled = False
        addinfoMenu.Enabled = False
        modifyinfoMenu.Enabled = False
        deletemeno.Enabled = False
        findinfoMenu.Enabled = False
        Dim IntIndex As Integer
        For IntIndex = 1 To 15
            Toolbar.Buttons(IntIndex).Enabled = False
        Next
        returnloginMenu.Enabled = True
    End If
End Sub
'==========================================
'退出程序
'==========================================
Private Sub exitMenu_Click()
    If MSFlxData.Rows > 3 Then
    Dim mExitOkCancel As String
    mExitOkCancel = MsgBox("是否保存数据？", vbQuestion + vbYesNoCancel, "退出程序")
        If mExitOkCancel = vbYes Then
            '调用保存数据函数
            End
        ElseIf mExitOkCancel = vbNo Then
            End
        Else
            Exit Sub
        End If
    Else
        End
    End If
End Sub
'==========================================
'查询员工信息
'==========================================
Private Sub findinfoMenu_Click()
    FrmFind.Show
    SbStatusBar.Panels(1) = "查询员工信息"
    If mPDfind Then
        Picdisplay.Visible = True
        mPDfind = False
    Else
        Picdisplay.Visible = False
        mPDfind = True
        SbStatusBar.Panels(1) = "就绪..."
        
    End If
End Sub
'==========================================
'帮助中的关于
'==========================================
Private Sub helpinfoMenu_Click()
    Call frmAbout.StartSysInfo
End Sub

Private Sub MDIForm_Load()
    If gSuperUser Then
        SbStatusBar.Panels(2) = "超级管理员：" & Trim(CStr(gUserName))
        adduserMenu.Enabled = True
        Toolbar.Buttons(11).Enabled = True
    Else
        SbStatusBar.Panels(2) = "操作员：" & Trim(CStr(gUserName))
        adduserMenu.Enabled = False
        Toolbar.Buttons(11).Enabled = False
    End If
    mPDfind = True
    Call IniGridStyle
    returnloginMenu.Enabled = False
    savefileMenu.Enabled = False
    saveasfileMunu.Enabled = False
    For IntIndex = 3 To 9
        Toolbar.Buttons(IntIndex).Enabled = False
    Next
    Picdisplay.Height = FrmMain.Height \ 2 - 1000
    
End Sub
'==========================================
'右键单击弹出信息
'==========================================
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton Then
        PopupMenu guanli
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
 If MSFlxData.Rows > 3 Then
    Dim mExitOkCancel As String
    mExitOkCancel = MsgBox("是否保存数据？", vbQuestion + vbYesNoCancel, "退出程序")
        If mExitOkCancel = vbYes Then
            '调用保存数据函数
            End
        ElseIf mExitOkCancel = vbNo Then
            End
        Else
            Exit Sub
        End If
    Else
        End
    End If
End Sub

'==========================================
'以下是排列窗口
'==========================================
Private Sub MnuAI_Click()
    Me.Arrange (vbArrangeIcons)
End Sub

Private Sub MnuCA_Click()
    Me.Arrange (vbCascade)
End Sub

Private Sub mnuIniDB_Click()
    Call IniDB
End Sub

Private Sub MnuLA_Click()
    Me.Arrange (vbTileHorizontal)
End Sub

Private Sub MnuVA_Click()
    Me.Arrange (vbTileVertical)
End Sub
'==========================================
'修改员工信息
'==========================================
Private Sub modifyinfoMenu_Click()
    SbStatusBar.Panels(1) = "修改员工信息"
    FrmEmpAdd.Show
End Sub
'==========================================
'修改用户密码
'==========================================
Private Sub modifyPWDMenu_Click()
    SbStatusBar.Panels(1) = "修改密码"
    FrmmodifyPWD.Show vbModal
End Sub
Private Sub MSFlxData_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton Then
        PopupMenu guanli
    End If
End Sub
'==========================================
'新建员工信息
'==========================================
Private Sub NewFileMenu_Click()
    SbStatusBar.Panels(1) = "员工信息"
    savefileMenu.Enabled = True
    saveasfileMunu.Enabled = True
    Picdisplay.Visible = True
    mPDfind = False
    For IntIndex = 3 To 9
        Toolbar.Buttons(IntIndex).Enabled = True
    Next
    FrmEmpAdd.Show
End Sub
'==========================================
'打开文件
'==========================================
Private Sub openfileMunu_Click()
    SbStatusBar.Panels(1) = "打开文件"

    CommonDialog.ShowOpen
    mFileName = CommonDialog.FileName
    If mFileName = Empty Then
        Exit Sub
    Else
        savefileMenu.Enabled = True
        saveasfileMunu.Enabled = True
        For IntIndex = 3 To 9
            Toolbar.Buttons(IntIndex).Enabled = True
        Next
    End If
    SbStatusBar.Panels(1) = "就绪..."
End Sub
'==========================================
'窗口MSFlexGrid调整大小
'==========================================
Private Sub Picdisplay_Resize()
On Error Resume Next
    Dim IntIndex As Long
    Picdisplay.Height = FrmMain.Height \ 2 - 1000
    MSFlxData.Height = Picdisplay.Height
    MSFlxData.Width = Picdisplay.Width
    MSFlxData.Left = Picdisplay.Left
    MSFlxData.Top = 0
    MSFlxwidth = (MSFlxData.Width - 900) / 5 - 350
    For IntIndex = 1 To MSFlxData.Cols - 2
    'If MSFlxwidth <> 0 Or MSFlxwidth <> Empty Then
        MSFlxData.ColWidth(IntIndex) = MSFlxwidth
    'End If
    Next
    MSFlxData.ColWidth(MSFlxData.Cols - 1) = MSFlxwidth + 1900
End Sub
'==========================================
'重新登陆
'==========================================
Private Sub returnloginMenu_Click()
    Unload FrmMain
    FrmLogin.Show
End Sub
'==========================================
'文件另存为
'==========================================
Private Sub saveasfileMunu_Click()
    SbStatusBar.Panels(1) = "文件另存为"
    CommonDialog.ShowSave
    'MsgBox CommonDialog.FileName
    
    SbStatusBar.Panels(1) = "就绪..."
End Sub
'==========================================
'工具栏
'==========================================
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
        Case "新建文件"
            Call NewFileMenu_Click
        Case "打开文件"
            Call openfileMunu_Click
        Case "保存文件"
            SbStatusBar.Panels(1) = "保存文件"
            CommonDialog.ShowSave
            SbStatusBar.Panels(1) = "就绪..."
        Case "另存文件"
            Call saveasfileMunu_Click
            
        Case "添加员工"
            Call addinfoMenu_Click
        Case "修改员工"
            Call modifyinfoMenu_Click
        Case "删除员工"
            Call deletemeno_Click
        Case "查询员工"
            Call findinfoMenu_Click
        Case "新建帐号"
            Call adduserMenu_Click
        Case "修改密码"
            Call modifyPWDMenu_Click
            
        Case "显示窗口"
            Picdisplay.Visible = True
            mPDfind = False
        Case "关闭窗口"
            Picdisplay.Visible = False
            mPDfind = True
        Case "退出程序"
            End
    End Select
End Sub

'===============================================================================================================
'                                                   遗留问题
'文件打开 (如何定位到本程序所在目录)
'文件保存 (主要问题是如何和另存为选择使用的问题)
'文件另存为 (如何设置默认文件类型)
'===============================================================================================================