📄 酒水点菜.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Begin VB.Form 酒水点菜
BackColor = &H8000000B&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 7305
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 11340
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
Picture = "酒水点菜.frx":0000
ScaleHeight = 7305
ScaleWidth = 11340
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "C:\科研\酒吧管理数据库.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = -360
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "消费记录"
Top = 120
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command1
Caption = "确定"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 9765
Picture = "酒水点菜.frx":10D1EC
TabIndex = 58
Top = 6210
Width = 1185
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\科研\酒吧管理数据库.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = -720
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "客户档案"
Top = 120
Visible = 0 'False
Width = 1140
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\科研\酒吧管理数据库.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = -720
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "酒水库存"
Top = 120
Visible = 0 'False
Width = 1140
End
Begin VB.Frame Frame1
BackColor = &H8000000D&
Height = 4260
Left = 263
TabIndex = 60
Top = 1710
Width = 10815
Begin VB.TextBox 备注
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 8640
TabIndex = 57
Top = 3855
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 合计
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 6480
Locked = -1 'True
TabIndex = 56
Top = 3855
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 数量
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 4335
TabIndex = 55
Top = 3855
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 单价
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 9
Left = 2175
TabIndex = 54
Top = 3855
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 备注
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 8
Left = 8640
TabIndex = 52
Top = 3480
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 合计
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 8
Left = 6480
Locked = -1 'True
TabIndex = 51
Top = 3480
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 数量
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 8
Left = 4335
TabIndex = 50
Top = 3480
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 单价
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 8
Left = 2175
TabIndex = 49
Top = 3480
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 备注
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 8640
TabIndex = 47
Top = 3126
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 合计
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 6480
Locked = -1 'True
TabIndex = 46
Top = 3126
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 数量
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 4335
TabIndex = 45
Top = 3126
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 单价
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 2175
TabIndex = 44
Top = 3126
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 备注
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 8640
TabIndex = 42
Top = 2750
Visible = 0 'False
Width = 2160
End
Begin VB.TextBox 合计
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 6480
Locked = -1 'True
TabIndex = 41
Top = 2750
Visible = 0 'False
Width = 2160
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -