📄 b学籍异动.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form B学籍异动
Caption = "学籍异动"
ClientHeight = 3780
ClientLeft = 60
ClientTop = 345
ClientWidth = 8130
LinkTopic = "Form1"
ScaleHeight = 3780
ScaleWidth = 8130
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame
Caption = "异动信息"
Height = 3735
Index = 0
Left = 0
TabIndex = 0
Top = 0
Width = 8055
Begin VB.Frame FrameInfo
Caption = "异动信息"
Height = 3375
Left = 2280
TabIndex = 6
Top = 240
Width = 5655
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1080
TabIndex = 19
Top = 960
Width = 1695
_ExtentX = 2990
_ExtentY = 661
_Version = 393216
Format = 66977793
CurrentDate = 38891
End
Begin VB.ComboBox CboSelect
Height = 315
Left = 1080
TabIndex = 15
Top = 480
Width = 1695
End
Begin VB.TextBox txtReason
Height = 855
Left = 1080
MaxLength = 50
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 14
Top = 1560
Width = 4095
End
Begin VB.Frame Frame2
Height = 645
Index = 0
Left = 120
TabIndex = 7
Top = 2640
Width = 5475
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "保存"
Enabled = 0 'False
Height = 360
Left = 2655
Style = 1 'Graphical
TabIndex = 13
Top = 195
Width = 800
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "添加"
Height = 360
Left = 255
Style = 1 'Graphical
TabIndex = 12
Top = 195
Width = 800
End
Begin VB.CommandButton CmdDelete
BackColor = &H00C0C0C0&
Caption = "删除"
Height = 360
Left = 1860
Style = 1 'Graphical
TabIndex = 11
Top = 195
Width = 800
End
Begin VB.CommandButton CmdCancel
BackColor = &H00C0C0C0&
Caption = "取消"
Height = 360
Left = 3450
Style = 1 'Graphical
TabIndex = 10
Top = 195
Width = 800
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 360
Left = 4245
Style = 1 'Graphical
TabIndex = 9
Top = 195
Width = 800
End
Begin VB.CommandButton CmdModify
BackColor = &H00C0C0C0&
Caption = "修改"
Height = 360
Left = 1065
Style = 1 'Graphical
TabIndex = 8
Top = 195
Width = 800
End
End
Begin VB.Label Label5
Caption = "异动原因："
Height = 255
Index = 2
Left = 120
TabIndex = 18
Top = 1680
Width = 1335
End
Begin VB.Label Label7
Caption = "异动日期："
Height = 375
Index = 1
Left = 120
TabIndex = 17
Top = 1080
Width = 975
End
Begin VB.Label Label5
Caption = "类型："
Height = 255
Index = 1
Left = 480
TabIndex = 16
Top = 480
Width = 615
End
End
Begin VB.Frame FrameList
Caption = "学生异动信息列表"
Height = 3375
Left = 120
TabIndex = 1
Top = 240
Width = 2055
Begin VB.ListBox ListChange
Height = 1620
ItemData = "B学籍异动.frx":0000
Left = 120
List = "B学籍异动.frx":0007
TabIndex = 3
Top = 1440
Width = 1695
End
Begin VB.ComboBox CboStu
Height = 315
Left = 120
TabIndex = 2
Top = 480
Width = 1815
End
Begin VB.Label Label9
Caption = "选择学生："
Height = 255
Left = 240
TabIndex = 5
Top = 240
Width = 1095
End
Begin VB.Label LblNotes
Height = 615
Left = 120
TabIndex = 4
Top = 840
Width = 1815
End
End
End
End
Attribute VB_Name = "B学籍异动"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
Dim Index As Integer
Dim strClassNo As String
Dim flag As String '判断是新增加记录还是修改记录
Private Sub FixData()
Dim stuNo As String
Dim changeDate As String
'显示异动具体信息
If CboStu.ListCount > 0 And ListChange.ListCount > 0 Then
stuNo = Left(Trim(CboStu.Text), 8)
changeDate = Left(Trim(ListChange.Text), InStr(Trim(ListChange.Text), ":") - 1)
Else
Exit Sub
End If
LblNotes.Caption = stuNo & "号学生异动信息"
'查询数据
rs.MoveFirst
rs.Find ("异动日期='" & changeDate & "'")
'显示数据
CboSelect.Text = Trim(rs.Fields("异动类型"))
If IsDate(Trim(rs.Fields("异动日期"))) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -