vb饭堂系统(vb课程设计点餐系统)

vb6.0程序设计——饭店点菜、结算系统

做个数据库吧,

首先

规划下项目,功能,模块,流程....

然后

依照规划,

后台mssql2000或者msaccess做数据库,建些表,

前台用vb.

窗体如图

属性设置：

form1-caption:顾客点菜单

list1:multiselect=2style=0

list2:multiselect=0style=1

command1:caption=添加

command2=caption=删除

lable1:caption=饭店菜谱

lable2:caption=顾客点菜

代码：

Private Sub Form_Load()

List1.AddItem "*******" '以下格式相同（*表示菜名）

End Sub

Private Sub Command1_Click()

Dim i% '定义循环变量

For i = List1.ListCount - 1 To 0 Step -1

If List1.Selected(i) Then '判断是否被选中

List2.AddItem List1.List(i) '在list2中添加list1中被选中的

List1.RemoveItem i

End If

Next i

End Sub

Private Sub Command2_Click()

Dim i%

For i = List2.ListCount - 1 To 0 Step -1

If List2.Selected(i) Then

List1.AddItem List2.List(i)

List2.RemoveItem i '从List2中删除此选中项

End If

Next i

End Sub

利用VB程序怎么能设计一个饭店点菜系统？求过程。。。。

模块,流程....

然后

依照规划,

后台mssql2000或者msaccess做数据库,建些表,

前台用vb.

窗体如图

属性设置：

form1-caption:顾客点菜单

list1:multiselect=2style=0

list2:multiselect=0style=1

command1:caption=添加

command2=caption=删除

lable1:caption=饭店菜谱

lable2:caption=顾客点菜

代码：

Private Sub Form_Load()

List1.AddItem "*******" '以下格式相同（*表示菜名）

End Sub

Private Sub Command1_Click()

Dim i% '定义循环变量

For i = List1.ListCount - 1 To 0 Step -1

If List1.Selected(i) Then '判断是否被选中

List2.AddItem List1.List(i) '在list2中添加list1中被选中的

List1.RemoveItem i

End If

Next i

End Sub

Private Sub Command2_Click()

Dim i%

For i = List2.ListCount - 1 To 0 Step -1

If List2.Selected(i) Then

List1.AddItem List2.List(i)

List2.RemoveItem i '从List2中删除此选中项

End If

Next i

End Sub

vb6.0程序设计——点菜系统

多加一个数组将各个东西的售出次数记下来，然后在“结算”完成后重新刷新排行榜。

VB点菜系统代码，谁能免费告我一下。。谢谢了。我们要交作业。

VB点菜系统代码，谁能免费告我一下。。谢谢了。我们要交作业。

浏览次数：13次悬赏分：0 | 离问题结束还有 9 小时 | 提问者：lieruge4 | 检举

还能输入 9999 字

插入图片插入地图

参考资料：匿名回答

提交回答

回答 共1条

哥哥 这个是要花钱滴 你连个悬赏分都没有 谁帮你呀 我不会做 但是你给点分 别人才愿意帮你忙呀 我帮你看看啊 很容易，但是没时间搞，有

vb程序设计点菜系统

你这个问题在百度知道里面被提问了至少6次了。

你们六个人住起来也就不只2~3个人了，三个臭皮匠还可以顶过一个诸葛亮呢，你们六个人可算是很强大了，估计这个程序肯定能做出来啦。