十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
这个要做一个系统的话会很庞大,你要先设置一个提纲,然后才能在提纲的范围内进行编码。你的饭店概念是酒店还是单单吃饭的地方。酒店的话就涉及到每个房间是否入住,入住人员的基本资料等等。饭店的话就只要注明吃饭的台子是否有人在使用便于安排,金额多少等等。
成都创新互联公司服务项目包括吴起网站建设、吴起网站制作、吴起网页制作以及吴起网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,吴起网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到吴起省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
你主表只需要一张.包含收款日期,金额,收款人,桌台等...
然后再做几张表,如桌台表,操作者表.
这样你在收款的窗体里,用combo控件.把桌台和操作者添加进去.可以直接选取几号桌和谁操作的。
从你的主要功能看.你做一个窗体,用listview显示所有收款数据.做一个查询,可以通过日期,收款人,桌台等进行查询.然后显示在这个litview里面.
你要做历史帐单查询,用SQL.比如你要查询两个日期之间的帐单,用的SQL语句
sql = "select * form 主表 where收款日期 between 第一个日期 and 最后一个日期"
你可以看一下别人做的一个程序源码
在这个网站还有很多类似的东西.
VB是VB6还是VB.net
VB6还是很好用的,现在网上VB6的程序还是不少的,尤其是几个经典的源码分享网站。
超市收银系统也是网上比较多见的系统,vb Delphi c# vc 的都有,属于比较常见的
祝好运,望采纳。
一楼说出了实际情况,哪种语言熟悉就用哪种---不过有些例外,写个POS收银系统,总不会去选择C或C++吧,除非你有现成的产品代码
说到正题--以本人三年相关的开发经验,首选C#/VB.net,或者其它高级语言
打个广告,本人有现成的POS收银系统及所有源码,完全版权(呵呵,这个重点强调一下)可考虑一下合作啊,基于你的需求我来做后继开发 或 把源码给你,你自己后继开发都可以,有意向的话联系,
其实推荐你用数据库比较好,excel做这种效率低(还是可以做的,但是当商品数量越来越大时就会出现问题,或者当你录入信息时失误就更可怕了),至于数据库你可以直接用Access,其他也可以,只是用Access可以更快捷的把Excel的数据转为数据库。
用Excel代码有点难
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Dim UserDataBase(1 To 2000, 1 To 2) As String
Dim UserNum As Integer
Public OpenType As Boolean
Public SumPrice As Single
Private Sub Command1_Click()
UserNum = 1
ExcelFile = App.Path "\\1.xls"
'定义Excel文件路径
Dim Price As Single
If Dir(ExcelFile) "" Then
Set xlBook = xlApp.Workbooks.Open(ExcelFile) '打开EXCEL工作簿
Do While xlBook.Sheets(1).Range("C" UserNum) ""
If Text1.Text = xlBook.Sheets(1).Range("C" UserNum) Then
Price = CSng(xlBook.Sheets(1).Range("D" UserNum)) * CSng(Text2.Text)
SumPrice = SumPrice + Price
List1.AddItem "商品名:" xlBook.Sheets(1).Range("B" UserNum) "
数量:" Text2.Text "
价格:" Price "元"
Exit Do
End If
UserNum = UserNum + 1
Loop
If xlBook.Sheets(1).Range("C" UserNum) = "" Then MsgBox "未找到条形码为" Text1.Text "的商品"
Else
MsgBox "文件未找到:" ExcelFile
End If
End Sub
Private Sub Command2_Click()
MsgBox "合计:" SumPrice "元"
End Sub
Private Sub Form_Load()
Text2.Text = 1
Command1.Caption = "添加"
Command2.Caption = "合计"
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.DisplayAlerts = False
List1.Clear
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象
End Sub
这段代码可以实现你需要的大部分功能了
两个文本框(1个输入条形码,一个输入数量),两个按钮(一个添加,一个合计),一个列表框(列出商品名,数量,单价。。。)
不想做删除物品的,也不想做重复使用的,需要的话百度hi联系
最后废话一句:excel效率真的很低
ext1.Text = a
Text2.Text = b
c = Val(Text1.Text) + Val(Text2.Text)
End Sub
我也是刚学VB,这是我自己做的。不知道能不能帮上你的忙。 随机数字(20以内)的加法。