boss.frm

征途BOSS计时及各职业技能书查询小程序

ElseIf Check2.Value = 1 And Check1.Value = 0 Then
sort2
Else
sort
End If
If Check1.Value = 1 And Check2.Value = 1 Then
MsgBox "对不起，你不能同时选择两个排序条件", vbOKOnly + vbInformation, "征途辅助"
Exit Sub
End If
End Sub

Private Sub Command3_Click()
'读数据文件
If Text1.Text <> "" Then Text1.Text = "" '如果有数据清除
wrap = Chr(10) + Chr(13) + Chr(10)
Open App.Path & "\BossRefresh.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, lineoftext
Text1.Text = Text1.Text & lineoftext & wrap
Text1.Text = Text1.Text & wrap
Loop
Close #1
End Sub

Private Sub Command4_Click()
FormBossQuery.Hide
FormBossRemainTime.Show
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Command5_Click()
'添加到列表栏中
If Text2(3).Text <> "普通怪" And Len(Text2(1).Text) <> 0 Then
    FormBossRemainTime.List1.AddItem Text2(1).Text & Text2(2).Text & Text2(3).Text
    Command4.Enabled = True '启用计时功能按钮
    
ElseIf Text2(3).Text = "普通怪" Then
        MsgBox "你选择的怪物类型不正确" + vbCrLf + "怪物类型应该是蓝/金/绿色BOSS/紫色BOSS中的一种", vbOKOnly + vbInformation, "征途辅助"
End If

            For i = 1 To 4
                If Text2(i).Text = "" Then
                MsgBox "请点击相应的行以添加Boss信息!", vbOKOnly + vbInformation, "征途辅助"
            Exit For
                Command5.Enabled = False
                End If
            Next i
            '如果是普通怪类型
                   
                    For i = 1 To 4
                    '清空文本框中的数据,
                    Text2(i).Text = ""
                    Next i
                    If FormBossRemainTime.List1.List(0) <> "" Then
                        If MsgBox("已成功添加,还要继续添加BOSS信息吗?", vbYesNo + vbExclamation) = vbYes Then
                        Command4.Value = False
                        Else
                        Command4.Value = True
                        End If
                    End If
         '删除formbossremaintime表单中的BOSS列表中的重复项目
    For i = 0 To FormBossRemainTime.List1.ListCount - 1
    For j = 0 To FormBossRemainTime.List1.ListCount - 1
    If i = j Then GoTo tt
        If FormBossRemainTime.List1.List(j) = FormBossRemainTime.List1.List(i) Then
        FormBossRemainTime.List1.RemoveItem j
        End If
tt:     Next j
Next i
End Sub


Private Sub Command6_Click()
FormBossQuery.Hide
FormHelp.Show
End Sub


Private Sub Command7_Click()
End
End Sub


Private Sub Command8_Click()
find9
'显示技能说明
Set rst = db.OpenRecordset("select Skill.Descript from Skill where Skill.Name=" + Chr(34) + Text3.Text + Chr(34) + "")
rst.MoveFirst
Do Until rst.EOF
Label6.Caption = rst!Descript
Exit Do
Loop
End Sub



Private Sub Form_Activate()
title
sort
showbosscolor '给不同的boss以特定的颜色识别
'默认为按怪物类型排序
Check2.Value = 1
Text3.SetFocus  '得到焦点
End Sub

Sub title()
MSFlexGrid1.ColWidth(1) = 25 * 30
MSFlexGrid1.ColWidth(2) = 25 * 60
MSFlexGrid1.ColWidth(3) = 25 * 90
MSFlexGrid1.ColWidth(4) = 25 * 80
MSFlexGrid1.TextMatrix(0, 2) = "BOSS所在的地图"
MSFlexGrid1.TextMatrix(0, 3) = "BOSS名称"
MSFlexGrid1.TextMatrix(0, 4) = " BOSS类型"
MSFlexGrid1.TextMatrix(0, 5) = " BOSS等级"
End Sub



Private Sub Form_Load()
'将表单置于屏幕中心位置
FormBossQuery.Top = (Screen.Height - FormBossQuery.Height) / 2
FormBossQuery.Left = (Screen.Width - FormBossQuery.Width) / 2
'显示没有boss出现的信息
Label14.Caption = CaptionBossNo
'禁用查看按钮,因为最初是没有Boss怪出现的
cmdBrowse.Enabled = False
Set db = OpenDatabase(App.Path & "\SkillBookLost.mdb") '打开数据库
Data1.DatabaseName = App.Path & "\SkillBookLost.mdb"
SQL = "select distinct BossAppearMap  from boss "
SQL1 = "select distinct BossType from boss"
SQL2 = "select distinct BossName from boss"
SQL3 = "select distinct BossLevel from boss "
SQL4 = "select   Name   from Occupation order by OccupationID"
Set rst = db.OpenRecordset(SQL)
Set rst1 = db.OpenRecordset(SQL1)
Set rst2 = db.OpenRecordset(SQL2)
Set rst3 = db.OpenRecordset(SQL3)
Set rst4 = db.OpenRecordset(SQL4)
'将boss的出现点加入列表框1
Do Until rst.EOF
Combo1.AddItem rst.Fields("BossAppearMap").Value
rst.MoveNext
Loop
Combo1.Text = BossAppearMap
'将boss的类型加入列表框2
Do Until rst1.EOF
Combo2.AddItem rst1.Fields("BossType").Value
rst1.MoveNext
Loop
Combo2.Text = BossType
'将boss的名称加入列表框3
rst2.MoveFirst
Do Until rst2.EOF
Combo3.AddItem rst2!BossName
rst2.MoveNext
Loop
Combo3.Text = BossName
'将boss的等级加入列表框4
Do Until rst3.EOF
Combo4.AddItem rst3.Fields("BossLevel").Value
rst3.MoveNext
Loop
Combo4.Text = BossLevel
'将职业名称加入列表框5
rst4.MoveFirst
Do Until rst4.EOF
Combo5.AddItem rst4!Name
rst4.MoveNext
Loop
Command4.Enabled = False
End Sub
Sub find1()
'根据出现地点和怪物类型组合查询
Data1.RecordSource = "select * from boss where BossAppearMap = " + Chr(34) + Combo1.Text + Chr(34) + "and BossType=" + Chr(34) + Combo2.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find2()
'根据怪物名称模糊查询
Data1.RecordSource = "select * from boss where Bossname=" + Chr(34) + Combo3.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find3()
'根据怪物等级模糊查询
Data1.RecordSource = "select * from boss where Bosslevel = " + Chr(34) + Combo4.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find4()
'根据怪物类型模糊查询
Data1.RecordSource = "select * from boss where Bosstype = " + Chr(34) + Combo2.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find5()
'根据出现地点和怪物等级组合查询
Data1.RecordSource = "select * from boss where BossAppearMap = " + Chr(34) + Combo1.Text + Chr(34) + "and Bosslevel=" + Chr(34) + Combo4.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find6()
'根据怪物类型和怪物等级组合查询
Data1.RecordSource = "select * from boss where Bosstype = " + Chr(34) + Combo2.Text + Chr(34) + "and Bosslevel=" + Chr(34) + Combo4.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find7()
'根据怪物出现地点模糊查询
Data1.RecordSource = "select * from boss where Bossappearmap = " + Chr(34) + Combo1.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find8()
'根据技能书名称查询掉落的怪物
Data1.RecordSource = " SELECT [Boss].[BossID],[BossAppearMap], [Boss].[BossName], [Boss].[BossType], [Boss].[BossLevel], [Skill].[Name]  FROM Skill INNER JOIN (Boss INNER JOIN BossLost ON [Boss].[BossID] =[BossLost].[BossID]) ON [Skill].[SkillID] =[BossLost].[SkillID] where [Skill].[Name] =" + Chr(34) + Combo7.Text + Chr(34) + ""
Data1.Refresh
End Sub
Sub find9()
'根据输入技能名称查找掉落的怪物列表
Data1.RecordSource = " SELECT [Boss].[BossID],[BossAppearMap], [Boss].[BossName], [Boss].[BossType], [Boss].[BossLevel] ,[Skill].[Name] FROM Skill INNER JOIN (Boss INNER JOIN BossLost ON [Boss].[BossID] =[BossLost].[BossID]) ON [Skill].[SkillID] =[BossLost].[SkillID] where [Skill].[Name] =" + Chr(34) + Text3.Text + Chr(34) + ""
Data1.Refresh
showbosscolor
End Sub
Sub ShowAll()
'显示全部数据
Data1.RecordSource = "select * from boss"
Data1.Refresh
title
'还原最初设置
Combo1.Text = BossAppearMap
Combo2.Text = BossType
Combo3.Text = BossName
Combo4.Text = BossLevel
End Sub
Sub sort()
'按怪物ID号排序
'将第1列设置为排序关键字
MSFlexGrid1.Col = 1
'利用升序的方式排序
MSFlexGrid1.sort = 1
End Sub
Sub sort1()
'按怪物等级排序
'将第5列设置为排序关键字
'隐藏怪物ID记录
MSFlexGrid1.ColWidth(1) = 0
MSFlexGrid1.Col = 5
'利用降序的方式排序
MSFlexGrid1.sort = 1
End Sub
Sub sort2()
'按怪物类型排序
'将第4列设置为排序关键字
'隐藏怪物ID记录
MSFlexGrid1.ColWidth(1) = 0
MSFlexGrid1.Col = 4
'利用降序的方式排序
MSFlexGrid1.sort = 1
End Sub

Private Sub showbosscolor()
'用不同的颜色区分不同的怪的类型
MSFlexGrid1.FillStyle = flexFillSingle
 '如果用户已经选择了一个怪物类型
    For i = 0 To MSFlexGrid1.Cols - 1
        For j = 1 To MSFlexGrid1.Rows - 1
'如果当前的单元与列表框2中的文本匹配
            Select Case MSFlexGrid1.TextMatrix(j, i)
                Case "蓝怪" '如果怪物类型是蓝怪
'选中单元并把颜色设置为蓝色
                MSFlexGrid1.Col = i
                MSFlexGrid1.Row = j
                MSFlexGrid1.CellBackColor = &HFFC0C0
                Case "金怪"
'选中单元并把颜色设置为金色 '如果怪物类型是金怪
                MSFlexGrid1.Col = i
                MSFlexGrid1.Row = j
                MSFlexGrid1.CellBackColor = &H8CCCFF
                Case "绿色BOSS" '如果怪物类型是绿色BOSS
'选中单元并把颜色设置为绿色
                MSFlexGrid1.Col = i
                MSFlexGrid1.Row = j
                MSFlexGrid1.CellBackColor = vbGreen
                 Case "紫色BOSS" '如果怪物类型是紫色BOSS
'选中单元并把颜色设置为紫色
                MSFlexGrid1.Col = i
                MSFlexGrid1.Row = j
                MSFlexGrid1.CellBackColor = &HFF80FF
            End Select
        Next j
    Next i

End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub List1_Click()
Text3.Text = List1.Text '把组合框中的技能书名称赋给文本框
List1.Visible = False  '不显示技能书组合框
End Sub

Private Sub MSFlexGrid1_Click()
If MSFlexGrid1.Cols > 2 Then
For i = 0 To MSFlexGrid1.RowSel
For j = 1 To 4
Text2(j).Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, (j + 1)) '将表格行的数据加入到文本框中
Next j
Next i
Else
MsgBox "数据已加入到BOSS列表框中,请点击下拉列表框选择", vbOKOnly + vbInformation, FormBossQuery.Caption
End If
If Text2(1).Text <> "" Then Command5.Enabled = True
End Sub
Sub ItemClear()
If Combo6.List(1) <> "" Then Combo6.Clear
End Sub
Sub ItemClearA()
If Combo7.List(1) <> "" Then Combo7.Clear
End Sub


Private Sub Text3_Change()
search_book_PY
    If List1.List(0) <> "" Then
    List1.Clear         '清空组合框中的技能书名称
search_book_PY
    End If
End Sub

Private Sub Text3_Click()
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
End Sub
Sub search_book_PY() '该函数实现输入技能书的拼音模糊查询功能
sql7 = "SELECT  Skill.Name FROM Skill where Skill.Jc like" + Chr(34) + Text3.Text + "*" + Chr(34) + ""
Set rst7 = db.OpenRecordset(sql7)
Do While Not rst7.EOF
    List1.Visible = True '显示技能书组合框
    List1.AddItem rst7!Name
    rst7.MoveNext
Loop
End Sub