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

发布网友

我来回答

共2个回答

热心网友

做个数据库吧,
首先
规划下项目,功能,模块,流程....
然后
依照规划,
后台mssql2000或者msaccess做数据库,建些表,
前台用vb.

窗体如图
属性设置：
form1-caption:顾客点菜单
list1:multiselect=2\style=0
list2:multiselect=0\style=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

热心网友

标记.
判断菜单的菜有无重复.
flag = False
就说明没重复.