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

千问 · 2011-4-20 09:04:03

<pre id=\"best-answer-content\" class=\"reply-text mb10\">模块,流程....
然后
依照规划,
后台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