📄 main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form main
BackColor = &H00FFE09E&
BorderStyle = 0 'None
ClientHeight = 9480
ClientLeft = 0
ClientTop = 0
ClientWidth = 10605
FillColor = &H00FFFFFF&
ForeColor = &H00000000&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 9480
ScaleWidth = 10605
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 25
ImageHeight = 25
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 19
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":0EDC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":17B8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":1AD4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":1F30
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":280C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":36E8
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":3A04
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":42E0
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":4734
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":5010
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":58EC
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":5C08
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":5F24
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":86D8
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":995C
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":A7B0
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":B604
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "main.frx":B920
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 495
Left = 0
TabIndex = 0
Top = 0
Width = 2235
_ExtentX = 3942
_ExtentY = 873
ButtonWidth = 3784
ButtonHeight = 820
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 17
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "A.班级管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "B.学生名册管理"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "C.文化课成绩管理"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "D.系数据导出与导入"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "E.系统备份与恢复"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "F.年级学分报表"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "G.详细学分报表"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "H.信息查询"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "I.学生学分评测"
ImageIndex = 10
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "J.学生评测纪录修改"
ImageIndex = 11
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "K.系统安全管理"
ImageIndex = 12
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "L.退学留级管理"
ImageIndex = 13
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "M.结业处理"
ImageIndex = 14
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "N.三好评定"
ImageIndex = 19
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "M.帮助"
ImageIndex = 16
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "N.关于本软件"
ImageIndex = 17
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "O.退出系统(&Y)"
ImageIndex = 18
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "9EE0FF"
BeginProperty Font
Name = "幼圆"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 375
Left = 3000
TabIndex = 1
Top = 4560
Width = 5655
End
Begin VB.Image Image1
Height = 4350
Left = 2880
Picture = "main.frx":BC3C
Top = 1800
Width = 5925
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'----------------------------------
' www.BeeShip.com
' PianoPan
' 2001.10.20
' PianoPan@BeeShip.com
' 禁止用于商业用途
'----------------------------------
Public connect As New ADODB.Connection
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("a") Then KeyAscii = KeyAscii + Asc("a") - Asc("A")
Call main.kk(KeyAscii - Asc("a") + 1)
End Sub
Private Sub Form_Load()
connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\scdb.mmm;Jet OLEDB:Database Password=pianopan412424;Persist Security Info=False;"
connect.Open connectstring
Dim temp As New ADODB.Recordset
temp.Open "select * from [xb]", connect, 3, 2
If temp.RecordCount <> 0 Then
nn = temp.Fields(1)
Else
Dim kk As New addxi
kk.Show 1
If kk.yesno = False Then End
nn = kk.kk
connect.Execute "insert into [xb]([xn]) values('" & nn & "')"
End If
Label1.Caption = nn & "系"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub
Private Sub Form_Resize()
Image1.Left = Me.Width / 2 - Image1.Width / 2
Image1.Top = Me.Height / 2 - Image1.Height / 2 - 1000
Label1.Left = Image1.Left - 200
Label1.Top = Image1.Top + 1400
End Sub
Public Function kk(id As Integer)
If id > 21 Or id < 1 Then Exit Function
If userfun(id) = False Then
MsgBox "对不起" & Chr(13) & Chr(10) & "您没有使用此功能的权限", vbOKOnly Or vbInformation, "提示"
Exit Function
End If
Select Case id
Case 1
Dim ff As New classedit
ff.Show 1
Case 2
Dim ff1 As New selectclass
ff1.Show 1
If ff1.yesno = False Then Exit Function
Dim ff2 As New studentedit
ff2.kk = ff1.nn
ff2.nn = ff1.kk
ff2.Show 1
Case 3
Dim ff3 As New selectclass_editwf
ff3.Show 1
If ff3.yesno = True Then
yy = ff3.yy
nn = ff3.nn
kk = ff3.kk
Dim ff4 As New fenedit
ff4.yy = yy
ff4.nn = nn
ff4.kk = kk
Dim temp As New ADODB.Recordset
temp.Open "select * from [student] where [clasid]=" & kk, connect, 3, 2
If temp.RecordCount = 0 Then
MsgBox "本班还没有注册学生,无法进行文化课成绩学分处理", vbOKOnly Or vbInformation, "提示"
Exit Function
End If
ff4.Show 1
End If
Case 4
Dim temp4 As New xboutin
temp4.Show 1
Case 5
Dim ff5 As New bk
ff5.Show 1
Case 6
Dim ff6 As New bp1print
ff6.Show 1
Case 7
Dim ff7 As New xxprint
ff7.Show 1
Case 8
Dim ff8 As New form_data_view
ff8.Show 1
Case 9
Dim ff9 As New addxf
ff9.Show 1
Case 10
Dim ff10 As New xfedit
ff10.Show 1
Case 11
Dim ff11 As New useredit
ff11.Show 1
Case 12
Dim ff12 As New txlj
ff12.Show 1
Case 13
Dim fff As New backupss
fff.Show 1
Case 14
Dim ff33 As New goodstudent_select
ff33.Show 1
If ff33.yesno = False Then Exit Function
yy = ff33.yy
nn = ff33.nn
kk = ff33.kk
Dim kkl As New goodstudent
kkl.yy = yy
kkl.nn = nn
kkl.kk = kk
kkl.Show 1
Case 15
ShellExecute hwnd, "open", App.Path & "\help\main.htm", vbNullString, vbNullString, SW_SHOW
Case 16
Dim ff17 As New about_me
ff17.Show 1
Case 17
If MsgBox("您确定您要退出系统吗？", vbYesNo Or vbInformation, "提示") = vbYes Then End
End Select
End Function
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Call main.kk(Button.Index)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -