📄 frmbfsz.frm
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Begin VB.Form FRMBFSZ
BorderStyle = 3 'Fixed Dialog
Caption = "百分数设置"
ClientHeight = 3555
ClientLeft = 45
ClientTop = 435
ClientWidth = 3705
Icon = "FRMBFSZ.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3555
ScaleWidth = 3705
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 990
OleObjectBlob = "FRMBFSZ.frx":08CA
Top = 3000
End
Begin VB.CommandButton Command2
Caption = "确 定"
Height = 465
Left = 2640
TabIndex = 12
Top = 3000
Width = 915
End
Begin VB.Frame Frame3
Caption = "及格分设置"
Height = 855
Left = 105
TabIndex = 8
Top = 2040
Width = 3495
Begin VB.TextBox Text3
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1590
TabIndex = 9
Top = 300
Width = 1155
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 225
Index = 2
Left = 210
OleObjectBlob = "FRMBFSZ.frx":4ADB9
TabIndex = 10
Top = 330
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 555
Index = 3
Left = 2880
OleObjectBlob = "FRMBFSZ.frx":4AE18
TabIndex = 11
Top = 210
Width = 285
End
End
Begin VB.Frame Frame2
Caption = "良好分设置"
Height = 855
Left = 105
TabIndex = 4
Top = 1080
Width = 3495
Begin VB.TextBox Text2
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1590
TabIndex = 5
Top = 300
Width = 1155
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 225
Index = 0
Left = 210
OleObjectBlob = "FRMBFSZ.frx":4AE6F
TabIndex = 6
Top = 330
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 555
Index = 1
Left = 2880
OleObjectBlob = "FRMBFSZ.frx":4AECE
TabIndex = 7
Top = 210
Width = 285
End
End
Begin VB.Frame Frame1
Caption = "优秀分设置"
Height = 855
Left = 105
TabIndex = 0
Top = 120
Width = 3495
Begin VB.TextBox Text1
Alignment = 2 'Center
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 1590
TabIndex = 2
Top = 300
Width = 1155
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 225
Index = 5
Left = 210
OleObjectBlob = "FRMBFSZ.frx":4AF25
TabIndex = 1
Top = 330
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4
Height = 555
Index = 10
Left = 2880
OleObjectBlob = "FRMBFSZ.frx":4AF84
TabIndex = 3
Top = 210
Width = 285
End
End
End
Attribute VB_Name = "FRMBFSZ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Command2_Click()
On Error GoTo 32755
Dim success As Long
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text1.Text > 100 Or Text2.Text > 100 Or Text3.Text > 100 Or Text1 <= Text2 Or Text2 <= Text3 Or Text1 <= Text3 Then
MsgBox "输入值有误,请输入正确数值", 64, "请输入有误"
Exit Sub
Else
success = WritePrivateProfileString("百分数设置", "优秀率", Text1.Text, App.Path & "\SET.ini")
success = WritePrivateProfileString("百分数设置", "良好率", Text2.Text, App.Path & "\SET.ini")
success = WritePrivateProfileString("百分数设置", "及格率", Text3.Text, App.Path & "\SET.ini")
Unload Me
End If
32755:
Select Case Err.Number
Case 13
MsgBox "输入值有误,请输入正确数值", 64, "请输入有误"
End Select
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("百分数设置", "优秀率", Text1.Text, buff, 256, App.Path & "\SET.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text1.Text = buff
Dim retA As Long
Dim buffA As String
buffA = String(255, 0)
retA = GetPrivateProfileString("百分数设置", "良好率", Text2.Text, buffA, 256, App.Path & "\SET.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text2.Text = buffA
Dim retV As Long
Dim buffV As String
buffV = String(255, 0)
retV = GetPrivateProfileString("百分数设置", "及格率", Text3.Text, buffV, 256, App.Path & "\SET.ini")
'若.ini MyApp中无text1，则采用叁数三的值
Text3.Text = buffV
prevWndProc = GetWindowLong(Text1.hwnd, GWL_WNDPROC)
SetWindowLong Text1.hwnd, GWL_WNDPROC, AddressOf WndProc
prevWndProc = GetWindowLong(Text2.hwnd, GWL_WNDPROC)
SetWindowLong Text2.hwnd, GWL_WNDPROC, AddressOf WndProc
prevWndProc = GetWindowLong(Text3.hwnd, GWL_WNDPROC)
SetWindowLong Text3.hwnd, GWL_WNDPROC, AddressOf WndProc
' Skin1.LoadSkin App.Path & "\SKIN\4.sk"
Skin1.ApplySkin Me.hwnd
End Sub
Function ValiText(KeyIn As Integer, ValidateString As String, _
Editable As Boolean) As Integer
On Error Resume Next
Dim ValidateList As String
Dim KeyOut As Integer
If Editable = True Then
ValidateList = UCase(ValidateString) & Chr(8)
Else
ValidateList = UCase(ValidateString)
End If
If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
KeyOut = KeyIn
Else
KeyOut = 0
Beep
End If
ValiText = KeyOut
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
KeyAscii = ValiText(KeyAscii, "0123456789.", True)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next
KeyAscii = ValiText(KeyAscii, "0123456789.", True)
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
On Error Resume Next
KeyAscii = ValiText(KeyAscii, "0123456789.", True)
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
MAIN.Enabled = True
Dim ws As Workspace
Dim db As Database
Dim rs As Recordset
For Each ws In Workspaces
For Each db In ws.Databases
For Each rs In db.Recordsets
rs.Close
Set rs = Nothing
Next
db.Close
Set db = Nothing
Next
ws.Close
Set ws = Nothing
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -