form43.frm

办公自动化 vb+server2

      Picture         =   "Form43.frx":1BEF7
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      Caption         =   "紫色缺少档案部信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF00FF&
      Height          =   375
      Left            =   9240
      TabIndex        =   15
      Top             =   840
      Width           =   2055
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "绛色缺少出图部门信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   375
      Left            =   6360
      TabIndex        =   14
      Top             =   840
      Width           =   2175
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "绿色缺少财务部信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   375
      Left            =   3720
      TabIndex        =   13
      Top             =   840
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "红色缺少审批人信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   960
      TabIndex        =   12
      Top             =   840
      Width           =   2055
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   0
      TabIndex        =   11
      Top             =   7560
      Width           =   12375
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "内容："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6360
      TabIndex        =   10
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "条件："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   3480
      TabIndex        =   9
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "项目："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   360
      Width           =   855
   End
End
Attribute VB_Name = "Form43"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, j, m, n As Integer
Dim sqlstring As String
Static l As Integer
If Combo1 = "" Or Combo2 = "" Or Text1 = "" Then
   MsgBox "表达式不正确", vbInformation, "提示框！"
   Exit Sub
End If
ListView1.ListItems.Clear
sqlstring = "SELECT * FROM 出图 WHERE  " & Combo1 & " " & Combo2 & " '%" & Text1 & "%'"
     gzrs.Open sqlstring, gzconn 'Set recordset = connection.Execute (CommandText, RecordsAffected, Options)
     l = 0
        For i = 1 To gzrs.RecordCount
           l = l + 1
           Form43.ListView1.ListItems.Add i, , gzrs.Fields(0).Value
          For j = 1 To 19
             Form43.ListView1.ListItems.Item(i).SubItems(j) = gzrs.Fields(j).Value
          Next
          gzrs.MoveNext
        Next
        If l <> 0 Then
           Form43.Label5.Caption = "   共有" & l & "记录满足查询条件"
           Else
           MsgBox "没有查询的内容", vbInformation, "提示框！"
    
          End If
        gzrs.Close

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

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


Private Sub ListView1_DblClick()
Dim i, m, n, s, j As Integer
Form39.Command1.Visible = False
Form39.Command2.Visible = False
Form39.ListView1.Visible = False
For i = 1 To Form43.ListView1.ListItems.Count
  If Form43.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "选择一条记录！", vbInformation, "提示"
   Exit Sub
End If
gzrs.CursorLocation = adUseClient
gzrs.Open "select * from 出图 order by 购图编号", gzconn, adOpenKeyset, adLockPessimistic

For n = 1 To Form43.ListView1.ListItems.Count
  If Form43.ListView1.ListItems.Item(n).Checked = True Then
        For s = 1 To gzrs.RecordCount
          If gzrs.Fields(0).Value = Form43.ListView1.ListItems.Item(n) Then
               lty14 = gzrs.Fields(12).Value
               lty15 = gzrs.Fields(14).Value
               lty16 = gzrs.Fields(17).Value
               lty17 = gzrs.Fields(19).Value
                 If gzrs.Fields(0).Value = 0 Then
                   Form39.Text1(0) = ""
                  Else
                  Form39.Text1(0) = gzrs.Fields(0).Value
                 End If
                For j = 1 To 19
                 If gzrs.Fields(j).Value = 0 Then
                   Form39.Text1(j) = ""
                  Else
                  Form39.Text1(j) = gzrs.Fields(j).Value
                 End If
                Next
                Form39.Text1(1) = ""
                Form39.Text1(2) = ""
                Form39.Text1(6) = gzrs.Fields(6).Value
                
          End If
          gzrs.MoveNext
        Next
  End If
Next
gzrs.Close
If lty13 = "5" Then
   Form39.Text1(11).Text = username
   If lty14 = 0 Then
      Form39.Text1(12).Enabled = True
   End If
End If
If lty13 = "7" Then
   Form39.Text1(13).Text = username
   If lty15 = 0 Then
      Form39.Text1(14).Enabled = True
      Form39.Text1(15).Enabled = True
   End If
End If
If lty13 = "9" Then
   Form39.Text1(16).Text = username
   If lty16 = 0 Then
      Form39.Text1(17).Enabled = True
   End If
End If
If lty13 = "11" Then
   Form39.Text1(18).Text = username
   If lty17 = 0 Then
      Form39.Text1(19).Enabled = True
   End If
End If
Form39.Show vbModal

End Sub