If ra.State = adStateOpen Then
  ra.Close
End If

If (Text6.Text = "") Or (Text12.Text = "") Or (Text14.Text = "") Then
      MsgBox ("请填写所有信息")
    Exit Sub
End If

str1 = Text12.Text
If (IsNumeric(str1) = False) Then
   MsgBox ("输入编号格式有错误")
Exit Sub
End If
 
If str1 > 99999999 Or str1 < 1 Then
   MsgBox ("输入编号格式有错误")
Exit Sub
End If

str2 = Text14.Text
    If (IsNumeric(str2) = False) Then
    MsgBox ("输入工资有错误")
    Exit Sub
    End If
 
If str2 > 9999 Or str2 < 400 Then
   MsgBox ("输入工资有错误")
Exit Sub
End If

rd.Open "SELECT * FROM 人事 where (编号 = '" & Text12.Text & "') and  (姓名 ='" & Text6.Text & "')", db, adOpenStatic, adLockOptimistic
If rd.BOF = True Or rd.EOF = True Then
   MsgBox ("输入信息不相符")
   Exit Sub
Else: ra.Open "delete FROM 工资 where (编号 = '" & Text12.Text & "') and  (姓名 ='" & Text6.Text & "') ", db, adOpenStatic, adLockOptimistic
End If

rb.Open "SELECT *  FROM 工资 ", db, adOpenStatic, adLockOptimistic
   rb.AddNew
   rb("姓名") = Text6.Text
   rb("编号") = Text12.Text
   rb("工资数额") = Text14.Text
   rb("日期") = Year(Date) & "-" & Month(Date) & "-" & Day(Date)
   rb.Update
   rb.Close
  
rb.Open "SELECT *  FROM 工资 ", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rb

   Text6.Text = ""
   Text12.Text = ""
   Text14.Text = ""
 
End Sub

Private Sub Command4_Click()
Text6.Text = ""
Text12.Text = ""
Text14.Text = ""
End Sub

Private Sub Command5_Click()
Dim num As Long

If rd.State = adStateOpen Then
  rd.Close
End If

If rb.State = adStateOpen Then
  rb.Close
End If

If ra.State = adStateOpen Then
  ra.Close
End If

If (Text1.Text = "") Or (Text9.Text = "") Or (Text5.Text = "") Or (Text7.Text = "") Or (Combo1.Text = "") Or (Text7.Text = "") Or (Combo1.Text = "") Or (Combo2.Text = "") Or (Combo3.Text = "") Or (Combo4.Text = "") Or (Combo5.Text = "") Or (Combo6.Text = "") Or (Combo7.Text = "") Or (Combo8.Text = "") Or (Combo9.Text = "") Or (Combo10.Text = "") Then
      MsgBox ("请填写所有信息")
    Exit Sub
End If
str1 = Text7.Text
    If (IsNumeric(str1) = False) Then
    MsgBox ("输入编号格式有错误")
    Exit Sub
    End If
 
If str1 > 99999999 Or str1 < 10000000 Then
   MsgBox ("输入编号格式有错误")
Exit Sub
End If

If (Combo8.Text - Combo5.Text) < 19 Then
   MsgBox ("您的年龄输入有错误")
   Exit Sub
End If

rd.Open "SELECT * FROM 人事 where 编号 = '" & Text7.Text & "'", db, adOpenStatic, adLockOptimistic
If rd.BOF = False Or rd.EOF = False Then
   MsgBox ("此编号已存在")
   Exit Sub
End If

ra.Open "delete FROM 人事  where (编号 = '" & cnum & "') and (姓名 ='" & cname & "') ", db, adOpenStatic, adLockOptimistic

rb.Open "SELECT *  FROM 人事 ", db, adOpenStatic, adLockOptimistic
  rb.AddNew
  rb("姓名") = Text1.Text
  rb("性别") = Combo1.Text
  rb("编号") = Text7.Text
  rb("学历") = Combo4.Text
  rb("部门名称") = Combo3.Text
  rb("岗位") = Text9.Text
  rb("工作性质") = Combo2.Text
  rb("出生日期") = Combo5.Text & "-" & Combo6.Text & "-" & Combo7.Text
  rb("工作时间") = Combo8.Text & "-" & Combo9.Text & "-" & Combo10.Text
  rb("联系方式") = Text5.Text
  rb.Update
  rb.Close
  
   Text1.Text = ""
   Text5.Text = ""
   Text7.Text = ""
   Text9.Text = ""
Form2.Text1.Text = ""
Form2.Text2.Text = ""
End Sub

Private Sub Command6_Click()
Dim Y As Long

If rd.State = adStateOpen Then
  rd.Close
End If

If (Text6.Text = "") Or (Text12.Text = "") Then
      MsgBox ("请填写姓名与编号")
    Exit Sub
End If

str1 = Text12.Text
If (IsNumeric(str1) = False) Then
   MsgBox ("输入编号格式有错误")
Exit Sub
End If
 
If str1 > 99999999 Or str1 < 1 Then
   MsgBox ("输入编号格式有错误")
Exit Sub
End If

rd.Open "SELECT * FROM 工资 where (编号 = '" & Text12.Text & "') and  (姓名 ='" & Text6.Text & "') ", db, adOpenStatic, adLockOptimistic
If rd.BOF = True Or rd.EOF = True Then
   MsgBox ("输入信息不相符，不能删除")
   Exit Sub
Else: Form5.Show
End If

End Sub

Private Sub data1_Click()
Form3.Show
End Sub

Private Sub data3_Click()
Form2.Show
End Sub

Private Sub data2_Click()
info.Enabled = False
member.Enabled = False
salary.Enabled = False
data1.Enabled = True
Frame1.Visible = False
Frame4.Visible = False
Frame2.Visible = False
End Sub

Private Sub data4_Click()
End
End Sub

Private Sub Form_Load()
info.Enabled = True
member.Enabled = True
salary.Enabled = True
Frame1.Visible = False
Frame4.Visible = True
Frame2.Visible = False
If rd.State = adStateOpen Then
rd.Close
End If
rd.Open "SELECT * FROM 人事表单", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid4.DataSource = rd
End Sub

Private Sub Form_Unload(Cancel As Integer)
    db.Close
End Sub

Private Sub info1_Click()
Frame1.Visible = False
Frame4.Visible = True
Frame2.Visible = False
If rd.State = adStateOpen Then
rd.Close
End If
rd.Open "SELECT * FROM 人事表单", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid4.DataSource = rd
End Sub

Private Sub info2_Click()
Frame1.Visible = False
Frame4.Visible = True
Frame2.Visible = False
form6.Show
End Sub

Private Sub mem1_Click()
Frame1.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Command1.Visible = False
Form2.Show
Form2.Command3.Visible = True
Form2.Command1.Visible = False
End Sub
Private Sub mem2_Click()
Frame1.Visible = False
Frame4.Visible = False
Frame2.Visible = False
Form2.Show
Form2.Command1.Visible = True
Form2.Command3.Visible = False
End Sub

Private Sub member3_Click()
Frame1.Visible = True
Frame4.Visible = False
Frame2.Visible = False
Command5.Visible = False
Command1.Visible = True
End Sub

Private Sub salary_Click()
Frame1.Visible = False
Frame2.Visible = True
Frame4.Visible = False
If rd.State = adStateOpen Then
rd.Close
End If
rd.Open "SELECT * FROM 工资表单", db, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = rd
End Sub

首页 上一页 2 3 4 5 下一页 尾页 5/5/5

相关论文