?? addstudent.frm
字號:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmAddStudent
BorderStyle = 3 'Fixed Dialog
ClientHeight = 2025
ClientLeft = 45
ClientTop = 330
ClientWidth = 4605
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2025
ScaleWidth = 4605
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame fraMain
Height = 1935
Left = 80
TabIndex = 0
Top = 0
Width = 4455
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 375
Left = 3240
MaskColor = &H00000000&
TabIndex = 5
Top = 1320
Width = 975
End
Begin VB.CommandButton cmdOK
Caption = "確定(&O)"
Default = -1 'True
Enabled = 0 'False
Height = 375
Left = 2040
MaskColor = &H00000000&
TabIndex = 4
Top = 1320
Width = 975
End
Begin VB.TextBox txtScore
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 270
Left = 840
TabIndex = 3
Text = "60"
Top = 1365
Width = 855
End
Begin VB.ComboBox cboDep
Height = 300
ItemData = "AddStudent.frx":0000
Left = 840
List = "AddStudent.frx":0007
Style = 2 'Dropdown List
TabIndex = 2
Top = 255
Width = 1095
End
Begin VB.ComboBox cboClass
Height = 300
ItemData = "AddStudent.frx":0011
Left = 855
List = "AddStudent.frx":0018
Style = 2 'Dropdown List
TabIndex = 1
Top = 795
Width = 1095
End
Begin MSDataListLib.DataCombo dcbName
Bindings = "AddStudent.frx":0022
Height = 330
Left = 2880
TabIndex = 6
Top = 780
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Name"
BoundColumn = "Serial"
Text = ""
Object.DataMember = "AddStudent"
End
Begin MSDataListLib.DataCombo dcbSerial
Bindings = "AddStudent.frx":0038
Height = 330
Left = 2880
TabIndex = 7
Top = 240
Width = 1335
_ExtentX = 2355
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Serial"
BoundColumn = "Name"
Text = ""
Object.DataMember = "AddStudent"
End
Begin VB.Label lblName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "姓名："
Height = 180
Left = 2280
TabIndex = 12
Top = 855
Width = 540
End
Begin VB.Label lblSerial
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "學號："
Height = 180
Left = 2280
TabIndex = 11
Top = 315
Width = 540
End
Begin VB.Label lblScore
AutoSize = -1 'True
Caption = "成績："
Height = 180
Left = 240
TabIndex = 10
Top = 1410
Width = 540
End
Begin VB.Label lblDep
AutoSize = -1 'True
Caption = "所在系："
Height = 180
Left = 120
TabIndex = 9
Top = 315
Width = 720
End
Begin VB.Label lblClass
AutoSize = -1 'True
Caption = "所在班："
Height = 180
Left = 135
TabIndex = 8
Top = 855
Width = 720
End
End
End
Attribute VB_Name = "frmAddStudent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
''表示用戶是否點擊“確定”，來添加一個課程信息
Public mbAdded As Boolean
Private Sub cboClass_Click()
''針對所選的班級，列出班級中所有的學籍信息
Dim strSQL
If cboClass.Text = "全部" Then
strSQL = " from student order by serial"
Else
strSQL = " from student where class='" & cboClass & "' order by serial"
End If
DataEnv.rsAddStudent.Close
DataEnv.rsAddStudent.Open "select * " & strSQL
''刷新dcbSerial所列的學號
dcbSerial.RowMember = ""
dcbSerial.ReFill
dcbSerial.Refresh
dcbSerial.RowMember = "AddStudent"
dcbSerial.ReFill
dcbSerial.Refresh
dcbSerial.Text = ""
''刷新dcbName所列的學生姓名
dcbName.RowMember = ""
dcbName.Refresh
dcbSerial.ReFill
dcbName.RowMember = "AddStudent"
dcbName.Refresh
dcbName.ReFill
dcbName.Text = ""
End Sub
Private Sub cboDep_Click()
Dim rsClass As New ADODB.Recordset
Dim strSQL
If cboDep.ItemData(cboDep.ListIndex) = 0 Then ''在所在系中選擇了全部
strSQL = "select * from class"
Else ''選擇了某一個具體的系
strSQL = "select * from class where dept_id=" & cboDep.ItemData(cboDep.ListIndex)
End If
rsClass.Open strSQL, DataEnv.Con
cboClass.Clear
cboClass.AddItem "全部"
While Not rsClass.EOF
cboClass.AddItem rsClass("Name")
rsClass.MoveNext
Wend
cboClass.ListIndex = 0
rsClass.Close
Set rsClass = Nothing
End Sub
Private Sub cmdCancel_Click()
mbAdded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
mbAdded = True
Me.Hide
End Sub
Private Sub dcbName_Click(Area As Integer)
''動態改變dcbSerial中的學號
dcbSerial.Text = dcbName.BoundText
cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub
Private Sub dcbSerial_Click(Area As Integer)
dcbName.Text = dcbSerial.BoundText
cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub
Private Sub Form_Load()
Dim rsDep As New ADODB.Recordset, rsClass As New ADODB.Recordset
Set rsDep = DataEnv.rsDepartment
Set rsClass = DataEnv.rsClass
''從Department表中讀取數據，填充cboDep復合框到中
If rsDep.State = adStateOpen Then rsDep.Close
rsDep.Open
cboDep.Clear
cboDep.AddItem "全部"
''將各個系的id號作為ItemData附加到復合框中
cboDep.ItemData(0) = 0
While Not rsDep.EOF
cboDep.AddItem rsDep("Name")
cboDep.ItemData(cboDep.ListCount - 1) = rsDep("id")
rsDep.MoveNext
Wend
cboDep.ListIndex = 0
'''從class中讀取數據，填充到cboClass復合框中
If rsClass.State = adStateClosed Then rsClass.Open
cboClass.Clear
cboClass.AddItem "全部"
While Not rsClass.EOF
cboClass.AddItem rsClass("Name")
rsClass.MoveNext
Wend
cboClass.ListIndex = 0
End Sub
Private Sub txtScore_Change()
cmdOK.Enabled = Len(dcbSerial.Text) > 0 And Len(txtScore.Text) > 0
End Sub
Private Sub txtScore_KeyPress(KeyAscii As Integer)
''如果輸入的字符不屬于數字或者頓號，則取消輸入的字符
If (KeyAscii > Asc("9") Or KeyAscii < Asc("0")) And KeyAscii <> Asc(".") And KeyAscii <> vbKeyBack Then KeyAscii = 0
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -