13518219792
这个要做一个系统的话会很庞大，你要先设置一个提纲，然后才能在提纲的范围内进行编码。你的饭店概念是酒店还是单单吃饭的地方。酒店的话就涉及到每个房间是否入住，入住人员的基本资料等等。饭店的话就只要注明吃饭的台子是否有人在使用便于安排，金额多少等等。
成都创新互联公司服务项目包括吴起网站建设、吴起网站制作、吴起网页制作以及吴起网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，吴起网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到吴起省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
你主表只需要一张.包含收款日期,金额,收款人,桌台等...
然后再做几张表,如桌台表,操作者表.
这样你在收款的窗体里,用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以内）的加法。
