开发工具:
文件大小: 2mb
下载次数: 0
上传时间: 2010-06-12
详细说明： 点餐系统，sql+vb。大家交流 VERSION 5.00 Begin VB.Form 主食 BackColor = &H80000009& Caption = "主食" ClientHeight = 9165 ClientLeft = 450 ClientTop = 1425 ClientWidth = 14400 LinkTopic = "Form7" ScaleHeight = 9165 ScaleWidth = 14400 Begin VB.Timer Timer1 Interval = 800 Left = 4920 Top = 8400 End Begin VB.CommandButton Command1 BackColor = &H00 FF00FF& Caption = "返回" DownPicture = "曹道耘3.frx":0000 BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 8280 Picture = "曹道耘3.frx":41FA TabIndex = 5 Top = 8400 Visible = 0 'False Width = 1215 End Begin VB.Image Image5 Height = 4410 Left = 4920 Picture = "曹道耘3.frx":8707 Top = 2760 Width = 4455 End Begin VB.Image Image4 Height = 4395 Left = 9840 Picture = "曹道耘3.frx":D393 Top = 4680 Width = 4470 End Begin VB.Image Image3 Height = 4380 Left = 9840 Picture = "曹道耘3.frx":12B42 Top = 120 Width = 4470 End Begin VB.Image Image2 Height = 4380 Left = 120 Picture = "曹道耘3.frx":17B18 Top = 4680 Width = 4455 End Begin VB.Image Image1 Height = 4410 Left = 120 Picture = "曹道耘3.frx":1CA9A Top = 120 Width = 4440 End Begin VB.Label Label5 BackStyle = 0 'Transparent Caption = "起司蓝带牛排" BeginProperty Font Name = "黑体" Size = 15 Charset = 134 Weight = 700 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00C00000& Height = 495 Left = 6360 TabIndex = 4 Top = 2280 Width = 2295 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = "西冷牛排" BeginProperty Font Name = "黑体" Size = 15 Charset = 134 Weight = 700 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00004000& Height = 495 Left = 8160 TabIndex = 3 Top = 7680 Width = 1455 End Begin VB.Label Label3 BackStyle = 0 'Transparent Caption = "黑胡椒红酒牛排" BeginProperty Font Name = "黑体" Size = 15 Charset = 134 Weight = 700 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00FF00FF& Height = 495 Left = 7200 TabIndex = 2 Top = 1080 Width = 2415 End Begin VB.Label Label2 BackStyle = 0 'Transparent Caption = "桂花蜜汁煎小牛排" BeginProperty Font Name = "黑体" Size = 15 Charset = 134 Weight = 700 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H0000FF00& Height = 495 Left = 4800 TabIndex = 1 Top = 7680 Width = 2535 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "菲力牛排" BeginProperty Font Name = "黑体" Size = 15 Charset = 134 Weight = 700 Underline = -1 'True Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H008080FF& Height = 495 Left = 4920 TabIndex = 0 Top = 1080 Width = 1455 End End Attribute VB_Name = "主食" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() 主食.Hide 主界面.Show End Sub Private Sub Form_Load() Label1.Visible = False Label2.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Command1.Visible = False End Sub Private Sub Timer1_Timer() Static p As Integer If p = 0 Then Label1.Visible = True p = 1 ElseIf p = 1 Then Image1.Visible = True p = 2 ElseIf p = 2 Then Label2.Visible = True p = 3 ElseIf p = 3 Then Image2.Visible = True p = 4 ElseIf p = 4 Then Label5.Visible = True p = 5 ElseIf p = 5 Then Image5.Visible = True p = 6 ElseIf p = 6 Then Label4.Visible = True p = 7 ElseIf p = 7 Then Image4.Visible = True p = 8 ElseIf p = 8 Then Label3.Visible = True p = 9 ElseIf p = 9 Then Image3.Visible = True p = 10 ElseIf p = 10 Then Command1.Visible = True End If End Sub ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
