📄 form3.vb
字号:
'
'ComboBox8
'
Me.ComboBox8.Location = New System.Drawing.Point(176, 81)
Me.ComboBox8.Name = "ComboBox8"
Me.ComboBox8.Size = New System.Drawing.Size(80, 20)
Me.ComboBox8.TabIndex = 6
'
'ComboBox7
'
Me.ComboBox7.Location = New System.Drawing.Point(48, 80)
Me.ComboBox7.Name = "ComboBox7"
Me.ComboBox7.Size = New System.Drawing.Size(80, 20)
Me.ComboBox7.TabIndex = 5
'
'ComboBox6
'
Me.ComboBox6.Location = New System.Drawing.Point(456, 40)
Me.ComboBox6.Name = "ComboBox6"
Me.ComboBox6.Size = New System.Drawing.Size(80, 20)
Me.ComboBox6.TabIndex = 3
'
'ComboBox5
'
Me.ComboBox5.Location = New System.Drawing.Point(312, 40)
Me.ComboBox5.Name = "ComboBox5"
Me.ComboBox5.Size = New System.Drawing.Size(80, 20)
Me.ComboBox5.TabIndex = 2
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(456, 81)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(80, 21)
Me.TextBox10.TabIndex = 8
Me.TextBox10.Text = ""
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(176, 40)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(80, 21)
Me.TextBox9.TabIndex = 1
Me.TextBox9.Text = ""
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(48, 40)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(80, 21)
Me.TextBox8.TabIndex = 0
Me.TextBox8.Text = ""
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label23.Location = New System.Drawing.Point(0, 80)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(39, 22)
Me.Label23.TabIndex = 44
Me.Label23.Text = "院系"
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label24.Location = New System.Drawing.Point(264, 39)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(39, 22)
Me.Label24.TabIndex = 43
Me.Label24.Text = "栋号"
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label25.Location = New System.Drawing.Point(0, 40)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(39, 22)
Me.Label25.TabIndex = 42
Me.Label25.Text = "学号"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label12.Location = New System.Drawing.Point(264, 80)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(39, 22)
Me.Label12.TabIndex = 41
Me.Label12.Text = "班级"
'
'Label14
'
Me.Label14.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label14.Location = New System.Drawing.Point(-60, 132)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(60, 40)
Me.Label14.TabIndex = 39
Me.Label14.Text = "辅导员姓 名"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label15.Location = New System.Drawing.Point(400, 80)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(39, 22)
Me.Label15.TabIndex = 38
Me.Label15.Text = "电话"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label16.Location = New System.Drawing.Point(136, 80)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(39, 22)
Me.Label16.TabIndex = 37
Me.Label16.Text = "专业"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label17.Location = New System.Drawing.Point(-51, 100)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(39, 22)
Me.Label17.TabIndex = 36
Me.Label17.Text = "院系"
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label18.Location = New System.Drawing.Point(544, 39)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(39, 22)
Me.Label18.TabIndex = 35
Me.Label18.Text = "床号"
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label19.Location = New System.Drawing.Point(400, 39)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(39, 22)
Me.Label19.TabIndex = 34
Me.Label19.Text = "房号"
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label20.Location = New System.Drawing.Point(-51, 76)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(39, 22)
Me.Label20.TabIndex = 33
Me.Label20.Text = "栋号"
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label21.Location = New System.Drawing.Point(136, 39)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(39, 22)
Me.Label21.TabIndex = 32
Me.Label21.Text = "姓名"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Label22.Location = New System.Drawing.Point(-51, 44)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(39, 22)
Me.Label22.TabIndex = 31
Me.Label22.Text = "学号"
'
'OleDbDataAdapter1
'
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
Me.OleDbDataAdapter1.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("专业", "专业"), New System.Data.Common.DataColumnMapping("班级", "班级"), New System.Data.Common.DataColumnMapping("宿舍电话", "宿舍电话")})})
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT 住宿登记.栋号, 住宿登记.房号, 住宿登记.床号, 房源库.类别, 住宿登记.学号, 住宿登记.姓名, 学生库.院系, 学生库.专业, 学生库.班" & _
"级, 房源库.宿舍电话 FROM ((住宿登记 INNER JOIN 学生库 ON 住宿登记.学号 = 学生库.学号) INNER JOIN 房源库 ON 住宿" & _
"登记.栋号 = 房源库.栋号 AND 住宿登记.房号 = 房源库.房号)"
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Data Source=""学生公寓管理系统.mdb"";Jet OLEDB:Engine Type=5;Provider=""Micro" & _
"soft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist secur" & _
"ity info=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Datab" & _
"ase=False;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on " & _
"Compact=False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet O" & _
"LEDB:Global Bulk Transactions=1"
'
'Button5
'
Me.Button5.Font = New System.Drawing.Font("宋体", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button5.ForeColor = System.Drawing.SystemColors.ActiveCaption
Me.Button5.Location = New System.Drawing.Point(-120, 0)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(60, 176)
Me.Button5.TabIndex = 0
Me.Button5.Text = "住宿登记更新"
'
'Panel1
'
Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.Button5)
Me.Panel1.Location = New System.Drawing.Point(696, 264)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(80, 160)
Me.Panel1.TabIndex = 3
'
'Button1
'
Me.Button1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.SystemColors.InactiveCaption
Me.Button1.Font = New System.Drawing.Font("宋体", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
Me.Button1.ForeColor = System.Drawing.Color.Firebrick
Me.Button1.Location = New System.Drawing.Point(0, 0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(80, 160)
Me.Button1.TabIndex = 1
Me.Button1.Text = "住 宿 登 记 更 新"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -