www.pudn.com > 通用库存管理系统 vb.rar > FrmSet.frm
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
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 = 5745
ClientLeft = 0
ClientTop = 0
ClientWidth = 8325
Icon = "FrmSet.frx":0000
LinkTopic = "Form8"
MaxButton = 0 'False
MDIChild = -1 'True
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)= "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":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)= "Label16"
Tab(3).Control(1)= "Label19"
Tab(3).Control(2)= "Toolbar4"
Tab(3).Control(3)= "Text16"
Tab(3).Control(4)= "Text17"
Tab(3).Control(5)= "Data4"
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"
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
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList2
Left = 2760
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":3378
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":3694
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":39B0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":468C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":5368
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":6044
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":6D20
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":703C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 6000
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":7490
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":77AC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":7AC8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":87A4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":9480
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":A15C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":AE38
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":B154
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar Toolbar2
Height = 570
Left = -73894
TabIndex = 23
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
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList4
Left = 6000
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":B5A8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":B8C4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":BBE0
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":C8BC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":D598
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":E274
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":EF50
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":F26C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList3
Left = 3120
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":F6C0
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":F9DC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":FCF8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":109D4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":116B0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1238C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":13068
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":13384
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar Toolbar3
Height = 570
Left = -73440
TabIndex = 38
Top = 3120
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
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList6
Left = 6000
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":137D8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":13AF4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":13E10
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":14AEC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":157C8
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":164A4
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":17180
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1749C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList5
Left = 3120
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":178F0
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":17C0C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":17F28
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":18C04
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":198E0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1A5BC
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1B298
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1B5B4
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar Toolbar4
Height = 570
Left = -73680
TabIndex = 43
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
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList8
Left = 6000
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1BA08
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1BD24
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1C040
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1CD1C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1D9F8
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1E6D4
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1F3B0
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1F6CC
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList7
Left = 3120
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1FB20
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":1FE3C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":20158
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":20E34
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":21B10
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":227EC
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":234C8
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":237E4
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.Toolbar Toolbar5
Height = 570
Left = 1320
TabIndex = 51
Top = 2760
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
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "删除"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList10
Left = 6000
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":23C38
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":23F54
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":24270
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":24F4C
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":25C28
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":26904
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":275E0
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":278FC
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList9
Left = 2520
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":27D50
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":2806C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":28388
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":29064
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":29D40
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":2AA1C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":2B6F8
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSet.frx":2BA14
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Label Label23
Caption = "备注："
ForeColor = &H00FF0000&
Height = 255
Left = 840
TabIndex = 47
Top = 1560
Width = 855
End
Begin VB.Label Label22
Caption = "单位："
ForeColor = &H00FF0000&
Height = 255
Left = 3720
TabIndex = 46
Top = 960
Width = 615
End
Begin VB.Label Label21
Caption = "分类："
ForeColor = &H00FF0000&
Height = 255
Left = 840
TabIndex = 45
Top = 960
Width = 735
End
Begin VB.Label Label20
Caption = "名称："
ForeColor = &H00FF0000&
Height = 255
Left = 840
TabIndex = 44
Top = 360
Width = 855
End
Begin VB.Label Label19
Caption = "分类名称："
ForeColor = &H00FF0000&
Height = 255
Left = -73920
TabIndex = 40
Top = 1320
Width = 975
End
Begin VB.Label Label16
Caption = "编号："
ForeColor = &H00FF0000&
Height = 255
Left = -73560
TabIndex = 39
Top = 600
Width = 855
End
Begin VB.Label Label18
Caption = "备注："
ForeColor = &H00FF0000&
Height = 255
Left = -74280
TabIndex = 30
Top = 2160
Width = 615
End
Begin VB.Label Label17
Caption = "数量："
ForeColor = &H00FF0000&
Height = 255
Left = -71760
TabIndex = 29
Top = 1680
Width = 615
End
Begin VB.Label Label15
Caption = "产品："
ForeColor = &H00FF0000&
Height = 255
Left = -74280
TabIndex = 28
Top = 1680
Width = 735
End
Begin VB.Label Label14
Caption = "联系人："
ForeColor = &H00FF0000&
Height = 255
Left = -74400
TabIndex = 27
Top = 1200
Width = 735
End
Begin VB.Label Label13
Caption = "电话："
ForeColor = &H00FF0000&
Height = 255
Left = -71760
TabIndex = 26
Top = 1200
Width = 615
End
Begin VB.Label Label12
Caption = "地址："
ForeColor = &H00FF0000&
Height = 255
Left = -74280
TabIndex = 25
Top = 720
Width = 615
End
Begin VB.Label Label11
Caption = "名称："
ForeColor = &H00FF0000&
Height = 255
Left = -74280
TabIndex = 24
Top = 240
Width = 615
End
Begin VB.Label Label10
Caption = "备注："
ForeColor = &H00FF0000&
Height = 255
Left = -74160
TabIndex = 21
Top = 2040
Width = 735
End
Begin VB.Label Label9
Caption = "级别："
ForeColor = &H00FF0000&
Height = 255
Left = -71134
TabIndex = 15
Top = 480
Width = 615
End
Begin VB.Label Label8
Caption = "电话："
ForeColor = &H00FF0000&
Height = 255
Left = -71640
TabIndex = 14
Top = 1560
Width = 735
End
Begin VB.Label Label7
Caption = "联系人："
ForeColor = &H00FF0000&
Height = 255
Left = -74280
TabIndex = 13
Top = 1560
Width = 735
End
Begin VB.Label Label6
Caption = "地址："
ForeColor = &H00FF0000&
Height = 255
Left = -74160
TabIndex = 12
Top = 960
Width = 735
End
Begin VB.Label Label5
Caption = "名称："
ForeColor = &H00FF0000&
Height = 255
Left = -74160
TabIndex = 11
Top = 480
Width = 735
End
Begin VB.Label Label4
Caption = "密码："
ForeColor = &H00FF0000&
Height = 255
Left = -73774
TabIndex = 6
Top = 2040
Width = 615
End
Begin VB.Label Label3
Caption = "电话："
ForeColor = &H00FF0000&
Height = 255
Left = -73774
TabIndex = 5
Top = 1560
Width = 615
End
Begin VB.Label Label2
Caption = "职务："
ForeColor = &H00FF0000&
Height = 255
Left = -73774
TabIndex = 4
Top = 1080
Width = 615
End
Begin VB.Label Label1
Caption = "姓名："
ForeColor = &H00FF0000&
Height = 255
Left = -73774
TabIndex = 3
Top = 600
Width = 615
End
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 10080
Picture = "FrmSet.frx":2BE68
Top = 1440
Width = 285
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "设置"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 8760
TabIndex = 1
Top = 2520
Width = 510
End
Begin VB.Image imgTitleMinimize
Height = 195
Left = 10560
Picture = "FrmSet.frx":2C5B2
Top = 2160
Width = 195
End
Begin VB.Image imgTitleClose
Height = 195
Left = 10560
Picture = "FrmSet.frx":2C7FC
Top = 1800
Width = 195
End
Begin VB.Image imgTitleHelp
Height = 195
Left = 10560
Picture = "FrmSet.frx":2CA46
Top = 1440
Width = 195
End
Begin VB.Image imgWindowRight
Height = 450
Left = 10080
Picture = "FrmSet.frx":2CC90
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 9720
Picture = "FrmSet.frx":2D3DA
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 9360
Picture = "FrmSet.frx":2DB24
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgTitleMain
Height = 450
Left = 9000
Picture = "FrmSet.frx":2E26E
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 9720
Picture = "FrmSet.frx":2E9B8
Top = 1440
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 9360
Picture = "FrmSet.frx":2F102
Top = 1440
Width = 285
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 9000
Picture = "FrmSet.frx":2F84C
Top = 1440
Width = 285
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 4095
Left = 480
Top = 1080
Width = 1695
End
End
Attribute VB_Name = "FrmSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub asPopup1_Click(Cancel As Boolean)
asPopup5.BackColor = &H8000000F
asPopup4.BackColor = &H8000000F
asPopup2.BackColor = &H8000000F
asPopup1.BackColor = &HFFC0C0
asPopup6.BackColor = &H8000000F
SSTab1.Tab = 3
End Sub
Private Sub asPopup2_Click(Cancel As Boolean)
asPopup5.BackColor = &H8000000F
asPopup4.BackColor = &H8000000F
asPopup2.BackColor = &HFFC0C0
asPopup1.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
SSTab1.Tab = 2
End Sub
Private Sub asPopup4_Click(Cancel As Boolean)
asPopup5.BackColor = &H8000000F
asPopup4.BackColor = &HFFC0C0
asPopup2.BackColor = &H8000000F
asPopup1.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
SSTab1.Tab = 1
End Sub
Private Sub asPopup5_Click(Cancel As Boolean)
asPopup5.BackColor = &HFFC0C0
asPopup4.BackColor = &H8000000F
asPopup2.BackColor = &H8000000F
asPopup1.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
SSTab1.Tab = 0
End Sub
Private Sub asPopup6_Click(Cancel As Boolean)
asPopup5.BackColor = &H8000000F
asPopup4.BackColor = &H8000000F
asPopup2.BackColor = &H8000000F
asPopup1.BackColor = &H8000000F
asPopup6.BackColor = &HFFC0C0
SSTab1.Tab = 4
End Sub
Private Sub Form_Load()
MakeWindow Me
' AlwaysOnTop Me, True
Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
asPopup5.BackColor = &HFFC0C0
SSTab1.Tab = 0
Combo1.AddItem "员工"
Combo1.AddItem "经理"
Combo1.AddItem "采购"
Combo1.AddItem "库管"
Combo2.AddItem "1"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo3.AddItem "个"
Combo3.AddItem "只"
Combo3.AddItem "支"
Combo3.AddItem "盒"
Combo3.AddItem "本"
Combo3.AddItem "条"
Combo3.AddItem "瓶"
Combo3.AddItem "张"
Combo3.AddItem "台"
Combo3.AddItem "块"
Combo3.AddItem "捆"
Combo3.AddItem "卷"
Combo3.AddItem "打"
Combo3.AddItem "双"
Combo3.AddItem "对"
Combo3.AddItem "米"
Combo3.AddItem "厘米"
Combo3.AddItem "斤"
Combo3.AddItem "公斤"
Combo3.AddItem "克"
Combo3.AddItem "吨"
Data1.DatabaseName = App.Path & "\库存管理.mdb"
Data1.Connect = ";pwd=lee1012"
Data1.RecordSource = "员工表"
Data1.Refresh
Data1.Visible = False
Data2.DatabaseName = App.Path & "\库存管理.mdb"
Data2.Connect = ";pwd=lee1012"
Data2.RecordSource = "供应商表"
Data2.Refresh
Data2.Visible = False
Data3.DatabaseName = App.Path & "\库存管理.mdb"
Data3.Connect = ";pwd=lee1012"
Data3.RecordSource = "客户表"
Data3.Refresh
Data3.Visible = False
Data4.DatabaseName = App.Path & "\库存管理.mdb"
Data4.Connect = ";pwd=lee1012"
Data4.RecordSource = "材料分类表"
Data4.Refresh
Data4.Visible = False
Data5.DatabaseName = App.Path & "\库存管理.mdb"
Data5.Connect = ";pwd=lee1012"
Data5.RecordSource = "库存材料表"
Data5.Refresh
Data5.Visible = False
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
End Sub
Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMinimize_Click()
Me.WindowState = 1
End Sub
Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub
Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub
Private Sub imgTitleClose_Click()
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveFirst
End If
Case 2 ''后退
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data1.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar1.Buttons(1).Visible = False
Toolbar1.Buttons(2).Visible = False
Toolbar1.Buttons(4).Visible = False
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF = True Then
Data2.Recordset.MoveFirst
End If
Case 2 ''后退
Data2.Recordset.MoveNext
If Data2.Recordset.EOF = True Then
Data2.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data2.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar2.Buttons(1).Visible = False
Toolbar2.Buttons(2).Visible = False
Toolbar2.Buttons(4).Visible = False
Toolbar2.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data2.UpdateRecord
Data2.Recordset.Bookmark = Data2.Recordset.LastModified
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar2.Buttons(1).Visible = True
Toolbar2.Buttons(2).Visible = True
Toolbar2.Buttons(4).Visible = True
Toolbar2.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data2.Recordset.Edit
Data2.Recordset.CancelUpdate
Toolbar2.Buttons(1).Visible = True
Toolbar2.Buttons(2).Visible = True
Toolbar2.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar2.Buttons(6).Visible = True
Toolbar2.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data2.Recordset.Delete
Data2.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub
Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data3.Recordset.MovePrevious
If Data3.Recordset.BOF = True Then
Data3.Recordset.MoveFirst
End If
Case 2 ''后退
Data3.Recordset.MoveNext
If Data3.Recordset.EOF = True Then
Data3.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data3.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar3.Buttons(1).Visible = False
Toolbar3.Buttons(2).Visible = False
Toolbar3.Buttons(4).Visible = False
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data3.UpdateRecord
Data3.Recordset.Bookmark = Data3.Recordset.LastModified
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar3.Buttons(1).Visible = True
Toolbar3.Buttons(2).Visible = True
Toolbar3.Buttons(4).Visible = True
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data1.Recordset.Edit
Data1.Recordset.CancelUpdate
Toolbar3.Buttons(1).Visible = True
Toolbar3.Buttons(2).Visible = True
Toolbar3.Buttons(4).Visible = True
Toolbar3.Buttons(5).Visible = True
Toolbar3.Buttons(6).Visible = True
Toolbar3.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data3.Recordset.Delete
Data3.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub
Private Sub Toolbar4_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data4.Recordset.MovePrevious
If Data4.Recordset.BOF = True Then
Data4.Recordset.MoveFirst
End If
Case 2 ''后退
Data4.Recordset.MoveNext
If Data4.Recordset.EOF = True Then
Data4.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data4.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar4.Buttons(1).Visible = False
Toolbar4.Buttons(2).Visible = False
Toolbar4.Buttons(4).Visible = False
Toolbar4.Buttons(5).Visible = True
Toolbar4.Buttons(6).Visible = True
Toolbar4.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data4.UpdateRecord
Data4.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar4.Buttons(1).Visible = True
Toolbar4.Buttons(2).Visible = True
Toolbar4.Buttons(4).Visible = True
Toolbar4.Buttons(5).Visible = True
Toolbar4.Buttons(6).Visible = True
Toolbar4.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data4.Recordset.Edit
Data4.Recordset.CancelUpdate
Toolbar4.Buttons(1).Visible = True
Toolbar4.Buttons(2).Visible = True
Toolbar4.Buttons(4).Visible = True
Toolbar4.Buttons(5).Visible = True
Toolbar4.Buttons(6).Visible = True
Toolbar4.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data4.Recordset.Delete
Data4.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub
Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data5.Recordset.MovePrevious
If Data5.Recordset.BOF = True Then
Data5.Recordset.MoveFirst
End If
Case 2 ''后退
Data5.Recordset.MoveNext
If Data5.Recordset.EOF = True Then
Data5.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
Data5.Recordset.AddNew
'Data1.Recordset("建户时间") = Date
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Text21.Visible = False
Toolbar5.Buttons(1).Visible = False
Toolbar5.Buttons(2).Visible = False
Toolbar5.Buttons(4).Visible = False
Toolbar5.Buttons(5).Visible = True
Toolbar5.Buttons(6).Visible = True
Toolbar5.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
Data5.Recordset("分类") = DBCombo1.Text
Data5.UpdateRecord
Data5.Recordset.Bookmark = Data1.Recordset.LastModified
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Text21.Visible = True
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
Toolbar5.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data5.Recordset.Edit
Data5.Recordset.CancelUpdate
Text21.Visible = True
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
Toolbar5.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
Data5.Recordset.Delete
Data5.Recordset.MoveLast
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub