鉴于大家对VB类作品十分关注，我们编辑小组在此为大家搜集整理了“XX手机销售系统”一文，供大家参考学习
一、 用户或商户进行网上预定购买手机的业务。 用户或商户通过在“手机产品展示”上的信息进行手机的预定，从而节省了时间，提高了效率。手机销售系统将自动为用户或商户保存好其信息。 操作及代码：1、点击在“手机产品展示”ToolBar控件上的“网上预定”，显示出网上预定的窗口： 2、进入网上预定窗口后，在text1，text2，text2中输入相应的数据，单击“购买”，数据将显示在PictureBox中，点击“合计”，将会自动帮助用户计算出所需的金额。用户也可通过使用“计算器”按钮，自己统计。最后单击“预定确认”确认自己的信息。如图： 代码如下： Dim sum As Single Private Sub Command1_Click() If IsNumeric(Text2.Text) And IsNumeric(Text3.Text) Then Picture1.Print Text1.Text, Picture1.Print Format(Val(Text2.Text), "#.00"), Picture1.Print Val(Text3.Text), s = Val(Text2) * Val(Text3) sum = sum + s Picture1.Print Format(s, "$#,###.00") Else If Not IsNumeric(Text2.Text) Then Text2.SetFocus Else Text3.SetFocus End If End If End Sub Private Sub Command2_Click() Picture1.Print String(52, "-") Picture1.Print "合计" + Space(38) + Format(sum, "$#,###.00") Picture1.Print Picture1.Print Tab(35); "日期：" + Format(Now, "dddddd") End Sub Private Sub Command3_Click() f = Shell("c:\windows\System32\calc.exe", 1) End Sub Private Sub Command4_Click() MsgBox "我们已经接受你的信息！" End Sub Private Sub Form_Load() sum = 0 End Sub |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
