📄 frmeditspeciality.frm
字号:
VERSION 5.00
Begin VB.Form frmEditSpeciality
BorderStyle = 3 'Fixed Dialog
Caption = "修改专业信息"
ClientHeight = 4380
ClientLeft = 5550
ClientTop = 2685
ClientWidth = 3675
Icon = "frmEditSpeciality.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4380
ScaleWidth = 3675
ShowInTaskbar = 0 'False
Begin VB.Frame FraInstitute
Caption = "专业信息"
Height = 3135
Left = 360
TabIndex = 2
Top = 360
Width = 3015
Begin VB.TextBox txtS_Memo
Height = 1215
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Top = 1680
Width = 2295
End
Begin VB.TextBox txtS_Name
Height = 270
Left = 1200
MaxLength = 10
TabIndex = 4
Top = 960
Width = 1455
End
Begin VB.TextBox txtS_ID
Height = 270
Left = 1200
MaxLength = 1
TabIndex = 3
Top = 480
Width = 1455
End
Begin VB.Label lblS_Memo
AutoSize = -1 'True
Caption = "专业描述："
Height = 180
Left = 360
TabIndex = 8
Top = 1440
Width = 900
End
Begin VB.Label lblS_Name
AutoSize = -1 'True
Caption = "专业名："
Height = 180
Left = 360
TabIndex = 7
Top = 960
Width = 720
End
Begin VB.Label lblS_ID
AutoSize = -1 'True
Caption = "专业ID："
Height = 180
Left = 360
TabIndex = 6
Top = 480
Width = 720
End
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2520
TabIndex = 1
Top = 3720
Width = 855
End
Begin VB.CommandButton cmdSave
Caption = "保 存"
Height = 375
Left = 1320
TabIndex = 0
Top = 3720
Width = 855
End
End
Attribute VB_Name = "frmEditSpeciality"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmEditSpeciality.frm ''
'' ''
''Created On 2004.2.11 ''
'' ''
''Description 修改专业信息窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsSpeciality As Recordset
Dim rsS_ID As Recordset
Dim RsS_Name As Recordset
Dim rsOperateLog As Recordset
Dim rsLog As Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''显示选中的专业的详细信息 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
Set rsSpeciality = New Recordset
rsSpeciality.Open "select * from TbSpeciality where S_Name='" & frmInstitute.NodeText & "'", Modmain.conn, 3, 2
With rsSpeciality
txtS_ID.Text = .Fields!S_ID
txtS_Name.Text = .Fields!S_Name
If .Fields!S_Memo <> "" Then
txtS_Memo.Text = .Fields!S_Memo
Else
txtS_Memo.Text = ""
End If
End With
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''只能输入数字 ''
''按回车键时，跳到下一格 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtS_ID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
Dim L As Boolean
L = Chr(KeyAscii) Like "[0-9]" Or KeyAscii = 8
If L = False Then
KeyAscii = 0
End If
End Sub
Private Sub txtS_Name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub
Private Sub cmdSave_Click()
If MsgBox("确实要保存修改吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
If txtS_ID.Text = rsSpeciality.Fields!S_ID And Trim(CStr(txtS_Name.Text)) <> rsSpeciality.Fields!S_Name Then '只修改专业名
If Trim(CStr(txtS_Name.Text)) = "" Then '判断专业名是否为空
MsgBox "专业名不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_Name.SetFocus
Exit Sub
End If
Set RsS_Name = New Recordset
RsS_Name.Open "select * from TbSpeciality where S_Name='" & frmInstitute.NodeIndex & "'", Modmain.conn, 3, 2
If RsS_Name.RecordCount <> 0 Then '判断修改后的专业名是否已存在
MsgBox "该专业名已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtS_Name.Text = ""
txtS_Name.SetFocus
End If
RsS_Name.Close
Set RsS_Name = Nothing
rsSpeciality.Fields!S_Name = Trim(CStr(txtS_Name.Text)) '保存修改后的专业信息
If Trim(CStr(txtS_Memo.Text)) <> "" Then
rsSpeciality.Fields!S_Memo = Trim(CStr(txtS_Memo.Text))
Else
rsSpeciality.Fields!S_Memo = ""
End If
rsSpeciality.Update
frmInstitute.tvwInstitute.Nodes.Item(frmInstitute.NodeIndex).Text = txtS_Name.Text '更改结点的显示文字
' Unload Me
' Exit Sub
'End If
'
ElseIf txtS_ID.Text <> rsSpeciality.Fields!S_ID And Trim(CStr(txtS_Name.Text)) = rsSpeciality.Fields!S_Name Then '只修改专业ID
If Trim(CStr(txtS_ID.Text)) = "" Then '判断专业ID是否为空
MsgBox "专业ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtS_ID.SetFocus
Exit Sub
End If
Set rsS_ID = New Recordset
rsS_ID.Open "select * from TbSpeciality where S_ID='" & txtS_ID.Text & "' and I_ID='" & rsSpeciality.Fields!I_ID & "'", Modmain.conn, 3, 2
If rsS_ID.RecordCount <> 0 Then '判断修改后的专业ID是否已存在
MsgBox "该专业ID已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtS_ID.Text = ""
txtS_ID.SetFocus
Exit Sub
End If
rsS_ID.Close
Set rsS_ID = Nothing
Set rsClass = New Recordset '修改班级
rsClass.Open "select * from TbClass where left(C_ID,2)='" & rsSpeciality.Fields!I_ID & "'and mid(C_ID,5,1)='" & rsSpeciality.Fields!S_ID & "'", Modmain.conn, 3, 2
While Not rsClass.EOF
rsClass.Fields!C_ID = Left(rsClass.Fields!C_ID, 4) & txtS_ID.Text & Right(rsClass.Fields!C_ID, 1)
rsClass.Update
rsClass.MoveNext
Wend
Set RsCardholder = New Recordset '修改学生
RsCardholder.Open "select * from TbCardholder where MID(CH_ID,3,2)='" & rsSpeciality.Fields!I_ID & "'and mid(CH_ID,7,1)='" & rsSpeciality.Fields!S_ID & "'", Modmain.conn, 3, 2
While Not RsCardholder.EOF
RsCardholder.Fields!CH_ID = Left(RsCardholder.Fields!CH_ID, 6) & txtS_ID.Text & Right(RsCardholder.Fields!CH_ID, 3)
RsCardholder.Update
RsCardholder.MoveNext
Wend
rsSpeciality.Fields!S_ID = txtS_ID.Text '修改专业
If Trim(CStr(txtS_Memo.Text)) <> "" Then
rsSpeciality.Fields!S_Memo = Trim(CStr(txtS_Memo.Text))
Else
rsSpeciality.Fields!S_Memo = ""
End If
rsSpeciality.Update
' Unload Me
' Exit Sub
'End If
ElseIf txtS_ID.Text <> rsSpeciality.Fields!S_ID And Trim(CStr(txtS_Name.Text)) <> rsSpeciality.Fields!S_Name Then '修改院系名和院系ID
If Trim(CStr(txtS_Name.Text)) = "" Then '判断专业名是否为空
MsgBox "专业名不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_Name.SetFocus
Exit Sub
End If
If Trim(CStr(txtS_ID.Text)) = "" Then '判断专业ID是否为空
MsgBox "专业ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtS_ID.SetFocus
Exit Sub
End If
Set rsS_ID = New Recordset
rsS_ID.Open "select * from TbSpeciality where S_ID='" & txtS_ID.Text & "' and I_ID='" & rsSpeciality.Fields!I_ID & "'", Modmain.conn, 3, 2
If rsS_ID.RecordCount <> 0 Then '判断修改后的专业ID是否已存在
MsgBox "该专业ID已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtS_ID.Text = ""
txtS_ID.SetFocus
Exit Sub
End If
rsS_ID.Close
Set rsS_ID = Nothing
Set RsS_Name = New Recordset
RsS_Name.Open "select * from TbSpeciality where S_Name='" & frmInstitute.NodeIndex & "'", Modmain.conn, 3, 2
If RsS_Name.RecordCount <> 0 Then '判断修改后的专业名是否已存在
MsgBox "该专业名已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtS_Name.Text = ""
txtS_Name.SetFocus
End If
RsS_Name.Close
Set RsS_Name = Nothing
Set rsClass = New Recordset '修改班级
rsClass.Open "select * from TbClass where left(C_ID,2)='" & rsSpeciality.Fields!I_ID & "'and mid(C_ID,5,1)='" & rsSpeciality.Fields!S_ID & "'", Modmain.conn, 3, 2
While Not rsClass.EOF
rsClass.Fields!C_ID = Left(rsClass.Fields!C_ID, 4) & txtS_ID.Text & Right(rsClass.Fields!C_ID, 1)
rsClass.Update
rsClass.MoveNext
Wend
Set RsCardholder = New Recordset '修改学生
RsCardholder.Open "select * from TbCardholder where MID(CH_ID,3,2)='" & rsSpeciality.Fields!I_ID & "'and mid(CH_ID,7,1)='" & rsSpeciality.Fields!S_ID & "'", Modmain.conn, 3, 2
While Not RsCardholder.EOF
RsCardholder.Fields!CH_ID = Left(RsCardholder.Fields!CH_ID, 6) & txtS_ID.Text & Right(RsCardholder.Fields!CH_ID, 3)
RsCardholder.Update
RsCardholder.MoveNext
Wend
rsSpeciality.Fields!S_ID = txtS_ID.Text
rsSpeciality.Fields!S_Name = Trim(CStr(txtS_Name.Text)) '保存修改后的专业信息
If Trim(CStr(txtS_Memo.Text)) <> "" Then
rsSpeciality.Fields!S_Memo = Trim(CStr(txtS_Memo.Text))
Else
rsSpeciality.Fields!S_Memo = ""
End If
rsSpeciality.Update
frmInstitute.tvwInstitute.Nodes.Item(frmInstitute.NodeIndex).Text = Trim(CStr(txtS_Name.Text)) '更改结点的显示文字
' Unload Me
' Exit Sub
End If
AddLog
Unload Me
End If
'rsSpeciality.Close
'Set rsSpeciality = Nothing
'
'rsClass.Close
'Set rsClass = Nothing
'
'RsCardholder.Close
'Set RsCardholder = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''将用户修改专业的信息记入操作日志 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddLog()
Dim strEvents As String
Dim strTemp As String
strTemp = "'"
Set rsOperateLog = New Recordset
rsOperateLog.Open "select * from tbOperateLog", Modmain.conn, 3, 2
Set rsLog = New Recordset
rsLog.Open "select * from tblog where L_ID='L08'", Modmain.conn, 3, 2
strEvents = rsLog.Fields!Events
rsOperateLog.AddNew
rsOperateLog.Fields!U_ID = frmLoad.StrU_ID
rsOperateLog.Fields!Time = Time
rsOperateLog.Fields!Date = Date
rsOperateLog.Fields!Events = strEvents
rsOperateLog.Fields!Description = strEvents & strTemp & txtS_Name.Text & strTemp
rsOperateLog.Update
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -