📄 frmclassman.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 12
Top = 480
Width = 855
End
Begin VB.Label TxtClassName
Caption = "TxtClassName"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 6
Top = 240
Width = 4335
End
Begin VB.Label Label1
Caption = "课程名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 4
Top = 240
Width = 855
End
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 6120
Top = 2160
Visible = 0 'False
Width = 2775
_ExtentX = 4895
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=TikuSys"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "TikuSys"
OtherAttributes = ""
UserName = ""
Password = "8263958"
RecordSource = "SELECT * FROM Classes where UpperId=0 order by classid"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label Label3
Caption = "描 述："
Height = 255
Left = 360
TabIndex = 11
Top = 0
Width = 735
End
End
Attribute VB_Name = "FrmclassMan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public num As Integer
Private Sub Cmd_Add_Click()
'添加课程
With FrmClassedit
.UpperName.Caption = "课程信息"
.Caption = "添 加 课 程"
.Label3 = "课程名："
.Modify = 2
.Show 1
End With
End Sub
Private Sub Cmd_Add2_Click()
'表添加章节 modify=4
If List1.Text = "" Then
MsgBox "请在下面选择另一章节，" & Chr(10) & Chr(13) & _
"以确定所属的课程！", vbOKOnly + 48, "警告"
Exit Sub
End If
With FrmClassedit
.UpperName = MyClass.GetName(SelClass.UpperId)
.Caption = "添 加 章 节"
.Label3 = "章节名："
.Modify = 4
.Show 1
End With
Form_Load
End Sub
Private Sub Cmd_Cancel_Click()
Unload Me
End Sub
Private Sub Cmd_Del_Click()
DataList1_Click
If DataList1.Text = "" Then
MsgBox "请选择要删除的课程！", vbOKOnly + 48, "警告"
Exit Sub
End If
If MyUser.ELECT(SelClass.ClassId) = True Then
MsgBox "课程 " & SelClass.Classname + " 包含科目管理员，不能删除！", vbOKOnly + 48, "警告"
Exit Sub
End If
'如果当前课程章节，则不能删除
If MyClass.HaveSon(SelClass.ClassId) = True Then
MsgBox "课程 " & SelClass.Classname + " 包含章节，不能删除！", vbOKOnly + 48, "警告"
Exit Sub
End If
'确定删除
If MsgBox("是否确定要删除 " + Trim(SelClass.Classname), vbOKCancel + 32, "请确认") = vbCancel Then
Exit Sub
End If
MyClass.Delete (SelClass.ClassId)
MsgBox "课程 " & SelClass.Classname & " 删除成功！", vbOKOnly + 64, "信息"
Adodc1.Refresh
'Form_Load
End Sub
Private Sub Cmd_Del2_Click()
If List1.Text = "" Then
MsgBox "请选择要删除的章节！", vbOKOnly + 48, "警告"
Exit Sub
End If
If List1.ListCount = 1 Then
MsgBox "一门课程最少要有一个章节！" & Chr(10) & Chr(13) & _
"最后一个章节不能删除！", vbOKOnly + 48, "警告"
Exit Sub
End If
If MyExam.In_DB2(SelClass.ClassId) = True Then
MsgBox "章节 " & SelClass.Classname & " 中有题目,不能删除", vbOKOnly + 48, "警告"
Exit Sub
End If
'确定删除
If MsgBox("是否确定要删除 " + Trim(SelClass.Classname) & " ？", vbOKCancel + 32, "请确认") = vbCancel Then
Exit Sub
End If
MyClass.Delete (SelClass.ClassId)
MsgBox "章节 " & SelClass.Classname & " 删除成功！", vbOKOnly + 64, "信息"
Adodc1.Refresh
Form_Load
End Sub
Private Sub Cmd_Modi_Click()
'修改课程信息
DataList1_Click
If DataList1.Text = "" Then
i = MsgBox("请选择要修改的课程！", vbOKOnly + 48, "警告")
Exit Sub
End If
With FrmClassedit
.Caption = "修 改 课 程"
.UpperName = "课程信息"
.Label3 = "课程名："
.TxtName = SelClass.Classname
.TxtDes = SelClass.Describe
.Modify = 1
.Show 1
End With
'Form_Load
End Sub
Private Sub Cmd_Modi2_Click()
'修改章节信息
If List1.Text = "" Then
i = MsgBox("请选择要修改的章节！", vbOKOnly + 48, "警告")
Exit Sub
End If
With FrmClassedit
.Caption = "修 改 章 节"
.UpperName = MyClass.GetName(SelClass.UpperId)
.Label3 = "章节名："
.TxtName = SelClass.Classname
.TxtDes = SelClass.Describe
.Modify = 3
.Show 1
End With
Form_Load
End Sub
Private Sub DataList1_Click()
Dim j As Integer
Cmd_Modi2.Enabled = False
Cmd_Del2.Enabled = False
Cmd_Add2.Enabled = False
Cmd_Add.Enabled = True
Cmd_Modi.Enabled = True
Cmd_Del.Enabled = True
List1.Clear
SelClass.GetInfo (DataList1.Text)
TxtClassName.Caption = SelClass.Classname
TxtClassDes.Text = SelClass.Describe
MyClass.Load_Class_ByUpper (SelClass.ClassId)
j = 0
Do While j <= num
List1.AddItem Arr_ClassName(j), j
j = j + 1
Loop
If j = 0 Then
If SelClass.UpperId = 0 Then
i = MsgBox("为了管理的方便：" & Chr(10) & Chr(13) & _
"选择是--为这门课程添加一个章节！", vbOKCancel + 48, "警告")
If i = 1 Then
With FrmClassedit
.UpperName = SelClass.Classname
.Caption = "添 加 章 节"
.Label3 = "章节名："
.Modify = 5
.Show 1
End With
End If
End If
End If
End Sub
Private Sub Form_Load()
TxtClassName.Caption = ""
zhangName.Caption = ""
zhangDes.Text = ""
'当MY=0时,表现在为一般的用户登录
If My = 0 Then '表只可进行章节管理
List1.Clear
TxtClassName.Caption = CurClass.Classname
TxtClassDes.Text = CurClass.Describe
MyClass.Load_Class_ByUpper (CurClass.ClassId)
j = 0
Do While j <= num
List1.AddItem Arr_ClassName(j), j
j = j + 1
Loop
DataList1.Enabled = False
Cmd_Add.Enabled = False
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
If j = 0 Then
MsgBox "为了管理的方便：" & Chr(10) & Chr(13) & _
"请为你的这门课程添加一个章节！", vbOKOnly + 48, "警告"
With FrmClassedit
.UpperName = CurClass.Classname
.Caption = "添 加 章 节"
.Label3 = "章节名："
.Modify = 6
.Show 1
End With
MyClass.Load_Class_ByUpper (CurClass.ClassId)
j = 0
Do While j <= num
List1.AddItem Arr_ClassName(j), j
j = j + 1
Loop
End If
Else
DataList1_Click
End If
End Sub
Private Sub List1_Click()
Cmd_Add.Enabled = False
Cmd_Modi.Enabled = False
Cmd_Del.Enabled = False
Cmd_Add2.Enabled = True
Cmd_Modi2.Enabled = True
Cmd_Del2.Enabled = True
SelClass.GetInfo (List1.Text)
zhangName.Caption = SelClass.Classname
zhangDes.Text = SelClass.Describe
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -