首页 > 编程语言 >Visual Studio 2010旗舰版的VB.NET版本仓库库存管理系统的窗体应用程序

Visual Studio 2010旗舰版的VB.NET版本仓库库存管理系统的窗体应用程序

时间:2024-08-20 12:51:08浏览次数:15  
标签:Dim VB Name Commodity commodity commodities Visual 窗体 Sub

Public Class Form1

' 定义商品类
Class Commodity
    Public Name As String
    Public Quantity As Integer
    Public Price As Double
End Class

' 商品列表
Private commodities As New List(Of Commodity)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 初始化一些商品数据
    commodities.Add(New Commodity With {.Name = "商品 1",.Quantity = 100,.Price = 20.0})
    commodities.Add(New Commodity With {.Name = "商品 2",.Quantity = 80,.Price = 30.0})
    commodities.Add(New Commodity With {.Name = "商品 3",.Quantity = 120,.Price = 25.0})

    ' 初始化界面元素
    Button1.Text = "添加商品"
    Button2.Text = "查看库存"
    Button3.Text = "出库商品"
    Button4.Text = "继续"
    Button5.Text = "退出"
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ' 添加商品的逻辑
    Dim name As String = InputBox("请输入商品名称")
    Dim quantity As Integer = CInt(InputBox("请输入商品数量"))
    Dim price As Double = CDbl(InputBox("请输入商品价格"))

    Dim newCommodity As New Commodity
    newCommodity.Name = name
    newCommodity.Quantity = quantity
    newCommodity.Price = price

    commodities.Add(newCommodity)

    MessageBox.Show("商品添加成功!")
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ' 查看库存的逻辑
    Dim listText As String = "库存列表:" & vbCrLf
    For Each commodity In commodities
        listText &= $"名称:{commodity.Name},数量:{commodity.Quantity},价格:{commodity.Price}" & vbCrLf
    Next
    MessageBox.Show(listText)
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    ' 出库商品的逻辑
    Dim outName As String = InputBox("请输入要出库的商品名称")

    Dim foundCommodity As Commodity = Nothing
    For Each commodity In commodities
        If commodity.Name = outName Then
            foundCommodity = commodity
            Exit For
        End If
    Next

    If foundCommodity IsNot Nothing Then
        Dim outQuantity As Integer = CInt(InputBox("请输入出库数量"))

        If outQuantity <= foundCommodity.Quantity Then
            foundCommodity.Quantity -= outQuantity
            MessageBox.Show($"出库成功,剩余数量:{foundCommodity.Quantity}")
        Else
            MessageBox.Show("库存不足,无法出库。")
        End If
    Else
        MessageBox.Show("未找到该商品。")
    End If
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    ' 继续(返回主菜单)的逻辑
    MessageBox.Show("返回主菜单")
End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
    ' 退出的逻辑
    Me.Close()
End Sub

End Class

标签:Dim,VB,Name,Commodity,commodity,commodities,Visual,窗体,Sub
From: https://blog.csdn.net/qq_32257509/article/details/141355554

相关文章

  • WPF中的视觉树(VisualTree)和逻辑树(LogicalTree)
    可视化树和逻辑树我们先来理解一下什么是可视化树和逻辑树。通俗点来说,可视化树就是在XAML中定义的或者代码添加的元素组成的树。就像下面这样1<Grid>2<ButtonHorizontalAlignment="Center"VerticalAlignment="Center"Content="点击我"Click="Button_Click"><......
  • WPF Window窗体隐藏标题栏
    一、Window窗体隐藏标题栏1.当想弹出一个窗口的时候,一般会使用ShowDialog()方法,但是Page和UserControl页面没有ShowDialog()方法,那就只能用Window界面,但某些窗口不需要标题栏。使用以下代码隐藏标题栏,同时把标题栏高度设置为0。CaptionHeight属性不为0时,标题栏......
  • Visual Studio 2013 jsoncpp 0.10.7库编译
    前言全局说明VisualStudio2013jsoncpp编译jsoncpp介绍说明:https://www.cnblogs.com/wutou/p/18367551一、说明环境:Windows7旗舰版VisualStudio2013二、选择根据vs2013工具环境和jsoncpp介绍,这里选用0.10.7版本演示三、准备3.1解压文件进入m......
  • VisualStudio 产生的.sdf和.ipch文件删除、不生成
    前言全局说明VisualStudio产生的.sdf和.ipch文件删除、不生成一、说明环境:Windows7旗舰版VisualStudio2013二、原因某天,打算给vs2013的一个工程,打包备份,打包后,发现压缩包有90MB,看到数字确实很惊讶。因为这个工程就是画了几个按钮的小功能,怎么会这么大。......
  • Visual Studio 2013 自定义动态库dll文件lib存放路径
    前言全局说明VisualStudio2013自定义lib存放路径一、说明环境:Windows7旗舰版VisualStudio2013二、设置说明在一个功能比较全的项目中,有可能会引入第三方库来完成某些功能,为了让目录结构、文件,清晰,会将引入的dll文件,放置到一个独立目录里。这样方便管理,也便......
  • VBA学习(48):利用ADO操作Excel工作表数据
    VBA可以利用ADO创建SQL,从而实现在不打开Excel工作簿的情况下,对工作表的数据进行读写等操作。对于数据量比较大的Excel工作簿,利用ADO模型可以大大提高性能。案例数据D盘有ExcelSQL数据库.xlsx工作簿,工作簿内有【员工信息】工作表,其字段包含工号、姓名、部门、性别和年龄。使......
  • visual studio当中动态库和静态库的联系
    一、为什么要写这篇博客公司需要调用MNN框架编译之后的动态库和静态库文件来在另外一台没有编译过MNN框架上的机器运行对应的程序,比如说人体关键点检测之类的程序,这个时候了解静态库和动态库的关系就很有必要了。二、现代编译器编译流程源代码(sourcecode)→预处理器(preprocess......
  • Excel vba自定义函数公式智能提示
    效果如下第一步下载,智能提示显示xll文件Releases·Excel-DNA/IntelliSense(github.com)xll文件报病毒解决办法默认情况下,Excel正在阻止不受信任的XLL加载项-Microsoft支持 第二步,加载xll文件,xll文件放在excel插件目录:%appdata%\Microsoft\AddIns 第三步编写e......
  • Visual Studio使用Git进行代码版本管理
    一、VisualStudio创建一个项目1、在VisualStudio中创建一个项目,我创建的项目名称是"mainApi"二、Gitee中新建仓库1、右上角点击【个人头像】,选择【新建仓库】2、输入对应的信息,点击【创建】-(1)输入仓库名称,一般与本地程序名称一致-(2)介绍一下该仓库是干什么的,也可以不......
  • VisualVM第二章-Threads
    ThreadsTab页介绍线程Tab页分三个部分:线程数量统计、线程取样、线程状态线程数量统计左上角统计了当前存线程数以及守护线程数。ThreadDump线程取样,点击ThreadDump可以对当前程序运行的线程进行取样分析。取样文件默认存储在临时目录:你还可以对当前dump文件另存......