📄 frmset.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmSet
BorderStyle = 0 'None
Caption = "报表"
ClientHeight = 4470
ClientLeft = 1470
ClientTop = 1710
ClientWidth = 8325
Icon = "FrmSet.frx":0000
LinkTopic = "Form8"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 298
ScaleMode = 3 'Pixel
ScaleWidth = 555
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command1
Appearance = 0 'Flat
Height = 3255
Left = 2160
TabIndex = 35
Top = 720
Width = 495
End
Begin as97Popup.asPopup asPopup4
Height = 615
Left = 600
Top = 1680
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 = 960
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 = 3240
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 asPopup2
Height = 615
Left = 600
Top = 2400
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 TabDlg.SSTab SSTab1
Height = 3285
Left = 2160
TabIndex = 0
Top = 720
Width = 5775
_ExtentX = 10186
_ExtentY = 5794
_Version = 393216
TabOrientation = 2
Tabs = 4
Tab = 3
TabsPerRow = 5
TabHeight = 684
ForeColor = 16711680
TabCaption(0) = "员工管理"
TabPicture(0) = "FrmSet.frx":29EA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label1"
Tab(0).Control(1)= "Label2"
Tab(0).Control(2)= "Label3"
Tab(0).Control(3)= "Label4"
Tab(0).Control(4)= "Label15"
Tab(0).Control(5)= "Toolbar1"
Tab(0).Control(6)= "Data1"
Tab(0).Control(7)= "Text1"
Tab(0).Control(8)= "Text2"
Tab(0).Control(9)= "Text3"
Tab(0).Control(10)= "Combo1"
Tab(0).Control(11)= "Text13"
Tab(0).ControlCount= 12
TabCaption(1) = "供应厂家"
TabPicture(1) = "FrmSet.frx":2A06
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label5"
Tab(1).Control(1)= "Label6"
Tab(1).Control(2)= "Label7"
Tab(1).Control(3)= "Label8"
Tab(1).Control(4)= "Label9"
Tab(1).Control(5)= "Label10"
Tab(1).Control(6)= "Toolbar2"
Tab(1).Control(7)= "Text4"
Tab(1).Control(8)= "Text5"
Tab(1).Control(9)= "Text6"
Tab(1).Control(10)= "Text7"
Tab(1).Control(11)= "Combo2"
Tab(1).Control(12)= "Text8"
Tab(1).Control(13)= "Data2"
Tab(1).ControlCount= 14
TabCaption(2) = "客户管理"
TabPicture(2) = "FrmSet.frx":2A22
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label11"
Tab(2).Control(1)= "Label12"
Tab(2).Control(2)= "Label13"
Tab(2).Control(3)= "Label14"
Tab(2).Control(4)= "Label18"
Tab(2).Control(5)= "Toolbar3"
Tab(2).Control(6)= "Text9"
Tab(2).Control(7)= "Text10"
Tab(2).Control(8)= "Text11"
Tab(2).Control(9)= "Text12"
Tab(2).Control(10)= "Text14"
Tab(2).Control(11)= "Data3"
Tab(2).ControlCount= 12
TabCaption(3) = "材料管理"
TabPicture(3) = "FrmSet.frx":2A3E
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "Label23"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Label22"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Label20"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).Control(3)= "Toolbar5"
Tab(3).Control(3).Enabled= 0 'False
Tab(3).Control(4)= "Combo3"
Tab(3).Control(4).Enabled= 0 'False
Tab(3).Control(5)= "Data5"
Tab(3).Control(5).Enabled= 0 'False
Tab(3).Control(6)= "Text20"
Tab(3).Control(6).Enabled= 0 'False
Tab(3).Control(7)= "Text18"
Tab(3).Control(7).Enabled= 0 'False
Tab(3).ControlCount= 8
Begin VB.TextBox Text13
Appearance = 0 'Flat
Enabled = 0 'False
BeginProperty Font
Name = "隶书"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = -72960
TabIndex = 43
Text = "********"
Top = 1800
Width = 1455
End
Begin VB.TextBox Text18
Appearance = 0 'Flat
DataField = "名称"
DataSource = "Data5"
ForeColor = &H00FF8080&
Height = 285
Left = 2370
TabIndex = 38
Text = "Text18"
Top = 360
Width = 3015
End
Begin VB.TextBox Text20
Appearance = 0 'Flat
DataField = "备注"
DataSource = "Data5"
ForeColor = &H00FF8080&
Height = 615
Left = 1680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 37
Text = "FrmSet.frx":2A5A
Top = 1560
Width = 3735
End
Begin VB.Data Data5
Caption = "Data5"
Connect = "Access"
DatabaseName = "C:\Documents and Settings\LeeKing\桌面\通用库管\库存管理.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "库存材料表"
Top = 960
Width = 2175
End
Begin VB.ComboBox Combo3
DataField = "单位"
DataSource = "Data5"
Height = 315
Left = 1680
TabIndex = 36
Top = 960
Width = 1095
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "C:\WINDOWS\Desktop\通用库管\库存管理.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -73320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "客户表"
Top = 2040
Width = 2460
End
Begin VB.TextBox Text14
Appearance = 0 'Flat
DataField = "备注"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 615
Left = -73680
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 33
Text = "FrmSet.frx":2A61
Top = 1800
Width = 4215
End
Begin VB.TextBox Text12
Appearance = 0 'Flat
DataField = "电话"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 285
Left = -71160
TabIndex = 32
Text = "Text12"
Top = 1320
Width = 1695
End
Begin VB.TextBox Text11
Appearance = 0 'Flat
DataField = "联系人"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 285
Left = -73680
TabIndex = 31
Text = "Text11"
Top = 1320
Width = 1575
End
Begin VB.TextBox Text10
Appearance = 0 'Flat
DataField = "地址"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 285
Left = -73680
TabIndex = 30
Text = "Text10"
Top = 840
Width = 4215
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
DataField = "名称"
DataSource = "Data3"
ForeColor = &H00FF8080&
Height = 285
Left = -73680
TabIndex = 29
Text = "Text9"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -