formkh.frm

这是一个人事管理软件

         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            ImageIndex      =   12
         EndProperty
      EndProperty
   End
   Begin VB.Label Label10 
      Caption         =   "季度"
      Height          =   255
      Left            =   360
      TabIndex        =   21
      Top             =   1680
      Width           =   495
   End
   Begin VB.Label Label9 
      Caption         =   "时间"
      Height          =   255
      Left            =   2160
      TabIndex        =   16
      Top             =   1680
      Width           =   495
   End
   Begin VB.Label Label8 
      Caption         =   "等级"
      Height          =   255
      Left            =   5880
      TabIndex        =   15
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Label7 
      Caption         =   "总分"
      Height          =   255
      Left            =   3960
      TabIndex        =   13
      Top             =   1320
      Width           =   375
   End
   Begin VB.Label Label6 
      Caption         =   "加减分"
      Height          =   255
      Left            =   2040
      TabIndex        =   11
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label5 
      Caption         =   "评分"
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "部门"
      Height          =   255
      Left            =   3960
      TabIndex        =   7
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "姓名"
      Height          =   255
      Left            =   2160
      TabIndex        =   6
      Top             =   960
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "工号"
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   975
      Width           =   375
   End
   Begin VB.Label Label4 
      Caption         =   "职务"
      Height          =   255
      Left            =   5880
      TabIndex        =   4
      Top             =   960
      Width           =   495
   End
End
Attribute VB_Name = "Formkh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vzgid, vbmid, vjobid, vzgname, vbmname, vjobname
Dim vbookmark As Variant
Dim lcurrrec As Long
Dim baddnewflag As Boolean
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Dim vmonth
Dim vcount

Private Sub Adckh_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not Adckh.Recordset.EOF And Not Adckh.Recordset.BOF Then
If Not IsNull(Adckh.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adckh.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adckh.Recordset.Fields("zgname").Value) Then
Textzgname.Text = Adckh.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adckh.Recordset.Fields("bmid").Value) Then
Textbmname.Text = Adckh.Recordset.Fields("bmid").Value
End If
If Not IsNull(Adckh.Recordset.Fields("jobid").Value) Then
Textjobid.Text = Adckh.Recordset.Fields("jobid").Value
End If
If Not IsNull(Adckh.Recordset.Fields("maker").Value) Then
Textmaker.Text = Adckh.Recordset.Fields("maker").Value
End If
If Not IsNull(Adckh.Recordset.Fields("addm").Value) Then
Textaddm.Text = Adckh.Recordset.Fields("addm").Value
End If
If Not IsNull(Adckh.Recordset.Fields("sdate").Value) Then
Textsdate.Text = Adckh.Recordset.Fields("sdate").Value
End If
If Not IsNull(Adckh.Recordset.Fields("mcount").Value) Then
Textmcount.Text = Adckh.Recordset.Fields("mcount").Value
End If
If Not IsNull(Adckh.Recordset.Fields("jdname").Value) Then
DC1.Text = Adckh.Recordset.Fields("jdname").Value
End If
If Not IsNull(Adckh.Recordset.Fields("djname").Value) Then
Textdjname.Text = Adckh.Recordset.Fields("djname").Value
End If
End If
End Sub

Private Sub Command1_Click()
Dialogjd.Show
End Sub

Private Sub DC1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textsdate.SetFocus
End If
End Sub

Private Sub Form_Load()
Dim vmonth, vyear, vdate
vmonth = Month(Date)
vyear = Year(Date)
vdate = CDate(vyear & "-" & vmonth & "-1")
Adckh.RecordSource = "select * from khrecord order by zgid,jdname"
Adckh.Refresh
setbuttons True
Toolbar1.Buttons(4).Enabled = False
If Not Adckh.Recordset.EOF Then
If Not IsNull(Adckh.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adckh.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adckh.Recordset.Fields("maker").Value) Then
Textmaker.Text = Adckh.Recordset.Fields("maker").Value
End If
If Not IsNull(Adckh.Recordset.Fields("addm").Value) Then
Textaddm.Text = Adckh.Recordset.Fields("addm").Value
End If
If Not IsNull(Adckh.Recordset.Fields("sdate").Value) Then
Textsdate.Text = Adckh.Recordset.Fields("sdate").Value
End If
If Not IsNull(Adckh.Recordset.Fields("mcount").Value) Then
Textmcount.Text = Adckh.Recordset.Fields("mcount").Value
End If
If Not IsNull(Adckh.Recordset.Fields("jdname").Value) Then
DC1.Text = Adckh.Recordset.Fields("jdname").Value
End If
If Not IsNull(Adckh.Recordset.Fields("djname").Value) Then
Textdjname.Text = Adckh.Recordset.Fields("djname").Value
End If
End If
End Sub


Private Sub Textaddm_KeyPress(KeyAscii As Integer)
Dim vcount
If KeyAscii = 13 Then
If Textmaker.Text <> "" And Textaddm.Text <> "" Then
Textmcount.Text = Val(Textmaker.Text) + Val(Textaddm.Text)
End If
vcount = CInt(Textmcount.Text)
Adcdjset.RecordSource = "select * from djset where startm<='" & vcount & "' and endm>='" & vcount & "'"
Adcdjset.Refresh
If Not Adcdjset.Recordset.EOF Then
Textdjname.Text = Adcdjset.Recordset.Fields("djname").Value
End If
DC1.SetFocus
End If
End Sub


Private Sub Textbmname_Change()
Dim vbmid, vbmname As String
vbmid = Textbmname.Text
Adcbm.RecordSource = "select bmname from tbm where bmid ='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
vbmname = Adcbm.Recordset.Fields("bmname").Value
Textbmname.Text = vbmname
Textbmid.Text = vbmid
End If
End Sub

Private Sub Textjdname_Change()
'Dim vjdid, vjdname As String
'vjdid = Textjdname.Text
'Adcjd.RecordSource = "select * from jd where jdid ='" & vjdid & "'"
'Adcjd.Refresh
'If Not Adcjd.Recordset.EOF Then
'vjdname = Adcjd.Recordset.Fields("jdname").Value
'Textjdname.Text = vjdname
'Textjdid.Text = vjdid
'End If
End Sub

Private Sub Textjobname_Change()
Dim vjobid, vjobname As String
vjobid = Textjobname.Text
Adcjob.RecordSource = "select jobname from tjob where jobid ='" & vjobid & "'"
Adcjob.Refresh
If Not Adcjob.Recordset.EOF Then
vjobname = Adcjob.Recordset.Fields("jobname").Value
Textjobname.Text = vjobname
Textjobid.Text = vjobid
End If

End Sub

Private Sub Textmaker_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textaddm.SetFocus
End If
End Sub

Private Sub Textzgid_KeyPress(KeyAscii As Integer)
Dim vjd
If KeyAscii = 13 Then
If IsNull(Textzgid.Text) Then
MsgBox ("没有输入工号")
Textzgid.SetFocus
Else
vzgid = Textzgid.Text
Adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
Adckh.RecordSource = "select * from khrecord where zgid= '" & vzgid & "'order by sdate"
Adckh.Refresh

If Not IsNull(Adczg.Recordset.Fields("zgname").Value) Then
Textzgname = Adczg.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adczg.Recordset.Fields("bmid").Value) Then
Textbmname.Text = Adczg.Recordset.Fields("bmid").Value
End If
If Not IsNull(Adczg.Recordset.Fields("jobid").Value) Then
Textjobname.Text = Adczg.Recordset.Fields("jobid").Value
End If
Textmaker.SetFocus
End If
End If
End If

End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim response, iresponse As Integer
Dim vdate1
Dim vjd
Select Case Button.Index
Case 1
If Not (Adckh.Recordset.BOF And Adckh.Recordset.EOF) Then
vbookmark = Adckh.Recordset.Bookmark
End If
Adckh.Recordset.AddNew
Textmaker.Text = ""
Textaddm.Text = 0
Textmcount.Text = 0
Textdjname.Text = ""
Textzgid.SetFocus
baddnewflag = True
setbuttons False
Toolbar1.Buttons(4).Enabled = True
Case 2
response = MsgBox("Are you sure", vbYesNo, "delete record")
If response = vbYes Then
Adckh.Recordset.Delete
Adckh.Recordset.MoveNext
End If
If Adckh.Recordset.EOF Or Adckh.Recordset.BOF Then
Adckh.Recordset.MoveLast
End If
Case 3
Adckh.RecordSource = "select * from khrecord order by zgid,jdname"
Adckh.Refresh
Case 4
response = MsgBox("你确信要更新", vbYesNo, "更新数据")
If response = vbYes Then
If Textzgid.Text = "" Or Not IsDate(Textsdate.Text) Or Textmaker.Text = "" Or Textdjname.Text = "" Then
MsgBox ("有空值，请检察")
Textzgid.SetFocus
Else
vdate1 = Textsdate.Text
vjd = DC1.Text
Adckh1.RecordSource = "select * from khrecord where zgid='" & vzgid & "'and sdate='" & vdate1 & "'and jdname='" & vjd & "'"
Adckh1.Refresh
If Adckh1.Recordset.EOF Then
Adckh.Recordset.Fields("zgid").Value = Textzgid.Text
Adckh.Recordset.Fields("zgname").Value = Textzgname.Text
Adckh.Recordset.Fields("bmid").Value = Textbmid.Text
Adckh.Recordset.Fields("jobid").Value = Textjobid.Text
Adckh.Recordset.Fields("sdate").Value = Textsdate.Text
Adckh.Recordset.Fields("maker").Value = Textmaker.Text
Adckh.Recordset.Fields("mcount").Value = Textmcount.Text
Adckh.Recordset.Fields("addm").Value = Textaddm.Text
Adckh.Recordset.Fields("djname").Value = Textdjname.Text
Adckh.Recordset.Fields("jdname").Value = DC1.Text
Adckh.Recordset.update
End If
End If
End If
setbuttons True
Toolbar1.Buttons(4).Enabled = False
Case 5
response = MsgBox("你确信取消操作", vbYesNo, "取消操作")
If response = vbYes Then
setbuttons True
Adckh.Recordset.CancelUpdate
If vbookmark > 0 Then
Adckh.Recordset.Bookmark = vbookmark
Else
Adckh.Recordset.MoveFirst
End If
Toolbar1.Buttons(3).Enabled = False
baddnewflag = False
End If
Case 6
If Toolbar1.Buttons(4).Enabled Then
iresponse = MsgBox("data changed ,save it?", vbYesNo, "update data?")
If iresponse = vbYes Then
Adckh.Recordset.update
 Else
Adckh.Recordset.CancelUpdate
End If
End If
Unload Me
Case 7
Dialogkhfind.Show
Case 8
Adckh.Recordset.MoveFirst
Case 9
If Not Adckh.Recordset.BOF Then
Adckh.Recordset.MovePrevious
Else
Adckh.Recordset.MoveFirst
End If

Case 10
If Not Adckh.Recordset.EOF Then
Adckh.Recordset.MoveNext
Else
Adckh.Recordset.MoveLast
End If
Case 11
Adckh.Recordset.MoveLast
Case 12
Toolbar1.Buttons(4).Enabled = True
Case 13
Formkhrp.Show
End Select
End Sub
Private Sub setbuttons(bval As Boolean)
Toolbar1.Buttons(1).Enabled = bval
Toolbar1.Buttons(2).Enabled = bval
Toolbar1.Buttons(3).Enabled = bval
End Sub