机型查询.frm

计算机CAD图纸管理和预览

            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   -74640
         TabIndex        =   7
         Top             =   600
         Width           =   420
      End
      Begin VB.Label lblQueryItem 
         AutoSize        =   -1  'True
         Caption         =   "查询项目："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   360
         TabIndex        =   2
         Top             =   1560
         Width           =   1050
      End
      Begin VB.Label lblQueryValue 
         AutoSize        =   -1  'True
         Caption         =   "查询内容："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   360
         TabIndex        =   1
         Top             =   600
         Width           =   1050
      End
   End
End
Attribute VB_Name = "seekformodel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Private IDField As Integer   '要查询的字段
Private Fieldname As String   '要查询的字段名称
Private FieldValue As Variant   '要查询的值
Private Operater As String      '操作符
Private strFilter As String  '查询字符串
Private Sqlseekmodel As String '查询条件
Public rsseekmodel As New ADODB.Recordset '查询记录集

Private Sub cmbDateItem_Click()
    Select Case cmbDateItem.ListIndex
    
       Case 0
           Fieldname = "设计日期"
           'IDField = 7
    End Select
End Sub

Private Sub cmbQueryItem_Click()
    With cmbQueryItem
    
        Select Case .ListIndex
            Case 0
               'IDField = 2
               Fieldname = "机型代号"
            Case 1
               'IDField = 3
               Fieldname = "机型名称"
            Case 2
               'IDField = 4
               Fieldname = "申请图号"
            Case 3
               'IDField = 5
               Fieldname = "申请人"
            Case 4
               'IDField = 6
               Fieldname = "项目组员"
            Case 5
               'IDField = 8
               Fieldname = "备注"
        End Select
    End With
    
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Select Case stbQuery.Tab
    
        Case 0

                If Trim(txtQueryValue.Text) = Empty Then
                    MsgBox "查询内容不能为空", vbInformation + vbOKOnly, "查询数据"
                    Exit Sub
                Else
                    'Dim i As Integer
                    'Dim j As Integer
                    FieldValue = Trim(txtQueryValue.Text)
                    
                    If chkLike.Value = 1 Then
                        strFilter = Fieldname & "  like  " & "'" & "%" & FieldValue & "%" & "'"
                            'strFilter = "'" & "%" & Trim(txtQueryValue.Text) & "%" & "'"
                            'For i = 1 To 主菜单.mainGrid.Rows - 1
                             ' If (主菜单.mainGrid.TextMatrix(i, IDField) Like strFilter) Then
                             '       主菜单.mainGrid.Row = i
                             '       For j = 1 To 主菜单.mainGrid.Cols - 1
                              '       主菜单.mainGrid.Col = j
                             '        主菜单.mainGrid.CellBackColor = &HFF00FF
                             '       Next j
                             ' End If
                           ' Next i
                      
                         Sqlseekmodel = "SELECT * FROM 机型登记 where " & strFilter
                         Call rsseekmodel.open(Sqlseekmodel, cn, adOpenKeyset, adLockOptimistic, -1)
                         Set 主菜单.mainGrid.DataSource = rsseekmodel
                         Call 主菜单.modelShowGrid(rsseekmodel, 主菜单.mainGrid)
                    
                    Else
                        strFilter = Fieldname & "='" & FieldValue & "'"
                           ' For i = 1 To 主菜单.mainGrid.Rows - 1
                           '   If (主菜单.mainGrid.TextMatrix(i, IDField) = Trim(txtQueryValue.Text)) Then
                           '         主菜单.mainGrid.Row = i
                           '         For j = 1 To 主菜单.mainGrid.Cols - 1
                           '          主菜单.mainGrid.Col = j
                           '          主菜单.mainGrid.CellBackColor = &HFF00FF
                           '          Next j
                           '   End If
                           ' Next i
                         Sqlseekmodel = "SELECT * FROM 机型登记 where " & strFilter
                         Call rsseekmodel.open(Sqlseekmodel, cn, adOpenKeyset, adLockOptimistic, -1)
                         Set 主菜单.mainGrid.DataSource = rsseekmodel
                         Call 主菜单.modelShowGrid(rsseekmodel, 主菜单.mainGrid)
                         
                     End If
                     主菜单.mainStatusBar.Panels(2).Text = "所选机型" + ",总数: " + Trim(rsseekmodel.RecordCount)
                     rsseekmodel.Close
                  End If
                
        Case 1
            Fieldname = "开发年月" '默认第一项
            'IDField = 7
            Operater = Combo1.List(Combo1.ListIndex)
            strFilter = Fieldname & "  " & Operater & "  " & "'" & dtpDateValue.Value & "'"
            Sqlseekmodel = "SELECT * FROM 机型登记 where " & strFilter
            Call rsseekmodel.open(Sqlseekmodel, cn, adOpenKeyset, adLockOptimistic, -1)
            Set 主菜单.mainGrid.DataSource = rsseekmodel
            Call 主菜单.modelShowGrid(rsseekmodel, 主菜单.mainGrid)
            rsseekmodel.Close
    End Select

    Unload Me
    
    
End Sub

Private Sub Combo1_Click()
    Operater = Combo1.List(Combo1.ListIndex)
   
End Sub



Private Sub Form_Load()
 MakeCenter Me

cmbQueryItem.AddItem "机型代号"
cmbQueryItem.AddItem "机型名称"
cmbQueryItem.AddItem "申请图号"
cmbQueryItem.AddItem "申请人"
cmbQueryItem.AddItem "项目组员"
'cmbQueryItem.AddItem "开发年月"
cmbQueryItem.AddItem "备注"
cmbQueryItem.ListIndex = 0  '默认第一项

cmbDateItem.AddItem "开发年月"
cmbDateItem.ListIndex = 0

stbQuery.Tab = 0  '默认第一项
Fieldname = "机型代号" '默认第一项
'IDField = 2
Combo1.ListIndex = 0 '默认第一项


End Sub
Private Sub Form_Unload(Cancel As Integer)

  Unload Me

End Sub

Private Sub CancelButton_Click()

    Unload Me

End Sub

Private Sub stbQuery_Click(PreviousTab As Integer)
If stbQuery.Tab = 1 Then
    chkLike.Visible = False
Else
    chkLike.Visible = True
End If
End Sub