form56.frm

办公自动化 vb+server2

   Begin VB.Label Label47 
      BackStyle       =   0  'Transparent
      Caption         =   ">25m"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2760
      TabIndex        =   83
      Top             =   3975
      Width           =   735
   End
   Begin VB.Line Line16 
      X1              =   2400
      X2              =   7920
      Y1              =   4245
      Y2              =   4245
   End
   Begin VB.Line Line31 
      X1              =   360
      X2              =   9240
      Y1              =   6120
      Y2              =   6120
   End
   Begin VB.Line Line32 
      X1              =   2400
      X2              =   7920
      Y1              =   3930
      Y2              =   3930
   End
   Begin VB.Label Label48 
      BackStyle       =   0  'Transparent
      Caption         =   "≤25"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2760
      TabIndex        =   82
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label49 
      BackStyle       =   0  'Transparent
      Caption         =   ">25m"
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   2760
      TabIndex        =   81
      Top             =   5280
      Width           =   735
   End
   Begin VB.Label Label50 
      BackStyle       =   0  'Transparent
      Caption         =   "21"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4320
      TabIndex        =   80
      Top             =   3720
      Width           =   495
   End
   Begin VB.Label Label51 
      BackStyle       =   0  'Transparent
      Caption         =   "34"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4320
      TabIndex        =   79
      Top             =   3975
      Width           =   495
   End
   Begin VB.Label Label52 
      BackStyle       =   0  'Transparent
      Caption         =   "7"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4320
      TabIndex        =   78
      Top             =   4920
      Width           =   495
   End
   Begin VB.Label Label53 
      BackStyle       =   0  'Transparent
      Caption         =   "11"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   4320
      TabIndex        =   77
      Top             =   5280
      Width           =   495
   End
   Begin VB.Line Line39 
      X1              =   360
      X2              =   9240
      Y1              =   4875
      Y2              =   4875
   End
   Begin VB.Line Line40 
      X1              =   2400
      X2              =   7920
      Y1              =   4560
      Y2              =   4560
   End
   Begin VB.Line Line41 
      X1              =   2400
      X2              =   7920
      Y1              =   5190
      Y2              =   5190
   End
   Begin VB.Line Line42 
      X1              =   360
      X2              =   9240
      Y1              =   6435
      Y2              =   6435
   End
   Begin VB.Line Line43 
      X1              =   2400
      X2              =   7920
      Y1              =   5505
      Y2              =   5505
   End
   Begin VB.Line Line44 
      X1              =   2400
      X2              =   7920
      Y1              =   5820
      Y2              =   5820
   End
   Begin VB.Line Line45 
      X1              =   360
      X2              =   9240
      Y1              =   7950
      Y2              =   7950
   End
   Begin VB.Line Line46 
      X1              =   360
      X2              =   9240
      Y1              =   7650
      Y2              =   7650
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "5"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   76
      Top             =   6840
      Width           =   255
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "6"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   75
      Top             =   7440
      Width           =   255
   End
   Begin VB.Label Label58 
      BackStyle       =   0  'Transparent
      Caption         =   "下拨合计"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1440
      TabIndex        =   74
      Top             =   6240
      Width           =   975
   End
   Begin VB.Label Label59 
      BackStyle       =   0  'Transparent
      Caption         =   "累计下拨"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1440
      TabIndex        =   73
      Top             =   7440
      Width           =   975
   End
   Begin VB.Line Line47 
      X1              =   360
      X2              =   9240
      Y1              =   7335
      Y2              =   7335
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "7"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   720
      TabIndex        =   72
      Top             =   7755
      Width           =   255
   End
   Begin VB.Label Label61 
      BackStyle       =   0  'Transparent
      Caption         =   "外委项目"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   1440
      TabIndex        =   71
      Top             =   6840
      Width           =   975
   End
   Begin VB.Line Line48 
      X1              =   3600
      X2              =   3600
      Y1              =   6480
      Y2              =   7320
   End
   Begin VB.Line Line49 
      X1              =   2400
      X2              =   9240
      Y1              =   6750
      Y2              =   6750
   End
   Begin VB.Line Line50 
      X1              =   2400
      X2              =   9240
      Y1              =   7030
      Y2              =   7030
   End
   Begin VB.Label Label62 
      BackStyle       =   0  'Transparent
      Caption         =   "外业"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2805
      TabIndex        =   70
      Top             =   6525
      Width           =   615
   End
   Begin VB.Label Label63 
      BackStyle       =   0  'Transparent
      Caption         =   "技术"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2805
      TabIndex        =   69
      Top             =   6840
      Width           =   495
   End
   Begin VB.Label Label64 
      BackStyle       =   0  'Transparent
      Caption         =   "土工"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   2805
      TabIndex        =   68
      Top             =   7125
      Width           =   495
   End
End
Attribute VB_Name = "Form56"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, l As Integer
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
  If ii(65) <> "0" Then
    For i = 1 To hzrs.RecordCount
         If hzrs.Fields(1).Value = Form56.Text1(1).Text Then
          If Form56.Text1(44).Text = "" Then
             hzrs.Fields(44).Value = "0"
            Else
             hzrs.Fields(44).Value = Form56.Text1(44).Text
          End If
          If Form56.Text1(45).Text = "" Then
             hzrs.Fields(45).Value = "0"
           Else
             hzrs.Fields(45).Value = Form56.Text1(45).Text
          End If
         End If
       hzrs.MoveNext
     Next
    End If
  If ii(66) <> "0" Then
    For i = 1 To hzrs.RecordCount
         If hzrs.Fields(1).Value = Form56.Text1(1).Text Then
          If Form56.Text1(46).Text = "" Then
             hzrs.Fields(46).Value = "0"
            Else
             hzrs.Fields(46).Value = Form56.Text1(46).Text
          End If
          If Form56.Text1(47).Text = "" Then
             hzrs.Fields(47).Value = "0"
           Else
             hzrs.Fields(47).Value = Form56.Text1(47).Text
          End If
         End If
       hzrs.MoveNext
     Next
    End If
  If ii(67) <> "0" Then
    For i = 1 To hzrs.RecordCount
         If hzrs.Fields(1).Value = Form56.Text1(1).Text Then
          If Form56.Text1(48).Text = "" Then
             hzrs.Fields(48).Value = "0"
            Else
             hzrs.Fields(48).Value = Form56.Text1(48).Text
          End If
          If Form56.Text1(49).Text = "" Then
             hzrs.Fields(49).Value = "0"
           Else
             hzrs.Fields(49).Value = Form56.Text1(49).Text
          End If
         End If
       hzrs.MoveNext
     Next
    End If
hzrs.Close
Unload Me
End Sub

Private Sub Command2_Click()
Dim p As Integer
For p = 1 To Form55.ListView1.ListItems.Count
     Form55.ListView1.ListItems.Item(p).Checked = False
Next
Unload Me
End Sub

Private Sub Form_Load()
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form55.ListView1.ListItems.Clear
   hzrs.CursorLocation = adUseClient
   hzrs.Open "select * from 勘察工程任务结算单", hzconn, adOpenKeyset, adLockPessimistic
    For n = 1 To hzrs.RecordCount
    If ii(65) <> "0" Then
     If hzrs.Fields(44).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
        End If
      End If
    If ii(66) <> "0" Then
     If hzrs.Fields(46).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
                If hzrs.Fields(46).Value = "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HC0C000 '天蓝色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000 '天蓝色
                  Next
                End If
        End If
      End If
    If ii(67) <> "0" Then
     If hzrs.Fields(48).Value = "0" Then
          b = b + 1
        Form55.ListView1.ListItems.Add , , hzrs.Fields(1).Value
        Form55.ListView1.ListItems.Item(b).SubItems(1) = hzrs.Fields(2).Value
        Form55.ListView1.ListItems.Item(b).SubItems(2) = hzrs.Fields(6).Value
        Form55.ListView1.ListItems.Item(b).SubItems(3) = hzrs.Fields(75).Value
        Form55.ListView1.ListItems.Item(b).SubItems(4) = hzrs.Fields(42).Value
        Form55.ListView1.ListItems.Item(b).SubItems(5) = hzrs.Fields(50).Value
                If hzrs.Fields(44).Value = "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF0000 '兰色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000 '兰色
                 Next
                End If
                If hzrs.Fields(46).Value = "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HC0C000 '天蓝色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000 '天蓝色
                  Next
                End If
                If hzrs.Fields(48).Value = "0" And hzrs.Fields(46).Value <> "0" And hzrs.Fields(44).Value <> "0" Then
                        Form55.ListView1.ListItems.Item(b).ForeColor = &HFF00FF    '紫色
                  For m = 1 To 5
                    Form55.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF00FF    '紫色
                  Next
                End If
        End If
      End If
     hzrs.MoveNext
    Next
   hzrs.Close
   If b <> 0 Then
    Form55.ListView1.ListItems(Form55.ListView1.ListItems.Count).Selected = True
    Form55.ListView1.SelectedItem.EnsureVisible
    Form55.ListView1.Refresh
  End If
End Sub