📄 frmeditinstituteinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmEditInstituteInfo
BorderStyle = 3 'Fixed Dialog
Caption = "修改院系信息"
ClientHeight = 4380
ClientLeft = 5550
ClientTop = 2685
ClientWidth = 3690
Icon = "frmEditInstituteInfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4380
ScaleWidth = 3690
ShowInTaskbar = 0 'False
Begin VB.Frame FraInstitute
Caption = "院系信息"
Height = 3135
Left = 360
TabIndex = 4
Top = 360
Width = 3015
Begin VB.TextBox txtI_ID
Height = 270
Left = 1200
MaxLength = 2
TabIndex = 0
Top = 480
Width = 1455
End
Begin VB.TextBox txtI_Name
Height = 270
Left = 1200
MaxLength = 10
TabIndex = 1
Top = 960
Width = 1455
End
Begin VB.TextBox txtI_Memo
Height = 1215
Left = 360
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Top = 1680
Width = 2295
End
Begin VB.Label lblI_ID
AutoSize = -1 'True
Caption = "院系ID："
Height = 180
Left = 360
TabIndex = 8
Top = 480
Width = 720
End
Begin VB.Label lblI_Name
AutoSize = -1 'True
Caption = "院系名："
Height = 180
Left = 360
TabIndex = 7
Top = 960
Width = 720
End
Begin VB.Label lblI_Memo
AutoSize = -1 'True
Caption = "院系描述："
Height = 180
Left = 360
TabIndex = 6
Top = 1440
Width = 900
End
End
Begin VB.CommandButton cmdSave
Caption = "保 存"
Height = 375
Left = 1440
TabIndex = 3
Top = 3720
Width = 855
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2520
TabIndex = 5
Top = 3720
Width = 855
End
End
Attribute VB_Name = "frmEditInstituteInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmEditInstituteInfo.frm ''
'' ''
''Created On 2004.2.9 ''
'' ''
''Description 修改院系信息维护窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsInstitute As Recordset
Dim rsAllInstitute As Recordset
Dim rsSpeciality As Recordset
Dim rsClass As Recordset
Dim RsCardholder As Recordset
Dim rsOperateLog As Recordset
Dim rsLog As Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''如果只修改院系名，则只须用新院系名替换旧院系名 ''
''如果只修改院系ID，则修改该院系的专业、班级以及所有学生的信息 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdSave_Click()
rsAllInstitute.MoveFirst
With rsInstitute
If MsgBox("确实要保存修改吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
If txtI_ID.Text = .Fields!I_ID And Trim(CStr(txtI_Name.Text)) <> .Fields!I_Name Then '只修改院系名
If Trim(CStr(txtI_Name.Text)) = "" Then '判断院系名是否为空
MsgBox "院系名不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_Name.SetFocus
Exit Sub
End If
While Not rsAllInstitute.EOF '判断修改后的院系名是否已存在
If rsAllInstitute.Fields!I_Name = Trim(CStr(txtI_Name.Text)) Then
MsgBox "该院系名已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtI_Name.Text = ""
txtI_Name.SetFocus
Exit Sub
End If
rsAllInstitute.MoveNext
Wend
.Fields!I_Name = Trim(CStr(txtI_Name.Text)) '保存修改后的院系信息
If Trim(CStr(txtI_Memo.Text)) <> "" Then
.Fields!I_Memo = Trim(CStr(txtI_Memo.Text))
Else
.Fields!I_Memo = ""
End If
.Update
frmInstitute.tvwInstitute.Nodes.Item(frmInstitute.NodeIndex).Text = txtI_Name.Text '更改结点的显示文字
' Unload Me
' Exit Sub
'End If
ElseIf txtI_ID.Text <> .Fields!I_ID And Trim(CStr(txtI_Name.Text)) = .Fields!I_Name Then '只修改院系ID
If Trim(CStr(txtI_ID.Text)) = "" Then '判断院系ID是否为空
MsgBox "院系ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_ID.SetFocus
Exit Sub
End If
While Not rsAllInstitute.EOF '判断修改后的院系ID是否已存在
If rsAllInstitute.Fields!I_ID = txtI_ID.Text Then
MsgBox "该院系ID已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtI_ID.Text = ""
txtI_ID.SetFocus
Exit Sub
End If
rsAllInstitute.MoveNext
Wend
Set rsSpeciality = New Recordset '修改专业
rsSpeciality.Open "select * from TbSpeciality where I_ID='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not rsSpeciality.EOF
rsSpeciality.Fields!I_ID = txtI_ID.Text
rsSpeciality.Update
rsSpeciality.MoveNext
Wend
Set rsClass = New Recordset '修改班级
rsClass.Open "select * from TbClass where left(C_ID,2)='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not rsClass.EOF
rsClass.Fields!C_ID = txtI_ID.Text & Right(rsClass.Fields!C_ID, 4)
rsClass.Update
rsClass.MoveNext
Wend
Set RsCardholder = New Recordset '修改学生
RsCardholder.Open "select * from TbCardholder where MID(CH_ID,3,2)='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not RsCardholder.EOF
RsCardholder.Fields!CH_ID = Left(RsCardholder.Fields!CH_ID, 2) & txtI_ID.Text & Right(RsCardholder.Fields!CH_ID, 6)
RsCardholder.Update
RsCardholder.MoveNext
Wend
.Fields!I_ID = txtI_ID.Text '修改院系
If Trim(CStr(txtI_Memo.Text)) <> "" Then
.Fields!I_Memo = Trim(CStr(txtI_Memo.Text))
Else
.Fields!I_Memo = ""
End If
.Update
' Unload Me
' Exit Sub
'End If
ElseIf txtI_ID.Text <> .Fields!I_ID And Trim(CStr(txtI_Name.Text)) <> .Fields!I_Name Then '修改院系名和院系ID
If Trim(CStr(txtI_Name.Text)) = "" Then '判断院系名是否为空
MsgBox "院系名不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_Name.SetFocus
Exit Sub
End If
If Trim(CStr(txtI_ID.Text)) = "" Then '判断院系ID是否为空
MsgBox "院系ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtI_ID.SetFocus
Exit Sub
End If
While Not rsAllInstitute.EOF '判断修改后的院系ID是否已存在
If rsAllInstitute.Fields!I_ID = txtI_ID.Text Then
MsgBox "该院系ID已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtI_ID.Text = ""
txtI_ID.SetFocus
Exit Sub
End If
rsAllInstitute.MoveNext
Wend
rsAllInstitute.MoveFirst
While Not rsAllInstitute.EOF '判断修改后的院系名是否已存在
If rsAllInstitute.Fields!I_Name = Trim(CStr(txtI_Name.Text)) Then
MsgBox "该院系名已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtI_Name.Text = ""
txtI_Name.SetFocus
Exit Sub
End If
rsAllInstitute.MoveNext
Wend
Set rsSpeciality = New Recordset '修改专业
rsSpeciality.Open "select * from TbSpeciality where I_ID='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not rsSpeciality.EOF
rsSpeciality.Fields!I_ID = txtI_ID.Text
rsSpeciality.Update
rsSpeciality.MoveNext
Wend
Set rsClass = New Recordset '修改班级
rsClass.Open "select * from TbClass where left(C_ID,2)='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not rsClass.EOF
rsClass.Fields!C_ID = txtI_ID.Text & Right(rsClass.Fields!C_ID, 4)
rsClass.Update
rsClass.MoveNext
Wend
Set RsCardholder = New Recordset '修改学生
RsCardholder.Open "select * from TbCardholder where MID(CH_ID,3,2)='" & .Fields!I_ID & "'", Modmain.conn, 3, 2
While Not RsCardholder.EOF
RsCardholder.Fields!CH_ID = Left(RsCardholder.Fields!CH_ID, 2) & txtI_ID.Text & Right(RsCardholder.Fields!CH_ID, 6)
RsCardholder.Update
RsCardholder.MoveNext
Wend
.Fields!I_ID = txtI_ID.Text '修改院系
.Fields!I_Name = Trim(CStr(txtI_Name.Text)) '保存修改后的院系信息
If Trim(CStr(txtI_Memo.Text)) <> "" Then
.Fields!I_Memo = Trim(CStr(txtI_Memo.Text))
Else
.Fields!I_Memo = ""
End If
.Update
frmInstitute.tvwInstitute.Nodes.Item(frmInstitute.NodeIndex).Text = Trim(CStr(txtI_Name.Text)) '更改结点的显示文字
' Unload Me
' Exit Sub
End If
AddLog
Unload Me
End If
End With
'rsInstitute.Close
'Set rsInstitute = Nothing
'
'rsAllInstitute.Close
'Set rsAllInstitute = Nothing
'
'rsSpeciality.Close
'Set rsSpeciality = Nothing
'
'rsClass.Close
'Set rsClass = Nothing
'
'RsCardholder.Close
'Set RsCardholder = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''显示选中的院系的详细信息 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
Set rsInstitute = New Recordset
rsInstitute.Open "select * from TbInstitute where I_Name='" & frmInstitute.NodeText & "'", Modmain.conn, 3, 2
With rsInstitute
txtI_ID.Text = .Fields!I_ID
txtI_Name.Text = .Fields!I_Name
If .Fields!I_Memo <> "" Then
txtI_Memo.Text = .Fields!I_Memo
Else
txtI_Memo.Text = ""
End If
End With
Set rsAllInstitute = New Recordset
rsAllInstitute.Open "select * from TbInstitute ", Modmain.conn, 3, 2
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''只能输入数字 ''
''按回车键时，跳到下一格 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtI_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 txtI_Name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
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='L02'", 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 & txtI_Name.Text & strTemp
rsOperateLog.Update
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -