免费VB+员工管理系统(十一)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

免费VB+员工管理系统(十一) amp; "-1"
    fromdate = Format(Me.FromYear.Text & "-" & Me.FromMonth.Text & "-1", "yyyy-mm-dd")
    todate = Me.ToYear.Text & "-" & Me.ToMonth.Text & "-1"
    todate = Format(todate, "yyyy-mm-dd")
End Sub

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

首页上一页 8 9 10 11 12 13 下一页尾页 11/13/13

免费VB+员工管理系统(十一)由毕业论文网（www.huoyuandh.com）会员上传。