form1.frm

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

            Width           =   900
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "员工编号："
            Height          =   180
            Left            =   120
            TabIndex        =   1
            Top             =   240
            Width           =   900
         End
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         Caption         =   "！相应的个人信息可以到员工基本信息处修改！"
         Height          =   180
         Left            =   240
         TabIndex        =   32
         Top             =   4320
         Width           =   3780
      End
      Begin VB.Label Label13 
         AutoSize        =   -1  'True
         Caption         =   "为必填项"
         Height          =   180
         Left            =   4560
         TabIndex        =   31
         Top             =   4320
         Width           =   720
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "*"
         ForeColor       =   &H008080FF&
         Height          =   180
         Left            =   4320
         TabIndex        =   30
         Top             =   4320
         Width           =   90
      End
   End
End
Attribute VB_Name = "GongZuoXinXi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim NianShu_GZ As Integer
Dim YueShu_GZ As Integer
Dim RiShu_GZ As Integer
Dim LieShu_GZ As Integer
'Dim ShJzancun_GZ As String
'Dim ShJquzhi_GZ As Integer
Dim QDShu As Integer

Private Sub Form_Load()
  Me.Height = 5970
  Me.Width = 5940
  NianShu_GZ = 1980
  Do While NianShu_GZ < 2006
     textNian_GZ.AddItem NianShu_GZ
     NianShu_GZ = NianShu_GZ + 1
  Loop
  For YueShu_GZ = 1 To 12
      textYue_GZ.AddItem YueShu_GZ
  Next YueShu_GZ
  For RiShu_GZ = 1 To 31
      textRi_GZ.AddItem RiShu_GZ
  Next RiShu_GZ
  If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
  GZbiaoCZ.CursorLocation = adUseClient
  GZbiaoCZ.Open "select * from manappraise", MySQL, adOpenKeyset, adLockPessimistic
  Do While Not GZbiaoCZ.EOF
    YGbianhao_GZ.AddItem GZbiaoCZ.Fields(0)
    GZbiaoCZ.MoveNext
  Loop
  GZbiaoCZ.MoveFirst
  If ChakanGZ_PD Then
'     BianHaoFuZhi (GZbiaoCZ)
     GongZuoXinXi.Caption = "查看员工工作信息"
     QueDing_GZ.Visible = False
     QuXiao_GZ.Left = 2400
     textFuZhi_GZ
  ElseIf XiuGaiGZ_PD Then
'     BianHaoFuZhi (GZbiaoCZ)
     GongZuoXinXi.Caption = "修改员工工作信息"
     QueDing_GZ.Caption = "修  改"
     textFuZhi_GZ
  ElseIf ShanChuGZ_PD Then
     GongZuoXinXi.Caption = "删除员工工作信息"
     QueDing_GZ.Caption = "删  除"
     textFuZhi_GZ
  ElseIf TianJiaGZ_PD Then
     If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
     ChaKanJB.Open "select ygid,ygname,ygsex from manrecord", MySQL, adOpenKeyset, adLockPessimistic
'     BianHaoFuZhi (ChaKanJB)
     YGbianhao_GZ.Clear
     Do While Not ChaKanJB.EOF
       YGbianhao_GZ.AddItem ChaKanJB.Fields(0)
       ChaKanJB.MoveNext
     Loop
     ChaKanJB.MoveFirst
     GongZuoXinXi.Caption = "添加员工工作信息"
     QueDing_GZ.Caption = "添  加"
     
  End If
End Sub

Sub textFuZhi_GZ()
  For LieShu_GZ = 1 To 4
    If LieShu_GZ = 3 Then
    Else
      If GZbiaoCZ.Fields(LieShu_GZ) <> "" Then
        Text_GZ(LieShu_GZ) = GZbiaoCZ.Fields(LieShu_GZ)
      Else
        Text_GZ(LieShu_GZ) = ""
      End If
    End If
  Next LieShu_GZ
  YGbianhao_GZ.Text = GZbiaoCZ.Fields(0)
  JiBen_GZ (Trim(YGbianhao_GZ))
'  Xingie_GZ.Text = GZbiaoCZ.Fields(2)
  RiQiFuZhi (GZbiaoCZ.Fields(3))
  textNian_GZ.Text = Nian
  textYue_GZ.Text = Yue
  RiFuZhi
  textRi_GZ.Text = Ri
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set ChaKanJB = Nothing
  Set GZbiaoCZ = Nothing
End Sub

Private Sub QueDing_GZ_Click()
  If QueDing_GZ.Caption = "修  改" Then
    QDShu = MsgBox("确定修改相关项吗？", 51, "公司员工管理系统")
    If QDShu = 6 Then
       If Text_GZ(1) = "" Or Text_GZ(2) = "" Or textNian_GZ.Text = "" Or textYue_GZ.Text = "" Or textRi_GZ.Text = "" Then
         MsgBox "红星号项目不能为空！", 48, "公司员工管理系统"
'      If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
'      ChaKanJB.Open "SELECT ygid,ygname,ygsex from manrecord where ygid='" & YGbianhao_GZ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'      If ChaKanJB.RecordCount = -1 Then
'         MsgBox "不存在此编号的员工基本信息！请先添加相关的基本信息！", 48, "公司员工管理系统"
'         ChaKanJB.Close
'         Set ChaKanJB = Nothing
'         Exit Sub
       Else
'         If Text_GZ(1) <> ChaKanJB.Fields(1) Or XingBie_GZ.Text <> ChaKanJB.Fields(2) Or Text_GZ(3) <> ChaKanJB.Fields(3) Then
'           MsgBox "员工的基本信息与原始基本信息不符！", 48, "公司员工管理系统"
'         Else
           ShuJuFuZhi
           GZbiaoCZ.Update
       End If
'      End If
    End If
  ElseIf QueDing_GZ.Caption = "删  除" Then
    QDShu = MsgBox("确定删除此条记录吗？", 51, "公司员工管理系统")
    If QDShu = 6 Then
      GZbiaoCZ.Delete
'      GZbiaoCZ.Update
'      GZbiaoCZ.MoveNext
'      If GZbiaoCZ.EOF Then GZbiaoCZ.MoveFirst
      GZbiaoCZ.Close
      GZbiaoCZ.Open "manappraise", MySQL, adOpenKeyset, adLockPessimistic
      textFuZhi_GZ
     End If
  ElseIf QueDing_GZ.Caption = "添  加" Then
     QDShu = MsgBox("确定添加此条记录吗？", 51, "公司员工管理系统")
     If QDShu = 6 Then
       If Text_GZ(1) = "" Or Text_GZ(2) = "" Or textNian_GZ.Text = "" Or textYue_GZ.Text = "" Or textRi_GZ.Text = "" Then
         MsgBox "红星号项目不能为空！", 48, "公司员工管理系统"
'       If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
'       ChaKanJB.Open "SELECT ygid,ygname,ygsex from manrecord where ygid='" & YGbianhao_GZ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
'       If ChaKanJB.RecordCount = -1 Then
'         MsgBox "不存在此编号的员工基本信息！请先添加相关的基本信息！", 48, "公司员工管理系统"
'         ChaKanJB.Close
'         Set ChaKanJB = Nothing
         Exit Sub
       Else
         If DengJibiaoCZ.State = adStateOpen Then DengJibiaoCZ.Close
         DengJibiaoCZ.Open "select * from ranking where DJbusi='" & Text_GZ(2) & "'", MySQL, adOpenKeyset, adLockPessimistic
         If DengJibiaoCZ.RecordCount = 0 Then
           MsgBox "职位等级信息不存在！请先添加相关的等级信息！", 48, "公司员工管理系统"
           Exit Sub
         Else
           If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
           GZbiaoCZ.Open "select * from manappraise where wid='" & YGbianhao_GZ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
           If GZbiaoCZ.RecordCount <> 0 Then
             MsgBox "已经存在此编号员工的工作信息！" & vbCrLf & "你可以进行修改！", 48, "公司员工管理系统"
             Exit Sub
           End If
         End If
       End If
       GZbiaoCZ.AddNew
       ShuJuFuZhi
       GZbiaoCZ.Update
     End If
  End If
End Sub

Private Sub QuXiao_GZ_Click()
  Unload Me
End Sub

Private Sub textNian_GZ_Click()
  RiShu = RiJS(Trim(Val(textNian_GZ)), Trim(Val(textYue_GZ)))
  RiFuZhi
End Sub

Sub RiFuZhi()
  textRi_GZ.Clear
  For RiShu_GZ = 1 To RiShu
    textRi_GZ.AddItem RiShu_GZ
  Next RiShu_GZ
  textRi_GZ.Text = Ri
End Sub

Private Sub textYue_GZ_Click()
  RiShu = RiJS(Trim(Val(textNian_GZ)), Trim(Val(textYue_GZ)))
  RiFuZhi
End Sub

Sub ShuJuFuZhi()
  For LieShu_GZ = 1 To 4
    If LieShu_GZ = 3 Then
    Else
       GZbiaoCZ.Fields(LieShu_GZ) = Text_GZ(LieShu_GZ)
    End If
  Next LieShu_GZ
'  GZbiaoCZ.Fields(2) = XingBie_GZ.Text
  GZbiaoCZ.Fields(0) = YGbianhao_GZ.Text
  GZbiaoCZ.Fields(3) = textNian_GZ & "-" & textYue_GZ & "-" & textRi_GZ
End Sub

'Sub BianHaoFuZhi(ShuJuBiao As ADODB.Recordset)
'  YGbianhao_GZ.Clear
'  Do While Not ShuJuBiao.EOF
'    YGbianhao_GZ.AddItem ShuJuBiao.Fields(0)
'    ShuJuBiao.MoveNext
'  Loop
'  ShuJuBiao.MoveFirst
'End Sub
Private Sub YGbianhao_GZ_Click()
  If TianJiaGZ_PD Then
    JiBen_GZ (Trim(YGbianhao_GZ))
  Else
    If GZbiaoCZ.State = adStateOpen Then GZbiaoCZ.Close
    GZbiaoCZ.Open "SELECT * from manappraise where wid='" & YGbianhao_GZ.Text & "'", MySQL, adOpenKeyset, adLockPessimistic
    textFuZhi_GZ
  End If
End Sub

Sub JiBen_GZ(ChZhbianhao As String)
'  Dim ChZhstr As String
  If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
'  ChZhstr = "select ygname,ygsex,ygbirthday from manrecord where ygid=" & ChZhbianhao
  ChaKanJB.Open "select ygname,ygsex,ygbirthday from manrecord where ygid=" & ChZhbianhao, MySQL, adOpenKeyset, adLockPessimistic
  XingMing_GZ = ChaKanJB.Fields(0)
  XingBie_GZ = ChaKanJB.Fields(1)
  ChuSheng_GZ = ChaKanJB.Fields(2)
End Sub

Private Sub YGbianhao_GZ_LostFocus()
  If ChaKanJB.State = adStateOpen Then ChaKanJB.Close
  ChaKanJB.Open "select ygname,ygsex,ygbirthday from manrecord where ygid='" & YGbianhao_GZ & "'", MySQL, adOpenKeyset, adLockPessimistic
  If ChaKanJB.RecordCount = 0 Then
    MsgBox "没有此编号员工基本信息！请先添加员工基本信息！", 48, "公司员工管理系统"
  Else
    JiBen_GZ (Trim(YGbianhao_GZ))
  End If
End Sub