formygbmzwgl.frm

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

         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   13
      BeginProperty Column00 
         DataField       =   "eid"
         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       =   "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 Column02 
         DataField       =   "esex"
         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       =   "eborndate"
         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       =   "branch"
         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       =   "begintime"
         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       =   "intime"
         Caption         =   "进单位时间"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "ic"
         Caption         =   "身份证号码"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column09 
         DataField       =   "tel"
         Caption         =   "联系电话"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         DataField       =   "address"
         Caption         =   "家庭住址"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column11 
         DataField       =   "branchid"
         Caption         =   "部门编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column12 
         DataField       =   "padtime"
         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 
         ScrollBars      =   3
         BeginProperty Column00 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   915.024
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   975.118
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column04 
         EndProperty
         BeginProperty Column05 
         EndProperty
         BeginProperty Column06 
         EndProperty
         BeginProperty Column07 
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   1035.213
         EndProperty
         BeginProperty Column09 
         EndProperty
         BeginProperty Column10 
         EndProperty
         BeginProperty Column11 
         EndProperty
         BeginProperty Column12 
         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()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text13.Enabled = True
Text1.DataField = ""
Text2.DataField = ""
Text3.DataField = ""
Text4.DataField = ""
Text5.DataField = ""
Text6.DataField = ""
Text7.DataField = ""
Text8.DataField = ""
Text9.DataField = ""
Text10.DataField = ""
Text11.DataField = ""
Text13.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 employermessege where eid='" & Trim(Text1.Text) & "'"
  If Adodc1.Recordset.EOF = True Then
    MsgBox "此员工编号已经存在，请另外选择用户名！", vbOKOnly + vbExclamation, "警告"
    Text1.SetFocus
    Exit Sub
  End If
  Adodc1.Recordset.AddNew
  Adodc1.Recordset.Fields("eid") = Trim(Text1.Text)
  Adodc1.Recordset.Fields("ename") = Trim(Text2.Text)
  Adodc1.Recordset.Fields("esex") = Trim(Text3.Text)
  Adodc1.Recordset.Fields("eborndate") = Trim(Text4.Text)
  Adodc1.Recordset.Fields("nowduty") = Trim(Text5.Text)
  Adodc1.Recordset.Fields("branch") = Trim(Text6.Text)
  Adodc1.Recordset.Fields("begintime") = Trim(Text7.Text)
  Adodc1.Recordset.Fields("intime") = Trim(Text8.Text)
  Adodc1.Recordset.Fields("ic") = Trim(Text9.Text)
  Adodc1.Recordset.Fields("tel") = Trim(Text10.Text)
  Adodc1.Recordset.Fields("address") = Trim(Text11.Text)
  Adodc1.Recordset.Fields("padtime") = Trim(Text13.Text)
  Adodc1.Recordset.Update
  MsgBox "信息修改成功！", vbOKOnly + vbExclamation, "提示"
  Adodc1.Recordset.MoveLast
  End If
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = True
  Command5.Enabled = True
  Command7.Enabled = True
  Text1.Enabled = False
  Text2.Enabled = False
  Text3.Enabled = False
  Text4.Enabled = False
  Text5.Enabled = False
  Text6.Enabled = False
  Text7.Enabled = False
  Text8.Enabled = False
  Text9.Enabled = False
  Text10.Enabled = False
  Text11.Enabled = False
  Text13.Enabled = False
  Text1.DataField = "eid"
  Text2.DataField = "ename"
  Text3.DataField = "esex"
  Text4.DataField = "eborndate"
  Text5.DataField = "nowduty"
  Text6.DataField = "branch"
  Text7.DataField = "begintime"
  Text8.DataField = "intime"
  Text9.DataField = "ic"
  Text10.DataField = "tel"
  Text11.DataField = "address"
  Text13.DataField = "padtime"
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()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command7.Enabled = True
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text13.Enabled = False
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
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text13.Enabled = False

End Sub