📄 frmset.frm
字号:
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":29D75
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":2A4BF
Top = 2160
Width = 195
End
Begin VB.Image imgTitleClose
Height = 195
Left = 10560
Picture = "FrmSet.frx":2A709
Top = 1800
Width = 195
End
Begin VB.Image imgTitleHelp
Height = 195
Left = 10560
Picture = "FrmSet.frx":2A953
Top = 1440
Width = 195
End
Begin VB.Image imgWindowRight
Height = 450
Left = 10080
Picture = "FrmSet.frx":2AB9D
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 9720
Picture = "FrmSet.frx":2B2E7
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 9360
Picture = "FrmSet.frx":2BA31
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgTitleMain
Height = 450
Left = 9000
Picture = "FrmSet.frx":2C17B
Stretch = -1 'True
Top = 1920
Width = 285
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 9720
Picture = "FrmSet.frx":2C8C5
Top = 1440
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 9360
Picture = "FrmSet.frx":2D00F
Top = 1440
Width = 285
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 9000
Picture = "FrmSet.frx":2D759
Top = 1440
Width = 285
End
End
Attribute VB_Name = "FrmSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Command2_Click()
'asPopup5.BackColor = &HFFC0C0
'asPopup4.BackColor = &H8000000F
'asPopup2.BackColor = &H8000000F
'asPopup1.BackColor = &H8000000F
'asPopup6.BackColor = &H8000000F
SSTab1.Tab = 0
End Sub
Private Sub Command3_Click()
'asPopup5.BackColor = &H8000000F
'asPopup4.BackColor = &HFFC0C0
'asPopup2.BackColor = &H8000000F
'asPopup1.BackColor = &H8000000F
'asPopup6.BackColor = &H8000000F
SSTab1.Tab = 1
End Sub
Private Sub Command4_Click()
'asPopup5.BackColor = &H8000000F
'asPopup4.BackColor = &H8000000F
'asPopup2.BackColor = &HFFC0C0
'asPopup1.BackColor = &H8000000F
'asPopup6.BackColor = &H8000000F
SSTab1.Tab = 2
End Sub
Private Sub Command5_Click()
'asPopup5.BackColor = &H8000000F
'asPopup4.BackColor = &H8000000F
'asPopup2.BackColor = &H8000000F
'asPopup1.BackColor = &HFFC0C0
'asPopup6.BackColor = &H8000000F
SSTab1.Tab = 3
End Sub
Private Sub Command6_Click()
'asPopup5.BackColor = &H8000000F
'asPopup4.BackColor = &H8000000F
'asPopup2.BackColor = &H8000000F
'asPopup1.BackColor = &HFFC0C0
'asPopup6.BackColor = &H8000000F
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 = "⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -