📄 frmplan_ex.frm

📁 用户MODBUS规约通信编程,起参考作用.
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
If rs_2.EOF And rs_2.BOF Then

Else
rs_2.MoveFirst
End If

Do While rs_1.EOF <> True And rs_2.EOF <> True

 '看是否是任何人可以
 
If rs_1.Fields("巡检类型") = rs_2.Fields("采集器类型") And rs_1.Fields("地点") = rs_2.Fields("地点") Then '比较非漏
                          Plan_time = rs_1.Fields("计划时间")
                          true_time = rs_2.Fields("巡检时间")
                          Allo_time = rs_1.Fields("允许误差")
                          totaltime = DateDiff("n", CDate(Plan_time), CDate(true_time))
                          
                          zang_flag

If Abs(totaltime) <= Allo_time Then
Xj_result = "正点"
add
rs_1.MoveNext
rs_2.MoveNext
Else
    If Abs(totaltime) <= biaozhun Then
    
          If totaltime >= 0 Then
          Xj_result = "迟到"
          add
          rs_1.MoveNext
          rs_2.MoveNext
          Else
          Xj_result = "早到"
          add
          rs_1.MoveNext
          rs_2.MoveNext
         End If
         
  Else
    If totaltime > 0 Then
    add_1
    
      rs_1.MoveNext
    Else
       rs_2.MoveNext
    End If
    
 End If
 
End If


Else

If b_Next = True Then
rs_2.MoveNext
Else
add_1
rs_1.MoveNext
End If


End If







Loop




Do While rs_1.EOF <> True
Xj_result = "漏检"
Xj_date = find_time
Xj_type = rs_1.Fields("巡检类型")
Xj_lc = rs_1.Fields("地点")
Xj_planper = rs_1.Fields("人员")
Xj_plantime = rs_1.Fields("计划时间")
Xj_truetime = "未知"
Xj_trueper = "未知"
Xj_all = rs_1.Fields("允许误差")
If Combo1.Text = "全部" Or Combo1.Text = Xj_result Then
sqltxt = "insert into 计划执行表 values ('" & Xj_date & "','" & Xj_type & "','" & Xj_lc & "','" & Xj_planper & "','" & Xj_plantime & "' ,'" & Xj_trueper & "','" & Xj_truetime & "','" & Xj_all & " ','" & Xj_result & "')"
conn1.Execute (sqltxt)
End If
rs_1.MoveNext
Loop
Set rs_1 = Nothing
Set rs_2 = Nothing


TimeDelay 500


begin_flag = begin_flag + 1
Loop






Else '在一个月内



Do While begin_flag <= end_flag
If Len(begin_flag) = 1 Then
day_time = "0" & begin_flag
Else
day_time = begin_flag
End If

find_time = year_time & "/" & mon_time & "/" & day_time



sqltxt = "select * from 计划设置表 order by 巡检类型,地点,计划时间"
Set rs_1 = conn1.Execute(sqltxt)
sqltxt = "select * from 巡检结果表 where 巡检日期='" & find_time & " ' order by 采集器类型,地点, 巡检时间 "
Set rs_2 = conn1.Execute(sqltxt)
If rs_1.EOF And rs_1.BOF Then

Else
rs_1.MoveFirst
End If
If rs_2.EOF And rs_2.BOF Then

Else
rs_2.MoveFirst
End If





Do While rs_1.EOF <> True And rs_2.EOF <> True

 '进行比较
 


If rs_1.Fields("巡检类型") = rs_2.Fields("采集器类型") And rs_1.Fields("地点") = rs_2.Fields("地点") Then '比较非漏
                          Plan_time = rs_1.Fields("计划时间")
                          true_time = rs_2.Fields("巡检时间")
                          Allo_time = rs_1.Fields("允许误差")
                          totaltime = DateDiff("n", CDate(Plan_time), CDate(true_time))
                          
                          zang_flag

If Abs(totaltime) <= Allo_time Then
Xj_result = "正点"
add
rs_1.MoveNext
rs_2.MoveNext
Else
    If Abs(totaltime) <= biaozhun Then
    
          If totaltime >= 0 Then
          Xj_result = "迟到"
          add
          rs_1.MoveNext
          rs_2.MoveNext
          Else
          Xj_result = "早到"
          add
          rs_1.MoveNext
          rs_2.MoveNext
         End If
         
  Else
    If totaltime > 0 Then
    add_1
    
      rs_1.MoveNext
    Else
       rs_2.MoveNext
    End If
    
 End If
 
End If


Else

If b_Next = True Then
rs_2.MoveNext
Else
add_1
rs_1.MoveNext
End If


End If



Loop




Do While rs_1.EOF <> True
Xj_result = "漏检"
Xj_date = find_time
Xj_type = rs_1.Fields("巡检类型")
Xj_lc = rs_1.Fields("地点")
Xj_planper = rs_1.Fields("人员")
Xj_plantime = rs_1.Fields("计划时间")
Xj_truetime = "未知"
Xj_trueper = "未知"
Xj_all = rs_1.Fields("允许误差")
If Combo1.Text = "全部" Or Combo1.Text = Xj_result Then
sqltxt = "insert into 计划执行表 values ('" & Xj_date & "','" & Xj_type & "','" & Xj_lc & "','" & Xj_planper & "','" & Xj_plantime & "' ,'" & Xj_trueper & "','" & Xj_truetime & "','" & Xj_all & " ','" & Xj_result & "')"
conn1.Execute (sqltxt)
End If
rs_1.MoveNext
Loop
Set rs_1 = Nothing
Set rs_2 = Nothing
TimeDelay 500
begin_flag = begin_flag + 1
Loop




End If










conn1.Close







frmplanshow.Show
TimeDelay 300


Unload frmdelay
asPopup1.Enabled = True
asPopup2.Enabled = True










   
    








End Sub

Private Sub asPopup2_Click(Cancel As Boolean)
Unload Me

End Sub

Private Sub Command1_Click()


End Sub

Private Sub Form_Load()
On Error Resume Next
Dim now_date As Date
Date = Now
DTPicker1.Value = Date
DTPicker2.Value = Date
XPForm1.Make
Combo1.AddItem "全部"
Combo1.AddItem "早到"
Combo1.AddItem "正点"
Combo1.AddItem "迟到"
Combo1.AddItem "漏检"
Dim i As Integer
For i = 1 To 10
Combo2.AddItem i * 10
Next
Combo2.Text = "30"
Combo3.AddItem "任何人"

connectstring = "provider=Microsoft.Jet.oledb.4.0;" & _
            "data source=" & App.path & "\jk.mdb"
 Dim conn1 As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 
 
conn1.Open connectstring
conn1.CursorLocation = adUseClient
sqltxt = "select  * from 人员设置表"
Set rs = conn1.Execute(sqltxt)
If rs.BOF And rs.EOF Then
Else
rs.MoveFirst
Do While rs.EOF <> True
Combo3.AddItem rs.Fields(1)
rs.MoveNext
Loop


End If
Set rs = Nothing
Set conn1 = Nothing







 
End Sub


Public Sub add()
Xj_date = rs_2.Fields("巡检日期")
Xj_type = rs_1.Fields("巡检类型")
Xj_lc = rs_1.Fields("地点")
Xj_planper = rs_1.Fields("人员")
Xj_plantime = rs_1.Fields("计划时间")
Xj_truetime = rs_2.Fields("巡检时间")
Xj_trueper = rs_2.Fields("人员")
Xj_all = rs_1.Fields("允许误差")
If Combo1.Text = "全部" Or Combo1.Text = Xj_result Then
sqltxt = "insert  into 计划执行表 values ('" & Xj_date & "','" & Xj_type & "','" & Xj_lc & "','" & Xj_planper & "','" & Xj_plantime & "' ,'" & Xj_trueper & "','" & Xj_truetime & "','" & Xj_all & " ','" & Xj_result & "')"
conn1.Execute (sqltxt)
End If
End Sub

Public Sub add_1()
Xj_result = "漏检"
Xj_date = rs_2.Fields("巡检日期")
Xj_type = rs_1.Fields("巡检类型")
Xj_lc = rs_1.Fields("地点")
Xj_planper = rs_1.Fields("人员")
Xj_plantime = rs_1.Fields("计划时间")
Xj_truetime = "未知"
Xj_trueper = "未知"
Xj_all = rs_1.Fields("允许误差")
If Combo1.Text = "全部" Or Combo1.Text = Xj_result Then
sqltxt = "insert  into 计划执行表 values ('" & Xj_date & "','" & Xj_type & "','" & Xj_lc & "','" & Xj_planper & "','" & Xj_plantime & "' ,'" & Xj_trueper & "','" & Xj_truetime & "','" & Xj_all & " ','" & Xj_result & "')"
conn1.Execute (sqltxt)
End If
End Sub
Public Sub zang_flag()
z_Bang = rs_2.Fields("采集器类型")
z_Loc = rs_2.Fields("地点")
z_Time = rs_2.Fields("巡检时间")
End Sub
 Public Function b_Next() As Boolean
 Dim k_time As String
 k_time = rs_2.Fields("巡检时间")
 If z_Bang = rs_2.Fields("采集器类型") And z_Loc = rs_2.Fields("地点") Then
 b_Next = True
 Else
 b_Next = False
 End If
 
 
 
 


 End Function

Private Sub Form_Unload(Cancel As Integer)
Set conn = Nothing
Set rs = Nothing

End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -