📄 addcoutable.frm
字号:
End
Begin VB.TextBox Text1
Height = 495
Index = 26
Left = 6120
TabIndex = 24
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 25
Left = 5160
TabIndex = 23
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 24
Left = 4200
TabIndex = 22
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 23
Left = 3240
TabIndex = 21
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 22
Left = 2280
TabIndex = 20
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 21
Left = 1320
TabIndex = 19
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 20
Left = 360
TabIndex = 18
Text = "Text1"
Top = 3600
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 19
Left = 9000
TabIndex = 17
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 18
Left = 8040
TabIndex = 16
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 17
Left = 7080
TabIndex = 15
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 16
Left = 6120
TabIndex = 14
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 15
Left = 5160
TabIndex = 13
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 14
Left = 4200
TabIndex = 12
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 13
Left = 3240
TabIndex = 11
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 12
Left = 2280
TabIndex = 10
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 11
Left = 1320
TabIndex = 9
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 10
Left = 360
TabIndex = 8
Text = "Text1"
Top = 3120
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 9
Left = 9000
TabIndex = 7
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 8
Left = 8040
TabIndex = 6
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 7
Left = 7080
TabIndex = 5
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 6
Left = 6120
TabIndex = 4
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 4
Left = 4200
TabIndex = 3
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 2
Left = 2280
TabIndex = 2
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 1
Left = 1320
TabIndex = 1
Top = 2640
Width = 975
End
Begin VB.TextBox Text1
Height = 495
Index = 0
Left = 360
TabIndex = 0
Text = "Text1"
Top = 2640
Width = 975
End
Begin VB.Label Label26
Caption = "38"
Height = 135
Left = 9240
TabIndex = 112
Top = 3840
Width = 615
End
Begin VB.Label Label25
Caption = "37"
Height = 255
Left = 8280
TabIndex = 111
Top = 3720
Width = 375
End
Begin VB.Label Label24
Caption = "36"
Height = 255
Left = 7440
TabIndex = 110
Top = 3720
Width = 375
End
Begin VB.Label Label23
Caption = "35"
Height = 255
Left = 6240
TabIndex = 109
Top = 3720
Width = 735
End
Begin VB.Label Label22
Caption = "34"
Height = 255
Left = 5280
TabIndex = 108
Top = 3720
Width = 375
End
Begin VB.Label Label21
Caption = "33"
Height = 255
Left = 4440
TabIndex = 107
Top = 3720
Width = 375
End
Begin VB.Label Label20
Caption = "32"
Height = 255
Left = 3360
TabIndex = 106
Top = 3720
Width = 375
End
Begin VB.Label Label19
Caption = "31"
Height = 255
Left = 2400
TabIndex = 105
Top = 3720
Width = 495
End
Begin VB.Label Label18
Caption = "30"
Height = 255
Left = 1560
TabIndex = 104
Top = 3720
Width = 375
End
Begin VB.Label Label17
Caption = "29"
Height = 375
Left = 9240
TabIndex = 103
Top = 3240
Width = 375
End
Begin VB.Label Label16
Caption = "28"
Height = 255
Left = 8280
TabIndex = 102
Top = 3240
Width = 255
End
Begin VB.Label Label15
Caption = "27"
Height = 255
Left = 7320
TabIndex = 101
Top = 3240
Width = 375
End
Begin VB.Label Label14
Caption = "26"
Height = 255
Left = 6360
TabIndex = 100
Top = 3240
Width = 255
End
Begin VB.Label Label13
Caption = "25"
Height = 255
Left = 5400
TabIndex = 99
Top = 3240
Width = 255
End
Begin VB.Label Label12
Caption = "24"
Height = 255
Left = 4440
TabIndex = 98
Top = 3240
Width = 375
End
Begin VB.Label Label11
Caption = "23"
Height = 255
Left = 3480
TabIndex = 97
Top = 3240
Width = 255
End
Begin VB.Label Label10
Caption = "22"
Height = 375
Left = 2520
TabIndex = 96
Top = 3120
Width = 255
End
Begin VB.Label Label9
Caption = "20"
Height = 375
Left = 1560
TabIndex = 95
Top = 3240
Width = 375
End
Begin VB.Label Label8
Caption = "19"
Height = 255
Left = 9240
TabIndex = 94
Top = 2760
Visible = 0 'False
Width = 255
End
Begin VB.Label Label7
Caption = "18"
Height = 375
Left = 8280
TabIndex = 93
Top = 2760
Width = 375
End
Begin VB.Label Label6
Caption = "17"
Height = 255
Left = 7320
TabIndex = 92
Top = 2760
Width = 375
End
Begin VB.Label Label5
Caption = "16"
Height = 255
Left = 6240
TabIndex = 91
Top = 2760
Width = 375
End
Begin VB.Label Label4
Caption = "15"
Height = 375
Left = 5400
TabIndex = 90
Top = 2760
Width = 495
End
Begin VB.Label Label3
Caption = "14"
Height = 255
Left = 4320
TabIndex = 89
Top = 2880
Width = 495
End
Begin VB.Label Label2
Caption = "13"
Height = 255
Left = 3600
TabIndex = 88
Top = 2760
Width = 135
End
Begin VB.Label Label1
Caption = "12"
Height = 255
Left = 2520
TabIndex = 87
Top = 2760
Width = 375
End
Begin VB.Label Lable1
Caption = "11"
Height = 255
Left = 1560
TabIndex = 86
Top = 2760
Width = 255
End
End
Attribute VB_Name = "addcoutable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Command1.Caption = " 添 加" Then
If Not Testtxt(Text1(84).Text) Then
MsgBox "请输入班级！", 48, "提示"
Text1(84).SetFocus
Exit Sub
End If
'+++++++++++++++++++++++++++++++++++++++++++++++++
txtSQL = "select * from coutable "
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveFirst
While (dream.EOF = False)
If (dream.Fields(1)) = Trim(Text1(84).Text) Then
MsgBox "编号已经存在！", 48, "提示"
Exit Sub
Text1(84).Text = ""
Text1(84).SetFocus
Else
dream.MoveNext
End If
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Wend
dream.AddNew
'For i = 0 To 70
' dream.Fields(i) = Trim(Text1(i).Text)
'Next i
dream.Fields(0) = Trim(Text1(1).Text)
dream.Fields(1) = Trim(Text1(2).Text)
dream.Fields(2) = Trim(Text1(3).Text)
dream.Fields(3) = Trim(Text1(4).Text)
dream.Fields(4) = Trim(Text1(5).Text)
dream.Fields(5) = Trim(Text1(6).Text)
dream.Fields(6) = Trim(Text1(7).Text)
dream.Fields(7) = Trim(Text1(8).Text)
dream.Fields(8) = Trim(Text1(9).Text)
dream.Fields(9) = Trim(Text1(11).Text)
dream.Fields(10) = Trim(Text1(12).Text)
dream.Fields(11) = Trim(Text1(13).Text)
dream.Fields(12) = Trim(Text1(14).Text)
dream.Fields(13) = Trim(Text1(15).Text)
dream.Fields(14) = Trim(Text1(16).Text)
dream.Fields(15) = Trim(Text1(17).Text)
dream.Fields(16) = Trim(Text1(18).Text)
dream.Fields(17) = Trim(Text1(19).Text)
'dream.Fields(18) = Trim(Text1(18).Text)
' dream.Fields(19) = Trim(Text1(19).Text)
' dream.Fields(20) = Trim(Text1(20).Text)
' dream.Fields(21) = Trim(Text1(21).Text)
' dream.Fields(22) = Trim(Text1(22).Text)
' dream.Fields(23) = Trim(Text1(23).Text)
' dream.Fields(24) = Trim(Text1(24).Text)
'dream.Fields(25) = Trim(Text1(25).Text)
' dream.Fields(26) = Trim(Text1(26).Text)
'dream.Fields(27) = Trim(Text1(27).Text)
'dream.Fields(28) = Trim(Text1(28).Text)
'dream.Fields(29) = Trim(Text1(29).Text)
'dream.Fields(30) = Trim(Text1(30).Text)
'dream.Fields(31) = Trim(Text1(31).Text)
'dream.Fields(32) = Trim(Text1(32).Text)
'dream.Fields(33) = Trim(Text1(33).Text)
'dream.Fields(34) = Trim(Text1(34).Text)
'dream.Fields(35) = Trim(Text1(35).Text)
dream.UpdateBatch
'=================================================
MsgBox "添加学生信息成功！", 48, "提示"
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
For i = 0 To 70
Text1(i).Text = ""
Next i
Else
For i = 0 To 70
Text1(i).Text = ""
Next i
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -