form29.frm

办公自动化 vb+server2

   Next
   grs.Close



Form30.Text58.Text = username
Form30.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
Form29.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 grs.Fields(128).Value <> "0" And grs.Fields(129).Value = "0" Then
       b = b + 1
    Form29.ListView1.ListItems.Add , , grs.Fields(0).Value
    Form29.ListView1.ListItems.Item(b).SubItems(1) = grs.Fields(1).Value
    Form29.ListView1.ListItems.Item(b).SubItems(2) = grs.Fields(2).Value
    Form29.ListView1.ListItems.Item(b).SubItems(3) = grs.Fields(52).Value
    Form29.ListView1.ListItems.Item(b).SubItems(4) = grs.Fields(53).Value
    End If
    grs.MoveNext
   Next
   grs.Close
   End If
   Next
   If Form29.ListView1.ListItems.Count <> "0" Then
    Form29.ListView1.ListItems(Form29.ListView1.ListItems.Count).Selected = True
    Form29.ListView1.SelectedItem.EnsureVisible
    Form29.ListView1.Refresh
   End If
End Sub

Private Sub ListView1_DblClick()
Dim i, a, b, j, n, m As Integer
Dim p1, p2, p3 As Single
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, a131 As String
a = 0
b = 0
j = 0
For i = 1 To Form29.ListView1.ListItems.Count
  If Form29.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 Form29.ListView1.ListItems.Count
  If Form29.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 = Form29.ListView1.ListItems.Item(n).ListSubItems(1) Then
    splc = Form29.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
        a19 = ""
        Else
        a19 = grs.Fields(18)
     End If
     If grs.Fields(19) = 0 Then
        a20 = ""
        Else
        a20 = grs.Fields(19)
     End If
     If grs.Fields(20) = 0 Then
        a21 = ""
        Else
        a21 = grs.Fields(20)
     End If
     If grs.Fields(21) = 0 Then
        a22 = ""
        Else
        a22 = grs.Fields(21)
     End If
     If grs.Fields(22) = 0 Then
        a23 = ""
        Else
        a23 = grs.Fields(22)
     End If
 If grs.Fields(23) = 0 Then
        a24 = ""
        Else
        a24 = grs.Fields(23)
     End If
     If grs.Fields(24) = 0 Then
        a25 = ""
        Else
        a25 = grs.Fields(24)
     End If
     If grs.Fields(25) = 0 Then
        a26 = ""
        Else
        a26 = grs.Fields(25)
     End If
     If grs.Fields(26) = 0 Then
        a27 = ""
        Else
        a27 = grs.Fields(26)
     End If
     If grs.Fields(27) = 0 Then
        a28 = ""
        Else
        a28 = grs.Fields(27)
     End If
     If grs.Fields(28) = 0 Then
        a29 = ""
        Else
        a29 = grs.Fields(28)
     End If
     If grs.Fields(29) = 0 Then
        a30 = ""
        Else
        a30 = grs.Fields(29)
     End If
     If grs.Fields(30) = 0 Then
        a31 = ""
        Else
        a31 = grs.Fields(30)
     End If
     If grs.Fields(31) = 0 Then
        a32 = ""
        Else
        a32 = grs.Fields(31)
     End If
     If grs.Fields(32) = 0 Then
        a33 = ""
        Else
        a33 = grs.Fields(32)
     End If
     If grs.Fields(33) = 0 Then
        a34 = ""
        Else
        a34 = grs.Fields(33)
     End If
     If grs.Fields(34) = 0 Then
        a35 = ""
        Else
        a35 = grs.Fields(34)
     End If
     If grs.Fields(35) = 0 Then
        a36 = ""
        Else
        a36 = grs.Fields(35)
     End If
     If grs.Fields(36) = 0 Then
        a37 = ""
        Else
        a37 = grs.Fields(36)
     End If
     If grs.Fields(37) = 0 Then
        a38 = ""
        Else
        a38 = grs.Fields(37)
     End If
 If grs.Fields(38) = 0 Then
        a39 = ""
        Else
        a39 = grs.Fields(38)
     End If
     If grs.Fields(39) = 0 Then
        a40 = ""
        Else
        a40 = grs.Fields(39)
     End If
     If grs.Fields(40) = 0 Then
        a41 = ""
        Else
        a41 = grs.Fields(40)
     End If
     If grs.Fields(41) = 0 Then
        a42 = ""
        Else
        a42 = grs.Fields(41)
     End If
     If grs.Fields(42) = 0 Then
        a43 = ""
        Else
        a43 = grs.Fields(42)
     End If
     If grs.Fields(43) = 0 Then
        a44 = ""
        Else
        a44 = grs.Fields(43)
     End If
     If grs.Fields(44) = 0 Then
        a45 = ""
        Else
        a45 = grs.Fields(44)
     End If
     If grs.Fields(45) = 0 Then
        a46 = ""
        Else
        a46 = grs.Fields(45)
     End If
     If grs.Fields(46) = 0 Then
        a47 = ""
        Else
        a47 = grs.Fields(46)
     End If
     If grs.Fields(47) = 0 Then
        a48 = ""
        Else
        a48 = grs.Fields(47).Value
     End If
     If grs.Fields(48) = 0 Then
        a49 = ""
        Else
        a49 = grs.Fields(48)
     End If
     If grs.Fields(49) = 0 Then
        a50 = ""
        Else
        a50 = grs.Fields(49)
     End If
     If grs.Fields(50) = 0 Then
        a51 = ""
        Else
        a51 = grs.Fields(50)
     End If
     If grs.Fields(51) = 0 Then
        a52 = ""
        Else
        a52 = grs.Fields(51)
     End If
     If grs.Fields(52) = 0 Then
        a53 = ""
        Else
        a53 = grs.Fields(52)
     End If
 If grs.Fields(53) = 0 Then
        a54 = ""
        Else
        a54 = grs.Fields(53)
     End If
     If grs.Fields(54) = 0 Then
        a55 = ""
        Else
        a55 = grs.Fields(54)
     End If
     If grs.Fields(55) = 0 Then
        a56 = ""
        Else
        a56 = grs.Fields(55)
     End If
     If grs.Fields(56) = 0 Then
        a57 = ""
        Else
        a57 = grs.Fields(56)
     End If
     If grs.Fields(57) = 0 Then
        a58 = ""
        Else
        a58 = grs.Fields(57)
     End If
     If grs.Fields(58) = 0 Then
        a59 = ""
        Else
        a59 = grs.Fields(58)
     End If
     If grs.Fields(59) = 0 Then
        a60 = ""
        Else
        a60 = grs.Fields(59)
     End If
     If grs.Fields(60) = 0 Then
        a61 = ""
        Else
        a61 = grs.Fields(60)
     End If
     If grs.Fields(61) = 0 Then
        a62 = ""
        Else
        a62 = grs.Fields(61)
     End If
     If grs.Fields(62) = 0 Then
        a63 = ""
        Else
        a63 = grs.Fields(62)
     End If
 If grs.Fields(63) = 0 Then
        a64 = ""
        Else
        a64 = grs.Fields(63)
     End If
     If grs.Fields(64) = 0 Then
        a65 = ""
        Else
        a65 = grs.Fields(64)
     End If
     If grs.Fields(65) = 1 Then
        a66 = ""
        Else
        a66 = grs.Fields(65)
     End If
     If grs.Fields(66) = 1 Then
        a67 = ""
        Else
        a67 = grs.Fields(66)
     End If
     If grs.Fields(67) = 0 Then
        a68 = ""
        Else
        a68 = grs.Fields(67)
     End If
     If grs.Fields(68) = 0 Then
        a69 = ""
        Else
        a69 = grs.Fields(68)
     End If
     If grs.Fields(69) = 0 Then
        a70 = ""
        Else
        a70 = grs.Fields(69)
     End If
     If grs.Fields(70) = 0 Then
        a71 = ""
        Else
        a71 = grs.Fields(70)
     End If
     If grs.Fields(71) = 0 Then
        a72 = ""
        Else
        a72 = grs.Fields(71)
     End If
     If grs.Fields(72) = 0 Then
        a73 = ""
        Else
        a73 = grs.Fields(72)
     End If
 If grs.Fields(73) = 0 Then
        a74 = ""
        Else
        a74 = grs.Fields(73)
     End If
     If grs.Fields(74) = 0 Then
        a75 = ""
        Else
        a75 = grs.Fields(74)
     End If
     If grs.Fields(75) = 0 Then
        a76 = ""
        Else
        a76 = grs.Fields(75)
     End If
     If grs.Fields(76) = 0 Then
        a77 = ""
        Else
        a77 = grs.Fields(76)
     End If
     If grs.Fields(77) = 0 Then
        a78 = ""
        Else
        a78 = grs.Fields(77)
     End If
     If grs.Fields(78) = 0 Then
        a79 = ""
        Else
        a79 = grs.Fields(78)
     End If
     If grs.Fields(79) = 0 Then
        a80 = ""
        Else
        a80 = grs.Fields(79)
     End If
     If grs.Fields(80) = 0 Then
        a81 = ""
        Else
        a81 = grs.Fields(80)
     End If
     If grs.Fields(81) = 0 Then
        a82 = ""
        Else
        a82 = grs.Fields(81)