📄 frmset.frm
字号:
Connect = "Access"
DatabaseName = "C:\WINDOWS\Desktop\通用库管\库存管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = -73174
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "材料分类表"
Top = 2280
Width = 1575
End
Begin VB.TextBox Text17
Appearance = 0 'Flat
DataField = "分类"
DataSource = "Data4"
ForeColor = &H00FF8080&
Height = 270
Left = -72720
TabIndex = 42
Text = "Text17"
Top = 1320
Width = 3135
End
Begin VB.TextBox Text16
Appearance = 0 'Flat
DataField = "ID"
DataSource = "Data4"
ForeColor = &H00FF8080&
Height = 270
Left = -72720
TabIndex = 41
Text = "Text16"
Top = 600
Width = 855
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "C:\WINDOWS\Desktop\通用库管\库存管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = -73800
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "客户表"
Top = 2880
Width = 1140
End
Begin VB.TextBox Text14
Appearance = 0 'Flat
DataField = "备注"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 615
Left = -73680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 37
Text = "FrmSet.frx":336B
Top = 2160
Width = 4215
End
Begin VB.TextBox Text15
Appearance = 0 'Flat
DataField = "数量"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -71160
TabIndex = 36
Text = "Text15"
Top = 1680
Width = 1695
End
Begin VB.TextBox Text13
Appearance = 0 'Flat
DataField = "产品"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -73680
TabIndex = 35
Text = "Text13"
Top = 1680
Width = 1575
End
Begin VB.TextBox Text12
Appearance = 0 'Flat
DataField = "电话"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -71160
TabIndex = 34
Text = "Text12"
Top = 1200
Width = 1695
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
DataField = "联系人"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -73680
TabIndex = 33
Text = "Text11"
Top = 1200
Width = 1575
End
Begin VB.TextBox Text10
Appearance = 0 'Flat
DataField = "地址"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -73680
TabIndex = 32
Text = "Text10"
Top = 720
Width = 4215
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
DataField = "名称"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 270
Left = -73680
TabIndex = 31
Text = "Text9"
Top = 240
Width = 4215
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\WINDOWS\Desktop\通用库管\库存管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = -73920
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "供应商表"
Top = 2760
Width = 1740
End
Begin VB.TextBox Text8
Appearance = 0 'Flat
DataField = "备注"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 615
Left = -73440
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 22
Text = "FrmSet.frx":3372
Top = 2040
Width = 3735
End
Begin VB.ComboBox Combo2
DataField = "级别"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 300
Left = -70534
TabIndex = 20
Text = "Combo2"
Top = 480
Width = 855
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
DataField = "电话"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 270
Left = -71130
TabIndex = 19
Text = "Text7"
Top = 1560
Width = 1455
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
DataField = "联系人"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 270
Left = -73440
TabIndex = 18
Text = "Text6"
Top = 1560
Width = 1695
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
DataField = "地址"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 270
Left = -73440
TabIndex = 17
Text = "Text5"
Top = 960
Width = 3735
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
DataField = "名称"
DataSource = "Data2"
ForeColor = &H00FF8080&
Height = 270
Left = -73440
TabIndex = 16
Text = "Text4"
Top = 480
Width = 2055
End
Begin VB.ComboBox Combo1
Appearance = 0 'Flat
DataField = "职务"
DataSource = "Data1"
ForeColor = &H00FF8080&
Height = 300
Left = -72934
TabIndex = 10
Text = "Combo1"
Top = 1080
Width = 1455
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
DataField = "密码"
DataSource = "Data1"
ForeColor = &H00FF8080&
Height = 270
Left = -72934
TabIndex = 9
Text = "Text3"
Top = 2040
Width = 1455
End
Begin VB.TextBox Text2
Appearance = 0 'Flat
DataField = "电话"
DataSource = "Data1"
ForeColor = &H00FF8080&
Height = 270
Left = -72934
TabIndex = 8
Text = "Text2"
Top = 1560
Width = 1455
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
DataField = "姓名"
DataSource = "Data1"
ForeColor = &H00FF8080&
Height = 270
Left = -72934
TabIndex = 7
Text = "Text1"
Top = 600
Width = 1455
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\LeeKing\桌面\通用库管\库存管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 315
Left = -73054
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "员工表"
Top = 2520
Width = 2295
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 570
Left = -73894
TabIndex = 2
Top = 2880
Width = 3825
_ExtentX = 6747
_ExtentY = 1005
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "向前"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "后退"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "增加"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "确定"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "取消"
ImageIndex = 5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -