frmmain.frm

企业人士管理信息系统 VB+SQL 有网友提供。经过改进 共享

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "企业人事管理信息系统"
   ClientHeight    =   5256
   ClientLeft      =   132
   ClientTop       =   732
   ClientWidth     =   6696
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   264
      Left            =   0
      TabIndex        =   0
      Top             =   4992
      Width           =   6696
      _ExtentX        =   11811
      _ExtentY        =   466
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6202
            Text            =   "Status"
            TextSave        =   "Status"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2001-10-31"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "14:27"
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系统"
      Begin VB.Menu menuAdduser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu menuModifypwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu menuManrecord 
      Caption         =   "员工基本信息"
      Begin VB.Menu menuAddrecord 
         Caption         =   "添加员工信息"
      End
      Begin VB.Menu menuModifyrecord 
         Caption         =   "修改员工信息"
      End
      Begin VB.Menu menuDelete 
         Caption         =   "删除员工信息"
      End
      Begin VB.Menu menuInquirerecord 
         Caption         =   "员工信息查询"
      End
   End
   Begin VB.Menu menuCheck 
      Caption         =   "员工考勤管理"
      Begin VB.Menu menuAddcheck 
         Caption         =   "添加考勤信息"
      End
      Begin VB.Menu menuModifychek 
         Caption         =   "修改考勤信息"
      End
      Begin VB.Menu menuDeletecheck 
         Caption         =   "删除考勤信息"
      End
      Begin VB.Menu menuInquirechek 
         Caption         =   "考勤信息查询"
      End
   End
   Begin VB.Menu menuManapprise 
      Caption         =   "员工工作评价管理"
      Begin VB.Menu menuAddapprise 
         Caption         =   "添加工作评价信息"
      End
      Begin VB.Menu menuModifyapprise 
         Caption         =   "修改工作评价信息"
      End
      Begin VB.Menu menuDeleteapprise 
         Caption         =   "删除工作评价信息"
      End
      Begin VB.Menu menuInquireapprise 
         Caption         =   "工作评价信息查询"
      End
   End
   Begin VB.Menu menuPay 
      Caption         =   "员工工资管理"
      Begin VB.Menu menuAddpay 
         Caption         =   "计发员工工资信息"
      End
      Begin VB.Menu menuModifypay 
         Caption         =   "修改员工工资信息"
      End
      Begin VB.Menu menuInquirepay 
         Caption         =   "员工工资信息查询"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助"
      Begin VB.Menu menuAbout 
         Caption         =   "About"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    flagEdit = False
    
End Sub





Private Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
    Unload Me
End Sub

Private Sub menuAddapprise_Click()
    gintMode = 1
    frmManApp1.Show
    frmManApp1.ZOrder 0
End Sub

Private Sub menuAddcheck_Click()
    gintMode = 1
    frmCheck1.Show
    frmCheck1.ZOrder 0
End Sub

Private Sub menuAddpay_Click()
    gintMode = 1
    frmPay1.Show
    frmPay1.ZOrder 0
End Sub

Private Sub menuAddrecord_Click()
    gintMode = 1
    frmManRecord1.Show
    frmManRecord1.ZOrder 0
End Sub

Private Sub menuDelete_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManRecord.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManRecord.msgList.Row
                txtSQL = "delete from manrecord where ygid='" & Trim(frmManRecord.msgList.TextMatrix(frmManRecord.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManRecord.txtSQL = "select * from manrecord"
                flagEdit = True
                frmManRecord.ShowTitle
                frmManRecord.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
        
End Sub

Private Sub menuDeleteapprise_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmManApp.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmManApp.msgList.Row
                txtSQL = "delete from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
                flagEdit = True
                
                frmManApp.ShowTitle
                frmManApp.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Private Sub menuDeletecheck_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim intCount As Integer
    Dim mrc As ADODB.Recordset
    
    If flagEdit Then
        If frmCheck.msgList.Rows > 1 Then
            If MsgBox("真的要删除这条文件记录么？", vbOKCancel + vbExclamation, "警告") = vbOK Then
                intCount = frmCheck.msgList.Row
                txtSQL = "delete from checkin where kqid='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                
                frmCheck.txtSQL = "select * from checkin"
                flagEdit = True
                
                frmCheck.ShowTitle
                frmCheck.ShowData
                
            End If
        End If
    Else
        MsgBox "请选择要删除的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
End Sub

Private Sub menuInquireapprise_Click()
    frmManApp2.Show
End Sub

Private Sub menuInquirechek_Click()
    frmCheck2.Show
End Sub

Private Sub menuInquirepay_Click()
    frmPay2.Show
End Sub

Private Sub menuInquirerecord_Click()
    frmManRecord2.Show
End Sub

Private Sub menuModifyapprise_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManApp.msgList.Rows > 1 Then
            
            intCount = frmManApp.msgList.Row
            frmManApp1.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise where pjno='" & Trim(frmManApp.msgList.TextMatrix(frmManApp.msgList.Row, 1)) & "'"
            frmManApp1.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManApp.txtSQL = "select pjno,pjdept,pjid,pjname,pjdate,pjresult,pjposition,pjlevel,pjother1,pjother2,pjremark from manappraise"
        frmManApp.Show
        frmManApp.ZOrder 0
    End If
End Sub

Private Sub menuModifychek_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmCheck.msgList.Rows > 1 Then
            
            intCount = frmCheck.msgList.Row
            frmCheck1.txtSQL = "select * from checkin where kqid='" & Trim(frmCheck.msgList.TextMatrix(frmCheck.msgList.Row, 1)) & "'"
            frmCheck1.Show
        Else
            Call menuAddcheck_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmCheck.txtSQL = "select * from checkin"
        frmCheck.Show
        frmCheck.ZOrder 0
    End If
End Sub

Private Sub menuModifypay_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmPay.msgList.Rows > 1 Then
            intCount = frmPay.msgList.Row
            frmPay1.txtSQL = "select * from pay where gzid='" & Trim(frmPay.msgList.TextMatrix(frmPay.msgList.Row, 1)) & "' and gzdate='" & Format(frmPay.msgList.TextMatrix(intCount, 16), "yyyy-mm-dd") & "'"
            frmPay1.Show
            
            
            
        Else
            Call menuAddpay_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmPay.txtSQL = "select * from pay"
        frmPay.Show
        frmPay.ZOrder 0
    End If
End Sub

Private Sub menuModifyrecord_Click()
    Dim intCount As Integer
    
    If flagEdit Then
        gintMode = 2
        If frmManRecord.msgList.Rows > 1 Then
            
            intCount = frmManRecord.msgList.Row
            frmManRecord1.txtSQL = "select * from manrecord where ygid='" & Trim(frmManRecord.msgList.TextMatrix(frmManRecord.msgList.Row, 1)) & "'"
            frmManRecord1.Show
        Else
            Call menuAddrecord_Click
        End If
    Else
        MsgBox "请选择要修改的记录？", vbOKOnly + vbExclamation, "警告"
        frmManRecord.txtSQL = "select * from manrecord"
        frmManRecord.Show
        frmManRecord.ZOrder 0
    End If
End Sub