📄 frmaddclass.frm
字号:
VERSION 5.00
Begin VB.Form frmAddClass
BorderStyle = 3 'Fixed Dialog
Caption = "添加班级信息"
ClientHeight = 4440
ClientLeft = 5550
ClientTop = 2685
ClientWidth = 3735
Icon = "frmAddClass.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4440
ScaleWidth = 3735
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmdExit
Caption = "退 出"
Height = 375
Left = 2520
TabIndex = 6
Top = 3840
Width = 855
End
Begin VB.CommandButton cmdSave
Caption = "保 存"
Height = 375
Left = 1440
TabIndex = 5
Top = 3840
Width = 855
End
Begin VB.Frame FraClass
Caption = "班级信息"
Height = 3255
Left = 360
TabIndex = 0
Top = 360
Width = 3015
Begin VB.TextBox txtEndNo
Height = 270
Left = 1200
MaxLength = 3
TabIndex = 3
Top = 1440
Width = 1455
End
Begin VB.TextBox txtC_Memo
Height = 855
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 2160
Width = 2415
End
Begin VB.TextBox txtStartNo
Height = 270
Left = 1200
MaxLength = 3
TabIndex = 2
Top = 960
Width = 1455
End
Begin VB.TextBox txtC_ID
Height = 270
Left = 1200
MaxLength = 6
TabIndex = 1
Top = 480
Width = 1455
End
Begin VB.Label lblC_Memo
AutoSize = -1 'True
Caption = "班级描述："
Height = 180
Left = 240
TabIndex = 10
Top = 1920
Width = 900
End
Begin VB.Label lblEndNo
AutoSize = -1 'True
Caption = "终止号："
Height = 180
Left = 240
TabIndex = 9
Top = 1440
Width = 720
End
Begin VB.Label lblStartNo
AutoSize = -1 'True
Caption = "起始号："
Height = 180
Left = 240
TabIndex = 8
Top = 960
Width = 720
End
Begin VB.Label lblC_ID
AutoSize = -1 'True
Caption = "班级ID："
Height = 180
Left = 240
TabIndex = 7
Top = 480
Width = 720
End
End
End
Attribute VB_Name = "frmAddClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmAddClass.frm ''
'' ''
''Created On 2004.2.12 ''
'' ''
''Description 添加班级信息窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsClass As Recordset
Dim rsOperateLog As Recordset
Dim rsLog As Recordset
Dim rsC_ID As Recordset
Public strc_id As String
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdSave_Click()
If Judge = True Then
If MsgBox("确实要保存吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
SaveInfo
txtC_ID.Text = ""
txtStartNo.Text = ""
txtEndNo.Text = ""
txtC_Memo.Text = ""
txtC_ID.SetFocus
End If
End If
End Sub
Private Sub Form_Load()
Set rsClass = New Recordset
Dim StrClass As String
StrClass = "select * from TbClass"
rsClass.Open StrClass, Modmain.conn, 3, 2
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
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''验证输入的班级ID是否已经存在，若存在则清空重新编写 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub txtC_ID_LostFocus()
Set rsC_ID = New Recordset
Dim strc_id As String
strc_id = "select * from TbClass where C_ID='" & txtC_ID.Text & "'"
rsC_ID.Open strc_id, Modmain.conn, 3, 2
If rsC_ID.RecordCount <> 0 Then
MsgBox "该班级ID已存在，请重新编写！", vbOKOnly + vbCritical, "机房管理"
txtC_ID.Text = ""
txtC_ID.SetFocus
End If
rsC_ID.Close
Set rsC_ID = Nothing
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''保存新添加的班级信息 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub SaveInfo()
rsClass.AddNew
strc_id = txtC_ID.Text
rsClass.Fields("C_ID") = txtC_ID.Text
rsClass.Fields("StartNo") = txtStartNo.Text
rsClass.Fields("EndNo") = txtEndNo.Text
If Trim(txtC_Memo.Text) <> "" Then
rsClass.Fields("C_Memo") = Trim(txtC_Memo.Text)
Else
rsClass.Fields("C_Memo") = ""
End If
rsClass.Update
AddLog
MsgBox "保存成功", vbOKOnly + vbInformation, "机房管理" '保存完毕并提醒
frmInstitute.AddClassNodes
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''验证输入的班级ID、班级起始号,终止号是否为空，若为空则重新添加 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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 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 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 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='L03'", 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 + -