fmkqwrite.frm

这是一个人事管理软件

         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   3360
      TabIndex        =   11
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label2 
      Caption         =   "姓名"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   1800
      TabIndex        =   10
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label1 
      Caption         =   "工号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   255
      Left            =   480
      TabIndex        =   9
      Top             =   495
      Width           =   495
   End
End
Attribute VB_Name = "Fmkqwrite"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vbookmark As Variant
Dim lcurrrec As Long
Dim baddnewflag As Boolean
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Dim response
Dim vweek As Integer
Private Sub Adckqwrite_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not Adckqwrite.Recordset.EOF Then
If IsNull(Adckqwrite.Recordset.Fields("zgid").Value) Then
Textzgid.Text = ""
Else
Textzgid.Text = Adckqwrite.Recordset.Fields("zgid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("zgname").Value) Then
Textzgname.Text = ""
Else
Textzgname.Text = Adckqwrite.Recordset.Fields("zgname").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("bmid").Value) Then
Textbmname.Text = ""
Else
Textbmname.Text = Adckqwrite.Recordset.Fields("bmid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("stimeh").Value) Then
Text1.Text = ""
Else
Text1.Text = Adckqwrite.Recordset.Fields("stimeh").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("stimem").Value) Then
Text2.Text = ""
Else
Text2.Text = Adckqwrite.Recordset.Fields("stimem").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("etimeh").Value) Then
Text3.Text = ""
Else
Text3.Text = Adckqwrite.Recordset.Fields("etimeh").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("etimem").Value) Then
Text4.Text = ""
Else
Text4.Text = Adckqwrite.Recordset.Fields("etimem").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("ctime").Value) Then
Textctime.Text = ""
Else
Textctime.Text = Adckqwrite.Recordset.Fields("ctime").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("wdate").Value) Then
Textdates.Text = ""
Else
Textdates.Text = Adckqwrite.Recordset.Fields("wdate").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("kqlid").Value) Then
textkqlname.Text = ""
Else
textkqlname.Text = Adckqwrite.Recordset.Fields("kqlid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("kqbeizu").Value) Then
Textbeizu.Text = ""
Else
Textbeizu.Text = Adckqwrite.Recordset.Fields("kqbeizu").Value
End If
End If
End Sub

Private Sub Cmdaction_Click(Index As Integer)
Dim vstimeh, vstimem, vetimeh, vetimem, vdate1, vdate2, vweek
Dim vstime, vetime, vctime, vkqlid, vbmid, vbeizu, vzgid, vzgname
Select Case Index
Case 0
If Not (Adckqwrite.Recordset.BOF And Adckqwrite.Recordset.EOF) Then
vbookmark = Adckqwrite.Recordset.Bookmark
End If
Adckqwrite.Recordset.AddNew
Textzgid.SetFocus
Textzgid.Text = ""
Textdates.Text = ""
Textdatee.Text = ""
Textkqlid.Text = "A1"
Text1.Text = ""
Text2.Text = 0
Text3.Text = ""
Text4.Text = 0
Textctime.Text = ""
baddnewflag = True
setbuttons False
vdate1 = ""
vdate2 = ""
Cmdaction(3).Enabled = True
Case 1
response = MsgBox("Are you sure", vbYesNo, "delete record")
If response = vbYes Then
Adckqwrite.Recordset.Delete
Adckqwrite.Recordset.MoveNext
End If
Case 2
Dim vmbmid, vmbmname As String
Adckqwrite.Recordset.Requery
Cmdaction(3).Enabled = False

Case 3
 response = IsDate(Textdate1.Text) And IsDate(Textdatee.Text)
If Not IsDate(Textdates.Text) Or Not IsDate(Textdatee.Text) Then
MsgBox ("日期错误")
Textdates.SetFocus
End If
response = MsgBox("你确信要更新", vbYesNo, "更新数据")
If response = vbYes Then
If Textzgid.Text = "" Or Textdates.Text = "" Or Textdatee.Text = "" Or textkqlname.Text = "" Or Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Textctime.Text = "" Then
response = MsgBox("有为空的项目", vbOKOnly, "请输入完整的数据")
If response = vbOK Then
Textzgid.SetFocus
End If
Else
vdate1 = CDate(Textdates.Text)
vdate2 = CDate(Textdatee.Text)
vbeizu = Textbeizu.Text
vzgid = Textzgid.Text
vzgname = Textzgname.Text
vbmid = Textbmid.Text
vstimeh = CInt(Text1.Text)
vstimem = CInt(Text2.Text)
vetimeh = CInt(Text3.Text)
vetimem = CInt(Text4.Text)
vctime = CInt(Textctime.Text)
vkqlid = Textkqlid.Text
vctime = Val(Textctime.Text)
Do While vdate1 <= vdate2
vweek = Weekday(vdate1, 2)
If vweek <> 6 And vweek <> 7 Then
Adckqwrite.Recordset.Fields("kqbeizu").Value = vbeizu
Adckqwrite.Recordset.Fields("zgid").Value = vzgid
Adckqwrite.Recordset.Fields("zgname").Value = vzgname
Adckqwrite.Recordset.Fields("bmid").Value = vbmid
Adckqwrite.Recordset.Fields("wdate").Value = vdate1
Adckqwrite.Recordset.Fields("wweek").Value = vweek
Adckqwrite.Recordset.Fields("stimeh").Value = vstimeh
Adckqwrite.Recordset.Fields("stimem").Value = vstimem
Adckqwrite.Recordset.Fields("etimeh").Value = vetimeh
Adckqwrite.Recordset.Fields("etimem").Value = vetimem
Adckqwrite.Recordset.Fields("kqlid").Value = vkqlid
Adckqwrite.Recordset.Fields("stime").Value = vstime
Adckqwrite.Recordset.Fields("etime").Value = vetime
Adckqwrite.Recordset.Fields("ctime").Value = vctime
Adckqwrite.Recordset.update
vdate1 = vdate1 + 1
If vdate1 <= vdate2 Then
Adckqwrite.Recordset.AddNew
End If
End If
Loop
End If
End If
setbuttons True
Cmdaction(3).Enabled = False
Case 4
response = MsgBox("你确信取消操作", vbYesNo, "取消操作")
If response = vbYes Then
setbuttons True
Adckqwrite.Recordset.CancelUpdate
If vbookmark > 0 Then
Adckqwrite.Recordset.Bookmark = vbookmark
Else
Adckqwrite.Recordset.MoveFirst
End If
Cmdaction(3).Enabled = False
baddnewflag = False
End If
Case 5
Cmdaction(3).Enabled = True
setbuttons False
End Select
End Sub
Private Sub setbuttons(bval As Boolean)
Cmdaction(0).Enabled = bval
Cmdaction(1).Enabled = bval
Cmdaction(2).Enabled = bval
End Sub

Private Sub DataGrid1_Change()
Cmdaction(3).Enabled = True
End Sub

Private Sub Command1_Click()
Dim vdate1, vdate2, vzgid
vdate1 = Textdate1.Text
vdate2 = Textdate2.Text
vzgid = Textzgid.Text
If IsDate(vdate1) Or IsDate(vdate2) Or Textzgid.Text = "" Then
Adckqwrite.RecordSource = "select * from kqwrite where wdate>='" & vdate1 & "' and wdate<='" & vdate2 & "'and zgid='" & vzgid & "'"
Adckqwrite.Refresh
Else
MsgBox ("日期输入不对")
End If
End Sub

Private Sub Command2_Click()
Dim iresponse As Integer
If Cmdaction(3).Enabled Then
iresponse = MsgBox("data changed ,save it?", vbYesNo, "update data?")
If iresponse = vbYes Then
If Not IsNull(Adckqwrite.Recordset.Fields("zgid").Value) Then
Adckqwrite.Recordset.update
End If
 Else
Adckqwrite.Recordset.CancelUpdate
End If
End If
Unload Me
End Sub

Private Sub Command3_Click()
Dialogkqb.Show
End Sub

Private Sub Form_Load()
Dim vmonth, vyear, vdate
vmonth = Month(Date)
vyear = Year(Date)
vdate = CDate(vyear & "-" & vmonth & "-1")
Adckqwrite.RecordSource = "select * from kqwrite where wdate>='" & vdate & "'order by zgid "
Adckqwrite.Refresh
If Not Adckqwrite.Recordset.EOF Then
If IsNull(Adckqwrite.Recordset.Fields("zgid").Value) Then
Textzgid.Text = ""
Else
Textzgid.Text = Adckqwrite.Recordset.Fields("zgid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("zgname").Value) Then
Textzgname.Text = ""
Else
Textzgname.Text = Adckqwrite.Recordset.Fields("zgname").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("bmid").Value) Then
Textbmname.Text = ""
Else
Textbmname.Text = Adckqwrite.Recordset.Fields("bmid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("stimeh").Value) Then
Text1.Text = ""
Else
Text1.Text = Adckqwrite.Recordset.Fields("stimeh").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("stimem").Value) Then
Text2.Text = ""
Else
Text2.Text = Adckqwrite.Recordset.Fields("stimem").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("etimeh").Value) Then
Text3.Text = ""
Else
Text3.Text = Adckqwrite.Recordset.Fields("etimeh").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("etimem").Value) Then
Text4.Text = ""
Else
Text4.Text = Adckqwrite.Recordset.Fields("etimem").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("ctime").Value) Then
Textctime.Text = ""
Else
Textctime.Text = Adckqwrite.Recordset.Fields("ctime").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("wdate").Value) Then
Textdates.Text = ""
Else
Textdates.Text = Adckqwrite.Recordset.Fields("wdate").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("kqlid").Value) Then
textkqlname.Text = ""
Else
textkqlname.Text = Adckqwrite.Recordset.Fields("kqlid").Value
End If
If IsNull(Adckqwrite.Recordset.Fields("kqbeizu").Value) Then
Textbeizu.Text = ""
Else
Textbeizu.Text = Adckqwrite.Recordset.Fields("kqbeizu").Value
End If

End If
DG1.Columns("zgid").Caption = "工号"
DG1.Columns("zgname").Caption = "姓名"
DG1.Columns("bmid").Caption = "部门"
DG1.Columns("stimeh").Caption = "开始时"
DG1.Columns("stimem").Caption = "开始分"
DG1.Columns("etimeh").Caption = "结束时"
DG1.Columns("etimem").Caption = "结束分"
DG1.Columns("kqlid").Caption = "考勤编号"
DG1.Columns("stime").Visible = False
DG1.Columns("etime").Visible = False
DG1.Columns("kqbeizu").Caption = "备注"
DG1.Columns("wdate").Caption = "日期"
DG1.Columns("ctime").Caption = "加班时"
DG1.Columns("wweek").Caption = "星期"
End Sub

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

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

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textctime.SetFocus
End If
End Sub

Private Sub Textdatee_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textkqlname.SetFocus
End If
End Sub

Private Sub Textdates_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textdatee.Text = Textdates.Text
Textdatee.SetFocus
End If
End Sub

Private Sub Textkqlid_Change()
Dim vkqlid, vkqlname
vkqlid = Textkqlid.Text
Adckql.RecordSource = "select * from kbset where kqlid='" & vkqlid & "'"
Adckql.Refresh
If Not Adckql.Recordset.EOF Then
vkqlname = Adckql.Recordset.Fields("kqlname").Value
textkqlname.Text = vkqlid
End If
End Sub

Private Sub textkqlname_Change()
Dim vkqlid, vkqlname
vkqlid = textkqlname.Text
Adckql.RecordSource = "select * from kbset where kqlid='" & vkqlid & "'"
Adckql.Refresh
If Not Adckql.Recordset.EOF Then
textkqlname.Text = Adckql.Recordset.Fields("kqlname").Value
Textkqlid.Text = vkqlid
End If
End Sub

Private Sub textkqlname_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub

Private Sub Textzgid_KeyDown(KeyCode As Integer, Shift As Integer)
Dim vzgid, vbmid
If IsNull(Text1.Text) Then
MsgBox ("没有输入工号")
Text1.SetFocus
Else
vzgid = Textzgid.Text
Adczg.RecordSource = "select * from tzg where zgid='" & vzgid & "'"
Adczg.Refresh
If Not Adczg.Recordset.EOF Then
If IsNull(Adczg.Recordset.Fields("zgname").Value) Then
Textzgname = ""
Else
Textzgname.Text = Adczg.Recordset.Fields("zgname").Value
Textbmid.Text = Adczg.Recordset.Fields("bmid").Value
vbmid = Textbmid.Text
Adcbm.RecordSource = "select * from tbm where bmid='" & vbmid & "'"
Adcbm.Refresh
If Not Adcbm.Recordset.EOF Then
Textbmname.Text = Adcbm.Recordset.Fields("bmname").Value
Textdates.SetFocus
End If
End If
End If
End If
End Sub