formygxxgl.frm

企业员工信息管理系统.可以对企业的员工的各种信息进行管理

      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   8
      BeginProperty Column00 
         DataField       =   "changeid"
         Caption         =   "变动编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "changetype"
         Caption         =   "变动类型"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "yid"
         Caption         =   "员工编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "ename"
         Caption         =   "姓名"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "nowduty"
         Caption         =   "现任职务"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "beforeduty"
         Caption         =   "曾任职务"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "changereason"
         Caption         =   "变动原因"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "changetime"
         Caption         =   "变动时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1005.165
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   1995.024
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1005.165
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "Form员工部门职务管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
  If Adodc1.Recordset.EOF Then
   Exit Sub
  End If
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
  If Adodc1.Recordset.BOF Then
    Exit Sub
  End If
End If
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
End Sub



Private Sub Command5_Click()
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Text1.DataField = ""
Text2.DataField = ""
Text3.DataField = ""
Text4.DataField = ""
Text5.DataField = ""
Text6.DataField = ""
Text7.DataField = ""
Text8.DataField = ""

End Sub

Private Sub Command6_Click()
Dim res As String
 res = MsgBox("你确定要更新此信息吗？", vbQuestion + vbYesNo, "提示")
If res = vbYes Then
  
  Adodc1.Recordset.Delete
  Adodc1.RecordSource = "select * from bd where yid='" & Trim(Text3.Text) & "'"
  If Adodc1.Recordset.EOF = True Then
    MsgBox "此用员工编号已经存在，请另外选择用户名！", vbOKOnly + vbExclamation, "警告"
    Text1.SetFocus
    Exit Sub
  End If
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields("changeid") = Trim(Text1.Text)
  Adodc1.Recordset.Fields("changetype") = Trim(Text2.Text)
  Adodc1.Recordset.Fields("yid") = Trim(Text3.Text)
  Adodc1.Recordset.Fields("ename") = Trim(Text4.Text)
  Adodc1.Recordset.Fields("nowduty") = Trim(Text5.Text)
  Adodc1.Recordset.Fields("beforeduty") = Trim(Text6.Text)
  Adodc1.Recordset.Fields("changereason") = Trim(Text7.Text)
  Adodc1.Recordset.Fields("changetime") = Trim(Text8.Text)
  Adodc1.Recordset.Update
  MsgBox "信息修改成功！", vbOKOnly + vbExclamation, "提示"
  Adodc1.Recordset.MoveLast
  End If
  Text1.Enabled = False
  Text2.Enabled = False
  Text3.Enabled = False
  Text4.Enabled = False
  Text5.Enabled = False
  Text6.Enabled = False
  Text7.Enabled = False
  Text8.Enabled = False
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
  Command5.Enabled = True
  Command7.Enabled = True
  Text1.DataField = "changeid"
  Text2.DataField = "changetype"
  Text3.DataField = "yid"
  Text4.DataField = "ename"
  Text5.DataField = "nowduty"
  Text6.DataField = "beforeduty"
  Text7.DataField = "changereason"
  Text8.DataField = "changetime"
 
End Sub

Private Sub Command7_Click()
Dim res As String
 res = MsgBox("你确定要删除此信息吗？", vbQuestion + vbYesNo, "提示")
If res = vbYes Then
    Adodc1.Recordset.Delete
    Adodc1.Recordset.MoveNext
  If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveFirst
  End If

End If
End Sub

Private Sub Command8_Click()
  Text1.Enabled = False
  Text2.Enabled = False
  Text3.Enabled = False
  Text4.Enabled = False
  Text5.Enabled = False
  Text6.Enabled = False
  Text7.Enabled = False
  Text8.Enabled = False
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
  Command5.Enabled = True
  Command7.Enabled = True
  Form管理员管理.Show
  Me.Hide
End Sub

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
End Sub