fmzg.frm

人事管理系统 包含考勤

Else
Textht.Text = Adczg.Recordset.Fields("htdate").Value
End If
End If


End Sub

Private Sub Command1_Click()
Dialogbm.Show
End Sub

Private Sub Command2_Click()
Dialogjob.Show
End Sub

Private Sub Command3_Click()
Dialogstudy.Show
End Sub

Private Sub Command4_Click()
Dialogbanl.Show
End Sub

Private Sub Command5_Click()
Dialogxz.Show
End Sub



Private Sub Command6_Click()
Dialogmarry.Show
End Sub

Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 24 Then
Adczg.Recordset.MovePrevious
If Adczg.Recordset.BOF Then
Adczg.Recordset.MoveFirst
End If
End If
If KeyAscii = 25 Then
Adczg.Recordset.MoveNext
If Adczg.Recordset.EOF Then
Adczg.Recordset.MoveLast
End If
End If
End Sub

Private Sub Form_Load()
Adczg.RecordSource = "select * from tzg where zgid<>''order by zgid"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
Textcount.Text = Adczg.Recordset.RecordCount
If IsNull(Adczg.Recordset.Fields("zgid").Value) Then
txtzgid.Text = ""
Else
txtzgid.Text = Adczg.Recordset.Fields("zgid").Value
End If
If IsNull(Adczg.Recordset.Fields("zgname").Value) Then
txtzgname.Text = ""
Else
txtzgname.Text = Adczg.Recordset.Fields("zgname").Value
End If
If IsNull(Adczg.Recordset.Fields("bmid").Value) Then
txtbmname.Text = ""
Else
txtbmname.Text = Adczg.Recordset.Fields("bmid").Value
End If
If IsNull(Adczg.Recordset.Fields("writedate").Value) Then
txtwritedate.Text = ""
Else
txtwritedate.Text = Adczg.Recordset.Fields("writedate").Value
End If
If IsNull(Adczg.Recordset.Fields("banlid").Value) Then
Textbid.Text = ""
Else
Textbid.Text = Adczg.Recordset.Fields("banlid").Value
End If
If IsNull(Adczg.Recordset.Fields("jobid").Value) Then
txtjobname.Text = ""
Else
txtjobname.Text = Adczg.Recordset.Fields("jobid").Value
End If
If IsNull(Adczg.Recordset.Fields("workdate").Value) Then
txtworkdate.Text = ""
Else
txtworkdate.Text = Adczg.Recordset.Fields("workdate").Value
End If
If IsNull(Adczg.Recordset.Fields("jobcid").Value) Then
txtjobcid.Text = ""
Else
txtjobcid.Text = Adczg.Recordset.Fields("jobcid").Value
End If
If IsNull(Adczg.Recordset.Fields("jobj").Value) Then
txtjobj.Text = ""
Else
txtjobj.Text = Adczg.Recordset.Fields("jobj").Value
End If
If IsNull(Adczg.Recordset.Fields("sex").Value) Then
Txtsexname.Text = ""
Else
Txtsexname.Text = Adczg.Recordset.Fields("sex").Value
End If
If IsNull(Adczg.Recordset.Fields("sfid").Value) Then
txtsfid.Text = ""
Else
txtsfid.Text = Adczg.Recordset.Fields("sfid").Value
End If
If IsNull(Adczg.Recordset.Fields("borth").Value) Then
txtborth.Text = ""
Else
txtborth.Text = Adczg.Recordset.Fields("borth").Value
End If
If IsNull(Adczg.Recordset.Fields("marry").Value) Then
txtmarry.Text = ""
Else
txtmarry.Text = Adczg.Recordset.Fields("marry").Value
End If
If IsNull(Adczg.Recordset.Fields("lxname").Value) Then
txtlxname.Text = ""
Else
txtlxname.Text = Adczg.Recordset.Fields("lxname").Value
End If
If IsNull(Adczg.Recordset.Fields("lxtel").Value) Then
txtlxtel.Text = ""
Else
txtlxtel.Text = Adczg.Recordset.Fields("lxtel").Value
End If
If IsNull(Adczg.Recordset.Fields("jaddress").Value) Then
txtjaddress.Text = ""
Else
txtjaddress.Text = Adczg.Recordset.Fields("jaddress").Value
End If
If IsNull(Adczg.Recordset.Fields("studyid").Value) Then
txtstudyname.Text = ""
Else
txtstudyname.Text = Adczg.Recordset.Fields("studyid").Value
End If
If IsNull(Adczg.Recordset.Fields("htdate").Value) Then
Textht.Text = ""
Else
Textht.Text = Adczg.Recordset.Fields("htdate").Value
End If
End If
Toolbar1.Buttons(4).Enabled = False
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

Private Sub Textbid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtzgname.SetFocus
End If
End Sub

Private Sub Textht_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtborth.SetFocus
End If

End Sub




Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim response, iresponse As Integer
Select Case Button.Index
Case 1
Adczg.Recordset.AddNew
baddnewflag = True
setbuttons False
Toolbar1.Buttons(4).Enabled = True
Case 2
response = MsgBox("你确信吗？", vbYesNo, "删除记录")
If response = vbYes Then
Adczg.Recordset.Delete
Adczg.Recordset.MoveNext
If Adczg.Recordset.EOF Then
Adczg.Recordset.MoveLast
End If
End If
Case 3
Adczg.RecordSource = "select * from tzg where zgid<>'-1'order by zgid"
Adczg.Refresh
Textcount.Text = Adczg.Recordset.RecordCount
Adczg.Recordset.Requery
Toolbar1.Buttons(4).Enabled = False
Case 4
response = MsgBox("你确信要保存", vbYesNo, "保存数据")
If response = vbYes Then
If IsDate(txtworkdate.Text) Or IsDate(txtborth.Text) Then
If txtzgid.Text <> "" Then
Adczg.Recordset.Fields("zgid").Value = txtzgid.Text
End If
If txtzgname.Text <> "" Then
Adczg.Recordset.Fields("zgname").Value = txtzgname.Text
End If
If txtbmid.Text <> "" Then
Adczg.Recordset.Fields("bmid").Value = txtbmid.Text
End If
If IsDate(txtwritedate.Text) Then
Adczg.Recordset.Fields("writedate").Value = CDate(txtwritedate.Text)
End If
If Textbid.Text <> "" Then
Adczg.Recordset.Fields("banlid").Value = Textbid.Text
End If
If txtjobid.Text <> "" Then
Adczg.Recordset.Fields("jobid").Value = txtjobid.Text
End If
If IsDate(txtworkdate.Text) Then
Adczg.Recordset.Fields("workdate").Value = CDate(txtworkdate.Text)
End If
If txtjobcid.Text <> "" Then
Adczg.Recordset.Fields("jobcid").Value = txtjobcid.Text
End If
If txtjobj.Text <> "" Then
Adczg.Recordset.Fields("jobj").Value = txtjobj.Text
End If
If txtsexid.Text <> "" Then
Adczg.Recordset.Fields("sex").Value = txtsexid.Text
End If
If txtsfid.Text <> "" Then
Adczg.Recordset.Fields("sfid").Value = txtsfid.Text
End If
If IsDate(txtborth.Text) Then
Adczg.Recordset.Fields("borth").Value = CDate(txtborth.Text)
End If
If txtmarry.Text <> "" Then
Adczg.Recordset.Fields("marry").Value = txtmarry.Text
End If
If txtlxname.Text <> "" Then
Adczg.Recordset.Fields("lxname").Value = txtlxname.Text
End If
If txtlxtel.Text <> "" Then
Adczg.Recordset.Fields("lxtel").Value = txtlxtel.Text
End If
If txtjaddress.Text <> "" Then
Adczg.Recordset.Fields("jaddress").Value = txtjaddress.Text
End If
If txtstudyid.Text <> "" Then
Adczg.Recordset.Fields("studyid").Value = txtstudyid.Text
End If
If Textht.Text <> "" Then
Adczg.Recordset.Fields("htdate").Value = Textht.Text
End If
Adczg.Recordset.Update
Else
MsgBox ("日期录入有误")
End If
End If
setbuttons True
Toolbar1.Buttons(4).Enabled = False
Case 5
response = MsgBox("你确信取消操作", vbYesNo, "取消操作")
If response = vbYes Then
setbuttons True
Adczg.Recordset.CancelUpdate
If vbookmark > 0 Then
Adczg.Recordset.Bookmark = vbookmark
Else
Adczg.Recordset.MoveFirst
End If
Toolbar1.Buttons(4).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
Adczg.Recordset.UpdateBatch adAffectAll
 Else
Adczg.Recordset.CancelUpdate
End If
End If
Unload Me
Case 7
Dialogzgfind.Show
Case 8
Adczg.Recordset.MoveFirst
Case 9
If Not (Adczg.Recordset.BOF) Then
Adczg.Recordset.MovePrevious
End If
If Adczg.Recordset.BOF Then
Adczg.Recordset.MoveFirst
End If
Case 10
If Not Adczg.Recordset.EOF Then
Adczg.Recordset.MoveNext
Else
Adczg.Recordset.MoveLast
End If

Case 11
Adczg.Recordset.MoveLast
Case 12
Toolbar1.Buttons(4).Enabled = True

End Select
End Sub


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

End Sub

 


Private Sub txtbmname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtwritedate.SetFocus
End If
End Sub

Private Sub txtborth_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtmarry.SetFocus
End If

End Sub

Private Sub txtjaddress_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adczg.Recordset.AddNew
txtwritedate.Text = Date
baddnewflag = True
setbuttons False
Toolbar1.Buttons(4).Enabled = True
End If
End Sub

Private Sub txtjobcid_KeyPress(KeyAscii As Integer)
txtjobj.SetFocus
End Sub

Private Sub txtjobj_KeyPress(KeyAscii As Integer)
txtsfid.SetFocus
End Sub

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

End Sub

Private Sub txtjobname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtworkdate.SetFocus
End If

End Sub

Private Sub txtlxname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtlxtel.SetFocus
End If
End Sub

Private Sub txtlxtel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtsexname.SetFocus
End If

End Sub

Private Sub txtmarry_Change()
Dim vbmid, vbmname As String
vbmid = txtmarry.Text
Adcmarry.RecordSource = "select * from marry where marryid ='" & vbmid & "'"
Adcmarry.Refresh
If Not Adcmarry.Recordset.EOF Then
vbmname = Adcmarry.Recordset.Fields("marryname").Value
txtmarry.Text = vbmname
Textmarryid.Text = vbmid
End If

End Sub

Private Sub txtmarry_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtstudyname.SetFocus
End If

End Sub

Private Sub Txtsexname_Change()
Dim vsexid, vsexname As String
vsexid = Txtsexname.Text
Adcsex.RecordSource = "select * from tsex where sexid='" & vsexid & "'"
Adcsex.Refresh
If Not Adcsex.Recordset.EOF Then
vsexname = Adcsex.Recordset.Fields("sexname").Value
Txtsexname.Text = vsexname
txtsexid.Text = vsexid
End If

End Sub

Private Sub Txtsexname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjaddress.SetFocus
End If

End Sub

Private Sub txtsfid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textht.SetFocus
End If
End Sub

Private Sub txtstudyname_Change()
Dim vstudyid, vstudyname As String

vstudyid = txtstudyname.Text
Adcstudy.RecordSource = "select studyname from tstudy where studyid ='" & vstudyid & "'"
Adcstudy.Refresh
If Not Adcstudy.Recordset.EOF Then
vstudyname = Adcstudy.Recordset.Fields("studyname").Value
txtstudyname.Text = vstudyname
txtstudyid.Text = vstudyid
End If
End Sub






Private Sub txtstudyname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtlxname.SetFocus
End If

End Sub

Private Sub txtworkdate_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjobcid.SetFocus
End If

End Sub

Private Sub txtwritedate_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textbid.SetFocus
End If
End Sub

Private Sub txtzgid_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtbmname.SetFocus
End If
End Sub

Private Sub txtzgname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjobname.SetFocus
End If

End Sub