frmckd.frm

人事管理系统

    End If
End Sub

Private Sub DataGrid1_Error(ByVal DataError As Integer, Response As Integer)
    Response = 0
End Sub

Private Sub DataGrid1_OnAddNew()
    
    If YJBM = "服务管理部" And EJBM = "物资组" Then
        If pdbh = "" Then Exit Sub
        jsbm = Combo1.Text
        RQ = DTPicker1.Value
        Adodc1.Recordset.Fields("凭单编号") = pdbh
        Adodc1.Recordset.Fields("接收部门") = jsbm
        Adodc1.Recordset.Fields("出库日期") = RQ
        Adodc1.Recordset.Fields("是否报废") = 0
        Adodc1.Recordset.Fields("是否退库") = 0
        Adodc1.Recordset.Fields("盘亏") = "0"
        Adodc1.Recordset.Fields("处理状态") = "已处理"
    Else
        'jsbm = Combo1.Text
        RQ = DTPicker1.Value
        Adodc1.Recordset.Fields("出库日期") = RQ
        'If pdbh2 = "0" Then Exit Sub
        Adodc1.Recordset.Fields("凭单编号") = pdbh2
        Adodc1.Recordset.Fields("接收部门") = jsbm
        Adodc1.Recordset.Fields("处理状态") = "待处理"
    End If
'Adodc1.Recordset.Fields("领用类别") = Combo2.Text

End Sub



Private Sub Exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
        StrFLG = 0
        If YJBM = "服务管理部" And EJBM = "物资组" Then
            Sql = "select * from 出库凭单表 where 处理状态='待处理'"
            Set rs = ConnWZ.Execute(Sql)
            If Not rs.EOF Then
                Command3.BackColor = &HFF00&   ' RGB(0, 255, 0)
                Command3.Enabled = True
            End If
            Sql = "select * from 商品目录表"
            Set rs = ConnWZ.Execute(Sql)
            Do While Not rs.EOF
                spmcc = rs("名称")
                sql1 = "select * from 入库明细表 where 名称='" & spmcc & "'"
                Set RsKCCKCX = ConnWZ.Execute(sql1)
                Do While Not RsKCCKCX.EOF
                    sll = sll + Val(RsKCCKCX("数量"))
                    RsKCCKCX.MoveNext
                Loop
                sql1 = "select * from 出库明细表 where 名称='" & spmcc & "'"
                Set RsKCCKCX = ConnWZ.Execute(sql1)
                Do While Not RsKCCKCX.EOF
                    sll = sll - Val(RsKCCKCX("数量"))
                    RsKCCKCX.MoveNext
                Loop
                zdccl = Val(rs("最低存储"))
                zgccl = Val(rs("最高存储"))
                If sll < zdccl Then
                    Result = MsgBox(Trim(spmcc) & "的数量为" & sll & "." & "该商品短缺！继续查看吗？", vbYesNo)
                    If Result = 7 Then
                        Exit Do
                    End If
                End If
                If sll > zgccl Then
                    Result = MsgBox(Trim(spmcc) & "的数量为" & sll & "." & "该商品积压！继续查看吗？", vbYesNo)
                    If Result = 7 Then
                        Exit Do
                    End If
                End If
                
                rs.MoveNext
                sll = 0
            Loop
            Sql = "select max(凭单编号) from 出库凭单表"
            Set Rsrkpd = ConnWZ.Execute(Sql)
            If Rsrkpd.EOF Then Exit Sub
            If IsNull(Rsrkpd(0)) = False Then
                pdbh2 = Rsrkpd(0) + 1
            Else
                pdbh2 = 1
            End If
            pdbh = pdbh2
            DTPicker1.Value = Date
            Sql = "select * from 部门维护表"
            Set rs = ConnWZ.Execute(Sql)
            Do While Not rs.EOF
                Combo1.AddItem rs("部门名称")
                rs.MoveNext
            Loop
            sqlyg = "select * from 员工表 where 二级部门='物资组'"
            Set rsyg = ConnWZ.Execute(sqlyg)
            Do While Not rsyg.EOF
                ComboKJ.AddItem rsyg("员工姓名")
                ComboBGY.AddItem rsyg("员工姓名")
                rsyg.MoveNext
            Loop
        Else
                Sql = "select max(凭单编号) from 出库凭单表"
                Set Rsrkpd = ConnWZ.Execute(Sql)
                If Rsrkpd.EOF Then Exit Sub
                If IsNull(Rsrkpd(0)) = False Then
                    pdbh2 = Rsrkpd(0) + 1
                Else
                    pdbh2 = 1
                End If
                Frame8.Visible = False
                
                DataGrid1.Columns("商品编号").Locked = True
                DataGrid1.Columns("物资大类").Locked = True
                DataGrid1.Columns("物资子类").Locked = True
                DataGrid1.Columns("单位").Locked = True
                DataGrid1.Columns("规格型号").Locked = True
                DataGrid1.Columns("单价").Locked = True
                DataGrid1.Columns("金额").Locked = True
                DataGrid1.Columns("备注").Locked = True
                ComboKJ.Locked = True
                ComboBGY.Locked = True
                Command3.Visible = False
                DTPicker1.Value = Date
                If YJBM = "总经理办公室" Then
                    Combo1.Text = "总经理办公室"
                    Label1 = "物品领用单"
                    sqlyg = "select * from 员工表 where 一级部门='总经理办公室' and 岗位='部门经理'"
                    Set rsyg = ConnWZ.Execute(sqlyg)
                    Do While Not rsyg.EOF
                        ComboZG.AddItem rsyg("员工姓名")
                        rsyg.MoveNext
                    Loop
                    sqlyg = "select * from 员工表 where 一级部门='总经理办公室'"
                    Set rsyg = ConnWZ.Execute(sqlyg)
                    Do While Not rsyg.EOF
                        JSRR.AddItem rsyg("员工姓名")
                        rsyg.MoveNext
                    Loop
                End If
                If YJBM = "动物部" Then
                    Combo1.Text = "动物部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "通用公司" Then
                    Combo1.Text = "通用公司"
                    Label1 = "物品领用单"
                End If
                If YJBM = "人力资源部" Then
                    Combo1.Text = "人力资源部"
                    Label1 = "物品领用单"
                    sqlyg = "select * from 员工表 where 一级部门='人力资源部' and 岗位='部门经理'"
                    Set rsyg = ConnWZ.Execute(sqlyg)
                    Do While Not rsyg.EOF
                        ComboZG.AddItem rsyg("员工姓名")
                        rsyg.MoveNext
                    Loop
                    sqlyg = "select * from 员工表 where 一级部门='人力资源部'"
                    Set rsyg = ConnWZ.Execute(sqlyg)
                    Do While Not rsyg.EOF
                        JSRR.AddItem rsyg("员工姓名")
                        rsyg.MoveNext
                    Loop
                End If
                If YJBM = "商品部" Then
                    Combo1.Text = "商品部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "水族部" Then
                    Combo1.Text = "水族部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "设备工程部" Then
                    Combo1.Text = "设备工程部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "公关策划部" Then
                    Combo1.Text = "公关策划部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "计财部" Then
                    Combo1.Text = "计财部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "服务管理部" And EJBM = "车管组" Then
                    Combo1.Text = "服务管理部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "服务管理部" And EJBM = " 保安组" Then
                    Combo1.Text = "服务管理部"
                    Label1 = "物品领用单"
                End If
                If YJBM = "服务管理部" And EJBM = " 食堂组" Then
                    Combo1.Text = "服务管理部"
                    Label1 = "物品领用单"
                End If
                
        End If
End Sub

Private Sub List1_Click()
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) = True Then
            pdbh1 = List1.List(i)
            Sql = "select * from 出库凭单表 where 凭单编号=" & pdbh1 & ""
            Set rs = ConnWZ.Execute(Sql)
            XSBM = rs("接收部门")
        End If
   Next
End Sub



Private Sub List2_Click()
    DataGrid1.Columns(10).Text = List2.Text
    List2.Visible = False
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
'    For i = 1 To ListView1.ListItems.Count
'        If ListView1.ListItems(i).Checked = True Then
'            For j = i To ListView1.ListItems.Count
'                If j = ListView1.ListItems.Count Then Exit Sub
'                ListView1.ListItems(j + 1).Checked = False
'            Next
'        End If
'    Next
End Sub

Private Sub pdbh_Change()

   DataGrid1.Enabled = True

End Sub


Private Sub pdbh_LostFocus()
 On Error Resume Next
    'res = StrComp(Str(Val(pdbh)), Str(pdbh))
     Str (pdbh)
   If Err = 13 Then
      MsgBox "凭单编号必须为数字！"
      pdbh = ""
      DataGrid1.Enabled = False
   Else
      Sql = "select * from 出库凭单表"
      Set RsCkpd = ConnWZ.Execute(Sql)
    Do While Not RsCkpd.EOF
     If pdbh = RsCkpd("凭单编号") Then
      MsgBox "凭单编号已存在，请确定是否输入错误！"
      DataGrid1.Enabled = False
      Exit Sub
     Else
      DataGrid1.Enabled = True
     End If
      RsCkpd.MoveNext
    Loop
      RsCkpd.Close
   End If
   
   End Sub
'Private Sub List1_Click()
   ' DataGrid1.Columns(3).Text = List1.Text
   ' List1.Visible = False
'End Sub

Private Sub Save_Click()

    
  'Do While Not Rsrkpd.EOF
  'If pdbh = Rsrkpd("凭单编号") Then
  '  MsgBox "凭单编号已存在，请确定是否输入错误！"
  '  Exit Sub
  'End If
  '  Rsrkpd.MoveNext
  'Loop
  'Rsrkpd.CLOSE
    Result = MsgBox("您确实要保存吗？", vbYesNo)
      
If Result = 6 Then
    
    If YJBM = "服务管理部" And EJBM = "物资组" Then
        If pdbh = "" Then
            MsgBox "请您输入凭单编号！"
            Exit Sub
        End If
        jsbm = Combo1.Text
        ZG = ComboZG.Text
        BGY = ComboBGY.Text
        kj = ComboKJ.Text
        JSRR = JSRR.Text
        pdbh = Val(pdbh)
        RQ = DTPicker1.Value
        Adodc1.Recordset.UpdateBatch
        If StrFLG = 0 Then
            Sql = "insert 出库凭单表 (凭单编号,会计,保管员,处理状态,接收部门,出库日期,主管,经手人) values(" & pdbh & ",'" & ComboKJ & "','" & ComboBGY & "','已处理','" & Combo1 & "','" & DTPicker1 & "','" & ComboZG & "','" & JSRR & "' )"
            Set Rsrkpd = ConnWZ.Execute(Sql)
          Else
            Sql = "update 出库凭单表 set 会计='" & kj & "',保管员='" & BGY & "',处理状态='已处理' where 凭单编号=" & pdbh & ""
            Set Rsrkpd = ConnWZ.Execute(Sql)
            Sql = "update 出库明细表 set 接收部门='" & Combo1 & "',经手人='" & JSRR & "',处理状态='已处理',盘亏='0',是否报废=0,是否退库=0 where 凭单编号=" & pdbh & ""
            Set rs = ConnWZ.Execute(Sql)
        End If
        Sql = "select * from 出库明细表 where 凭单编号=" & pdbh & ""
        Set rs = ConnWZ.Execute(Sql)
        Do While Not rs.EOF
            RIQI = DTPicker1.Value
            WUZZL = rs("物资子类")
            MC = rs("名称")
            BH = rs("商品编号")
            SHUL = rs("数量")
            DANJ = rs("单价")
            JINE = rs("金额")
            jsbmm = rs("接收部门")
            HJj = 0
            sqlmxz = "select * from 物品明细帐 where 收入或支出='收入'"
            Set Rsmxz = ConnWZ.Execute(sqlmxz)
            Do While Not Rsmxz.EOF
                jjee = Rsmxz("金额")
                HJj = HJj + Val(jjee)
                Rsmxz.MoveNext
            Loop
            sqlmxz = "select * from 物品明细帐 where 收入或支出='支出'"
            Set Rsmxz = ConnWZ.Execute(sqlmxz)
            Do While Not Rsmxz.EOF
                jjee = Rsmxz("金额")
                HJj = HJj - Val(jjee)
                Rsmxz.MoveNext
            Loop
            HJj = HJj - JINE
            Sql = "insert 物品明细帐(日期,名称,商品编号,物资子类,数量,单价,金额,收入或支出,合计,去向) values('" & RIQI & "','" & MC & "','" & BH & "','" & WUZZL & "'," & SHUL & "," & DANJ & "," & JINE & ",'支出'," & HJj & ",'" & jsbmm & "')"
            Set Rsrkpd = ConnWZ.Execute(Sql)
            rs.MoveNext
        Loop
        WZGL.Enabled = True
        Unload Me
    Else
        
        jsbm = Combo1.Text
        ZG = ComboZG.Text
        BGY = ComboBGY.Text
        kj = ComboKJ.Text
        JSRR = JSRR.Text
        RQ = DTPicker1.Value
        Adodc1.Recordset.UpdateBatch
        Sql = "insert 出库凭单表(凭单编号,接收部门,出库日期,经手人,主管,会计,保管员,处理状态) values(" & pdbh2 & ",'" & jsbm & "','" & RQ & "','" & JSRR & "','" & ZG & "','" & kj & "','" & BGY & "','待处理')"
        Set Rsrkpd = ConnWZ.Execute(Sql)
        Sql = "update 出库明细表 set 经手人='" & JSRR & "' where 凭单编号=" & pdbh2 & ""
        Set rs = ConnWZ.Execute(Sql)
                If YJBM = "总经理办公室" Then
                    XingZhengGL.Enabled = True
                End If
                If YJBM = "动物部" Then
                    Combo1.Text = "动物部"
                End If
                If YJBM = "通用公司" Then
                    Combo1.Text = "通用公司"
                End If
                If YJBM = "人力资源部" Then
                    RSGL.Enabled = True
                End If
                If YJBM = "商品部" Then
                    SPGL.Enabled = True
                End If
                If YJBM = "水族部" Then
                    SZBGL.Enabled = True
                End If
                If YJBM = "设备工程部" Then
                    SBGCGL.Enabled = True
                End If
                If YJBM = "公关策划部" Then
                    SCGL.Enabled = True
                End If
                If YJBM = "计财部" Then
                    CWGL.Enabled = True
                End If
                If YJBM = "服务管理部" And EJBM = "车管组" Then
                    CLGL.Enabled = True
                End If
                If YJBM = "服务管理部" And EJBM = " 保安组" Then
                    BABFrm.Enabled = True
                End If
                If YJBM = "服务管理部" And EJBM = " 食堂组" Then
                    STGL.Enabled = True
                End If
                Unload Me
    End If
End If
End Sub