5.txt

一个不完整的语言编码

For i = 0 To msf.Rows - 1 
  If msf.TextMatrix(i, msf.Cols - 1) = "－" Or msf.TextMatrix(i, msf.Cols - 1) = "" Then 
    MsgBox Chr(13) + "尚未正确完成各组排名！  ", vbCritical 
    Exit Sub 
  End If 
Next i 
 
msg = Chr(13) 
msg = msg + "执行本操作后，小组战况数据将无法变动！  " + Chr(13) + Chr(13) 
msg = msg + "是否进入第二阶段赛？  " 
If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then 
Data2.DatabaseName = wmdb 
Data2.RecordSource = "score2" 
Data2.Refresh 
k = 0 
While Not Data2.Recordset.EOF 
  Data2.Recordset.Edit 
  tp = Data2.Recordset.Fields(1).Value 
  tp1 = Left(tp, 2) 
  tp2 = Right(tp, 2) 
  For i = 0 To msf.Rows - 1 
    If msf.TextMatrix(i, msf.Cols - 1) = tp1 Then 
      Data2.Recordset.Fields(2).Value = msf.TextMatrix(i, 0) 
      GoTo ct 
    End If 
    If msf.TextMatrix(i, msf.Cols - 1) = tp2 Then 
      Data2.Recordset.Fields(3).Value = msf.TextMatrix(i, 0) 
      GoTo ct 
    End If 
ct: 
  Next i 
  Data2.Recordset.Update 
  Data2.Recordset.MoveNext 
Wend 
Data2.Refresh 
Data2.Database.Close 
 
Data2.DatabaseName = wmdb 
Data2.RecordSource = "jd" 
Data2.Refresh 
Data2.Recordset.Edit 
Data2.Recordset.Fields(0).Value = 3 
Data2.Recordset.Update 
Data2.Refresh 
Data2.Database.Close 
Me.Hide 
fcon.Show 
fcon.Timer1.Enabled = True 
End If 
End Sub 
 
Private Sub Form_Load() 
Me.Caption = App.Title + "－小组战况 ［" + fco.Combo1.Text + "世界杯］" 
m0.Visible = False 
Me.Width = Screen.Width 
Me.Height = Screen.Height 
msf.Width = Me.Width - msf.Left * 3 
msf.Height = Me.Height - msf.Top - 600 
For i = 0 To 20 
  For j = 0 To 20 
    Combo1.AddItem CStr(i) + ":" + CStr(j) 
  Next j 
Next i 
Combo1.ListIndex = 0 
 
End Sub 
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
On Error Resume Next 
Data1.Database.Close 
fcon.Show 
fcon.Timer1.Enabled = True 
End Sub 
 
Private Sub m1_Click() 
tpr = msf.Row 
tpc = msf.Col 
For i = 1 To 4 
  If msf.TextMatrix(tpr, i) = "" Then 
    MsgBox Chr(13) + "“" + msf.TextMatrix(tpr, 0) + "”队比赛成绩尚未记录完全！  ", vbCritical 
    Exit Sub 
  End If 
Next i 
 
tr = (tpr \ 5) * 5 
zg = Mid(msf.TextMatrix(tr, 0), 1, 1) + "1" 
If MsgBox(Chr(13) + "是否将 " + Mid(zg, 1, 1) + " 组球队“" + msf.TextMatrix(tpr, 0) + "”排小组第 1 名？  ", vbQuestion + vbYesNo) = vbYes Then 
  For i = tr + 1 To tr + 4 
    If msf.TextMatrix(i, msf.Cols - 1) = zg Then msf.TextMatrix(i, msf.Cols - 1) = "－" 
  Next i 
  msf.TextMatrix(tpr, tpc) = zg 
  Command1_Click 
End If 
 
End Sub 
 
Private Sub m2_Click() 
tpr = msf.Row 
tpc = msf.Col 
For i = 1 To 4 
  If msf.TextMatrix(tpr, i) = "" Then 
    MsgBox Chr(13) + "“" + msf.TextMatrix(tpr, 0) + "”队比赛成绩尚未记录完全！  ", vbCritical 
    Exit Sub 
  End If 
Next i 
 
tr = (tpr \ 5) * 5 
zg = Mid(msf.TextMatrix(tr, 0), 1, 1) + "2" 
If MsgBox(Chr(13) + "是否将 " + Mid(zg, 1, 1) + " 组球队“" + msf.TextMatrix(tpr, 0) + "”排小组第 2 名？  ", vbQuestion + vbYesNo) = vbYes Then 
  For i = tr + 1 To tr + 4 
    If msf.TextMatrix(i, msf.Cols - 1) = zg Then msf.TextMatrix(i, msf.Cols - 1) = "－" 
  Next i 
  msf.TextMatrix(tpr, tpc) = zg 
  Command1_Click 
End If 
End Sub 
 
Private Sub m3_Click() 
tpr = msf.Row 
tpc = msf.Col 
For i = 1 To 4 
  If msf.TextMatrix(tpr, i) = "" Then 
    MsgBox Chr(13) + "“" + msf.TextMatrix(tpr, 0) + "”队比赛成绩尚未记录完全！  ", vbCritical 
    Exit Sub 
  End If 
Next i 
 
tr = (tpr \ 5) * 5 
zg = Mid(msf.TextMatrix(tr, 0), 1, 1) + "3" 
If MsgBox(Chr(13) + "是否将 " + Mid(zg, 1, 1) + " 组球队“" + msf.TextMatrix(tpr, 0) + "”排小组第 3 名？  ", vbQuestion + vbYesNo) = vbYes Then 
  For i = tr + 1 To tr + 4 
    If msf.TextMatrix(i, msf.Cols - 1) = zg Then msf.TextMatrix(i, msf.Cols - 1) = "－" 
  Next i 
  msf.TextMatrix(tpr, tpc) = zg 
  Command1_Click 
End If 
 
End Sub 
 
Private Sub m4_Click() 
tpr = msf.Row 
tpc = msf.Col 
For i = 1 To 4 
  If msf.TextMatrix(tpr, i) = "" Then 
    MsgBox Chr(13) + "“" + msf.TextMatrix(tpr, 0) + "”队比赛成绩尚未记录完全！  ", vbCritical 
    Exit Sub 
  End If 
Next i 
 
tr = (tpr \ 5) * 5 
zg = Mid(msf.TextMatrix(tr, 0), 1, 1) + "4" 
If MsgBox(Chr(13) + "是否将 " + Mid(zg, 1, 1) + " 组球队“" + msf.TextMatrix(tpr, 0) + "”排小组第 4 名？  ", vbQuestion + vbYesNo) = vbYes Then 
  For i = tr + 1 To tr + 4 
    If msf.TextMatrix(i, msf.Cols - 1) = zg Then msf.TextMatrix(i, msf.Cols - 1) = "－" 
  Next i 
  msf.TextMatrix(tpr, tpc) = zg 
  Command1_Click 
End If 
 
End Sub 
 
Private Sub msf_DblClick() 
If jindu = 2 Then 
c = msf.Col 
r = msf.Row 
tr = r Mod 5 
If c < msf.Cols - 1 Then 
If r Mod 5 = 0 Or c = 0 Or tr = c Then 
  MsgBox Chr(13) + "当前位置不可输入比分！ ", vbCritical 
Else 
  If tr > c Or c > 4 Then 
    MsgBox Chr(13) + "当前位置会自动填入数据！ ", vbCritical 
  Else 
    If msf.TextMatrix(r, c) <> "" Then 
      If MsgBox(Chr(13) + "这场战况已经记录，是否更新？  ", vbQuestion + vbYesNo) = vbNo Then 
        Exit Sub 
      End If 
      Sleep (500) 
    End If 
    zg = msf.TextMatrix((r \ 5) * 5, 0) 
    vs1 = msf.TextMatrix(r, 0) 
    vs2 = msf.TextMatrix((r \ 5) * 5, c) 
    msg = Chr(13) + "小组： " + zg + Chr(13) + Chr(13) + "对阵： " + vs1 + " vs " + vs2 + "  " + Chr(13) + Chr(13) + "比分： " + Combo1.Text + Chr(13) + Chr(13) + "是否记录以上战况结果？  " 
    If MsgBox(msg, vbQuestion + vbYesNo) = vbYes Then 
      msf.TextMatrix(r, c) = Combo1.Text 
      '自动计算 
      auto r, c, Combo1.Text 
      Call Command2_Click 
      Command1_Click 
    End If 
  End If 
End If 
End If 
End If 
End Sub 
 
Private Sub msf_KeyPress(KeyAscii As Integer) 
css = msf.Col 
rss = msf.Row 
If KeyAscii = 13 Then 
If jindu = 2 Then 
  If css <> msf.Cols - 1 Then 
    Call msf_DblClick 
  Else 
    If rss Mod 5 <> 0 Then 
      PopupMenu m0 
    End If 
  End If 
End If 
End If 
End Sub 
 
Private Sub msf_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 
cs = msf.Col 
rs = msf.Row 
If Button = 2 Then 
If jindu = 2 Then 
  If cs = msf.Cols - 1 Then 
    If rs Mod 5 <> 0 Then 
      PopupMenu m0 
    End If 
  End If 
End If 
End If 
End Sub 
 
Private Sub msf_RowColChange() 
If jindu = 2 Then 
mc = msf.Col 
mr = msf.Row 
If mc < msf.Cols - 1 Then 
  mtr = mr Mod 5 
  If mr Mod 5 = 0 Or mc = 0 Or mtr = mc Then 
    Label2.Caption = "提示：不可输入" 
    msf.ToolTipText = "此处无法输入数据" 
  Else 
    If mtr > mc Or mc > 4 Then 
      Label2.Caption = "提示：自动填入" 
      msf.ToolTipText = "此处自动填入数据" 
    Else 
      Label2.Caption = "对阵：" + msf.TextMatrix(mr, 0) + " vs " + msf.TextMatrix((mr \ 5) * 5, mc) 
      msf.ToolTipText = "回车或双击可将比分填入此处" 
    End If 
  End If 
Else 
  If mr Mod 5 <> 0 Then 
    Label2.Caption = "提示：回车或右键出现排名菜单" 
    msf.ToolTipText = "回车或右键出现排名菜单" 
  Else 
    Label2.Caption = "提示：不可输入" 
    msf.ToolTipText = "此处无法输入数据" 
  End If 
End If 
End If 
End Sub 
 
Private Sub Timer1_Timer() 
Timer1.Enabled = False 
Data1.DatabaseName = wmdb 
Data1.RecordSource = "score" 
Data1.Refresh 
For i = 0 To msf.Cols - 1 
  msf.ColWidth(i) = 850 
Next i 
For i = 0 To msf.Rows - 1 
  msf.RowHeight(i) = 850 
Next i 
 
msf.ToolTipText = "" 
Label2.Caption = "提示：" 
 
If jindu <> 2 Then 
  Label2.Caption = "提示：数据无法变动" 
  Command3.Enabled = False 
Else 
  Command3.Enabled = True 
End If 
 
End Sub