VB——消费记录及查询系统。

Vusial Basic大作业，现分享给大家。（本人已于2022/5/14提交，仅供大家学习使用，请勿直接copy。）
**

项目介绍

**
编写个人日常消费记录程序，能够记录消费时间、消费金额和消费地点，并能根据消费金额和消费地点进行查询，消费记录用文件保存。
对此，决定使用两个窗口来进行创作，第一个是消费记录窗口，第二个是消费查询窗口。

消费记录

消费记录的窗口需要实现以下几个功能，分别是实现时间、地点、金额的输入，并将输入的内容存放在文件里，同时，也需要能够跳转到消费查询界面。

窗口的布局如上。
接下来看下如何编写代码。

Option Explicit

Private Sub Command1_Click()
    Dim shi$, jin$, di$, n%, s$
    shi = Text1.Text
    jin = Text2.Text
    di = Text3.Text
                s = "您好：" & Chr(10) & "您的消费时间是：" & shi & "消费金额是：" & jin & "消费地点是：" & di & "。您的信息是否正确？"
                n = MsgBox(s, 4 + vbInformation, "提示")
    If n = 6 Then Label1.Caption = "记录成功" Else Label1.Caption = "请重新输入。"
        Dim str
    Open App.Path + "/a.txt" For Append As #1
    str = "消费时间：" + Text1.Text + "消费金额：" + Text2.Text + "消费地点：" + Text3.Text
    Write #1, str
    Close #1
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""

End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub MSFlexGrid1_Click()

End Sub

Private Sub Command3_Click()
    Form1.Hide
    Form2.Show
End Sub

从代码里可以看出，三个文本输入框，分别将内容记录下来，写到txt文件里。输入完成后，会有弹窗提示记录成功。

消费记录查询

消费记录查询的本质上是通过输入信息，再在文件里查询到，并在窗口中显示出来。

窗口如上。
下面来看具体代码。

Option Explicit
Private TargetPosition As Integer

'编写一个查找函数
Private Sub FindText(ByVal start_at As Integer, ByVal target As String)
    Dim data As String
    Dim buffer As String
    Dim pos As Integer
    Open App.Path + "/a.txt" For Input As #1
    Do While Not EOF(1)
    Line Input #1, buffer
    data = data + buffer
    Loop
    Close #1
    Text3.Text = data
    pos = InStr(start_at, Text3.Text, target)
    If pos > 0 Then
         '找到了匹配字符串
         TargetPosition = pos
         Text3.SelStart = TargetPosition - 1
         '选中找到的字符串
         Text3.SelLength = Len(target)
         Text3.SetFocus
    Else '没有找到匹配的字符串
    MsgBox "未查询到结果。"
    Text1.SetFocus
    End If
    End Sub
Private Sub Command1_Click()
    FindText 1, Text1.Text
End Sub

Private Sub Command2_Click()
    FindText 1, Text2.Text
End Sub

Private Sub Command3_Click()
    Form2.Hide
    Form1.Show
End Sub

Private Sub VScroll1_Change()

End Sub

Private Sub Command4_Click()
    FindText TargetPosition + 1, Text1.Text
End Sub

Private Sub Command5_Click()
    FindText TargetPosition + 1, Text2.Text
End Sub

至此，该项目结束。

项目资源：
添加链接描述