?? addstudgo.frm
字號:
Begin VB.Label Label5
Caption = "應屆與否"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 18
Top = 360
Width = 1215
End
Begin VB.Label Label6
Caption = "錄取時間"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 17
Top = 960
Width = 1215
End
Begin VB.Label Label7
Caption = "錄取院校及專業"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 16
Top = 1440
Width = 1695
End
Begin VB.Label Label8
Caption = "高考成績"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 15
Top = 2040
Width = 1215
End
Begin VB.Label Label9
Caption = "備注"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 14
Top = 2640
Width = 1215
End
End
Begin VB.Frame Frame1
Height = 2775
Left = 8520
TabIndex = 0
Top = 0
Width = 1575
Begin VB.CommandButton Command3
Caption = "關閉(&C)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 3
Top = 1920
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "重置(&E)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 2
Top = 1080
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "確定(&O)"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 1
Top = 240
Width = 1215
End
End
End
Attribute VB_Name = "addstudgo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Command1.Caption = "確定(&O)" Then
If Not Testtxt(Text1.Text) Then
MsgBox "請輸入編號！", 48, "提示"
Text1.SetFocus
Exit Sub
End If
If Not Testtxt(Text2.Text) Then
MsgBox "請輸入姓名！", 48, "提示"
Text2.SetFocus
Exit Sub
End If
If Not Testtxt(Combo1.Text) Then
MsgBox "請選擇性別！", 48, "提示"
Combo1.SetFocus
Exit Sub
End If
If Not Testtxt(Combo2.Text) Then
MsgBox "請選擇民族！", 48, "提示"
Combo2.SetFocus
Exit Sub
End If
If Not Testtxt(Combo1.Text) Then
MsgBox "請選擇應屆與否 ！", 48, "提示"
Combo1.SetFocus
Exit Sub
End If
If Not Testtxt(Text4.Text) Then
MsgBox "請輸入時間！", 48, "提示"
Text4.SetFocus
Exit Sub
End If
If Not Testtxt(Text5.Text) Then
MsgBox "請輸入錄取院校及專業！", 48, "提示"
Text5.SetFocus
Exit Sub
End If
If Not Testtxt(Text6.Text) Then
MsgBox "請輸入高考成績！", 48, "提示"
Text6.SetFocus
Exit Sub
End If
txtSQL = "select * from studentgo "
Set dream = ExecuteSQL(txtSQL, Msgtext)
While (dream.EOF = False)
If (dream.Fields(0)) = Trim(Text1.Text) Then
MsgBox "編號已經存在！", 48, "提示"
Text1.Text = ""
Text1.SetFocus
Exit Sub
Else
dream.MoveNext
End If
Wend
dream.AddNew
dream.Fields(0) = Trim(Text1.Text)
dream.Fields(1) = Trim(Text2.Text)
dream.Fields(2) = Trim(Combo1.Text)
dream.Fields(3) = Trim(Text3.Text)
dream.Fields(4) = Trim(Combo2.Text)
dream.Fields(5) = Trim(Text4.Text)
dream.Fields(6) = Trim(Text5.Text)
dream.Fields(7) = Trim(Text6.Text)
dream.Fields(8) = Trim(Text7.Text)
dream.Update
dream.Close
MsgBox "添加畢業生信息成功！", 48, "提示"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
addstudgo.Width = 10665
addstudgo.Height = 5460
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -