frmaddau.vb

The Management Information System of Library using .NET

        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(24, 24)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(64, 16)
        Me.Label13.TabIndex = 0
        Me.Label13.Text = "图书证号:"
        '
        'txtFindAu_id
        '
        Me.txtFindAu_id.BackColor = System.Drawing.Color.White
        Me.txtFindAu_id.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtFindAu_id.Location = New System.Drawing.Point(88, 24)
        Me.txtFindAu_id.Name = "txtFindAu_id"
        Me.txtFindAu_id.Size = New System.Drawing.Size(176, 21)
        Me.txtFindAu_id.TabIndex = 0
        Me.txtFindAu_id.Text = ""
        '
        'txtFindAu_name
        '
        Me.txtFindAu_name.BackColor = System.Drawing.Color.White
        Me.txtFindAu_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtFindAu_name.Location = New System.Drawing.Point(88, 64)
        Me.txtFindAu_name.Name = "txtFindAu_name"
        Me.txtFindAu_name.Size = New System.Drawing.Size(176, 21)
        Me.txtFindAu_name.TabIndex = 1
        Me.txtFindAu_name.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(24, 64)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 16)
        Me.Label14.TabIndex = 26
        Me.Label14.Text = "读者姓名:"
        '
        'btnCreatAuId
        '
        Me.btnCreatAuId.Location = New System.Drawing.Point(192, 32)
        Me.btnCreatAuId.Name = "btnCreatAuId"
        Me.btnCreatAuId.Size = New System.Drawing.Size(16, 21)
        Me.btnCreatAuId.TabIndex = 24
        Me.btnCreatAuId.TabStop = False
        Me.btnCreatAuId.Text = "<"
        '
        'txtAu_remarks
        '
        Me.txtAu_remarks.BackColor = System.Drawing.Color.White
        Me.txtAu_remarks.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_remarks.Location = New System.Drawing.Point(80, 136)
        Me.txtAu_remarks.Multiline = True
        Me.txtAu_remarks.Name = "txtAu_remarks"
        Me.txtAu_remarks.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtAu_remarks.Size = New System.Drawing.Size(128, 104)
        Me.txtAu_remarks.TabIndex = 3
        Me.txtAu_remarks.Text = ""
        '
        'dtpAu_adddate
        '
        Me.dtpAu_adddate.Location = New System.Drawing.Point(288, 144)
        Me.dtpAu_adddate.Name = "dtpAu_adddate"
        Me.dtpAu_adddate.Size = New System.Drawing.Size(128, 21)
        Me.dtpAu_adddate.TabIndex = 7
        Me.dtpAu_adddate.Value = New Date(2004, 5, 25, 12, 22, 43, 383)
        '
        'txtAu_email
        '
        Me.txtAu_email.BackColor = System.Drawing.Color.White
        Me.txtAu_email.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_email.Location = New System.Drawing.Point(288, 64)
        Me.txtAu_email.Name = "txtAu_email"
        Me.txtAu_email.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_email.TabIndex = 5
        Me.txtAu_email.Text = ""
        '
        'Label12
        '
        Me.Label12.AutoSize = True
        Me.Label12.Location = New System.Drawing.Point(8, 144)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(35, 17)
        Me.Label12.TabIndex = 17
        Me.Label12.Text = "备注:"
        '
        'txtAu_password
        '
        Me.txtAu_password.BackColor = System.Drawing.Color.White
        Me.txtAu_password.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_password.Location = New System.Drawing.Point(288, 32)
        Me.txtAu_password.Name = "txtAu_password"
        Me.txtAu_password.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.txtAu_password.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_password.TabIndex = 4
        Me.txtAu_password.Text = ""
        '
        'txtAu_adr
        '
        Me.txtAu_adr.BackColor = System.Drawing.Color.White
        Me.txtAu_adr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_adr.Location = New System.Drawing.Point(288, 104)
        Me.txtAu_adr.Name = "txtAu_adr"
        Me.txtAu_adr.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_adr.TabIndex = 6
        Me.txtAu_adr.Text = ""
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Location = New System.Drawing.Point(216, 64)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(66, 17)
        Me.Label8.TabIndex = 10
        Me.Label8.Text = "读者email:"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(216, 32)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 17)
        Me.Label7.TabIndex = 8
        Me.Label7.Text = "读者密码：:"
        '
        'txtAu_name
        '
        Me.txtAu_name.BackColor = System.Drawing.Color.White
        Me.txtAu_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_name.Location = New System.Drawing.Point(80, 64)
        Me.txtAu_name.Name = "txtAu_name"
        Me.txtAu_name.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_name.TabIndex = 1
        Me.txtAu_name.Text = ""
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(216, 184)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(60, 17)
        Me.Label6.TabIndex = 6
        Me.Label6.Text = "读者类别:"
        '
        'txtAu_id
        '
        Me.txtAu_id.BackColor = System.Drawing.SystemColors.Menu
        Me.txtAu_id.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_id.Location = New System.Drawing.Point(80, 32)
        Me.txtAu_id.Name = "txtAu_id"
        Me.txtAu_id.Size = New System.Drawing.Size(112, 21)
        Me.txtAu_id.TabIndex = 0
        Me.txtAu_id.Text = ""
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(216, 144)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(60, 17)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "添加日期:"
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(216, 104)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(60, 17)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "读者地址:"
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(8, 104)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(60, 17)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "读者性别:"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(8, 64)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(60, 17)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "读者姓名:"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.ForeColor = System.Drawing.Color.Red
        Me.Label1.Location = New System.Drawing.Point(8, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(60, 17)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "图书证号:"
        '
        'TextBox1
        '
        Me.TextBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TextBox1.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TextBox1.Location = New System.Drawing.Point(584, 280)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(128, 248)
        Me.TextBox1.TabIndex = 2
        Me.TextBox1.TabStop = False
        Me.TextBox1.Text = ""
        '
        'frmAddAu
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(712, 533)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.dbgAu)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmAddAu"
        Me.Text = "读者管理"
        CType(Me.dbgAu, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
#Region "自定义函数"
    Function setEmpty()
        Me.txtAu_adr.Text = ""
        Me.txtAu_email.Text = ""
        Me.txtAu_id.Text = ""
        Me.txtAu_name.Text = ""
        Me.txtAu_password.Text = ""
        Me.txtAu_remarks.Text = ""
        Me.txtAu_serial.Text = "自动编号"

        Me.cboAu_sort.Text = ""
        Me.cboAu_sex.Text = ""
        Me.txtFindAu_id.Text = ""
        Me.txtFindAu_name.Text = ""

        Me.btnDelete1.Enabled = False
        Me.btnEdit.Enabled = False
        Me.btnAdd.Enabled = True



        Me.txtAu_id.Focus()
    End Function
    Function dbgbind()
        Dim cnLib2004 As SqlConnection
        Dim daAu As SqlDataAdapter
        Dim cmdAu As SqlCommand
        Dim dsAu As New DataSet

        cnLib2004 = New SqlConnection(cnstr)
        cmdAu = New SqlCommand
        With cmdAu
            .CommandType = CommandType.StoredProcedure
            .CommandText = "SelectAllAu"
            .Connection = cnLib2004
        End With

        daAu = New SqlDataAdapter(cmdAu)
        Try
            daAu.Fill(dsAu)
            Me.dbgAu.DataSource = dsAu.Tables(0)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Me.Close()
        Finally
            cnLib2004.Close()
            dsAu.Dispose()
        End Try


    End Function
    Function BindComboBox1()
        Dim cnLib2004 As SqlConnection
        Dim cmdAusort As SqlCommand
        Dim drAusort As SqlDataReader

        cnLib2004 = New SqlConnection(cnstr)
        cmdAusort = New SqlCommand
        With cmdAusort
            .CommandType = CommandType.StoredProcedure
            .Connection = cnLib2004
            .CommandText = "selectAuSort"
        End With

        Try
            cnLib2004.Open()
            drAusort = cmdAusort.ExecuteReader