📄 form_one_info.frm
字号:
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 4
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "文化科成绩"
TabPicture(0) = "form_one_info.frx":3BCE8
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "ListView1"
Tab(0).ControlCount= 1
TabCaption(1) = "学分评测纪录"
TabPicture(1) = "form_one_info.frx":3BD04
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "ListView2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
Begin MSComctlLib.ListView ListView1
Height = 2895
Left = -74880
TabIndex = 15
Top = 480
Width = 5775
_ExtentX = 10186
_ExtentY = 5106
View = 3
Arrange = 1
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
PictureAlignment= 5
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483634
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "学年"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "学分积"
Object.Width = 2540
EndProperty
Picture = "form_one_info.frx":3BD20
End
Begin MSComctlLib.ListView ListView2
Height = 2895
Left = 120
TabIndex = 16
Top = 480
Width = 5775
_ExtentX = 10186
_ExtentY = 5106
View = 3
Arrange = 1
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
PictureAlignment= 5
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483634
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 5
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "学年"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "评测"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "分数"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "登记日期"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "备注"
Object.Width = 2540
EndProperty
Picture = "form_one_info.frx":4FC34
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "form_one_info.frx":63B48
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "form_one_info.frx":63E6C
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "form_one_info"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public student_id As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
ListView1.ListItems.Clear
ListView2.ListItems.Clear
Dim recordset_temp As New ADODB.Recordset
recordset_temp.Open "select * from [student] where [ID]=" & student_id, main.connect, 3, 2
If recordset_temp.RecordCount <> 0 Then
Label4.Caption = recordset_temp.Fields(3)
Label7.Caption = recordset_temp.Fields(1)
If recordset_temp.Fields(2) = True Then
Label9.Caption = "男"
Else
Label9.Caption = "女"
End If
Select Case recordset_temp.Fields(4)
Case 0
Label11.Caption = "无"
Case 1
Label11.Caption = "共青团员"
Case 2
Label11.Caption = "共产党员"
End Select
Label13.Caption = getclass(recordset_temp.Fields(5))
End If
recordset_temp.Close
Dim itmX As ListItem
recordset_temp.Open "select * from [wf] where [stid]=" & student_id, main.connect, 3, 2
For i = 1 To recordset_temp.RecordCount
Set itmX = ListView1.ListItems.Add(, "c" & recordset_temp.Fields(0), recordset_temp.Fields(2) & "-" & (recordset_temp.Fields(2) + 1), 1, 1)
itmX.SubItems(1) = recordset_temp.Fields(3)
recordset_temp.MoveNext
Next
recordset_temp.Close
recordset_temp.Open "select * from [jc] where [stid]=" & student_id, main.connect, 3, 2
For i = 1 To recordset_temp.RecordCount
Set itmX = ListView2.ListItems.Add(, "b" & recordset_temp.Fields(0), recordset_temp.Fields(4) & "-" & (recordset_temp.Fields(4) + 1), 2, 2)
itmX.SubItems(1) = getpc(recordset_temp.Fields(2))
itmX.SubItems(2) = recordset_temp.Fields(5)
itmX.SubItems(3) = recordset_temp.Fields(3)
itmX.SubItems(4) = recordset_temp.Fields(6)
recordset_temp.MoveNext
Next
recordset_temp.Close
End Sub
Private Function getpc(id As String)
Dim cc As New ADODB.Recordset
Dim temp As String
temp = ""
cc.Open "select * from [gz] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = "[" & cc.Fields(1) & "]" & temp
id = cc.Fields(5)
End If
cc.Close
cc.Open "select * from [gz] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = "[" & cc.Fields(1) & "]" & temp
id = cc.Fields(5)
End If
cc.Close
cc.Open "select * from [gz] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = "[" & cc.Fields(1) & "]" & temp
id = cc.Fields(5)
End If
cc.Close
cc.Open "select * from [gz] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = "[" & cc.Fields(1) & "]" & temp
id = cc.Fields(5)
End If
cc.Close
getpc = temp
End Function
Private Sub Form_Resize()
Picture1.Height = Me.Height - 400
Command1.Top = Me.Height - 500 - Command1.Height
Command1.Left = Me.Width - 200 - Command1.Width
SSTab1.Width = Me.Width - Picture1.Width - 100
SSTab1.Height = Command1.Top - 100
ListView1.Width = SSTab1.Width - 200
ListView1.Height = SSTab1.Height - 600
ListView2.Width = SSTab1.Width - 200
ListView2.Height = SSTab1.Height - 600
End Sub
Private Function getclass(id As Integer) As String
Dim cc As New ADODB.Recordset
Dim temp As String
temp = ""
cc.Open "select * from [class] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = cc.Fields(1) & "班"
id = cc.Fields(2)
End If
cc.Close
cc.Open "select * from [yc] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = cc.Fields(1) & "级" & temp
id = cc.Fields(2)
End If
cc.Close
cc.Open "select * from [zy] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = cc.Fields(1) & "专业" & temp
id = cc.Fields(2)
End If
cc.Close
cc.Open "select * from [zy] where [ID]=" & id, main.connect, 3, 2
If cc.RecordCount <> 0 Then
temp = cc.Fields(1) & "系" & temp
End If
cc.Close
getclass = temp
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -