search.frm

数据库应用的教程,大家

            Caption         =   "月"
            Height          =   255
            Left            =   4080
            TabIndex        =   27
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label8 
            Caption         =   "年"
            Height          =   255
            Left            =   3480
            TabIndex        =   26
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label3 
            Caption         =   "进入时间："
            Height          =   255
            Left            =   1680
            TabIndex        =   25
            Top             =   120
            Width           =   1095
         End
      End
      Begin VB.Frame frameBookName 
         BorderStyle     =   0  'None
         Height          =   495
         Left            =   1080
         TabIndex        =   3
         Top             =   1080
         Width           =   6015
         Begin VB.TextBox txtDept 
            Height          =   270
            Left            =   2760
            TabIndex        =   7
            Top             =   120
            Width           =   2895
         End
         Begin VB.OptionButton optDeptOr 
            Caption         =   "OR"
            Height          =   255
            Left            =   1080
            TabIndex        =   6
            Top             =   120
            Width           =   495
         End
         Begin VB.OptionButton optDeptAnd 
            Caption         =   "AND"
            Height          =   255
            Left            =   480
            TabIndex        =   5
            Top             =   120
            Width           =   615
         End
         Begin VB.CheckBox chkDept 
            Height          =   255
            Left            =   120
            TabIndex        =   4
            Top             =   120
            Width           =   375
         End
         Begin VB.Label Label2 
            Caption         =   "部门："
            Height          =   255
            Left            =   1680
            TabIndex        =   8
            Top             =   120
            Width           =   615
         End
      End
      Begin VB.TextBox txtKey 
         Height          =   270
         Left            =   2760
         TabIndex        =   2
         Top             =   240
         Width           =   1575
      End
      Begin VB.ComboBox cmbItem 
         Height          =   300
         Left            =   1200
         TabIndex        =   1
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label Label10 
         Caption         =   "详细查询条件："
         Height          =   615
         Left            =   240
         TabIndex        =   48
         Top             =   720
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "查询条件："
         Height          =   255
         Left            =   240
         TabIndex        =   47
         Top             =   240
         Width           =   1215
      End
   End
End
Attribute VB_Name = "search"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbitem_click()
    Select Case cmbItem.ListIndex
    Case 0
    '"无"
        txtKey.Visible = False
        chkName.Enabled = True
        chkDept.Enabled = True
        chkBusi.Enabled = True
        chkLevel.Enabled = True

   Case 1
    '"姓名"
        txtKey.Visible = True
        chkName.Enabled = False
        chkDept.Enabled = True
        chkBusi.Enabled = True
        chkLevel.Enabled = True
        Case 2
    '"部门"
        txtKey.Visible = True
        chkName.Enabled = True
        chkDept.Enabled = False
        chkBusi.Enabled = True
        chkLevel.Enabled = True
        Case 3
    '"职称"
        txtKey.Visible = True
        chkName.Enabled = True
        chkDept.Enabled = True
        chkBusi.Enabled = False
        chkLevel.Enabled = True
        Case 4
    '"学历"
        txtKey.Visible = True
        chkName.Enabled = True
        chkDept.Enabled = True
        chkBusi.Enabled = True
        chkLevel.Enabled = False
    End Select
End Sub
Private Sub cmdSearch_Click()
    Dim sqltxt As String
    Dim wheretxt As String
    '初始化Sqlstr和Wherestr
    sqltxt = "select * from ManInfo "
    wheretxt = ""
    '判断Combobox选项
    If cmbItem.ListIndex = 0 Then
    '无
    Else
        If txtKey.Text <> "" Then
            Select Case cmbItem.ListIndex
            Case 1
                '姓名
                wheretxt = wheretxt + "ygName='" & txtKey & "'"
            Case 2
                '部门
                wheretxt = wheretxt + "ygDept='" & txtKey & "'"
            Case 3
                '职称
                wheretxt = wheretxt + "ygBusi='" & txtKey & "'"
            Case 4
                '学历
                wheretxt = wheretxt + "ygLevel='" & txtKey & "'"
            End Select
        End If
    End If
    '详细条件
    '姓名关键字
    If chkName.Enabled And chkName.Value = 1 And txtName.Text <> "" Then
        If wherestr <> "" Then
            If optNameAnd.Value Then
                wheretxt = wheretxt + " and "
            Else
                wheretxt = wheretxt + " or "
            End If
        End If
        wheretxt = wheretxt + "ygName like '%" & txtName & "%'"
    End If
    '部门关键字
    If chkDept.Enabled And chkDept.Value = 1 And txtDept.Text <> "" Then
        If wheretxt <> "" Then
            If optDeptAnd.Value Then
                wheretxt = wheretxt + " and "
            Else
                wheretxt = wheretxt + " or  "
            End If
        End If
        wheretxt = wheretxt + "ygDept like '%" & txtDept & "%'"
    End If
    '职称关键字
    If chkBusi.Enabled And chkBusi.Value = 1 And txtBusi.Text <> "" Then
        If wheretxt <> "" Then
            If optBusiAnd.Value Then
                wheretxt = wheretxt + " and "
            Else
                wheretxt = wheretxt + " or "
            End If
        End If
        wheretxt = wheretxt + "ygBusi like '%" & txtBusi & "%'"
    End If
    '学历关键字
    If chkLevel.Enabled And chkLevel.Value = 1 And txtLevel.Text <> "" Then
        If wheretxt <> "" Then
            If optLevelAnd.Value Then
                wheretxt = wheretxt + " and "
            Else
                wheretxt = wheretxt + " or "
            End If
        End If
        wheretxt = wheretxt + "ygLevel like '%" & txtLevel & "%'"
    End If
   
    '进入时间
    If chkTimeKey.Enabled And chkTimeKey.Value = 1 Then
        If optnKeyFore.Value Or optnKeyBack.Value Then
            If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Then
                MsgBox "请完整填写查询时间！", vbOKOnly + vbInformation, "查询"
                Exit Sub
            End If
            If wheretxt <> "" Then
                If optnTimeand.Value Then
                    wheretxt = wheretxt + " and "
                Else
                    wheretxt = wheretxt + " or "
                End If
            End If
        '之前
            If optnKeyFore.Value Then
                wheretxt = wheretxt + "ygDate4<'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'"
        '之后
            ElseIf optnKeyBack.Value Then
                wheretxt = wheretxt + "ygDate4>'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'"
            End If
        ElseIf optnKeyBetween.Value Then
            If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Or txtYearKeyBack.Text = "" Or txtMonKeyBack.Text = "" Then
                MsgBox "请完整填写查询时间", vbOKOnly + vbInformation, "查询"
                Exit Sub
            End If
            If wheretxt <> "" Then
                If optnTimeand.Value Then
                    wheretxt = wheretxt + " and "
                Else
                    wheretxt = wheretxt + " or "
                End If
            End If
        '之间
            wheretxt = wheretxt + "ygDate4 between '" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'and '" & txtYearKeyBack.Text + "-" + txtMonKeyBack.Text & "'"
        End If
    End If
    '综合所有条件
    If wheretxt <> "" Then
        wheretxt = "where " + wheretxt
    End If
    flagSearch = True
    sql = sqltxt + wheretxt
    frmManrecord1.ShowTitle
    frmManrecord1.ShowData
    frmManrecord1.Show
    frmManrecord1.ZOrder 0

End Sub



Private Sub Form_Load()
    cmbItem.AddItem "无"
    cmbItem.AddItem "姓名"
    cmbItem.AddItem "部门"
    cmbItem.AddItem "职称"
    cmbItem.AddItem "学历"
    cmbItem.ListIndex = 0
End Sub

Private Sub optnKeyBack_Click()
     frmttime.Visible = False
End Sub

Private Sub optnKeyBetween_Click()
     frmttime.Visible = True
End Sub

Private Sub optnKeyFore_Click()
     frmttime.Visible = False
End Sub