frm_mainback.frm

OA办公自动化系统1.rar OA办公自动化系统1.r

  Me.cmdDeptDel.Enabled = True
End Sub

Private Sub cmdDeptDel_Click()
  On Error Resume Next
  adoDept.Recordset.Delete
  MsgBox "当前数据库成功!", vbInformation
  Text1.Text = ""
  Text2.Text = ""
End Sub

Private Sub cmdDeptSave_Click()
  If Text1.Text = "" Then MsgBox "部门名称不能为空！", vbInformation: Exit Sub
  If Me.cmdDeptAdd.Tag = "添加" Then
     adoDept.Recordset.AddNew
     adoDept.Recordset.Fields(1).Value = Text1.Text
     adoDept.Recordset.Fields(2).Value = Text2.Text
     adoDept.Recordset.Update
     MsgBox "数据添加成功!"
     Me.cmdDeptAdd.Tag = ""
  End If
  If Me.cmdDeptUpdate.Tag = "修改" Then
     adoDept.Recordset.Fields(1).Value = Text1.Text
     adoDept.Recordset.Fields(2).Value = Text2.Text
     adoDept.Recordset.Update
     MsgBox "数据更改成功!"
     Me.cmdDeptUpdate.Tag = ""
  End If
  Me.cmdDeptAdd.Enabled = True
  Me.cmdDeptUpdate.Enabled = True
  Me.cmdDeptDel.Enabled = True
  Me.cmdDeptSave.Enabled = False
  Text1.Text = ""
  Text2.Text = ""
  Text1.Enabled = False
  Text2.Enabled = False
End Sub

Private Sub cmdDeptShow_Click()
  showDept.Show
End Sub

Private Sub cmdDeptUpdate_Click()
  Me.cmdDeptUpdate.Tag = "修改"
  Me.cmdDeptSave.Enabled = True
  Me.cmdDeptUpdate.Enabled = False
  Me.cmdDeptCancel.Enabled = True
  Me.cmdDeptDel.Enabled = False
  Me.cmdDeptAdd.Enabled = False
  Text1.Enabled = True
  Text2.Enabled = True
End Sub

Private Sub cmdEadd_Click()
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Text = ""
  Next i
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Enabled = True
  Next i
  adoEmployee.RecordSource = "select * from tbOA_employee"
  adoEmployee.Refresh
  If adoEmployee.Recordset.RecordCount > 0 Then
     
     adoEmployee.Recordset.MoveLast
     txtPerson(0).Text = "E" & Left(Mid(adoEmployee.Recordset.Fields(0), 2, 5), 5) + 1
  Else
     txtPerson(0).Text = "E1001"
  End If
  Me.cmdEsave.Enabled = True
  txtPerson(1).SetFocus
  Me.cmdEadd.Tag = "添加"
  Me.cmdEadd.Enabled = False
  Me.cmdEcancel.Enabled = True
End Sub

Private Sub cmdEcancel_Click()
  Me.cmdEcancel.Enabled = False
  Me.cmdEsave.Enabled = False
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Enabled = False
  Next i
  Me.cmdEadd.Enabled = True
  Me.cmdEupdate.Enabled = True
  Me.cmdEdel.Enabled = True
End Sub

Private Sub cmdEdel_Click()
  On Error Resume Next
  adoDept.Recordset.Delete
  MsgBox "当前数据库成功!", vbInformation
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Text = ""
  Next i
End Sub

Private Sub cmdEsave_Click()
  For i = 0 To txtPerson.Count - 2
  If txtPerson(i).Text = "" Then MsgBox "除备注信息可以为空，其于均不能为空！", vbInformation: Exit Sub
  Next i
  If Me.cmdEadd.Tag = "添加" Then
     adoEmployee.Recordset.AddNew
     For i = 0 To txtPerson.Count - 1
         adoEmployee.Recordset.Fields(i).Value = txtPerson(i).Text
     Next i
     adoEmployee.Recordset.Update
     MsgBox "数据添加成功!"
     Me.cmdEadd.Tag = ""
  End If
  If Me.cmdEupdate.Tag = "修改" Then
     For i = 0 To txtPerson.Count - 1
         adoEmployee.Recordset.Fields(i).Value = txtPerson(i).Text
     Next i
     adoEmployee.Recordset.Update
     MsgBox "数据更改成功!"
     Me.cmdEupdate.Tag = ""
  End If
  Me.cmdEadd.Enabled = True
  Me.cmdEupdate.Enabled = True
  Me.cmdEdel.Enabled = True
  Me.cmdEsave.Enabled = False
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Text = ""
  Next i
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Enabled = False
  Next i
  
  '//重新装载Combo1
  Combo1.Clear
  adoEmployee.RecordSource = "SELECT * FROM tbOA_employee"
  adoEmployee.Refresh
  For i = 0 To adoEmployee.Recordset.RecordCount - 1
      Combo1.AddItem adoEmployee.Recordset.Fields(1).Value
      adoEmployee.Recordset.MoveNext
  Next i
End Sub

Private Sub cmdEshow_Click()
  showEmployee.Show
End Sub

Private Sub cmdEupdate_Click()
  Me.cmdEupdate.Tag = "修改"
  Me.cmdEsave.Enabled = True
  Me.cmdEupdate.Enabled = False
  Me.cmdEcancel.Enabled = True
  Me.cmdEdel.Enabled = False
  Me.cmdEadd.Enabled = False
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Enabled = True
  Next i
End Sub

Private Sub cmdIdearClear_Click()
  On Error Resume Next
  adoIdear.Recordset.Delete
End Sub

Private Sub cmdUser_Click()
  adoUser.RecordSource = "select * from tbOA_user where username='" + Combo1.Text + "'"
  adoUser.Refresh
  If adoUser.Recordset.RecordCount > 0 Then
     MsgBox "该操作员已经存在！", vbInformation
     Combo1.SetFocus
     Exit Sub
  End If
  adoUser.RecordSource = "select * from tbOA_user"
  adoUser.Refresh
   If Text3.Text <> Text3.Text Then
      MsgBox "两次输入密码不一致！", vbInformation
   Else
      adoUser.Recordset.AddNew
      adoUser.Recordset.Fields(0).Value = Combo1.Text
      adoUser.Recordset.Fields(1).Value = Text3.Text
      adoUser.Recordset.Fields(2).Value = Abs(Check1.Value)
      adoUser.Recordset.Update
   End If
End Sub


Private Sub cmdUserDel_Click()
  On Error Resume Next
  If MsgBox("请确认是否删除 " & Combo1.Text & "操作员信息 ？", vbQuestion + vbYesNo) = vbYes Then
     adoUser.Recordset.Delete
  End If
  adoUser.RecordSource = "select * from tbOA_user"
  adoUser.Refresh
  DataGrid1.Columns(0).Caption = "操作员"
  DataGrid1.Columns(1).Caption = "操作员密码"
  DataGrid1.Columns(2).Caption = "操作类别"

End Sub

Private Sub cmdUserUpdate_Click()
  If Combo1.Text = "" Then
     MsgBox "请选择要修改操作员信息！", vbInformation
     Combo1.SetFocus
     Exit Sub
  End If
   adoUser.Recordset.Fields(0).Value = Combo1.Text
   adoUser.Recordset.Fields(1).Value = Text3.Text
   adoUser.Recordset.Fields(2).Value = Abs(Check1.Value)
   adoUser.Recordset.Update
   MsgBox "操作员信息更改成功！", vbInformation
  DataGrid1.Columns(0).Caption = "操作员"
  DataGrid1.Columns(1).Caption = "操作员密码"
  DataGrid1.Columns(2).Caption = "操作类别"
End Sub

Private Sub cmdVoteAdd_Click()
  If txtVote.Text = "" Then MsgBox "活动名称不能为空！", vbInformation: txtVote.SetFocus: Exit Sub
  adoVote.Recordset.AddNew
  adoVote.Recordset.Fields(1).Value = txtVote.Text
  adoVote.Recordset.Fields(2).Value = txtVoteMemo.Text
  adoVote.Recordset.Update
  MsgBox "添加成功", vbInformation
End Sub

Private Sub cmdVoteDel_Click()
  On Error Resume Next
  adoVote.Recordset.Delete
End Sub

Private Sub Combo1_Click()
  adoUser.RecordSource = "select * from tbOA_user where username='" + Combo1.Text + "'"
  adoUser.Refresh
  If adoUser.Recordset.RecordCount > 0 Then
     Text3.Text = adoUser.Recordset.Fields(1).Value
     Check1.Value = Abs(adoUser.Recordset.Fields(2).Value)
  End If
End Sub

Private Sub DataGrid3_DblClick()
  On Error Resume Next
  If MsgBox("是否删除序号为 ：" & DataGrid3.Columns(0) & "数据？", vbQuestion + vbYesNo) = vbYes Then
     adoIdear.Recordset.Delete
  End If
End Sub

Private Sub Form_Load()
  '///部门管理
  adoDept.ConnectionString = PublicStr
  adoDept.RecordSource = "SELECT * FROM tbOA_dept"
  adoDept.Refresh
  Me.cmdDeptCancel.Enabled = False
  Me.cmdDeptSave.Enabled = False
  Text1.Enabled = False
  Text2.Enabled = False
  '///员工管理
  adoEmployee.ConnectionString = PublicStr
  adoEmployee.RecordSource = "SELECT * FROM tbOA_employee"
  adoEmployee.Refresh
  Me.cmdEcancel.Enabled = False
  For i = 0 To txtPerson.Count - 1
      txtPerson(i).Enabled = False
  Next i
  For i = 0 To adoEmployee.Recordset.RecordCount - 1
      Combo1.AddItem adoEmployee.Recordset.Fields(1).Value
      adoEmployee.Recordset.MoveNext
  Next i
  '///员工设置
  adoUser.ConnectionString = PublicStr
  adoUser.RecordSource = "select * from tbOA_user"
  adoUser.Refresh
  Set DataGrid1.DataSource = adoUser
  DataGrid1.Columns(0).Caption = "操作员"
  DataGrid1.Columns(1).Caption = "操作员密码"
  DataGrid1.Columns(2).Caption = "操作类别"
  '///投票活动设置
  adoVote.ConnectionString = PublicStr
  adoVote.RecordSource = "select * from tbOA_vote order by vote_qty desc"
  adoVote.Refresh
  Set DataGrid2.DataSource = adoVote
  DataGrid2.Columns(0).Caption = "序号"
  DataGrid2.Columns(1).Caption = "活动名称"
  DataGrid2.Columns(2).Caption = "活动描述"
  DataGrid2.Columns(3).Caption = "活动票数"
  '////意见箱管理设置
  adoIdear.ConnectionString = PublicStr
  adoIdear.RecordSource = "select * from tbOA_idear"
  adoIdear.Refresh
  Set DataGrid3.DataSource = adoIdear
  DataGrid3.Columns(0).Caption = "序号"
  DataGrid3.Columns(1).Caption = "意见主题"
  DataGrid3.Columns(2).Caption = "意见内容"
  DataGrid3.Columns(2).Width = 4800
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Text2.SetFocus
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Me.cmdDeptSave.SetFocus
End Sub

Private Sub txtPerson_KeyPress(Index As Integer, KeyAscii As Integer)
  If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub