?? frmclass.vb

?? vb.net+SQL開發(fā)工具是一個很好的管理系統(tǒng)的源碼
?? VB
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
Public Class frmClass    Inherits 教務管理系統(tǒng).frmBase#Region " Windows 窗體設計器生成的代碼 "    Public Sub New()        MyBase.New()        '該調(diào)用是 Windows 窗體設計器所必需的。        InitializeComponent()        '在 InitializeComponent() 調(diào)用之后添加任何初始化    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 教務管理系統(tǒng).DataSet1
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txbTeacher As System.Windows.Forms.TextBox
    Friend WithEvents txbNumber As System.Windows.Forms.TextBox
    Friend WithEvents txbGrade As System.Windows.Forms.TextBox
    Friend WithEvents txbClassId As System.Windows.Forms.TextBox
    Friend WithEvents txbShortName As System.Windows.Forms.TextBox
    Friend WithEvents txbName 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 教務管理系統(tǒng).DataSet1
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.txbShortName = New System.Windows.Forms.TextBox
        Me.Label9 = New System.Windows.Forms.Label
        Me.txbName = New System.Windows.Forms.TextBox
        Me.Label8 = New System.Windows.Forms.Label
        Me.txbTeacher = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.txbNumber = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.txbGrade = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.txbClassId = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        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("人數(shù)", "人數(shù)"), New System.Data.Common.DataColumnMapping("班主任", "班主任")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 班級信息 WHERE (班級編號 = @Original_班級編號) AND (人數(shù) = @Original_人數(shù) OR @Origina" & _
        "l_人數(shù) IS NULL AND 人數(shù) IS NULL) AND (年級 = @Original_年級 OR @Original_年級 IS NULL AND " & _
        "年級 IS NULL) AND (班主任 = @Original_班主任 OR @Original_班主任 IS NULL AND 班主任 IS NULL) A" & _
        "ND (班級名稱 = @Original_班級名稱 OR @Original_班級名稱 IS NULL AND 班級名稱 IS NULL) AND (班級簡稱 " & _
        "= @Original_班級簡稱 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.VarChar, 14, 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_人數(shù)", System.Data.SqlDbType.Decimal, 5, System.Data.ParameterDirection.Input, False, CType(3, Byte), CType(0, Byte), "人數(shù)", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_年級", System.Data.SqlDbType.VarChar, 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, 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.VarChar, 30, 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, 16, 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=eisbook"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 班級信息(班級編號, 年級, 班級名稱, 班級簡稱, 人數(shù), 班主任) VALUES (@班級編號, @年級, @班級名稱, @班級簡稱," & _
        " @人數(shù), @班主任); SELECT 班級編號, 年級, 班級名稱, 班級簡稱, 人數(shù), 班主任 FROM 班級信息 WHERE (班級編號 = @班級編號)" & _
        ""
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級編號", System.Data.SqlDbType.VarChar, 14, "班級編號"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@年級", System.Data.SqlDbType.VarChar, 4, "年級"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級名稱", System.Data.SqlDbType.VarChar, 30, "班級名稱"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級簡稱", System.Data.SqlDbType.VarChar, 16, "班級簡稱"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@人數(shù)", System.Data.SqlDbType.Decimal, 5, System.Data.ParameterDirection.Input, False, CType(3, Byte), CType(0, Byte), "人數(shù)", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班主任", System.Data.SqlDbType.VarChar, 8, "班主任"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT 班級編號, 年級, 班級名稱, 班級簡稱, 人數(shù), 班主任 FROM 班級信息"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 班級信息 SET 班級編號 = @班級編號, 年級 = @年級, 班級名稱 = @班級名稱, 班級簡稱 = @班級簡稱, 人數(shù) = @人數(shù), 班主任" & _
        " = @班主任 WHERE (班級編號 = @Original_班級編號) AND (人數(shù) = @Original_人數(shù) OR @Original_人數(shù) IS " & _
        "NULL AND 人數(shù) IS NULL) AND (年級 = @Original_年級 OR @Original_年級 IS NULL AND 年級 IS NU" & _
        "LL) AND (班主任 = @Original_班主任 OR @Original_班主任 IS NULL AND 班主任 IS NULL) AND (班級名稱" & _
        " = @Original_班級名稱 OR @Original_班級名稱 IS NULL AND 班級名稱 IS NULL) AND (班級簡稱 = @Origi" & _
        "nal_班級簡稱 OR @Original_班級簡稱 IS NULL AND 班級簡稱 IS NULL); SELECT 班級編號, 年級, 班級名稱, 班級簡" & _
        "稱, 人數(shù), 班主任 FROM 班級信息 WHERE (班級編號 = @班級編號)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級編號", System.Data.SqlDbType.VarChar, 14, "班級編號"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@年級", System.Data.SqlDbType.VarChar, 4, "年級"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級名稱", System.Data.SqlDbType.VarChar, 30, "班級名稱"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班級簡稱", System.Data.SqlDbType.VarChar, 16, "班級簡稱"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@人數(shù)", System.Data.SqlDbType.Decimal, 5, System.Data.ParameterDirection.Input, False, CType(3, Byte), CType(0, Byte), "人數(shù)", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@班主任", System.Data.SqlDbType.VarChar, 8, "班主任"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_班級編號", System.Data.SqlDbType.VarChar, 14, 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_人數(shù)", System.Data.SqlDbType.Decimal, 5, System.Data.ParameterDirection.Input, False, CType(3, Byte), CType(0, Byte), "人數(shù)", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_年級", System.Data.SqlDbType.VarChar, 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, 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.VarChar, 30, 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, 16, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "班級簡稱", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txbShortName)
        Me.GroupBox1.Controls.Add(Me.Label9)
        Me.GroupBox1.Controls.Add(Me.txbName)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.txbTeacher)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.txbNumber)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.txbGrade)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.txbClassId)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.GroupBox1.Location = New System.Drawing.Point(0, 173)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(584, 56)
        Me.GroupBox1.TabIndex = 4
        Me.GroupBox1.TabStop = False
        '
        'txbShortName
        '
        Me.txbShortName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "班級信息.班級簡稱"))
        Me.txbShortName.Location = New System.Drawing.Point(492, 29)
        Me.txbShortName.Name = "txbShortName"
        Me.txbShortName.Size = New System.Drawing.Size(80, 21)
        Me.txbShortName.TabIndex = 27
        Me.txbShortName.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(492, 13)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 26
        Me.Label9.Text = "班級簡稱"
        '
        'txbName
        '
        Me.txbName.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "班級信息.班級名稱"))
        Me.txbName.Location = New System.Drawing.Point(396, 29)
        Me.txbName.Name = "txbName"
        Me.txbName.Size = New System.Drawing.Size(80, 21)
        Me.txbName.TabIndex = 25
        Me.txbName.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(396, 13)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 16)
        Me.Label8.TabIndex = 24
        Me.Label8.Text = "班級名稱"
        '
        'txbTeacher
        '
        Me.txbTeacher.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet11, "班級信息.班主任"))
        Me.txbTeacher.Location = New System.Drawing.Point(300, 29)
        Me.txbTeacher.Name = "txbTeacher"
        Me.txbTeacher.Size = New System.Drawing.Size(80, 21)
        Me.txbTeacher.TabIndex = 23
        Me.txbTeacher.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(300, 13)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
12 下一頁
?? 文件大小 511 K
?? 上傳用戶 A15117704533
?? 所屬分類 SQL Server
??? 相關標簽

#net #SQL #vb #開發(fā)工具
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmclass.vb

?? 快捷鍵說明
