📄 frmroominput2.frm
字号:
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 34
Top = 2055
Width = 645
End
Begin VB.Label Label17
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第20周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 33
Top = 1620
Width = 645
End
Begin VB.Label Label18
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第19周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 32
Top = 1200
Width = 645
End
Begin VB.Label Label19
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第18周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 31
Top = 765
Width = 645
End
Begin VB.Label Label4
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第17周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Index = 6
Left = 3390
TabIndex = 30
Top = 330
Width = 645
End
Begin VB.Label Label20
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第23周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 29
Top = 2925
Width = 645
End
Begin VB.Label Label21
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "第24周"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 3390
TabIndex = 28
Top = 3360
Width = 645
End
End
Begin MSDBGrid.DBGrid DBGrdstudent
Bindings = "FRMROOMINPUT2.frx":15A6
Height = 5085
Left = -74820
OleObjectBlob = "FRMROOMINPUT2.frx":15B6
TabIndex = 70
Top = 810
Width = 9000
End
Begin Threed.SSCommand SSCommand1
Height = 405
Left = -66870
TabIndex = 71
Top = 5970
Width = 1035
_ExtentX = 1826
_ExtentY = 714
_Version = 131073
Font3D = 5
MousePointer = 99
ForeColor = 16711680
PictureFrames = 1
MouseIcon = "FRMROOMINPUT2.frx":1F7D
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "FRMROOMINPUT2.frx":2297
Caption = "退出"
Alignment = 4
ButtonStyle = 3
PictureAlignment= 1
End
Begin VB.Line Line5
BorderColor = &H00FFFFFF&
X1 = -74850
X2 = -65790
Y1 = 675
Y2 = 675
End
Begin VB.Line Line4
BorderColor = &H00808080&
X1 = -74850
X2 = -65790
Y1 = 660
Y2 = 660
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 150
X2 = 9210
Y1 = 675
Y2 = 675
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 150
X2 = 9210
Y1 = 660
Y2 = 660
End
End
Begin VB.Line Line1
X1 = 60
X2 = 990
Y1 = 0
Y2 = 0
End
Begin VB.Menu MNUFILE
Caption = "【文件&F】"
Begin VB.Menu MNUEXIT
Caption = "退出[&X]"
End
End
Begin VB.Menu MNUPRINT
Caption = "【打印&P】"
Begin VB.Menu MNUVIEW
Caption = "打印预览[&V]"
End
End
Begin VB.Menu MNUHELP
Caption = "【帮助&H】"
Begin VB.Menu MNUNOTE
Caption = "使用说明[&N]"
End
End
End
Attribute VB_Name = "frmRoomInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim msSortCol As String
Dim mbCtrlKey As Integer
Dim ex As Excel.Application
Dim exwbook As Excel.WorkBook
Dim exsheet As Excel.WorkSheet
Dim exchart As Excel.Chart
Dim I, J As Integer
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdYes_Click()
Dim sqlRepeat As String
Dim recRepeat As Recordset
Dim sqlInsert As String
Dim op As String
'在原数据库中有否
sqlRepeat = "select * from room where ssh='" + Trim(txtSSH) + "'"
Set recRepeat = Dbstudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
If Op1.Value = True Then op = Trim(Op1.Caption)
If op2.Value = True Then op = Trim(op2.Caption)
If op3.Value = True Then op = Trim(op3.Caption)
If op4.Value = True Then op = Trim(op4.Caption)
If op5.Value = True Then op = Trim(op5.Caption)
If op6.Value = True Then op = Trim(op6.Caption)
If op7.Value = True Then op = Trim(op7.Caption)
If op8.Value = True Then op = Trim(op8.Caption)
If recRepeat.RecordCount <> 0 Then
If op <> " " Then
sqlInsert = "update room set xueq='" + op + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtone <> " " Then
sqlInsert = "update room set one='" + Trim(txtone) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txttwo <> " " Then
sqlInsert = "update room set two='" + Trim(txttwo) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtThree <> " " Then
sqlInsert = "update room set three='" + Trim(txtThree) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtFour <> " " Then
sqlInsert = "update room set four='" + Trim(txtFour) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtFive <> " " Then
sqlInsert = "update room set five='" + Trim(txtFive) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtSix <> " " Then
sqlInsert = "update room set six='" + Trim(txtSix) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtSeven <> " " Then
sqlInsert = "update room set seven='" + Trim(txtSeven) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtEight <> " " Then
sqlInsert = "update room set eight='" + Trim(txtEight) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtNine <> " " Then
sqlInsert = "update room set nine='" + Trim(txtNine) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtTen <> " " Then
sqlInsert = "update room set ten='" + Trim(txtTen) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtone <> " " Then
sqlInsert = "update room set one='" + Trim(txtone) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtEleven <> " " Then
sqlInsert = "update room set eleven='" + Trim(txtEleven) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txtTwelve <> " " Then
sqlInsert = "update room set twelve='" + Trim(txtTwelve) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txt13 <> " " Then
sqlInsert = "update room set thirteen='" + Trim(txt13) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txt14 <> " " Then
sqlInsert = "update room set forteen='" + Trim(txt14) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If txt15 <> " " Then
sqlInsert = "update room set fifteen='" + Trim(txt15) + "' where ssh='" + Trim(txtSSH) + "'"
Dbstudent.Execute sqlInsert
End If
If tx⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -