Public Class frmMoney    Inherits 圖書管理系統.frmBase#Region " Windows 窗體設計器生成的代碼 "    Public Sub New()        MyBase.New()        '該調用是 Windows 窗體設計器所必需的。        InitializeComponent()        '在 InitializeComponent() 調用之后添加任何初始化    End Sub    '窗體重寫 dispose 以清理組件列表。    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)        If disposing Then            If Not (components Is Nothing) Then                components.Dispose()            End If        End If        MyBase.Dispose(disposing)    End Sub    'Windows 窗體設計器所必需的    Private components As System.ComponentModel.IContainer    '注意: 以下過程是 Windows 窗體設計器所必需的    '可以使用 Windows 窗體設計器修改此過程。    '不要使用代碼編輯器修改它。    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet11 As 圖書管理系統.DataSet1
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents btnSubmit As System.Windows.Forms.Button
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txbMoney As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand
        Me.DataSet11 = New 圖書管理系統.DataSet1
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.txbMoney = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.btnSubmit = New System.Windows.Forms.Button
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "圖書罰款", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("罰款編號", "罰款編號"), New System.Data.Common.DataColumnMapping("讀者編號", "讀者編號"), New System.Data.Common.DataColumnMapping("圖書編號", "圖書編號"), New System.Data.Common.DataColumnMapping("應罰金額", "應罰金額"), New System.Data.Common.DataColumnMapping("實收金額", "實收金額"), New System.Data.Common.DataColumnMapping("罰款日期", "罰款日期"), New System.Data.Common.DataColumnMapping("是否交款", "是否交款"), New System.Data.Common.DataColumnMapping("備注", "備注")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 圖書罰款 WHERE (罰款編號 = @Original_罰款編號) AND (圖書編號 = @Original_圖書編號 OR @Ori" & _
        "ginal_圖書編號 IS NULL AND 圖書編號 IS NULL) AND (備注 = @Original_備注 OR @Original_備注 IS N" & _
        "ULL AND 備注 IS NULL) AND (實收金額 = @Original_實收金額 OR @Original_實收金額 IS NULL AND 實收金" & _
        "額 IS NULL) AND (應罰金額 = @Original_應罰金額 OR @Original_應罰金額 IS NULL AND 應罰金額 IS NULL" & _
        ") AND (是否交款 = @Original_是否交款 OR @Original_是否交款 IS NULL AND 是否交款 IS NULL) AND (罰款" & _
        "日期 = @Original_罰款日期 OR @Original_罰款日期 IS NULL AND 罰款日期 IS NULL) AND (讀者編號 = @Ori" & _
        "ginal_讀者編號 OR @Original_讀者編號 IS NULL AND 讀者編號 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_罰款編號", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "罰款編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_圖書編號", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "圖書編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_備注", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "備注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_實收金額", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "實收金額", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_應罰金額", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "應罰金額", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否交款", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否交款", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_罰款日期", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "罰款日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_讀者編號", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "讀者編號", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "workstation id=CS;packet size=4096;integrated security=SSPI;data source=CS;persis" & _
        "t security info=False;initial catalog=libbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 圖書罰款(讀者編號, 圖書編號, 應罰金額, 實收金額, 罰款日期, 是否交款, 備注) VALUES (@讀者編號, @圖書編號, @應" & _
        "罰金額, @實收金額, @罰款日期, @是否交款, @備注); SELECT 罰款編號, 讀者編號, 圖書編號, 應罰金額, 實收金額, 罰款日期, 是否交款," & _
        " 備注 FROM 圖書罰款 WHERE (罰款編號 = @@IDENTITY)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@讀者編號", System.Data.SqlDbType.VarChar, 20, "讀者編號"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@圖書編號", System.Data.SqlDbType.VarChar, 50, "圖書編號"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@應罰金額", System.Data.SqlDbType.Money, 8, "應罰金額"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@實收金額", System.Data.SqlDbType.Money, 8, "實收金額"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@罰款日期", System.Data.SqlDbType.DateTime, 4, "罰款日期"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否交款", System.Data.SqlDbType.Bit, 1, "是否交款"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@備注", System.Data.SqlDbType.VarChar, 100, "備注"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 罰款編號, 讀者編號, 圖書編號, 應罰金額, 實收金額, 罰款日期, 是否交款, 備注 FROM 圖書罰款"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 圖書罰款 SET 讀者編號 = @讀者編號, 圖書編號 = @圖書編號, 應罰金額 = @應罰金額, 實收金額 = @實收金額, 罰款日期 = @罰" & _
        "款日期, 是否交款 = @是否交款, 備注 = @備注 WHERE (罰款編號 = @Original_罰款編號) AND (圖書編號 = @Original_" & _
        "圖書編號 OR @Original_圖書編號 IS NULL AND 圖書編號 IS NULL) AND (備注 = @Original_備注 OR @Orig" & _
        "inal_備注 IS NULL AND 備注 IS NULL) AND (實收金額 = @Original_實收金額 OR @Original_實收金額 IS " & _
        "NULL AND 實收金額 IS NULL) AND (應罰金額 = @Original_應罰金額 OR @Original_應罰金額 IS NULL AND " & _
        "應罰金額 IS NULL) AND (是否交款 = @Original_是否交款 OR @Original_是否交款 IS NULL AND 是否交款 IS N" & _
        "ULL) AND (罰款日期 = @Original_罰款日期 OR @Original_罰款日期 IS NULL AND 罰款日期 IS NULL) AND " & _
        "(讀者編號 = @Original_讀者編號 OR @Original_讀者編號 IS NULL AND 讀者編號 IS NULL); SELECT 罰款編號," & _
        " 讀者編號, 圖書編號, 應罰金額, 實收金額, 罰款日期, 是否交款, 備注 FROM 圖書罰款 WHERE (罰款編號 = @罰款編號)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@讀者編號", System.Data.SqlDbType.VarChar, 20, "讀者編號"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@圖書編號", System.Data.SqlDbType.VarChar, 50, "圖書編號"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@應罰金額", System.Data.SqlDbType.Money, 8, "應罰金額"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@實收金額", System.Data.SqlDbType.Money, 8, "實收金額"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@罰款日期", System.Data.SqlDbType.DateTime, 4, "罰款日期"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@是否交款", System.Data.SqlDbType.Bit, 1, "是否交款"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@備注", System.Data.SqlDbType.VarChar, 100, "備注"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_罰款編號", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "罰款編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_圖書編號", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "圖書編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_備注", System.Data.SqlDbType.VarChar, 100, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "備注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_實收金額", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "實收金額", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_應罰金額", System.Data.SqlDbType.Money, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "應罰金額", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_是否交款", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "是否交款", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_罰款日期", System.Data.SqlDbType.DateTime, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "罰款日期", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_讀者編號", System.Data.SqlDbType.VarChar, 20, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "讀者編號", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@罰款編號", System.Data.SqlDbType.Int, 4, "罰款編號"))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txbMoney)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.btnSubmit)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBox1.Location = New System.Drawing.Point(0, 173)
        Me.GroupBox1.Name = "GroupBox1"