form52.frm

办公自动化 vb+server2

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form52 
   BorderStyle     =   0  'None
   Caption         =   "Form52"
   ClientHeight    =   8010
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12165
   LinkTopic       =   "Form52"
   Picture         =   "Form52.frx":0000
   ScaleHeight     =   8010
   ScaleWidth      =   12165
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   960
      TabIndex        =   4
      Top             =   240
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   6960
      TabIndex        =   3
      Top             =   240
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "查询"
      Height          =   300
      Left            =   9720
      Picture         =   "Form52.frx":2C55
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      Caption         =   "取消"
      Height          =   300
      Left            =   11040
      Picture         =   "Form52.frx":3DF9
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   240
      Width           =   735
   End
   Begin VB.ComboBox Combo2 
      Appearance      =   0  'Flat
      Height          =   300
      ItemData        =   "Form52.frx":4F9D
      Left            =   4080
      List            =   "Form52.frx":4F9F
      TabIndex        =   0
      Text            =   "Like"
      Top             =   240
      Width           =   1935
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   7095
      Left            =   0
      TabIndex        =   8
      Top             =   840
      Width           =   12135
      _ExtentX        =   21405
      _ExtentY        =   12515
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      HotTracking     =   -1  'True
      _Version        =   393217
      ForeColor       =   0
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   3
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "            工程编号"
         Object.Width           =   7939
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Text            =   "工程名称"
         Object.Width           =   8819
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "结算时间"
         Object.Width           =   4233
      EndProperty
      Picture         =   "Form52.frx":4FA1
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "项目："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   360
      TabIndex        =   7
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "条件："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   3480
      TabIndex        =   6
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "内容："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6360
      TabIndex        =   5
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "Form52"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim i, j As Integer
Dim sqlstring As String
Static l As Integer
If Combo1 = "" Or Combo2 = "" Or Text1 = "" Then
   MsgBox "表达式不正确", vbInformation, "提示框！"
   Exit Sub
End If


sqlstring = "SELECT * FROM  勘察工程任务结算单  WHERE  " & Combo1 & " " & Combo2 & " '%" & Text1 & "%'"
     hzrs.Open sqlstring, hzconn
     l = 0
        For i = 1 To hzrs.RecordCount
           l = l + 1
                Form53.ListView1.ListItems.Add , , hzrs.Fields(1).Value
                Form53.ListView1.ListItems.Item(i).SubItems(1) = hzrs.Fields(2).Value
                Form53.ListView1.ListItems.Item(i).SubItems(2) = hzrs.Fields(42).Value
                Form53.ListView1.ListItems.Item(i).SubItems(3) = hzrs.Fields(50).Value
          hzrs.MoveNext
        Next
        hzrs.Close
        If l <> 0 Then
           Form53.Label2.Caption = "   共有" & l & "记录满足查询条件"
           Form53.Show vbModal
           Else
           MsgBox "没有查询的内容", vbInformation, "提示框！"
         End If

End Sub

Private Sub Command2_Click()
  Unload Me
End Sub

Private Sub Form_Load()
   Dim i, j, l, m, o As Integer
   With Me
    .Height = 8010
    .left = 2332
    .top = 2600
    .Width = 12160
End With

With Combo1
   .AddItem ("工程编号") 'Form8.Combo1.AddItem (rs.Fields(i).Name)
   .AddItem ("工程名称")
   .AddItem ("结算日期")
   
End With

With Combo2
   .AddItem ("Like")
End With

  Form52.ListView1.ListItems.Clear
    hzrs.CursorLocation = adUseClient
    hzrs.Open "select * from 勘察工程任务结算单 order by ID", hzconn, adOpenKeyset, adLockPessimistic
     For o = 1 To hzrs.RecordCount
               l = l + 1
                Form52.ListView1.ListItems.Add , , hzrs.Fields(1).Value
                Form52.ListView1.ListItems.Item(o).SubItems(1) = hzrs.Fields(2).Value
                Form52.ListView1.ListItems.Item(o).SubItems(2) = hzrs.Fields(50).Value
              hzrs.MoveNext
     Next
    hzrs.Close
If l > 0 Then
 Form52.ListView1.ListItems(Form52.ListView1.ListItems.Count).Selected = True
 Form52.ListView1.SelectedItem.EnsureVisible
 Form52.ListView1.Refresh
End If
End Sub