form67.frm

办公自动化 vb+server2

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form67 
   BorderStyle     =   0  'None
   Caption         =   "Form67"
   ClientHeight    =   8010
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12165
   LinkTopic       =   "Form67"
   Picture         =   "Form67.frx":0000
   ScaleHeight     =   8010
   ScaleWidth      =   12165
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo1 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   840
      TabIndex        =   4
      Top             =   240
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   6840
      TabIndex        =   3
      Top             =   240
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Appearance      =   0  'Flat
      Caption         =   "查询"
      Height          =   300
      Left            =   9600
      Picture         =   "Form67.frx":2C55
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
   Begin VB.CommandButton Command2 
      Appearance      =   0  'Flat
      Caption         =   "取消"
      Height          =   300
      Left            =   10920
      Picture         =   "Form67.frx":3DF9
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   240
      Width           =   735
   End
   Begin VB.ComboBox Combo2 
      Appearance      =   0  'Flat
      Height          =   300
      Left            =   3960
      TabIndex        =   0
      Text            =   "Like"
      Top             =   240
      Width           =   1935
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   6615
      Left            =   0
      TabIndex        =   5
      Top             =   840
      Width           =   12045
      _ExtentX        =   21246
      _ExtentY        =   11668
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      Checkboxes      =   -1  'True
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      HotTracking     =   -1  'True
      _Version        =   393217
      ForeColor       =   0
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   7
      BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Text            =   "序号"
         Object.Width           =   1411
      EndProperty
      BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   1
         Text            =   "姓名"
         Object.Width           =   2646
      EndProperty
      BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   2
         Text            =   "工程编号"
         Object.Width           =   2824
      EndProperty
      BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   3
         Text            =   "工程名称"
         Object.Width           =   4939
      EndProperty
      BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   4
         Text            =   "建设单位"
         Object.Width           =   4410
      EndProperty
      BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   5
         Text            =   "结算员"
         Object.Width           =   2247
      EndProperty
      BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
         Alignment       =   2
         SubItemIndex    =   6
         Text            =   "结算时间"
         Object.Width           =   2647
      EndProperty
      Picture         =   "Form67.frx":4F9D
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "项目："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   240
      TabIndex        =   9
      Top             =   360
      Width           =   855
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "条件："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   3360
      TabIndex        =   8
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "内容："
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   6240
      TabIndex        =   7
      Top             =   360
      Width           =   975
   End
   Begin VB.Label Label5 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FF0000&
      Height          =   375
      Left            =   0
      TabIndex        =   6
      Top             =   7560
      Width           =   11175
   End
End
Attribute VB_Name = "Form67"
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
ListView1.ListItems.Clear
sqlstring = "SELECT * FROM  经营人员结算单  WHERE  " & Combo1 & " " & Combo2 & " '%" & Text1 & "%'"
     hzrs.Open sqlstring, hzconn
     l = 0
        For i = 1 To hzrs.RecordCount
           l = l + 1
          Form67.ListView1.ListItems.Add , , hzrs.Fields(0).Value
          Form67.ListView1.ListItems.Item(l).SubItems(1) = hzrs.Fields(1).Value
          Form67.ListView1.ListItems.Item(l).SubItems(2) = hzrs.Fields(2).Value
          Form67.ListView1.ListItems.Item(l).SubItems(3) = hzrs.Fields(3).Value
          Form67.ListView1.ListItems.Item(l).SubItems(4) = hzrs.Fields(4).Value
          Form67.ListView1.ListItems.Item(l).SubItems(5) = hzrs.Fields(10).Value
          Form67.ListView1.ListItems.Item(l).SubItems(6) = hzrs.Fields(11).Value
         hzrs.MoveNext
        Next
        hzrs.Close
        If l <> 0 Then
           Form67.Label5.Caption = "   共有" & l & "记录满足查询条件"
           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 ("姓名")
   .AddItem ("工程编号") 'Form8.Combo1.AddItem (rs.Fields(i).Name)
   .AddItem ("工程名称")
   .AddItem ("工程地点")
   .AddItem ("建设单位")
   
End With

With Combo2
   .AddItem ("Like")
End With

  Form67.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
          Form67.ListView1.ListItems.Add , , hzrs.Fields(0).Value
          Form67.ListView1.ListItems.Item(o).SubItems(1) = hzrs.Fields(1).Value
          Form67.ListView1.ListItems.Item(o).SubItems(2) = hzrs.Fields(2).Value
          Form67.ListView1.ListItems.Item(o).SubItems(3) = hzrs.Fields(3).Value
          Form67.ListView1.ListItems.Item(o).SubItems(4) = hzrs.Fields(4).Value
          Form67.ListView1.ListItems.Item(o).SubItems(5) = hzrs.Fields(10).Value
          Form67.ListView1.ListItems.Item(o).SubItems(6) = hzrs.Fields(11).Value
        hzrs.MoveNext
     Next
    hzrs.Close
If l > 0 Then
 Form67.ListView1.ListItems(Form67.ListView1.ListItems.Count).Selected = True
 Form67.ListView1.SelectedItem.EnsureVisible
 Form67.ListView1.Refresh
End If
End Sub
Private Sub ListView1_DblClick()
Dim i, m, j, n, p, l As Integer
Dim p1, p2, p3 As Single
m = 0
For i = 1 To Form67.ListView1.ListItems.Count
  If Form67.ListView1.ListItems.Item(i).Checked = True Then
     m = m + 1
  End If
Next
If m <> 1 Then
   MsgBox "修改一条记录！", vbInformation, "提示"
   Exit Sub
End If
hzrs.CursorLocation = adUseClient
hzrs.Open "select * from 经营人员结算单", hzconn, adOpenKeyset, adLockPessimistic
For i = 1 To Form67.ListView1.ListItems.Count
  If Form67.ListView1.ListItems.Item(i).Checked = True Then
     For j = 1 To hzrs.RecordCount
        If hzrs.Fields(0).Value = Form67.ListView1.ListItems.Item(i) Then
        Form68.Text1(0).Text = hzrs.Fields(0).Value
        Form68.Combo1.Text = hzrs.Fields(1).Value
         For l = 2 To 6
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form68.Text1(l - 1).Text = ""
            Else
            Form68.Text1(l - 1).Text = hzrs.Fields(l).Value
          End If
         Next
        Form68.Combo2.Text = hzrs.Fields(7).Value
         For l = 8 To 16
          kk(l) = hzrs.Fields(l).Value
          If hzrs.Fields(l).Value = 0 Then
             Form68.Text1(l - 2).Text = ""
            Else
            Form68.Text1(l - 2).Text = hzrs.Fields(l).Value
          End If
         Next
        End If
      hzrs.MoveNext
     Next
   End If
Next
hzrs.Close
If ii(73) <> "0" Then
Form68.Text1(11).Text = username
'If kk(14) = "0" Then
  Form68.Text1(12).Enabled = True
'End If
Form68.Command1.Visible = True
Form68.Command2.Visible = True
End If
If ii(75) <> "0" Then
Form68.Text1(13).Text = username
'If kk(16) = "0" Then
  Form68.Text1(14).Enabled = True
'End If
Form68.Command1.Visible = True
Form68.Command2.Visible = True
End If
Form68.Show vbModal
End Sub