frm1gzsz.frm

采用VB6.0开发,是一个简单的人事管理系统.

      Height          =   240
      Left            =   8700
      TabIndex        =   47
      Top             =   4620
      Width           =   2475
   End
End
Attribute VB_Name = "frm1GZSZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描    述：企事业单位人事管理系统 Ver 2007
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************

Dim addLVW As ListItem
Dim SQL As String
Dim GZIDCD As Integer '工资ID传递
Dim GZGIDCD As Integer '职工ID传递



Private Sub cmdCZ_Click() '查找记录
SQL = "select gzid,gzgid,姓名,职务,单位,部门,开户银行,银行帐号 from 工资管理表 where " & Me.comXM.Text & " like '%" & Me.txtCZ & "%'"
Call addGZXX
End Sub

Private Sub cmdXZ_Click()
If Index = 0 Then frm1GZSZXZ.Show 1 '打开选择窗口
End Sub

Private Sub Form_Initialize()
Call InitCommonControls 'XP效果
End Sub




Private Sub Form_Load()
Me.Icon = MDIfrm.Icon '图标
'添加combo
Me.comXM.AddItem "姓名"
Me.comXM.AddItem "单位"
Me.comXM.AddItem "部门"
Me.comXM.ListIndex = 0

'添加银行名称
Call OpenConn
SQL1 = "select 银行名称 from 银行设置"
rs.Open SQL1, cn, 1, 1
Do While Not rs.EOF
    Me.comKHYH.AddItem rs!银行名称
    rs.MoveNext
Loop
Call CloseConn

'设定工具栏
Me.Toolbar1.Buttons(2).Enabled = False
Me.Toolbar1.Buttons(3).Enabled = False
Me.Toolbar1.Buttons(4).Enabled = False

'初始化列表

With Me.lvwGZXX
    .ColumnHeaders.Add = "序号"
    .ColumnHeaders.Add = "gzid"
    .ColumnHeaders.Add = "gzgid"
    .ColumnHeaders.Add = "姓名"
    .ColumnHeaders.Add = "职务"
    .ColumnHeaders.Add = "单位"
    .ColumnHeaders.Add = "部门"
    .ColumnHeaders.Add = "开户银行"
    .ColumnHeaders.Add = "银行帐号"
    .ColumnHeaders(1).Width = 1000
    .ColumnHeaders(2).Width = 0
    .ColumnHeaders(3).Width = 0
    .ColumnHeaders(9).Width = 2500
    
End With

SQL = "select gzid,gzgid,姓名,职务,单位,部门,开户银行,银行帐号 from 工资管理表"

Call addGZXX '添加lvwGZXX列表信息

End Sub



Private Sub lvwGZXX_Click()
If Me.lvwGZXX.ListItems.Count <= 0 Then Exit Sub

Me.Toolbar1.Buttons(1).Enabled = True
Me.Toolbar1.Buttons(2).Enabled = True
Me.Toolbar1.Buttons(3).Enabled = False
Me.Toolbar1.Buttons(4).Enabled = True
Me.Frame1.Enabled = False

GZIDCD = Me.lvwGZXX.SelectedItem.SubItems(1)

SQL = "select * from 工资管理表 where gzid=" & GZIDCD
Call OpenConn
    rs.Open SQL, cn, 1, 1
            GZGIDCD = rs!gzgid
            Me.Text1(0).Text = rs!姓名
            Me.Text1(1).Text = rs!职务
            Me.Text1(2).Text = rs!单位
            Me.Text1(3).Text = rs!部门
            Me.comKHYH.Text = rs!开户银行
            Me.Text1(4).Text = rs!银行帐号
            For i = 5 To 16
                 Me.Text1(i).Text = rs.Fields(i + 3)
            Next
Call CloseConn


End Sub

Private Sub Text1_Change(Index As Integer)
If Index = 0 Then
    Me.Text1(1).Text = ""
    Me.Text1(2).Text = ""
    Me.Text1(3).Text = ""
    Me.Tag = 0
End If
    
If Index >= 5 Then
    If IsNumeric(Me.Text1(Index).Text) = False Then
            Me.Text1(Index).Text = 0
    End If
        Me.labYFHJ.Caption = "应发合计：" & Format(Val(Me.Text1(5).Text) + Val(Me.Text1(6).Text) + Val(Me.Text1(7).Text) + Val(Me.Text1(8).Text) + Val(Me.Text1(9).Text), "0.00")
        Me.labYKHJ.Caption = "应扣合计：" & Format(Val(Me.Text1(10).Text) + Val(Me.Text1(11).Text) + Val(Me.Text1(12).Text) + Val(Me.Text1(13).Text) + Val(Me.Text1(14).Text) + Val(Me.Text1(15).Text) + Val(Me.Text1(16).Text), "0.00")
End If
End Sub


Private Sub Text1_GotFocus(Index As Integer)
If Index >= 5 Then
    Me.Text1(Index).SelStart = 0  '文本框中的文本全部选中
    Me.Text1(Index).SelLength = Len(Me.Text1(Index).Text)
End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

    Case Is = 1 '新增按钮
        Me.Frame1.Enabled = True
        For i = 0 To 16
            Me.Text1(i).Text = ""
        Next
        Me.comKHYH.Text = ""
        Me.Toolbar1.Buttons(1).Enabled = False
        Me.Toolbar1.Buttons(2).Enabled = False
        Me.Toolbar1.Buttons(3).Enabled = True
        Me.Toolbar1.Buttons(4).Enabled = False
        GZIDCD = 0
        
    Case Is = 2 '修改按钮
        Me.Frame1.Enabled = True
        Me.Toolbar1.Buttons(1).Enabled = False
        Me.Toolbar1.Buttons(2).Enabled = False
        Me.Toolbar1.Buttons(3).Enabled = True
        Me.Toolbar1.Buttons(4).Enabled = False
        
    Case Is = 3 '保存按钮
    
        If Me.Text1(0).Text = "" Then
            MsgBox "保存失败，姓名不能为空！", 48, "提示"
            'Me.Text1(0).SetFocus
            Exit Sub
        End If
        If Me.Text1(2).Text = "" Or Me.Text1(3).Text = "" Then
            MsgBox "保存失败，请选择单位和部门！", 48, "提示"
            Exit Sub
        End If
        
        If GZIDCD = 0 Then '如果是新记录
            SQL = "select * from 工资管理表"
            Call OpenConn
                rs.Open SQL, cn, 3, 3
                rs.AddNew
                rs!gzgid = Me.Tag
                rs!姓名 = Me.Text1(0).Text
                rs!职务 = Me.Text1(1).Text
                rs!单位 = Me.Text1(2).Text
                rs!部门 = Me.Text1(3).Text
                rs!开户银行 = Me.comKHYH.Text
                rs!银行帐号 = Me.Text1(4).Text
                For i = 5 To 16
                    rs.Fields(i + 3) = Me.Text1(i).Text
                Next
                rs.Update
            Call CloseConn
             MsgBox "保存成功！", 64, "提示"
        Else '如果是修改记录
            SQL = "select * from 工资管理表 where gzid=" & GZIDCD
            Call OpenConn
                rs.Open SQL, cn, 3, 3
                rs!gzgid = GZGIDCD
                rs!姓名 = Me.Text1(0).Text
                rs!职务 = Me.Text1(1).Text
                rs!单位 = Me.Text1(2).Text
                rs!部门 = Me.Text1(3).Text
                rs!开户银行 = Me.comKHYH.Text
                rs!银行帐号 = Me.Text1(4).Text
                For i = 5 To 16
                    rs.Fields(i + 3) = Me.Text1(i).Text
                Next
                rs.Update
            Call CloseConn
             MsgBox "保存成功！", 64, "提示"
         End If
            For i = 0 To 16 '清空
                Me.Text1(i).Text = ""
            Next
            Me.comKHYH.Text = "" '清空
            
            Me.Frame1.Enabled = False
            
            SQL = "select gzid,gzgid,姓名,职务,单位,部门,开户银行,银行帐号 from 工资管理表 where " & Me.comXM.Text & " like '%" & Me.txtCZ & "%'"
            Call addGZXX
            
            Me.Toolbar1.Buttons(1).Enabled = True
            Me.Toolbar1.Buttons(2).Enabled = False
            Me.Toolbar1.Buttons(3).Enabled = False
            Me.Toolbar1.Buttons(4).Enabled = False

    Case Is = 4 '删除记录按钮
        If GZIDCD = 0 Then
            MsgBox "请选择要删除的记录！", 48, "提示"
            Exit Sub
        End If
        msg = MsgBox("确定要删除该记录吗？", vbYesNo + 64, "询问")
        If msg = vbNo Then Exit Sub
        Call OpenConn
            cn.Execute ("delete * from 工资管理表 where gzid=" & GZIDCD)
        Call CloseConn
        
        SQL = "select gzid,gzgid,姓名,职务,单位,部门,开户银行,银行帐号 from 工资管理表 where " & Me.comXM.Text & " like '%" & Me.txtCZ & "%'"
        Call addGZXX
        
        For i = 0 To 16
            Me.Text1(i).Text = ""
        Next
        Me.comKHYH.Text = ""
        
        Me.Toolbar1.Buttons(1).Enabled = True
        Me.Toolbar1.Buttons(2).Enabled = False
        Me.Toolbar1.Buttons(3).Enabled = False
        Me.Toolbar1.Buttons(4).Enabled = False
        
        GZIDCD = 0
        
    Case Is = 6
        frm1YHSZ.Show 1
        
    Case Is = 7 '导出Excel
        Call openXLT("dagz.xlt")
        Call OpenConn
        SQL1 = "select * from 工资管理表"
        rs.Open SQL1, cn, 1, 1
        i = 4
        Do While Not rs.EOF
            For j = 1 To 18
                xlsheet.Cells(i, j) = rs.Fields(j + 1)
            Next
            rs.MoveNext
            i = i + 1
        Loop
        Call CloseConn
        Call closeXLT
        
    Case Is = 8
        Unload Me
        
End Select
End Sub

Private Sub addGZXX() '添加lvwZGXX列表过程

Me.lvwGZXX.ListItems.Clear

Call OpenConn
i = 1
    rs.Open SQL, cn, 1, 1
    Do While Not rs.EOF
        Set addLVW = Me.lvwGZXX.ListItems.Add(, , i, , 5)
            addLVW.SubItems(1) = rs!GZID
            addLVW.SubItems(2) = rs!gzgid
            addLVW.SubItems(3) = rs!姓名
            addLVW.SubItems(4) = rs!职务
            addLVW.SubItems(5) = rs!单位
            addLVW.SubItems(6) = rs!部门
            addLVW.SubItems(7) = rs!开户银行
            addLVW.SubItems(8) = rs!银行帐号
            rs.MoveNext
            i = i + 1
    Loop
    Me.labCOUNT.Caption = "符合条件记录： " & rs.RecordCount & " 条"
Call CloseConn
End Sub