📄 frmeditclass.frm
字号:
VERSION 5.00
Begin VB.Form frmEditClass
BorderStyle = 3 'Fixed Dialog
Caption = "修改班级信息"
ClientHeight = 4470
ClientLeft = 5550
ClientTop = 2685
ClientWidth = 3720
Icon = "frmEditClass.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4470
ScaleWidth = 3720
ShowInTaskbar = 0 'False
Begin VB.Frame FraClass
Caption = "班级信息"
Height = 3255
Left = 360
TabIndex = 5
Top = 360
Width = 3015
Begin VB.TextBox txtC_ID
Height = 270
Left = 1200
MaxLength = 6
TabIndex = 0
Top = 480
Width = 1455
End
Begin VB.TextBox txtStartNo
Height = 270
Left = 1200
MaxLength = 3
TabIndex = 1
Top = 960
Width = 1455
End
Begin VB.TextBox txtC_Memo
Height = 855
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 2160
Width = 2415
End
Begin VB.TextBox txtEndNo
Height = 270
Left = 1200
MaxLength = 3
TabIndex = 2
Top = 1440
Width = 1455
End
Begin VB.Label lblC_ID
AutoSize = -1 'True
Caption = "班级ID："
Height = 180
Left = 240
TabIndex = 10
Top = 480
Width = 720
End
Begin VB.Label lblStartNo
AutoSize = -1 'True
Caption = "起始号："
Height = 180
Left = 240
TabIndex = 9
Top = 960
Width = 720
End
Begin VB.Label lblEndNo
AutoSize = -1 'True
Caption = "终止号："
Height = 180
Left = 240
TabIndex = 8
Top = 1440
Width = 720
End
Begin VB.Label lblC_Memo
AutoSize = -1 'True
Caption = "班级描述："
Height = 180
Left = 240
TabIndex = 7
Top = 1920
Width = 900
End
End
Begin VB.CommandButton cmdSave
Caption = "保 存"
Height = 375
Left = 1440
TabIndex = 4
Top = 3840
Width = 855
End
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2520
TabIndex = 6
Top = 3840
Width = 855
End
End
Attribute VB_Name = "frmEditClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmEditClass.frm ''
'' ''
''Created On 2004.2.13 ''
'' ''
''Description 修改班级信息维护窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsClass As Recordset
Dim RsCardholder As Recordset
Private Sub cmdExit_Click()
Unload Me
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''只能输入数字 ''
''按回车键时，跳到下一格 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtC_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 txtStartNo_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 txtEndNo_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 Function Judge() As Boolean
If Trim(txtC_ID) = "" Then
MsgBox "班级ID不能为空", vbOKOnly + vbExclamation, "机房管理"
txtC_ID.SetFocus
ElseIf Trim(txtStartNo) = "" Then
MsgBox "班级起始号不能为空", vbOKOnly + vbExclamation, "机房管理"
txtStartNo.SetFocus
ElseIf Trim(txtEndNo) = "" Then
MsgBox "班级终止号不能为空", vbOKOnly + vbExclamation, "机房管理"
txtEndNo.SetFocus
ElseIf CInt(CStr(txtStartNo)) > CInt(CStr(txtEndNo)) Then
MsgBox "班级终止号不能大于起始号", vbOKOnly + vbExclamation, "机房管理"
txtStartNo = ""
txtEndNo = ""
Else
Judge = True
End If
End Function
Private Sub cmdSave_Click()
If Judge = True Then
If MsgBox("确实要保存修改吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
Set RsCardholder = New Recordset '修改学生
Dim aa As Integer, bb As Integer, CC As String, StrCardholder As String
aa = CInt(CStr(rsClass.Fields!StartNo))
bb = CInt(CStr(rsClass.Fields!EndNo))
CC = Left(txtC_ID.Text, 5)
StrCardholder = "select * from TbCardholder where mid(CH_ID,3,5)='" & Left(rsClass.Fields!C_ID, 5) & "'and right(CH_ID,3)> " & aa & " and right(CH_ID,3)<" & bb & ""
RsCardholder.Open StrCardholder, Modmain.conn, 3, 2
While Not RsCardholder.EOF
RsCardholder.Fields!CH_ID = CStr(Left(RsCardholder.Fields!CH_ID, 2)) & CC & CStr(Right(RsCardholder.Fields!CH_ID, 3))
RsCardholder.Update
RsCardholder.MoveNext
Wend
rsClass.Fields!C_ID = txtC_ID.Text
rsClass.Fields!StartNo = txtStartNo.Text
rsClass.Fields!EndNo = txtEndNo.Text '保存修改后的专业信息
If Trim(CStr(txtC_Memo.Text)) <> "" Then
rsClass.Fields!C_Memo = Trim(CStr(txtC_Memo.Text))
Else
rsClass.Fields!C_Memo = ""
End If
rsClass.Update
AddLog
frmInstitute.tvwInstitute.Nodes.Item(frmInstitute.NodeIndex).Text = Trim(CStr(txtC_ID.Text)) '更改结点的显示文字
Unload Me
rsClass.Close
Set rsClass = Nothing
RsCardholder.Close
Set RsCardholder = Nothing
End If
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''显示选中的班级的详细信息 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
Set rsClass = New Recordset
rsClass.Open "select * from TbClass where C_ID='" & frmInstitute.NodeText & "'", Modmain.conn, 3, 2
With rsClass
txtC_ID.Text = .Fields!C_ID
txtStartNo.Text = .Fields!StartNo
txtEndNo.Text = .Fields!EndNo
If .Fields!C_Memo <> "" Then
txtC_Memo.Text = .Fields!C_Memo
Else
txtC_Memo.Text = ""
End If
End With
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='L13'", 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 & txtC_ID.Text & strTemp
rsOperateLog.Update
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -