📄 frmset.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
Begin VB.Form FrmSet
BorderStyle = 0 'None
Caption = "报表"
ClientHeight = 5745
ClientLeft = 0
ClientTop = 0
ClientWidth = 8325
Icon = "FrmSet.frx":0000
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 383
ScaleMode = 3 'Pixel
ScaleWidth = 555
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
Appearance = 0 'Flat
Height = 4095
Left = 2160
TabIndex = 53
Top = 1080
Width = 495
End
Begin as97Popup.asPopup asPopup4
Height = 615
Left = 600
Top = 2040
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
CustomPicture = "FrmSet.frx":0442
Caption = "供应管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup5
Height = 615
Left = 600
Top = 1320
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
CustomPicture = "FrmSet.frx":075C
Caption = "员工管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup6
Height = 615
Left = 600
Top = 4200
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
CustomPicture = "FrmSet.frx":1436
Caption = "材料管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup1
Height = 615
Left = 600
Top = 3480
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
CustomPicture = "FrmSet.frx":2110
Caption = "材料分类"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup2
Height = 615
Left = 600
Top = 2760
Width = 1455
_ExtentX = 2566
_ExtentY = 1085
CustomPicture = "FrmSet.frx":29EA
Caption = "客户管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
MouseOverColor = 65535
ScaleWidth = 97
ScaleMode = 0
BackStyle = 0
End
Begin TabDlg.SSTab SSTab1
Height = 4125
Left = 2160
TabIndex = 0
Top = 1080
Width = 5775
_ExtentX = 10186
_ExtentY = 7276
_Version = 393216
TabOrientation = 2
Tabs = 5
Tab = 4
TabsPerRow = 5
TabHeight = 684
ForeColor = 16711680
TabCaption(0) = "员工管理"
TabPicture(0) = "FrmSet.frx":32C4
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Combo1"
Tab(0).Control(1)= "Text3"
Tab(0).Control(2)= "Text2"
Tab(0).Control(3)= "Text1"
Tab(0).Control(4)= "Data1"
Tab(0).Control(5)= "Toolbar1"
Tab(0).Control(6)= "Label4"
Tab(0).Control(7)= "Label3"
Tab(0).Control(8)= "Label2"
Tab(0).Control(9)= "Label1"
Tab(0).ControlCount= 10
TabCaption(1) = "供应管理"
TabPicture(1) = "FrmSet.frx":32E0
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Data2"
Tab(1).Control(1)= "Text8"
Tab(1).Control(2)= "Combo2"
Tab(1).Control(3)= "Text7"
Tab(1).Control(4)= "Text6"
Tab(1).Control(5)= "Text5"
Tab(1).Control(6)= "Text4"
Tab(1).Control(7)= "Toolbar2"
Tab(1).Control(8)= "Label10"
Tab(1).Control(9)= "Label9"
Tab(1).Control(10)= "Label8"
Tab(1).Control(11)= "Label7"
Tab(1).Control(12)= "Label6"
Tab(1).Control(13)= "Label5"
Tab(1).ControlCount= 14
TabCaption(2) = "客户管理"
TabPicture(2) = "FrmSet.frx":32FC
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Data3"
Tab(2).Control(1)= "Text14"
Tab(2).Control(2)= "Text15"
Tab(2).Control(3)= "Text13"
Tab(2).Control(4)= "Text12"
Tab(2).Control(5)= "Text11"
Tab(2).Control(6)= "Text10"
Tab(2).Control(7)= "Text9"
Tab(2).Control(8)= "Toolbar3"
Tab(2).Control(9)= "Label18"
Tab(2).Control(10)= "Label17"
Tab(2).Control(11)= "Label15"
Tab(2).Control(12)= "Label14"
Tab(2).Control(13)= "Label13"
Tab(2).Control(14)= "Label12"
Tab(2).Control(15)= "Label11"
Tab(2).ControlCount= 16
TabCaption(3) = "材料分类"
TabPicture(3) = "FrmSet.frx":3318
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Data4"
Tab(3).Control(1)= "Text17"
Tab(3).Control(2)= "Text16"
Tab(3).Control(3)= "Toolbar4"
Tab(3).Control(4)= "Label19"
Tab(3).Control(5)= "Label16"
Tab(3).ControlCount= 6
TabCaption(4) = "材料管理"
TabPicture(4) = "FrmSet.frx":3334
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Label20"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "Label21"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Label22"
Tab(4).Control(2).Enabled= 0 'False
Tab(4).Control(3)= "Label23"
Tab(4).Control(3).Enabled= 0 'False
Tab(4).Control(4)= "Toolbar5"
Tab(4).Control(4).Enabled= 0 'False
Tab(4).Control(5)= "DBCombo1"
Tab(4).Control(5).Enabled= 0 'False
Tab(4).Control(6)= "Text18"
Tab(4).Control(6).Enabled= 0 'False
Tab(4).Control(7)= "Text20"
Tab(4).Control(7).Enabled= 0 'False
Tab(4).Control(8)= "Data5"
Tab(4).Control(8).Enabled= 0 'False
Tab(4).Control(9)= "Text21"
Tab(4).Control(9).Enabled= 0 'False
Tab(4).Control(10)= "Combo3"
Tab(4).Control(10).Enabled= 0 'False
Tab(4).ControlCount= 11
Begin VB.ComboBox Combo3
DataField = "单位"
DataSource = "Data5"
Height = 300
Left = 4320
TabIndex = 54
Top = 960
Width = 975
End
Begin VB.TextBox Text21
Appearance = 0 'Flat
DataField = "分类"
DataSource = "Data5"
ForeColor = &H00FF0000&
Height = 375
Left = 1560
TabIndex = 52
Text = "Text21"
Top = 960
Width = 1935
End
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\LeeKing\桌面\通用库管\库存管理.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 746
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "库存材料表"
Top = 2280
Width = 1695
End
Begin VB.TextBox Text20
Appearance = 0 'Flat
DataField = "备注"
DataSource = "Data5"
ForeColor = &H00FF8080&
Height = 615
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 50
Text = "FrmSet.frx":3350
Top = 1560
Width = 3735
End
Begin VB.TextBox Text18
Appearance = 0 'Flat
DataField = "名称"
DataSource = "Data5"
ForeColor = &H00FF8080&
Height = 270
Left = 1560
TabIndex = 49
Text = "Text18"
Top = 360
Width = 3735
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "FrmSet.frx":3357
Height = 330
Left = 1560
TabIndex = 48
Top = 960
Width = 1815
_ExtentX = 3201
_ExtentY = 582
_Version = 393216
ForeColor = 16744576
ListField = "分类"
BoundColumn = "分类"
Text = ""
End
Begin VB.Data Data4
Caption = "Data4"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -