frmaddau.vb

The Management Information System of Library using .NET

            Dim myarr As New ArrayList
            While drAusort.Read
                myarr.Add(drAusort.Item(0))
            End While
            Me.cboAu_sort.DataSource = myarr
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Me.Close()
        Finally
            cnLib2004.Close()
        End Try
    End Function
    Function BindComboBoxSex()
        Dim arrSex As New ArrayList
        arrSex.Add("男")
        arrSex.Add("女")
        'arrSex.Add("不详")
        Me.cboAu_sex.DataSource = arrSex
    End Function
    '记录定位函数
    Function LocateRecord(ByVal columnIndex As Int16, ByVal keyWord As String) As Boolean
        Dim tableAu As DataTable
        tableAu = CType(dbgAu.DataSource, DataTable)

        Dim mycount As Int16
        With tableAu
            For mycount = 0 To .Rows.Count - 1
                If .Rows(mycount).Item(columnIndex) = keyWord Then
                    With .Rows(mycount)
                        Me.txtAu_serial.Text = .Item(0)
                        Me.txtAu_id.Text = .Item(1)
                        Me.txtAu_name.Text = .Item(2)
                        Me.cboAu_sex.Text = .Item(3)
                        Me.cboAu_sort.Text = .Item(4)
                        Me.dtpAu_adddate.Value = .Item(5)
                        Me.txtAu_adr.Text = .Item(6)
                        Me.txtAu_password.Text = .Item(7)
                        Me.txtAu_email.Text = .Item(8)
                        Me.txtAu_remarks.Text = .Item(9)
                    End With
                    'MessageBox.Show("定位成功!", "信息", _
                    '              MessageBoxButtons.OK, MessageBoxIcon.Information)
                    Me.btnDelete1.Enabled = True
                    Me.btnEdit.Enabled = True
                    Me.btnAdd.Enabled = False
                    Me.txtAu_id.Focus()
                    Return True
                    Exit For
                End If
            Next
        End With
        MessageBox.Show("无法找到此读者!", "信息", _
                  MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return False
    End Function
#End Region
    Private Sub FrmAddAu_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SuspendLayout()
        'Dim frmStatusMessage As New frmStatus
        'frmStatusMessage.Show("正在连接数据服务器...")
        dbgbind()
        BindComboBox1()
        BindComboBoxSex()
        setEmpty()
        Me.TextBox1.Text = "  双击每行的开头可以进行定位" + vbCrLf + "    单击列标题可以进行排序"
        'frmStatusMessage.Close()
        Me.SuspendLayout()
    End Sub

#Region "记录处理"
    '添加一条记录
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim cnlib2004 As SqlConnection
        Dim cmdAu As SqlCommand

        cnlib2004 = New SqlConnection
        cnlib2004.ConnectionString = cnstr
        cmdAu = New SqlCommand

        With cmdAu
            .CommandType = CommandType.StoredProcedure
            .Connection = cnlib2004
            .CommandText = "InsertInAu"
        End With

        Dim mAu_id As New SqlParameter("@Au_id", SqlDbType.NVarChar, 50) '1
        Dim mAu_name As New SqlParameter("@Au_name", SqlDbType.NVarChar, 50) '2
        Dim mAu_sex As New SqlParameter("@Au_sex", SqlDbType.NVarChar, 2) '3
        Dim mAu_sort As New SqlParameter("@Au_sort", SqlDbType.NVarChar, 50) '4
        Dim mAu_adddate As New SqlParameter("@Au_adddate", SqlDbType.SmallDateTime, 4) '5
        Dim mAu_adr As New SqlParameter("@Au_adr", SqlDbType.NVarChar, 50) '6
        Dim mAu_password As New SqlParameter("@Au_password", SqlDbType.NVarChar, 12) '7
        Dim mAu_email As New SqlParameter("@Au_email", SqlDbType.NVarChar, 50)  '8
        Dim mAu_remarks As New SqlParameter("@Au_remarks", SqlDbType.NVarChar, 4000)  '9

        With cmdAu.Parameters
            .Add(mAu_id)
            .Add(mAu_name)
            .Add(mAu_sex)
            .Add(mAu_sort)
            .Add(mAu_adddate)
            .Add(mAu_adr)
            .Add(mAu_password)
            .Add(mAu_email)
            .Add(mAu_remarks)
        End With
        '赋值
        mAu_id.Value = Me.txtAu_id.Text.Trim  '1
        mAu_name.Value = Me.txtAu_name.Text.Trim  '2
        mAu_sex.Value = Me.cboAu_sex.Text.Trim  '3
        mAu_sort.Value = Me.cboAu_sort.Text.Trim  '4 
        mAu_adddate.Value = Me.dtpAu_adddate.Value '5
        mAu_adr.Value = Me.txtAu_adr.Text.Trim   '6
        mAu_password.Value = Me.txtAu_password.Text.Trim '7
        mAu_email.Value = Me.txtAu_email.Text.Trim  '8
        mAu_remarks.Value = Me.txtAu_remarks.Text.Trim    '9


        Try
            cnlib2004.Open()
            cmdAu.ExecuteNonQuery()
            dbgbind()
            setEmpty()
            MessageBox.Show("添加成功", "Info", _
             MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "更新失败", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            cnlib2004.Close()
            cmdAu.Dispose()
        End Try

    End Sub
    '修改当前记录
    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        Dim cnlib2004 As SqlConnection
        Dim cmdAu As SqlCommand

        cnlib2004 = New SqlConnection
        cnlib2004.ConnectionString = cnstr

        cmdAu = New SqlCommand

        With cmdAu
            .CommandType = CommandType.StoredProcedure
            .Connection = cnlib2004
            .CommandText = "UpdateAu"
        End With
        Dim mAu_serial As New SqlParameter("@Au_serial", SqlDbType.Int, 4) '0
        Dim mAu_id As New SqlParameter("@Au_id", SqlDbType.NVarChar, 50) '1
        Dim mAu_name As New SqlParameter("@Au_name", SqlDbType.NVarChar, 50) '2
        Dim mAu_sex As New SqlParameter("@Au_sex", SqlDbType.NVarChar, 2) '3
        Dim mAu_sort As New SqlParameter("@Au_sort", SqlDbType.NVarChar, 50) '4
        Dim mAu_adddate As New SqlParameter("@Au_adddate", SqlDbType.SmallDateTime, 4) '5
        Dim mAu_adr As New SqlParameter("@Au_adr", SqlDbType.NVarChar, 50) '6
        Dim mAu_password As New SqlParameter("@Au_password", SqlDbType.NVarChar, 12) '7
        Dim mAu_email As New SqlParameter("@Au_email", SqlDbType.NVarChar, 50)  '8
        Dim mAu_remarks As New SqlParameter("@Au_remarks", SqlDbType.NVarChar, 4000)  '9

        With cmdAu.Parameters
            .Add(mAu_serial)
            .Add(mAu_id)
            .Add(mAu_name)
            .Add(mAu_sex)
            .Add(mAu_sort)
            .Add(mAu_adddate)
            .Add(mAu_adr)
            .Add(mAu_password)
            .Add(mAu_email)
            .Add(mAu_remarks)
        End With
        '赋值
        mAu_serial.Value = Me.txtAu_serial.Text.Trim '0
        mAu_id.Value = Me.txtAu_id.Text.Trim  '1
        mAu_name.Value = Me.txtAu_name.Text.Trim  '2
        mAu_sex.Value = Me.cboAu_sex.Text.Trim  '3
        mAu_sort.Value = Me.cboAu_sort.Text.Trim  '4 
        mAu_adddate.Value = Me.dtpAu_adddate.Value '5
        mAu_adr.Value = Me.txtAu_adr.Text.Trim   '6
        mAu_password.Value = Me.txtAu_password.Text.Trim '7
        mAu_email.Value = Me.txtAu_email.Text.Trim  '8
        mAu_remarks.Value = Me.txtAu_remarks.Text.Trim    '9

        Try
            cnlib2004.Open()
            cmdAu.ExecuteNonQuery()
            dbgbind()
            MessageBox.Show("修改成功", "信息", _
            MessageBoxButtons.OK, MessageBoxIcon.Information)
            'setEmpty()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "更新失败", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            cnlib2004.Close()
            cmdAu.Dispose()
        End Try
    End Sub
    '删除当前记录
    Private Sub btnDelete1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete1.Click
        Dim myRes As DialogResult
        myRes = MessageBox.Show("删除该读者时将一起删除该读者的图书借阅记录" _
       + vbCrLf + "是否删除?", "删除警告", _
        MessageBoxButtons.YesNo, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2)
        If myRes <> DialogResult.Yes Then
            Exit Sub
        End If

        Dim cnlib2004 As SqlConnection
        Dim cmdAu As SqlCommand

        cnlib2004 = New SqlConnection
        cnlib2004.ConnectionString = cnstr
        cmdAu = New SqlCommand

        With cmdAu
            .CommandType = CommandType.StoredProcedure
            .Connection = cnlib2004
            .CommandText = "Delete1Au"
        End With
        Dim mAu_id As New SqlParameter("@Au_id", SqlDbType.NVarChar, 50) '1
        cmdAu.Parameters.Add(mAu_id)
        mAu_id.Value = Me.txtAu_id.Text '1

        Try
            cnlib2004.Open()
            cmdAu.ExecuteNonQuery()
            dbgbind()
            MessageBox.Show("删除成功!", "信息", _
            MessageBoxButtons.OK, MessageBoxIcon.Information)
            setEmpty()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "更新失败", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            cnlib2004.Close()
            cmdAu.Dispose()
        End Try
    End Sub
#End Region

    Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        setEmpty()
    End Sub



    Private Sub txtFindAu_id_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFindAu_id.KeyPress
        If e.KeyChar.Equals(Chr(13)) Then
            LocateRecord(1, sender.text.trim())
        End If
    End Sub
    Private Sub txtFindAu_name_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtFindAu_name.KeyPress
        If e.KeyChar.Equals(Chr(13)) Then
            LocateRecord(2, sender.text.trim())
        End If
    End Sub
    Private Sub dbgAu_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dbgAu.DoubleClick
        Dim str As String = CType(dbgAu.Item(sender.CurrentRowIndex, 1), String)
        LocateRecord(1, str)
        ' MessageBox.Show(str)       
    End Sub

    Private Sub btnCreatAuId_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreatAuId.Click
        Dim creatcode As String = System.DateTime.Now.ToUniversalTime
        creatcode = creatcode.Replace("-", "X")
        creatcode = creatcode.Replace(" ", "")
        creatcode = creatcode.Replace(":", "")
        Me.txtAu_id.Text = creatcode
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub



    'Private Sub GroupBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GroupBox1.Paint
    '    Dim grbrush As Drawing2D.LinearGradientBrush
    '    grbrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), _
    '     New Point(sender.Width, sender.Height), Color.Blue, Color.White)
    '    sender.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, sender.Width, sender.Height))
    'End Sub

    'Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    'End Sub

    'Private Sub GroupBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GroupBox2.Paint
    '    Dim grbrush As Drawing2D.LinearGradientBrush
    '    grbrush = New Drawing2D.LinearGradientBrush(New Point(0, 0), _
    '     New Point(sender.Width, sender.Height), Color.Gold, Color.Red)
    '    sender.CreateGraphics.FillRectangle(grbrush, New Rectangle(0, 0, sender.Width, sender.Height))
    'End Sub
End Class