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

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——消费记录及查询系统。相关推荐

基于java的商场VIP会员消费查询系统——计算机毕业设计
本次毕业课程设计为了解决传统的商场运营模式,只是简单的记录当天营业额,无法与实际的购买人相关连,无法直观的了解购买人的购买次数,第一次购物与多次购物的人享受同等待遇,从而不能形成有效的消费激励机制,为 ...
查询最后一次消费记录
/* 查询最后一次消费记录表结构如下 create table TESTSHIC ( NAME VARCHAR2(50), CREATE_DATE DATE, DAL ...
办北京居住证，定制社保缴费记录，个人权益记录最近6个月的查询与打印，社保，北京市社会保险，北京市社会保险网上服务平台，北京市社会保险网上申报查询系统
20200519编辑 http://fuwu.rsj.beijing.gov.cn/csibiz/indinfo/index.jsp 必须要最近六个月的,网上是延迟2个月的,比如这个现在是5月份,就得 ...
python个人健康自助记录查询系统毕业设计源码152015
Python个人健康自助记录查询系统摘要目前随着人们对健康认识的不断深入,健康观念也正在由有病治病向无病预防的方向改变,人们开始更加注重生活的质量,追求更健康,更长寿.因此,开发一个面向个人和家 ...
（附源码）python个人健康自助记录查询系统毕业设计 152015
Python个人健康自助记录查询系统摘要目前随着人们对健康认识的不断深入,健康观念也正在由有病治病向无病预防的方向改变,人们开始更加注重生活的质量,追求更健康,更长寿.因此,开发一个面向个人和家 ...
（毕业设计）python个人健康自助记录查询系统 152015
Python个人健康自助记录查询系统摘要目前随着人们对健康认识的不断深入,健康观念也正在由有病治病向无病预防的方向改变,人们开始更加注重生活的质量,追求更健康,更长寿.因此,开发一个面向个人和家 ...
（附源码）python个人健康自助记录查询系统毕业设计152015
Python个人健康自助记录查询系统摘要目前随着人们对健康认识的不断深入,健康观念也正在由有病治病向无病预防的方向改变,人们开始更加注重生活的质量,追求更健康,更长寿.因此,开发一个面向个人和家 ...
VB.net版机房收费系统——结账功能实现（调错与优化）
调错部分上一篇博客<VB.net版机房收费系统--结账功能实现(代码部分>说的是结账功能的实现,亮出了代码.是在为这篇博客做铺垫.尽管结账功能代码是借鉴的巨人的博客.可是自己比着葫芦画瓢 ...
基于javaweb的公交查询系统的设计与实现(含源文件)
欢迎添加微信互相交流学习哦! 项目源码:https://gitee.com/oklongmm/biye 基于J2EE的公交查询系统的设计与实现摘要公交查询系统是城市道路交通的重要组成部分,是城 ...

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

项目介绍

消费记录

消费记录查询

VB——消费记录及查询系统。相关推荐

最新文章

热门文章