Vusial Basic大作業，現分享給大家。（本人已于2022/5/14提交，僅供大家學習使用，請勿直接copy。）
**

項目介紹

**
編寫個人日常消費記錄程序，能夠記錄消費時間、消費金額和消費地點，并能根據消費金額和消費地點進行查詢，消費記錄用文件保存。
對此，決定使用兩個窗口來進行創作，第一個是消費記錄窗口，第二個是消費查詢窗口。

消費記錄

消費記錄的窗口需要實現以下幾個功能，分別是實現時間、地點、金額的輸入，并將輸入的內容存放在文件里，同時，也需要能夠跳轉到消費查詢界面。

窗口的布局如上。
接下來看下如何編寫代碼。

Option ExplicitPrivate Sub Command1_Click()Dim shi$, jin$, di$, n%, s$shi = Text1.Textjin = Text2.Textdi = Text3.Texts = "您好：" & Chr(10) & "您的消費時間是：" & shi & "消費金額是：" & jin & "消費地點是：" & di & "。您的信息是否正確？"n = MsgBox(s, 4 + vbInformation, "提示")If n = 6 Then Label1.Caption = "記錄成功" Else Label1.Caption = "請重新輸入。"Dim strOpen App.Path + "/a.txt" For Append As #1str = "消費時間：" + Text1.Text + "消費金額：" + Text2.Text + "消費地點：" + Text3.TextWrite #1, strClose #1Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubPrivate Sub Command2_Click()End End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub MSFlexGrid1_Click()End SubPrivate Sub Command3_Click()Form1.HideForm2.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 StringDim buffer As StringDim pos As IntegerOpen App.Path + "/a.txt" For Input As #1Do While Not EOF(1)Line Input #1, bufferdata = data + bufferLoopClose #1Text3.Text = datapos = InStr(start_at, Text3.Text, target)If pos > 0 Then'找到了匹配字符串TargetPosition = posText3.SelStart = TargetPosition - 1'選中找到的字符串Text3.SelLength = Len(target)Text3.SetFocusElse '沒有找到匹配的字符串MsgBox "未查詢到結果。"Text1.SetFocusEnd IfEnd Sub Private Sub Command1_Click()FindText 1, Text1.Text End SubPrivate Sub Command2_Click()FindText 1, Text2.Text End SubPrivate Sub Command3_Click()Form2.HideForm1.Show End SubPrivate Sub VScroll1_Change()End SubPrivate Sub Command4_Click()FindText TargetPosition + 1, Text1.Text End SubPrivate Sub Command5_Click()FindText TargetPosition + 1, Text2.Text End Sub

至此，該項目結束。

項目資源：
添加鏈接描述

總結

以上是生活随笔為你收集整理的VB——消费记录及查询系统。的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。