【VB开源代码栏目提醒】:本文主要为网学会员提供AddStudent.frm,希望对需要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