📄 frmliveupdate2.frm
字号:
Caption = "床位1："
Height = 255
Index = 0
Left = 240
TabIndex = 51
Top = 230
Width = 975
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "学号："
Height = 255
Index = 0
Left = 120
TabIndex = 50
Top = 480
Width = 615
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "姓名："
Height = 255
Left = 2040
TabIndex = 49
Top = 480
Width = 615
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
Caption = "性别："
Height = 255
Left = 3720
TabIndex = 48
Top = 480
Width = 615
End
Begin VB.Label Label5
BackColor = &H00FFFFFF&
Caption = "专业："
Height = 255
Left = 120
TabIndex = 47
Top = 840
Width = 735
End
Begin VB.Label Label6
BackColor = &H00FFFFFF&
Caption = "班别："
Height = 255
Left = 2640
TabIndex = 46
Top = 840
Width = 735
End
Begin VB.Line Line1
Index = 0
X1 = 120
X2 = 5400
Y1 = 1560
Y2 = 1560
End
Begin VB.Label Label7
BackColor = &H00FFFFFF&
Caption = "床位2："
Height = 255
Left = 240
TabIndex = 45
Top = 1670
Width = 735
End
Begin VB.Label Label8
BackColor = &H00FFFFFF&
Caption = "学号："
Height = 255
Left = 120
TabIndex = 44
Top = 1920
Width = 615
End
Begin VB.Label Label9
BackColor = &H00FFFFFF&
Caption = "姓名："
Height = 255
Left = 2040
TabIndex = 43
Top = 1920
Width = 615
End
Begin VB.Label Label10
BackColor = &H00FFFFFF&
Caption = "性别："
Height = 255
Left = 3720
TabIndex = 42
Top = 1920
Width = 615
End
Begin VB.Label Label11
BackColor = &H00FFFFFF&
Caption = "专业："
Height = 255
Left = 120
TabIndex = 41
Top = 2280
Width = 615
End
Begin VB.Label Label12
BackColor = &H00FFFFFF&
Caption = "班别："
Height = 255
Left = 2640
TabIndex = 40
Top = 2280
Width = 615
End
Begin VB.Line Line1
Index = 1
X1 = 120
X2 = 5400
Y1 = 3000
Y2 = 3000
End
Begin VB.Label Label13
BackColor = &H00FFFFFF&
Caption = "床位3："
Height = 255
Left = 240
TabIndex = 39
Top = 3110
Width = 735
End
Begin VB.Label Label14
BackColor = &H00FFFFFF&
Caption = "学号："
Height = 255
Left = 120
TabIndex = 38
Top = 3360
Width = 615
End
Begin VB.Label Label15
BackColor = &H00FFFFFF&
Caption = "姓名："
Height = 255
Left = 2040
TabIndex = 37
Top = 3360
Width = 615
End
Begin VB.Label Label16
BackColor = &H00FFFFFF&
Caption = "性别："
Height = 255
Left = 3720
TabIndex = 36
Top = 3360
Width = 615
End
Begin VB.Label Label17
BackColor = &H00FFFFFF&
Caption = "专业："
Height = 255
Left = 120
TabIndex = 35
Top = 3720
Width = 615
End
Begin VB.Label Label18
BackColor = &H00FFFFFF&
Caption = "班别："
Height = 255
Left = 2640
TabIndex = 34
Top = 3720
Width = 615
End
Begin VB.Line Line1
Index = 2
X1 = 120
X2 = 5400
Y1 = 4440
Y2 = 4440
End
Begin VB.Label Label19
BackColor = &H00FFFFFF&
Caption = "床位4："
Height = 255
Left = 240
TabIndex = 33
Top = 4540
Width = 735
End
Begin VB.Label Label20
BackColor = &H00FFFFFF&
Caption = "学号："
Height = 255
Left = 120
TabIndex = 32
Top = 4800
Width = 615
End
Begin VB.Label Label21
BackColor = &H00FFFFFF&
Caption = "姓名："
Height = 255
Left = 2040
TabIndex = 31
Top = 4800
Width = 615
End
Begin VB.Label Label22
Caption = "Label22"
Height = 15
Left = 3360
TabIndex = 30
Top = 4920
Width = 135
End
Begin VB.Label Label23
BackColor = &H00FFFFFF&
Caption = "性别："
Height = 255
Left = 3720
TabIndex = 29
Top = 4800
Width = 615
End
Begin VB.Label Label24
BackColor = &H00FFFFFF&
Caption = "专业："
Height = 255
Left = 120
TabIndex = 28
Top = 5160
Width = 615
End
Begin VB.Label Label25
BackColor = &H00FFFFFF&
Caption = "班别："
Height = 255
Left = 2640
TabIndex = 27
Top = 5160
Width = 615
End
End
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash ShockwaveFlash1
Height = 1215
Left = 2520
TabIndex = 72
Top = 0
Width = 5175
_cx = 9128
_cy = 2143
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
End
End
Attribute VB_Name = "frmliveupdate2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a1, a2, a3, a4, a(4), sushe As String
Private Sub cmdupdate_Click()
Dim sql As String
On Error GoTo errMsg
'判断学生1是否在宿舍表中
sql = "Select * From Room Where 学号='" & Trim(txtnumber1.Text) & "' and not 宿舍='" & sushe & "'"
Set adoRS = adoCon.Execute(sql)
If Not adoRS.EOF Then
MsgBox "编号为：" & Trim(txtnumber1.Text) & "的学生已经存在！", vbOKOnly + vbExclamation, "系统提示"
txtnumber1.SetFocus
Exit Sub
End If
'判断学生2是否在宿舍表中
sql = ""
sql = "Select * From Room Where 学号='" & Trim(txtnumber2.Text) & "' and not 宿舍='" & sushe & "'"
Set adoRS = adoCon.Execute(sql)
If Not adoRS.EOF Then
MsgBox "编号为：" & Trim(txtnumber2.Text) & "的学生已经存在！", vbOKOnly + vbExclamation, "系统提示"
txtnumber2.SetFocus
Exit Sub
End If
'判断学生3是否在宿舍表中
sql = ""
sql = "Select * From Room Where 学号='" & Trim(txtnumber3.Text) & "' and not 宿舍='" & sushe & "'"
Set adoRS = adoCon.Execute(sql)
If Not adoRS.EOF Then
MsgBox "编号为：" & Trim(txtnumber3.Text) & "的学生已经存在！", vbOKOnly + vbExclamation, "系统提示"
txtnumber2.SetFocus
Exit Sub
End If
'判断学生4是否在宿舍表中
sql = ""
sql = "Select * From Room Where 学号='" & Trim(txtnumber4.Text) & "' and not 宿舍='" & sushe & "'"
Set adoRS = adoCon.Execute(sql)
If Not adoRS.EOF Then
MsgBox "编号为：" & Trim(txtnumber4.Text) & "的学生已经存在！", vbOKOnly + vbExclamation, "系统提示"
txtnumber2.SetFocus
Exit Sub
End If
sql = ""
sql = MsgBox("你真的要修改当前数据吗，请慎重处理！", vbInformation _
+ vbOKCancel + vbDefaultButton2, "系统提示")
If sql = vbCancel Then
Exit Sub
End If
'修改学生1
If a1 = "" And txtnumber1.Text <> "" Then
sql = ""
sql = "Insert Into Room "
sql = sql & " Values('" & Trim(txtnumber1.Text) & "'"
sql = sql & ",'" & Trim(txtname1.Text) & "'"
sql = sql & ",'" & Trim(txtsex1.Text) & "'"
sql = sql & ",'" & Trim(txtsp1.Text) & "'"
sql = sql & ",'" & Trim(txtclass1.Text) & "'"
sql = sql & ",'" & Trim(sushe) & "')"
'执行插入
adoCon.Execute (sql)
ElseIf a1 <> "" And txtname1.Enabled = True Then
sql = ""
sql = "update Room set 学号='" & Trim(txtnumber1.Text) & "',"
sql = sql & "姓名='" & Trim(txtname1.Text) & "',"
sql = sql & "性别='" & Trim(txtsex1.Text) & "',"
sql = sql & "专业='" & Trim(txtsp1.Text) & "',"
sql = sql & "班别='" & Trim(txtclass1.Text) & "',"
sql = sql & "宿舍='" & Trim(sushe) & "'"
sql = sql & " Where 学号='" & a1 & "'"
adoCon.Execute (sql)
End If
'修改学生2
If a2 = "" And txtnumber2.Text <> "" Then
sql = ""
sql = "Insert Into Room "
sql = sql & " Values('" & Trim(txtnumber2.Text) & "'"
sql = sql & ",'" & Trim(txtname2.Text) & "'"
sql = sql & ",'" & Trim(txtsex2.Text) & "'"
sql = sql & ",'" & Trim(txtsp2.Text) & "'"
sql = sql & ",'" & Trim(txtclass2.Text) & "'"
sql = sql & ",'" & Trim(sushe) & "')"
'执行插入
adoCon.Execute (sql)
ElseIf a2 <> "" And txtname2.Enabled = True Then
sql = ""
sql = "update Room set 学号='" & Trim(txtnumber2.Text) & "',"
sql = sql & "姓名='" & Trim(txtname2.Text) & "',"
sql = sql & "性别='" & Trim(txtsex2.Text) & "',"
sql = sql & "专业='" & Trim(txtsp2.Text) & "',"
sql = sql & "班别='" & Trim(txtclass2.Text) & "',"
sql = sql & "宿舍='" & Trim(sushe) & "'"
sql = sql & " Where 学号='" & a2 & "'"
adoCon.Execute (sql)
End If
'修改学生3
If a3 = "" And txtnumber3.Text <> "" Then
sql = ""
sql = "Insert Into Room "
sql = sql & " Values('" & Trim(txtnumber3.Text) & "'"
sql = sql & ",'" & Trim(txtname3.Text) & "'"
sql = sql & ",'" & Trim(txtsex3.Text) & "'"
sql = sql & ",'" & Trim(txtsp3.Text) & "'"
sql = sql & ",'" & Trim(txtclass3.Text) & "'"
sql = sql & ",'" & Trim(sushe) & "')"
'执行插入
adoCon.Execute (sql)
ElseIf a3 <> "" And txtname3.Enabled = True Then
sql = ""
sql = "update Room set 学号='" & Trim(txtnumber3.Text) & "',"
sql = sql & "姓名='" & Trim(txtname3.Text) & "',"
sql = sql & "性别='" & Trim(txtsex3.Text) & "',"
sql = sql & "专业='" & Trim(txtsp3.Text) & "',"
sql = sql & "班别='" & Trim(txtclass3.Text) & "',"
sql = sql & "宿舍='" & Trim(sushe) & "'"
sql = sql & " Where 学号='" & a3 & "'"
adoCon.Execute (sql)
End If
'修改学生4
If a4 = "" And txtnumber4.Text <> "" Then
sql = ""
sql = "Insert Into Room "
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -