Private Sub setSQL() '设置SQL语句
If IDCheck.Value = vbChecked Then
query = "select * from StuffInfo where SID='" & Trim(Me.SID) & "'"
End If
If NameCheck.Value = vbChecked Then
query = "select * from StuffInfo where SName='" & Trim(Me.SName) & "'"
End If
If TimeCheck.Value = vbChecked Then
query = "select * from StuffInfo where SInTime between #"
query = query & fromdate & "# and #" & todate & "#"
End If
If IDCheck.Value = vbChecked And NameCheck.Value = vbChecked Then
query = "select * from StuffInfo where SID=' " & Trim(Me.SID)
query = query & "' and SName='" & Trim(Me.SName) & "'"
End If
If NameCheck.Value = vbChecked And TimeCheck.Value = vbChecked Then
query = query & "# and #" & todate & "#"
End If
End Sub
Private Sub cmdOK_Click()
If Trim(Me.SID) = "" And Trim(Me.SName) = "" And TimeCheck.Value <> vbChecked Then
MsgBox "请选择查询的条件！", vbOKOnly + vbExclamation, "警告！"
Else
Call CombineDate
Call setSQL
frmResult.createList (query)
frmResult.Show
Unload Me
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim SQL As String
Dim rs As New ADODB.Recordset
SQL = "select distinct SInTime from StuffInfo"
Set rs = TransactSQL(SQL)
If Not rs.EOF Then
rs.MoveFirst
While Not rs.EOF
If Not IsNull(rs.Fields(0)) Then '设置年
Me.FromYear.AddItem Left(rs(0), 4)
Me.ToYear.AddItem Left(rs(0), 4)
End If
rs.MoveNext
Wend
rs.Close
Me.FromYear.ListIndex = 0
