然后
依照规划,
后台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
你这个问题在百度知道里面被提问了至少6次了。你们六个人住起来也就不只2~3个人了,三个臭皮匠还可以顶过一个诸葛亮呢,你们六个人可算是很强大了,估计这个程序肯定能做出来啦。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)