xiugaixx.frm

员工管理系统 vb+sql 文档全 管理员admin 密码 123

         Top             =   280
         Width           =   90
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "员工姓名："
         Height          =   180
         Left            =   2760
         TabIndex        =   3
         Top             =   300
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "员工编号："
         Height          =   180
         Left            =   120
         TabIndex        =   1
         Top             =   300
         Width           =   900
      End
   End
End
Attribute VB_Name = "xiugaiXX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ZJRriqi As String
Dim ZChShriqi As String
Dim JRriqi As String
Dim ChShriqi As String
Dim PDJRriqiN As Boolean
Dim PDChShriqiN As Boolean
Dim NianChSh As Integer
Dim NianJR As Integer
Dim YueShu As Integer
'Dim Ri As Integer
Dim RiShu_XX As Integer
Dim MyBook As Variant
Dim LShbiao As New ADODB.Recordset

Private Sub FangHui_Click()
  Unload Me
End Sub

Private Sub Form_Load()
  Me.Width = 6015
  Me.Height = 6645
  NianChSh = 1930
  NianJR = 1990
  Do While NianChSh < 1989
     XGnianCH.AddItem NianChSh
     NianChSh = NianChSh + 1
  Loop
  Do While NianJR < 2006
     XGnianJ.AddItem NianJR
     NianJR = NianJR + 1
  Loop
  For YueShu = 1 To 12
      XGyueCH.AddItem YueShu
      XGyueJ.AddItem YueShu
  Next YueShu
  For RiShu_XX = 1 To 31
      XGriCH.AddItem RiShu_XX
      XGriJ.AddItem RiShu_XX
  Next RiShu_XX
  If XiuGaiJB.State = adStateOpen Then XiuGaiJB.Close
  XiuGaiJB.Open "select * from manrecord", MySQL, adOpenKeyset, adLockPessimistic
  If TianJiaJB Then
     xiugaiXX.Caption = "添加基本信息"
     XiuGai.Caption = "添   加"
  ElseIf XiuGaiJB_PD Then
     xiugaiXX.Caption = "修改基本信息"
     XiuGai.Caption = "修   改"
     TextFuZhi
  ElseIf ShanChuJB Then
     xiugaiXX.Caption = "删除基本信息"
     XiuGai.Caption = "删   除"
     TextFuZhi
  End If
'  MyBook = XiuGaiJB.Bookmark
End Sub

Sub TextFuZhi()
'  On Error GoTo FZhcuowu
'  On Error Resume Next
  If XiuGaiJB.Fields(0) <> "" Then
     XGbianhao.Text = XiuGaiJB.Fields(0).Value
  Else
     XGbianhao.Text = ""
  End If
  If XiuGaiJB.Fields(1) <> "" Then
     XGxingming.Text = XiuGaiJB.Fields(1).Value
  Else
     XGxingming.Text = ""
  End If
'  If XiuGaiJB.Fields(2) <> "" Then
'     XGbumen.Text = XiuGaiJB.Fields(2).Value
'  Else
'     XGbumen.Text = ""
'  End If
'  If XiuGaiJB.Fields(3) <> "" Then
'     XGzhicheng.Text = XiuGaiJB.Fields(3).Value
'  Else
'     XGzhicheng.Text = ""
'  End If
  If XiuGaiJB.Fields(3) <> "" Then
     XGxingbie.Text = XiuGaiJB.Fields(3).Value
  Else
     XGxingbie.Text = ""
  End If
'  If XiuGaiJB.Fields(4) <> "" Then
'     XGnianling.Text = XiuGaiJB.Fields(4).Value
'  Else
'     XGnianling.Text = ""
'  End If
  If XiuGaiJB.Fields(5) <> "" Then
     XGzhuzhi.Text = XiuGaiJB.Fields(5).Value
  Else
     XGzhuzhi.Text = ""
  End If
  If XiuGaiJB.Fields(6) <> "" Then
     XGdianhua.Text = XiuGaiJB.Fields(6).Value
  Else
     XGdianhua.Text = ""
  End If
  If XiuGaiJB.Fields(7) <> "" Then
     XGbiye.Text = XiuGaiJB.Fields(7).Value
  Else
     XGbiye.Text = ""
  End If
  If XiuGaiJB.Fields(8) <> "" Then
     XGxueli.Text = XiuGaiJB.Fields(8).Value
  Else
     XGxueli.Text = ""
  End If
  If XiuGaiJB.Fields(9) <> "" Then
     XGzhuanye.Text = XiuGaiJB.Fields(9).Value
  Else
     XGzhuanye.Text = ""
  End If
  If XiuGaiJB.Fields(10) <> "" Then
     XGjiguan.Text = XiuGaiJB.Fields(10).Value
  Else
     XGjiguan.Text = ""
  End If
  If XiuGaiJB.Fields(2) <> "" Then
'     For a = 1 To Len(XiuGaiJB.Fields(4)) + 1
'         ZJRriqi = Mid(XiuGaiJB.Fields(4), a, 1)
'         If ZJRriqi = "-" Then
'            If PDJRriqiN Then
'               XGyueJ.Text = JRriqi
'               JRriqi = ""
'               PDJRriqiN = False
'            Else
'               XGnianJ.Text = JRriqi
'               JRriqi = ""
'               PDJRriqiN = True
'            End If
'         ElseIf ZJRriqi = "" Then
'            RiShu_XX = RiJS(Trim(XGnianJ), Trim(XGyueJ))
'            XGriJ.Clear
'            For Ri = 1 To RiShu_XX
'               XGriJ.AddItem Ri
'            Next Ri
'            XGriJ.Text = JRriqi
'            JRriqi = ""
'         Else
'            JRriqi = JRriqi & ZJRriqi
'         End If
'     Next a
    RiQiFuZhi (Trim(Str(XiuGaiJB.Fields(2))))
    XGnianJ.Text = Nian
    XGyueJ.Text = Yue
    XGriJ.Clear
    For RiShu_XX = 1 To RiShu
        XGriJ.AddItem RiShu_XX
    Next RiShu_XX
    XGriJ.Text = Ri
  End If
  If XiuGaiJB.Fields(4) <> "" Then
'     For b = 1 To Len(XiuGaiJB.Fields(7)) + 1
'         ZChShriqi = Mid(XiuGaiJB.Fields(7), b, 1)
'         If ZChShriqi = "-" Then
'            If PDChShriqiN Then
'               XGyueCH.Text = ChShriqi
'               ChShriqi = ""
'               PDChShriqiN = False
'            Else
'               XGnianCH.Text = ChShriqi
'               ChShriqi = ""
'               PDChShriqiN = True
'            End If
'         ElseIf ZChShriqi = "" Then
'            RiShu_XX = RiJS(Trim(XGnianCH), Trim(XGyueCH))
'            XGriCH.Clear
'            For Ri = 1 To RiShu_XX
'              XGriCH.AddItem Ri
'            Next Ri
'            XGriCH.Text = ChShriqi
'            ChShriqi = ""
'         Else
'            ChShriqi = ChShriqi & ZChShriqi
'         End If
'     Next b
    RiQiFuZhi (Trim(Str(XiuGaiJB.Fields(4))))
    XGnianCH.Text = Nian
    XGyueCH.Text = Yue
    XGriCH.Clear
    For RiShu_XX = 1 To RiShu
        XGriCH.AddItem RiShu_XX
    Next RiShu_XX
    XGriCH.Text = Ri
  End If
'  Exit Sub
'FZhcuowu:
'    If Err.Number = 94 Then
'       Resume Next
'    Else
'       MsgBox "抱歉！程序发生未知错误，即将关闭本窗口！请退出后，查看程序目录下的错误日志文件“error.text”，并把错误及时通知作者！谢谢合作！", , "程序错误"
'       Unload Me
'    End If
End Sub

Private Sub ShangYW_Click()
  XiuGaiJB.MovePrevious
  If XiuGaiJB.BOF Then XiuGaiJB.MoveFirst
  TextFuZhi
End Sub

Private Sub XGnianCH_Click()
  RiShu = RiJS(Trim(XGnianCH.Text), Trim(XGyueCH.Text))
  XGriCH.Clear
    For RiShu_XX = 1 To RiShu
        XGriCH.AddItem RiShu_XX
    Next RiShu_XX
  XGriCH = "1"
End Sub

Private Sub XGnianJ_Click()
  RiShu = RiJS(Trim(XGnianJ.Text), Trim(XGyueJ.Text))
  XGriJ.Clear
    For RiShu_XX = 1 To RiShu
        XGriJ.AddItem RiShu_XX
    Next RiShu_XX
  XGriJ = "1"
End Sub

Private Sub XGyueCH_Click()
  RiShu = RiJS(Trim(XGnianCH.Text), Trim(XGyueCH.Text))
  XGriCH.Clear
    For RiShu_XX = 1 To RiShu
        XGriCH.AddItem RiShu_XX
    Next RiShu_XX
  XGriCH = "1"
End Sub

Private Sub XGyueJ_Click()
  RiShu = RiJS(Trim(XGnianJ.Text), Trim(XGyueJ.Text))
  XGriJ.Clear
    For RiShu_XX = 1 To RiShu
        XGriJ.AddItem RiShu_XX
    Next RiShu_XX
  XGriJ = "1"
End Sub

Private Sub XiaYW_Click()
  XiuGaiJB.MoveNext
  If XiuGaiJB.EOF Then XiuGaiJB.MoveLast
  TextFuZhi
End Sub

Private Sub XiuGai_Click()
'  On Error GoTo ChaoZuoErr
  If XiuGai.Caption = "修   改" Then
     XG = MsgBox("确定修改么？", 52, "提醒")
     If XG = 6 Then
       If Len(XGbianhao.Text) <> 10 Then
          MsgBox "员工编号为10位数！请检查数据正确性！", 48, "公司员工管理系统"
          Exit Sub
'          XiuGaiJB.Bookmark = MyBook
       Else
          If XGxingming.Text = "" Then
             MsgBox "员工姓名不能为空！请检查数据正确性！", 48, "公司员工管理系统"
             Exit Sub
'             XiuGaiJB.Bookmark = MyBook
          Else
'             JianCha
             If XiuGaiJB.Fields(0) <> XGbianhao Then
               MsgBox "员工编码不能修改！如有需要可以删除此条记录再执行添加！", 48, "公司员工管理系统"
               Exit Sub
              Else
                XiuGaiJB.Fields(0).Value = XGbianhao.Text
                XiuGaiJB.Fields(1).Value = XGxingming.Text
'                XiuGaiJB.Fields(2).Value = XGbumen.Text
'                XiuGaiJB.Fields(3).Value = XGzhicheng.Text
                XiuGaiJB.Fields(3).Value = XGxingbie.Text
'                XiuGaiJB.Fields(4).Value = XGnianling.Text
                XiuGaiJB.Fields(5).Value = XGzhuzhi.Text
                XiuGaiJB.Fields(6).Value = XGdianhua.Text
                XiuGaiJB.Fields(7).Value = XGbiye.Text
                XiuGaiJB.Fields(8).Value = XGxueli.Text
                XiuGaiJB.Fields(9).Value = XGzhuanye.Text
                XiuGaiJB.Fields(10).Value = XGjiguan.Text
                XiuGaiJB.Fields(2).Value = XGnianJ.Text & "-" & XGyueJ.Text & "-" & XGriJ.Text
                XiuGaiJB.Fields(4).Value = XGnianCH.Text & "-" & XGyueCH.Text & "-" & XGriCH.Text
                XiuGaiJB.Update
'                LShbiao.Close
'                MsgBox "员工编码为数据表主键！所以此数据不可重复！请检查数据正确性！", 48, "公司人事管理系统"
'                LShbiao.Close
'                Exit Sub
              End If
           End If
        End If
     Else
        XiuGaiJB.MoveFirst
        TextFuZhi
     End If
  ElseIf XiuGai.Caption = "添   加" Then
     TJ = MsgBox("确定添加此信息么？", 52, "提示")
     If TJ = 6 Then
       If Len(XGbianhao.Text) <> 10 Then
          MsgBox "员工编号为10位数！请检查数据正确性！", 48, "公司员工管理系统"
          Exit Sub
       Else
          If XGxingming.Text = "" Then
             MsgBox "员工姓名不能为空！请检查数据正确性！", 48, "公司员工管理系统"
             Exit Sub
          Else
             JianCha
             If LShbiao.RecordCount = 0 Then
                XiuGaiJB.AddNew
                XiuGaiJB.Fields(0) = XGbianhao.Text
                XiuGaiJB.Fields(1) = XGxingming.Text
'                XiuGaiJB.Fields(2).Value = XGbumen.Text
'                XiuGaiJB.Fields(3).Value = XGzhicheng.Text
                XiuGaiJB.Fields(3) = XGxingbie.Text
'                XiuGaiJB.Fields(4).Value = XGnianling.Text
                XiuGaiJB.Fields(5) = XGzhuzhi.Text
                XiuGaiJB.Fields(6) = XGdianhua.Text
                XiuGaiJB.Fields(7) = XGbiye.Text
                XiuGaiJB.Fields(8) = XGxueli.Text
                XiuGaiJB.Fields(9) = XGzhuanye.Text
                XiuGaiJB.Fields(10) = XGjiguan.Text
                XiuGaiJB.Fields(2) = XGnianJ.Text & "-" & XGyueJ.Text & "-" & XGriJ.Text
                XiuGaiJB.Fields(4) = XGnianCH.Text & "-" & XGyueCH.Text & "-" & XGriCH.Text
                XiuGaiJB.Update
                LShbiao.Close
              Else
                MsgBox "员工编码为数据表主键！所以此数据不可重复！请检查数据正确性！", 48, "公司人事管理系统"
                LShbiao.Close
                Exit Sub
              End If
          End If
       End If
     End If
  ElseIf XiuGai.Caption = "删   除" Then
     ShCh = MsgBox("确定删除此相关信息么？", 52, "提醒")
     If ShCh = 6 Then
        XiuGaiJB.Delete
        XiuGaiJB.MoveNext
        If XiuGaiJB.EOF Then XiuGaiJB.MoveLast
        TextFuZhi
     Else
     End If
  End If
'  Exit Sub
'ChaoZuoErr:
'  If Err.Number = -2147217873 Then
'     MsgBox "员工编码为数据表主键！所以此数据不可重复！请检查数据正确性！", 48, "公司人事管理系统"
''     XiuGaiJB.Requery
''     ChongKai
''     XiuGaiJB.Bookmark = MyBook
''     XiuGaiJB.Close
''     XiuGaiJB.Open "select * from manrecord", MySQL, adOpenKeyset, adLockPessimistic
'     Exit Sub
'   End If
End Sub

'Sub ChongKai()
'  XiuGaiJB.Requery
'End Sub

Sub JianCha()
   If LShbiao.State = adStateOpen Then LShbiao.Close
   LShbiao.Open "select * from manrecord where ygid='" & XGbianhao.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
End Sub