?? frmaddresult.frm
字號:
VERSION 5.00
Begin VB.Form frmAddresult
Caption = "添加成績信息"
ClientHeight = 3135
ClientLeft = 45
ClientTop = 345
ClientWidth = 6750
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 3135
ScaleWidth = 6750
Begin VB.TextBox comboCourse
Height = 375
Left = 1800
TabIndex = 13
Top = 1440
Width = 1335
End
Begin VB.TextBox comboClassno
Height = 375
Left = 4800
TabIndex = 12
Top = 360
Width = 1335
End
Begin VB.TextBox comboSID
Height = 375
Left = 1800
TabIndex = 11
Top = 840
Width = 1335
End
Begin VB.TextBox comboExamtype
Height = 375
Left = 1800
TabIndex = 10
Top = 360
Width = 1335
End
Begin VB.CommandButton cmdCancel
Caption = "取消添加"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 3360
TabIndex = 7
Top = 2040
Width = 1332
End
Begin VB.CommandButton cmdOk
Caption = "確認添加"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 1440
TabIndex = 6
Top = 2040
Width = 1332
End
Begin VB.TextBox txtResult
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 4800
TabIndex = 5
Top = 1320
Width = 1332
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 4800
TabIndex = 3
Top = 840
Width = 1332
End
Begin VB.Label Label6
Caption = "考試編號："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 9
Top = 360
Width = 1212
End
Begin VB.Label Label5
Caption = "選擇課程："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 8
Top = 1440
Width = 1212
End
Begin VB.Label Label4
Caption = "輸入分數："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
TabIndex = 4
Top = 1440
Width = 1335
End
Begin VB.Label Label3
Caption = "姓名："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3840
TabIndex = 2
Top = 960
Width = 735
End
Begin VB.Label Label2
Caption = "選擇學號："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 480
TabIndex = 1
Top = 840
Width = 1212
End
Begin VB.Label Label1
Caption = "選擇班號："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 252
Left = 3360
TabIndex = 0
Top = 360
Width = 1332
End
End
Attribute VB_Name = "frmAddresult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Flagselect As Boolean
Public Modify As Boolean '插入=false,修改=true
Public VarEmpId As Long
Public OriId As Integer
Dim grade As String
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
If Not Testtxt(comboExamtype.text) Then
MsgBox "請輸入考試編號!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not Testtxt(comboClassno.text) Then
MsgBox "請選擇班號!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not Testtxt(comboSID.text) Then
MsgBox "請選擇學號!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not Testtxt(comboCourse.text) Then
MsgBox "請選擇課程!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not Testtxt(txtResult.text) Then
MsgBox "請輸入分數!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not IsNumeric(txtResult.text) Then
MsgBox "分數請輸入數字!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
With MyFam
.exam_No = Trim(comboExamtype)
.student_ID = Trim(comboSID)
.student_Name = Trim(txtName)
.class_No = Trim(comboClassno)
.course_Name = Trim(comboCourse)
.result = Trim(txtResult)
If Modify = False Then
.Insert
Else
' .Update (CurFam.student_ID)
End If
End With
MsgBox "添加成績成功！", vbOKOnly + vbExclamation, "警告"
Unload Me
End Sub
Private Sub comboCourseno_Change()
End Sub
Private Sub form_load()
' Flagselect = False
' txtSQL = "select * from class_Info "
' Set mrc = ExecuteSQL(txtSQL, MsgText)
' While (mrc.EOF = False)
' mrc.MoveNext
' Wend
' mrc.Close
'
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -