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

做个数据库吧,

首先

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

然后

依照规划,

后台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()

List1AddItem "" '以下格式相同（表示菜名）

End Sub

Private Sub Command1_Click()

Dim i% '定义循环变量

For i = List1ListCount - 1 To 0 Step -1

If List1Selected(i) Then '判断是否被选中

List2AddItem List1List(i) '在list2中添加list1中被选中的

List1RemoveItem i

End If

Next i

End Sub

Private Sub Command2_Click()

Dim i%

For i = List2ListCount - 1 To 0 Step -1

If List2Selected(i) Then

List1AddItem List2List(i)

List2RemoveItem i '从List2中删除此选中项

End If

Next i

End Sub

'给个短的给你，用的控件数组'添加按钮cmdNum(10)，其index为0到9，表示10个数字'添加按钮cmdOper(4)，其index为1到4，表示运算符'添加按钮cmdOk，为等于号'添加按钮cmdClear，为清除按钮'然后添加如下代码：Dim flag As IntegerDim isClickNumLast As BooleanDim s1 As String '前一步的值Dim s2 As String '当前框中的值Private Sub Form_Load() isClickNumLast = True flag = 1End Sub'点数字的 *** 作Private Sub cmdNum_Click(Index As Integer) Text1Text = IIf(isClickNumLast, Text1Text, "") & CStr(Index) isClickNumLast = TrueEnd Sub'点运算符的 *** 作Private Sub cmdOper_Click(Index As Integer) If isClickNumLast Then Call computeResult Text1Text = s1 End If flag = Index isClickNumLast = FalseEnd Sub'得出结果Private Sub cmdOK_Click() Call computeResult Text1Text = s1 isClickNumLast = FalseEnd Sub'清屏Private Sub cmdClear_Click() '清屏 Text1Text = "" isClickNumLast = True flag = 1End Sub'计算结果Private Sub computeResult() s2 = Text1Text Select Case flag 'flag为运算符，分别为+-/ Case 1 s1 = CStr(Val(s1) + Val(s2)) Case 2 s1 = CStr(Val(s1) - Val(s2)) Case 3 s1 = CStr(Val(s1) Val(s2)) Case 4 s1 = CStr(Val(s1) / Val(s2)) End SelectEnd Sub'界面预览：'

'源码下载：'>

PrivateSubCommand1_Click()

Label1=""

IfOption1Value=TrueThenLabel1=Label1&""&Option1Caption

IfOption2Value=TrueThenLabel1=Label1&""&Option2Caption

IfOption3Value=TrueThenLabel1=Label1&""&Option3Caption

IfOption4Value=TrueThenLabel1=Label1&""&Option4Caption

IfOption5Value=TrueThenLabel1=Label1&""&Option5Caption

IfOption6Value=TrueThenLabel1=Label1&""&Option6Caption

IfOption7Value=TrueThenLabel1=Label1&""&Option7Caption

IfOption8Value=TrueThenLabel1=Label1&""&Option8Caption

IfCheck1Value=1ThenLabel1=Label1&""&Check1Caption

IfCheck2Value=1ThenLabel1=Label1&""&Check2Caption

IfCheck3Value=1ThenLabel1=Label1&""&Check3Caption

EndSub

PrivateSubCommand2_Click()

Label1=""

EndSub

PrivateSubCommand3_Click()

End

EndSub

以上是根据你的要求最简单的程序，请自己根据需要完善代码

以上就是关于vb6.0程序设计——饭店点菜、结算系统全部的内容，包括:vb6.0程序设计——饭店点菜、结算系统、VB6.0设计一个简单的计算器程序、用VB6.0设计一个购买苹果产品的小程序,要求见图等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！