form25.frm

办公自动化 vb+server2

      Form26.Text6.Text = a6
      Form26.Text7.Text = a7
      Form26.Text8.Text = a8
      Form26.Text9.Text = a9
      Form26.Text10.Text = a10
      Form26.Combo3.Text = a11
      Form26.Combo4.Text = a12
      Form26.Text13.Text = a13
      Form26.Text14.Text = a14
      Form26.Text15.Text = a15
      Form26.Text16.Text = a16
      Form26.Text17.Text = a17
      Form26.Combo5.Text = a18
      Form26.Combo6.Text = a19
      Form26.Text20.Text = a20
      Form26.Text21.Text = a21
      Form26.Text22.Text = a22
      Form26.Text23.Text = a23
      Form26.Text24.Text = a24
      Form26.Combo7.Text = a25
      Form26.Combo8.Text = a26
      Form26.Text27.Text = a27
      Form26.Text28.Text = a28
      Form26.Text29.Text = a29
      Form26.Text30.Text = a30
      Form26.Text31.Text = a31
      Form26.Combo9.Text = a32
      Form26.Combo10.Text = a33
      Form26.Text34.Text = a34
      Form26.Text35.Text = a35
      Form26.Text36.Text = a36
      Form26.Text37.Text = a37
      Form26.Text38.Text = a38
      Form26.Combo11.Text = a39
      Form26.Combo12.Text = a40
      Form26.Text41.Text = a41
      Form26.Text42.Text = a42
      Form26.Text43.Text = a43
      Form26.Text44.Text = a44
      Form26.Text45.Text = a45
      Form26.Combo13.Text = a46
      Form26.Combo14.Text = a47
      Form26.Text48.Text = a48
      Form26.Text49.Text = a49
      Form26.Text50.Text = a50
      Form26.Text51.Text = a51
      Form26.Text52.Text = a52
      Form26.Text53.Text = a53
      Form26.Combo19.Text = a54
      Form26.Text55.Text = a55
      Form26.Text56.Text = a56
      Form26.Text57.Text = a57
      Form26.Combo20.Text = a58
      Form26.Text59.Text = a59
      Form26.Text60.Text = a60
      Form26.Text61.Text = a61
      Form26.Text62.Text = a62
      Form26.Text63.Text = a63
      Form26.Text64.Text = a64
      Form26.Text65.Text = a65
      Form26.Text66.Text = a66
      Form26.Text67.Text = a67
      Form26.Text68.Text = a68
      Form26.Text69.Text = a69
      Form26.Text70.Text = a70
      Form26.Combo15.Text = a71
      Form26.Combo16.Text = a72
      Form26.Text73.Text = a73
      Form26.Text74.Text = a74
      Form26.Text75.Text = a75
      Form26.Text76.Text = a76
      Form26.Text77.Text = a77
      Form26.Combo17.Text = a78
      Form26.Combo18.Text = a79
      Form26.Text80.Text = a80
      Form26.Text81.Text = a81
      Form26.Text82.Text = a82
      Form26.Text83.Text = a83
      Form26.Text84.Text = a84
      Form26.Combo21.Text = a85
      Form26.Text86.Text = a86
      Form26.Text87.Text = a87
      Form26.Text88.Text = a88
      Form26.Text89.Text = a89
      Form26.Combo22.Text = a90
      Form26.Text91.Text = a91
      Form26.Text92.Text = a92
      Form26.Text93.Text = a93
      Form26.Text94.Text = a94
      Form26.Combo23.Text = a95
      Form26.Text96.Text = a96
      Form26.Text97.Text = a97
      Form26.Text98.Text = a98
      Form26.Text99.Text = a99
      Form26.Combo24.Text = a100
      Form26.Text101.Text = a101
      Form26.Text102.Text = a102
      Form26.Text103.Text = a103
      Form26.Text104.Text = a104
      Form26.Combo25.Text = a105
      Form26.Text106.Text = a106
      Form26.Text107.Text = a107
      Form26.Text108.Text = a108
      Form26.Text109.Text = a109
      Form26.Combo26.Text = a110
      Form26.Text111.Text = a111
      Form26.Text112.Text = a112
      Form26.Text113.Text = a113
      Form26.Text114.Text = a114
      Form26.Text18.Text = a115
      Form26.Text4.Text = a116
      Form26.Text19.Text = a117
      Form26.Text5.Text = a118
      Form26.Text25.Text = a119
      Form26.Text11.Text = a120
      Form26.Text26.Text = a121
      Form26.Text12.Text = a70
      Form26.Text33.Text = a123
      Form26.Text32.Text = a124
      Form26.Text40.Text = a125
      Form26.Text39.Text = a126
      Form26.Text46.Text = a127
      Form26.Text47.Text = a128
      Form26.Text115.Text = a129
      Form26.Text58.Text = a130
      Form26.Text54.Text = a131
      
   End If
  grs.MoveNext
  Next
  grs.Close
End If
Next

Dim msql, msql1, msql2, msql3, msql4, msql5, msql6 As String
   Form26.ListView1.ListItems.Clear
   
   msql6 = "select  单位名称,工程编号, 时间,总计累计 from 定线 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%' UNION ALL select  单位名称,工程编号, 时间,总计累计 from 竣工 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%' UNION ALL select  单位名称,工程编号, 时间,总计累计 from 地籍 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%' UNION ALL select  单位名称,工程编号, 时间,总计累计 from 松北 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%' UNION ALL select  单位名称,工程编号, 时间,总计累计 from 计划内 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%'"
   msql = msql6 & "UNION ALL select  单位名称,工程编号, 时间,总计累计 from 零星验字工程 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%' UNION ALL select  单位名称,工程编号, 时间,总计累计 from 建筑物位置测定 where 院长签字<>'0' and  实际回款金额='0' and 单位名称  like '%" & left(a1, 2) & "%'"
   grs.CursorLocation = adUseClient
   grs.Open msql, gconn, 1, 1
   
   For i = 1 To grs.RecordCount
        Form26.ListView1.ListItems.Add , , grs("单位名称").Value
        Form26.ListView1.ListItems.Item(i).SubItems(1) = grs("工程编号").Value
        Form26.ListView1.ListItems.Item(i).SubItems(2) = grs("时间").Value
        Form26.ListView1.ListItems.Item(i).SubItems(3) = grs("总计累计").Value
          
     grs.MoveNext
   Next
   grs.Close


   Form26.ListView2.ListItems.Clear

  msql1 = "select sp_rws_num, sp_fromman_dept,sp_fromman, sp_opinion,sp_posttime ,sp_xz from 流程记录 where sp_rws_num='" & splc & "'order by sp_posttime DESC"
   
   grs.CursorLocation = adUseClient
   grs.Open msql1, gconn, 1, 1
   
   For i = 1 To grs.RecordCount
        Form26.ListView2.ListItems.Add , , grs("sp_fromman_dept").Value
        Form26.ListView2.ListItems.Item(i).SubItems(1) = grs("sp_fromman").Value
        Form26.ListView2.ListItems.Item(i).SubItems(2) = grs("sp_opinion").Value
        Form26.ListView2.ListItems.Item(i).SubItems(3) = grs("sp_posttime").Value
        Form26.ListView2.ListItems.Item(i).SubItems(4) = grs("sp_xz").Value
  
     grs.MoveNext
   Next
   grs.Close



If username = "李五夫" Then
   Form26.Text25.Text = "李五夫"
   If a120 = "" Then
      Form26.Text11.Enabled = True
      Else
      Form26.Text11.Enabled = False
   End If
   

End If
If username = "任剑锋" Then
   Form26.Text46.Text = "任剑锋"
   If a128 = "" Then
      Form26.Text47.Enabled = True
      Else
      Form26.Text47.Enabled = False
   End If
   

End If

If username = "衣鸿波" Then
   Form26.Text19.Text = "衣鸿波"
   If a124 = "" Then
      Form26.Text32.Enabled = True
      Else
      Form26.Text32.Enabled = False
   End If
   If a118 = "" Then
      Form26.Text5.Enabled = True
      Else
      Form26.Text5.Enabled = False
   End If
   

End If


If username = "张琼" Then
   Form26.Text18.Text = "张琼"
'   If a124 = "" Then
      Form26.Text32.Enabled = True
'     Else
'     form26.Text32.Enabled = False
'   End If
   If a116 = "" Then
      Form26.Text4.Enabled = True
      Else
      Form26.Text4.Enabled = False
   End If
   
End If




Form26.Show vbModal
Exit Sub
End If
Next


End Sub
Private Sub Form_Load()
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With
Form25.ListView1.ListItems.Clear
For Each mytab In gcat.Tables
        a = a + 1
  lty11 = mytab.Name
   lty12 = left(lty11, 2)
   If lty12 <> "sy" And lty12 <> "dt" And lty12 <> "my" And lty12 <> "密码" And lty12 <> "流程" Then
   grs.CursorLocation = adUseClient
   grs.Open lty11, gconn, adOpenKeyset, adLockPessimistic
For n = 1 To grs.RecordCount
   If username = "任剑锋" Then
    If grs("depart").Value = "2" Then
       b = b + 1
    Form25.ListView1.ListItems.Add , , grs.Fields(0).Value
    Form25.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
    Form25.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
    Form25.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
    Form25.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(128).Value
    Form25.ListView1.ListItems.Item(b).SubItems(5) = grs.Fields(53).Value
                 Form25.ListView1.ListItems.Item(b).ForeColor = &H80FF& '酱色
                For m = 1 To 5
                  Form25.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &H80FF& '酱色
                Next
    
   End If
   End If
   If username = "李五夫" Then
    If grs("depart").Value = "3" Then
       b = b + 1
    Form25.ListView1.ListItems.Add , , grs.Fields(0).Value
    Form25.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
    Form25.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
    Form25.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
    Form25.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(128).Value
    Form25.ListView1.ListItems.Item(b).SubItems(5) = grs.Fields(53).Value
                 Form25.ListView1.ListItems.Item(b).ForeColor = &HFF0000    '蓝色
                For m = 1 To 5
                  Form25.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HFF0000    '蓝色
                Next
   End If
   End If
   If username = "衣鸿波" Then
   If grs("depart").Value = "4" Then
       b = b + 1
    Form25.ListView1.ListItems.Add , , grs.Fields(0).Value
    Form25.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
    Form25.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
    Form25.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
    Form25.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(128).Value
    Form25.ListView1.ListItems.Item(b).SubItems(5) = grs.Fields(53).Value
                 Form25.ListView1.ListItems.Item(b).ForeColor = &HC0C000     '天蓝色
                For m = 1 To 5
                  Form25.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = &HC0C000     '天蓝色
                Next
   End If
   End If
   If username = "张琼" Then
 If grs("depart").Value = "5" Then
        b = b + 1
    Form25.ListView1.ListItems.Add , , grs.Fields(0).Value
    Form25.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
    Form25.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
    Form25.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
    Form25.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(128).Value
    Form25.ListView1.ListItems.Item(b).SubItems(5) = grs.Fields(53).Value

                 Form25.ListView1.ListItems.Item(b).ForeColor = vbRed '红色
                For m = 1 To 5
                  Form25.ListView1.ListItems.Item(b).ListSubItems.Item(m).ForeColor = vbRed '红色
                Next
   End If
   End If
    grs.MoveNext
   Next
   grs.Close
   End If
   Next
   If b <> 0 Then
    Form25.ListView1.ListItems(Form25.ListView1.ListItems.Count).Selected = True
    Form25.ListView1.SelectedItem.EnsureVisible
    Form25.ListView1.Refresh
  End If
End Sub

Private Sub ListView1_DblClick()
Dim i, a, b, j, n, m As Integer
Static l As Integer
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52, a53, a54, a55, a56, a57, a58, a59, a60, a61, a62, a63, a64, a65, a66, a67, a68, a69, a70, a81, a82, a83, a84, a85, a86, a87, a88, a89, a90, a91, a92, a93, a94, a95, a96, a97, a98, a99, a100, a101, a102, a103, a104, a105, a106, a107, a108, a109, a110, a121, a122, a123, a124, a125, a126, a127, a128, a129, a130 As String
a = 0
b = 0
j = 0
For i = 1 To Form25.ListView1.ListItems.Count
  If Form25.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "选择一条记录！", vbInformation, "提示"
   Exit Sub
End If


For n = 1 To Form25.ListView1.ListItems.Count
  If Form25.ListView1.ListItems.Item(n).Checked = True Then

For Each mytab In gcat.Tables
        a = a + 1
  lty11 = mytab.Name
   lty12 = left(lty11, 2)

   If lty12 <> "sy" And lty12 <> "dt" And lty12 <> "my" And lty12 <> "密码" And lty12 <> "流程" Then
   grs.CursorLocation = adUseClient
   grs.Open lty11, gconn, adOpenKeyset, adLockPessimistic
   For j = 1 To grs.RecordCount
 If grs.Fields(1).Value = Form25.ListView1.ListItems.Item(n).ListSubItems(1) Then
    splc = Form25.ListView1.ListItems.Item(n).ListSubItems(1)
    If grs.Fields(0) = 0 Then
        a1 = ""
        Else
        a1 = grs.Fields(0)
     End If
     If grs.Fields(1) = 0 Then
        a2 = ""
        Else
        a2 = grs.Fields(1)
     End If
     If grs.Fields(2) = 0 Then
        a3 = ""
        Else
        a3 = grs.Fields(2)
     End If
     If grs.Fields(3) = 0 Then
        a4 = ""
        Else
        a4 = grs.Fields(3)
     End If
     If grs.Fields(4) = 0 Then
        a5 = ""
        Else
        a5 = grs.Fields(4)
     End If
     If grs.Fields(5) = 0 Then
        a6 = ""
        Else
        a6 = grs.Fields(5)
     End If
     If grs.Fields(6) = 0 Then
        a7 = ""
        Else
        a7 = grs.Fields(6)
     End If
     If grs.Fields(7) = 0 Then
        a8 = ""
        Else
        a8 = grs.Fields(7)
     End If
 If grs.Fields(8) = 0 Then
        a9 = ""
        Else
        a9 = grs.Fields(8)
     End If
     If grs.Fields(9) = 0 Then
        a10 = ""
        Else
        a10 = grs.Fields(9)
     End If
     If grs.Fields(10) = 0 Then
        a11 = ""
        Else
        a11 = grs.Fields(10)
     End If
     If grs.Fields(11) = 0 Then
        a12 = ""
        Else
        a12 = grs.Fields(11)
     End If
     If grs.Fields(12) = 0 Then
        a13 = ""
        Else
        a13 = grs.Fields(12)
     End If
     If grs.Fields(13) = 0 Then
        a14 = ""
        Else
        a14 = grs.Fields(13)
     End If
     If grs.Fields(14) = 0 Then
        a15 = ""
        Else
        a15 = grs.Fields(14)
     End If
     If grs.Fields(15) = 0 Then
        a16 = ""
        Else
        a16 = grs.Fields(15)
     End If
     If grs.Fields(16) = 0 Then
        a17 = ""
        Else
        a17 = grs.Fields(16)
     End If
     If grs.Fields(17) = 0 Then
        a18 = ""
        Else
        a18 = grs.Fields(17)
     End If
     If grs.Fields(18) = 0 Then