kqxt_fzckq.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

Namespace wsbgxt

Partial Class kqxt_fzckq
    Inherits System.Web.UI.Page
    Private Shared iclskq As New clsDataSet
    Private Shared kqDS As DataSet
    Private Shared clsrow As New clsSingleRow
    Protected WithEvents Radiobutton1 As System.Web.UI.WebControls.RadioButton
    Private Shared ryDS As DataSet

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub


    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Session("id") Is Nothing Then
                Response.Redirect("../NotLogin.aspx?FromPageName=kqxt/kqxt_fzckq")
            End If
            If Not IsPostBack Then
                initpage()
                ddlYGID.DataSource = rydata()
                ddlYGID.DataTextField = "xm"
                ddlYGID.DataValueField = "id"
                ddlYGID.DataBind()
            End If
        End Sub

        Private Function rydata() As DataView
            Dim str As String
            Dim retable As DataView
            str = "select xm,id from n_yhjbxx_ent"
            ryDS = iclskq.CreateDataSet(str, "ry")
            retable = New DataView(ryDS.Tables(0))
            Return retable
        End Function

    Private Sub kqList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If kqList.SelectedItem.Value = 1 Then
            labelCCDD.Visible = True
            txtCCDD.Visible = True
            RButton1.Visible = True
            RButton2.Visible = True
        Else
            labelCCDD.Visible = False
            txtCCDD.Visible = False
            RButton1.Visible = False
            RButton2.Visible = False
        End If
    End Sub

        Private Sub initpage()
            kqList.SelectedIndex = 0
            txtQSSJ.Text = ""
            txtZZSJ.Text = ""
            txtJQM.Text = ""
            txtIP.Text = ""
            txtCCDD.Text = ""
            txtBZ.Text = ""
            labelCCDD.Visible = False
            txtCCDD.Visible = False
            RButton1.Visible = False
            RButton2.Visible = False
        End Sub

    Public Function Insert_kq(ByVal kqbz As String) As Boolean
            Dim mykqstr As String
        Dim mykqrow As DataRow
        Dim lb As Boolean

        mykqstr = "select * from n_oa02_kqdjb_ent where ygid=" + ddlYGID.SelectedItem.Value
        kqDS = iclskq.CreateDataSet(mykqstr, "kq_fzckqdj")

        '补充：按时间段starttime=txtQSSJ.text和endtime=txtZZSJ.text添加记录
        '      并且添加每天的上班时间
        ''''''
        '计算间隔的日期和天数
        Dim startdate As System.DateTime = CType(txtQSSJ.Text, DateTime)
        Dim enddate As System.DateTime = CType(txtZZSJ.Text, DateTime)
        Dim temp As System.DateTime

        temp = startdate
        While temp <> enddate
            If checkkq(temp) Then
                mykqrow = kqDS.Tables(0).NewRow()
                mykqrow("ygid") = CType(ddlYGID.SelectedItem.Value, Integer)
                    mykqrow("kqbz") = kqbz
                mykqrow("sbsj") = temp
                mykqrow("jqm") = txtJQM.Text
                mykqrow("ip") = txtIP.Text
                mykqrow("bz") = txtBZ.Text
                If kqbz = "出差" Then
                    mykqrow("ccdd") = txtCCDD.Text
                    If RButton1.Checked Then
                        mykqrow("snwbz") = "省内"
                    Else
                        mykqrow("snwbz") = "省外"
                    End If
                End If

                kqDS.Tables(0).Rows.Add(mykqrow)
                temp = temp.AddDays(1)
            Else
                Return False
                Exit Function
            End If
        End While
         

            lb = iclskq.UpdateDataSet(kqDS)
            If lb Then
                Return True
            Else
                Return False
            End If
        End Function
    Function checkkq(ByVal temp As DateTime) As Boolean
        Dim SQLstr As String
        Dim tempdate As String
        Dim tempclskq As New clsDataSet
            Dim tempDS As DataSet
        If temp.Month.ToString.Length = 1 And temp.Day.ToString.Length = 1 Then
            tempdate = temp.Year.ToString + "-0" + temp.Month.ToString + "-0" + temp.Day.ToString
        ElseIf temp.Month.ToString.Length = 1 Then
            tempdate = temp.Year.ToString + "-0" + temp.Month.ToString + "-" + temp.Day.ToString
        ElseIf temp.Day.ToString.Length = 1 Then
            tempdate = temp.Year.ToString + "-" + temp.Month.ToString + "-0" + temp.Day.ToString
        Else
            tempdate = temp.Year.ToString + "-" + temp.Month.ToString + "-" + temp.Day.ToString
        End If
        SQLstr = "select * from n_oa02_kqdjb_ent where ygid=" + ddlYGID.SelectedItem.Value + "and (CONVERT(varchar(10), sbsj,120)='" + tempdate + "')"
        tempDS = tempclskq.CreateDataSet(SQLstr, "mykq")
        If tempDS.Tables(0).Rows.Count > 0 Then
            Return False
        Else
            Return True
        End If
    End Function
    Private Sub RButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        RButton1.Checked = True
        RButton2.Checked = False
    End Sub

    Private Sub RButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        RButton1.Checked = False
        RButton2.Checked = True
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If kqList.SelectedItem.Value = 1 Then
            If Insert_kq("出差") Then
                StatusInfo.Text = "补登出差信息成功！"
            Else
                StatusInfo.Text = "补登出差信息失败，您输入的日期已经记录考勤或输入信息有错误！"
            End If
        ElseIf kqList.SelectedItem.Value = 2 Then
            If Insert_kq("请假休假") Then
                StatusInfo.Text = "补登请假休假信息成功！"
            Else
                StatusInfo.Text = "补登请假休假信息失败，您输入的日期已经记录考勤或输入信息有错误！"
            End If
        Else
            If Insert_kq("旷工") Then
                StatusInfo.Text = "补登旷工信息成功！"
            Else
                StatusInfo.Text = "补登旷工信息失败，您输入的日期已经记录考勤或输入信息有错误！"
            End If
        End If
        initpage()
    End Sub
End Class

End Namespace