📄 frmchax0.frm
字号:
Caption = "W"
Height = 195
Index = 11
Left = 1365
TabIndex = 18
Top = 4830
Width = 180
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "T"
Height = 195
Index = 10
Left = 1365
TabIndex = 17
Top = 4935
Width = 120
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "M"
Height = 195
Index = 9
Left = 1260
TabIndex = 16
Top = 4830
Width = 150
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "7"
Height = 195
Index = 8
Left = 1470
TabIndex = 15
Top = 5355
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "6"
Height = 195
Index = 7
Left = 1365
TabIndex = 14
Top = 4830
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "5"
Height = 195
Index = 6
Left = 1470
TabIndex = 13
Top = 5040
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "4"
Height = 195
Index = 5
Left = 1365
TabIndex = 12
Top = 4935
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "3"
Height = 195
Index = 4
Left = 1470
TabIndex = 11
Top = 4935
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "2"
Height = 195
Index = 3
Left = 1365
TabIndex = 10
Top = 5040
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "1"
Height = 195
Index = 2
Left = 1260
TabIndex = 9
Top = 4935
Width = 90
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "休"
Height = 195
Index = 1
Left = 1365
TabIndex = 8
Top = 5355
Width = 180
End
Begin VB.Label Label2
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00FFFFFF&
Caption = "午"
Height = 195
Index = 0
Left = 1260
TabIndex = 7
Top = 4935
Width = 180
End
Begin VB.Shape Shape1
BorderWidth = 2
FillColor = &H008080FF&
FillStyle = 0 'Solid
Height = 3480
Index = 0
Left = 105
Top = 2220
Width = 2850
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 1365
X2 = 1575
Y1 = 2415
Y2 = 2100
End
Begin VB.Label Label1
BackColor = &H0000FFFF&
Caption = "Label1"
Height = 225
Left = 90
TabIndex = 0
Top = 1785
Width = 2850
End
End
Attribute VB_Name = "frmchax0"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'c:\vb\frmchaxo.frm code
Dim bjexp() As bjtype
Dim kcexp() As kctype
Dim bjlist() As String * 24
Dim pi, alf As Single
Dim bjs As Integer: Dim njs As Integer
Dim jss As Integer: Dim kcs As Integer
Dim x0, y0 As Integer
Dim xqq As Integer
Dim xq1, jh1 As Integer
Dim t As Integer
Dim twoclick As Boolean
Function xqj$(nxq)
Select Case nxq
Case 0
xqj$ = "一"
Case 1
xqj$ = "二"
Case 2
xqj$ = "三"
Case 3
xqj$ = "四"
Case 4
xqj$ = "五"
Case 5
xqj$ = "六"
Case 6
xqj$ = "日"
Case -1
xqj$ = "天"
End Select
End Function
Function getxq(s As String) As Integer
Select Case s
Case Is = "一"
getxq = 0
Case Is = "二"
getxq = 1
Case Is = "三"
getxq = 2
Case Is = "四"
getxq = 3
Case Is = "五"
getxq = 4
End Select
End Function
Private Sub Cmdxlin_Click()
Unload Me
Load Frmin
Frmin.Visible = True
End Sub
Private Sub cmdxlout_Click()
Load frmexcel
frmexcel.Show
End Sub
Private Sub Command3_Click()
'Load MDIF
'MDIF.Visible = True
Load frmhelp
frmhelp.Visible = True
End Sub
Private Sub Command5_Click()
frmchax0.Hide
Load frmprint
frmprint.Show
End Sub
Private Sub Label1_Change()
twoclick = fasle
End Sub
Public Sub Label4_DblClick()
Dim ansp As Integer
ansp = MsgBox("确实要打印本屏吗？", vbYesNo, "PK10--实时显示")
If ansp = 7 Then Exit Sub
frmchax0.PrintForm
End Sub
Public Sub List1_DblClick()
'------ change for jiemi
'If dj = False Then Exit Sub 'MsgBox Mid$(List1.List(8), 14, 3)
'-------
If twoclick = True Then Exit Sub
Open App.Path + "\kc.ran" For Random As #8 Len = 18
Open App.Path + "\zkcshu.bin" For Binary As #1
Get #1, 1, zkcs: Close #1
ReDim minghao(zkcs)
ReDim kcexp(zkcs)
k = 0 'set js-minghao()
For i = 1 To zkcs 'array ,it's total
Get #8, i, kcexp(i) 'number is jss%=k
For j = 1 To i - 1 'start from No:1
If kcexp(i).kcjsm = minghao(j) Then
GoTo l1
End If
Next j
k = k + 1
minghao(k) = kcexp(i).kcjsm
l1:
Next i
jss% = k
Close #8
Dim wkm() As String * 8
Dim l As Integer
l = 1
ReDim wkm(k)
For i = 1 To jss%
Text1.Text = Left$(minghao(i), 3)
'MsgBox "H" + Mid$(Text1.Text, 3, 1) + "H"
For j = 0 To List1.ListCount - 1
Text2.Text = Mid$(List1.list(j), 14, 4)
'MsgBox Text2.Text
If Left$(Text1.Text, 3) = Left$(Trim$(Text2.Text), 3) Then GoTo nexi
If Mid$(Text1.Text, 3, 1) = " " Then
If Left$(Text1.Text, 2) = Left$(Trim$(Text2.Text), 2) Then GoTo nexi
End If
Next j
wkm(l) = minghao(i)
l = l + 1
nexi:
Next i
'MsgBox Str(k) + "+" + Str(l - 1)
List1.Clear
For i = 1 To l - 1
Text1.Text = wkm(i)
List1.AddItem Text1.Text, i - 1
Next i
List1.AddItem "无课教师名单:", 0
twoclick = True
End Sub
Private Sub List1_LostFocus()
twoclick = False
End Sub
Private Sub Texthelp_Click()
'Texthelp = ""
'Texthelp = jskbs(30).js
'For i = 0 to class-1 'UBound(minghao())
'For j = 0 to day-1
'If jskbs(30).rkbiao(i, j) <> "" Then
'Texthelp.Text = Texthelp.Text + jskbs(30).rkbiao(i, j) + "+" ' jskbs(1).js
'Else
'Texthelp.Text = Texthelp.Text + "bland" + "+" ' jskbs(1).js
'End If
'Next j
'Next i
End Sub
Sub timer3_timer()
Dim string1, string2 As String
'If xqq = 0 Or xqq = 6 Or xqq = 7 And Timer1.Enabled = True Then List1.Clear
If jh1 = jh And xq1 = xq Then Exit Sub
jh1 = jh: xq1 = xq ': MsgBox CStr(jh1) + CStr(xq1)
'frmchax0.Caption = "+" + CStr(jh1) + "+" + CStr(xq1)
List1.Clear
'tbjs = 3: tjss = 4
Dim biao As jsrkbiao
ReDim bjexp(bjs) As bjtype: ReDim bjlist(bjs) 'write b-j to combo1.list
Open App.Path + "\bj.ran" For Random As #6 Len = 18
For i = 1 To bjs
Get #6, i, bjexp(i)
Text1.Text = bjexp(i).bjnjm: Text2.Text = bjexp(i).bjbjm
bjlist(i) = Trim$(Text1.Text) & " " & Trim$(Text2.Text) & "."
Next i
Close #6
''del for jskbs Open app.path+"\jsrkbiao.ran" For Random As #3 Len = Len(biao)
For i = 1 To bjs
For j = 1 To jss
''del for jskbs Get #3, j, biao
Text1.Text = jskbs(j).rkbiao(jh1, xq1)
Text2.Text = Trim$(Left$(jskbs(j).js, 4))
'----------------------
If Text1.Text Like Trim$(bjlist(i)) + "*" Then 'text1.text 'Then 'Or Trim$(Left$(Text1.Text, 6)) + " " + Trim$(Mid$(Text1.Text, 7, 2)) = Trim$(bjlist(j)) Then ' Or Left$(Text1.Text, 6) = Trim$(bjlist(j)) Then
If Mid$(Text1.Text, 8, 1) = "." Then
bjlist(i) = Left$(Text1.Text, 7) + " " + Mid$(Text1.Text, 8, 3) + " " + Text2.Text
Else
bjlist(i) = Left$(Text1.Text, 11) + " " + Text2.Text '
End If
GoTo lp
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -