【VB开源代码栏目提醒】:网学会员为广大网友收集整理了,Teach.frm,希望对大家有所帮助!
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmTeach
BorderStyle = 3 'Fixed Dialog
ClientHeight = 1500
ClientLeft = 45
ClientTop = 330
ClientWidth = 4095
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1500
ScaleWidth = 4095
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.ComboBox cboType
Height = 300
Left = 1080
Style = 2 'Dropdown List
TabIndex = 0
Top = 120
Width = 1455
End
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Default = -1 'True
Enabled = 0 'False
Height = 375
Left = 2880
MaskColor = &H00000000&
TabIndex = 1
Top = 240
Width = 975
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 375
Left = 2880
MaskColor = &H00000000&
TabIndex = 2
Top = 840
Width = 975
End
Begin MSDataListLib.DataCombo dcbName
Bindings = "Teach.frx":0000
Height = 330
Left = 1080
TabIndex = 3
Top = 1080
Width = 1455
_ExtentX = 2566
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Name"
BoundColumn = "Serial"
Text = "课程名"
Object.DataMember = "AddCourse"
End
Begin MSDataListLib.DataCombo dcbSerial
Bindings = "Teach.frx":0016
Height = 330
Left = 1080
TabIndex = 4
Top = 585
Width = 1455
_ExtentX = 2566
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "Serial"
BoundColumn = "Name"
Text = "课程号"
Object.DataMember = "AddCourse"
End
Begin VB.Label lblCourse
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "课程号:"
Height = 180
Left = 300
TabIndex = 7
Top = 675
Width = 720
End
Begin
VB.Label lblCourseName
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "课程名:"
Height = 180
Left = 300
TabIndex = 6
Top = 1155
Width = 720
End
Begin VB.Label lblCourseType
AutoSize = -1 'True
Caption = "课程类型:"
Height = 180
Left = 120
TabIndex = 5
Top = 180
Width = 900
End
End
Attribute VB_Name = "frmTeach"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
''表示用户是否点击“确定”,来添加一个课程信息
Public mbAdded As Boolean
Private Sub cboType_Click()
''点击
课程类型时,动态的改变对应的课程类型号
Dim strSQL
If cboType.ListIndex <> 0 Then
strSQL = "Select * from course where typeid = " & cboType.ItemData(cboType.ListIndex)
Else
strSQL = "Select * from course"
End If
If DataEnv.rsAddCourse.State <> adStateClosed Then DataEnv.rsAddCourse.Close
DataEnv.rsAddCourse.Open strSQL
''刷新dcbSerial所列的课程类型号
dcbSerial.RowMember = ""
dcbSerial.Refresh
dcbSerial.ReFill
dcbSerial.RowMember = "AddCourse"
dcbSerial.Refresh
dcbSerial.ReFill
''刷新dcbName所列的课程类型名
dcbName.RowMember = ""
dcbName.Refresh
dcbSerial.ReFill
dcbName.RowMember = "AddCourse"
dcbName.Refresh
dcbName.ReFill
Call dcbName_Click(0)
Call dcbSerial_Click(0)
cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub
Private Sub cmdCancel_Click()
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中的课程名
dcbName.Text = dcbSerial.BoundText
cmdOK.Enabled = (dcbSerial.Text <> "")
End Sub
Private Sub Form_Load()
mbAdded = False
''从课程类型表重读取数据,写入到cboType中
''将name写入到
列表框中,id写入到对应的ItemData中
cboType.Clear
cboType.AddItem "全部"
If DataEnv.rsCourse_type.State = adStateClosed Then DataEnv.rsCourse_type.Open
While Not DataEnv.rsCourse_type.EOF
Dim s As String
s = DataEnv.rsCourse_type.Fields("name")
cboType.AddItem s
cboType.ItemData(cboType.ListCount - 1) = DataEnv.rsCourse_type("id")
DataEnv.rsCourse_type.MoveNext
Wend
cboType.ListIndex = 0
End Sub