📄 main.frm
字号:
VERSION 5.00
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "yfdnetmenu.ocx"
Begin VB.Form Form1
Caption = "剪刀美容美发管理系统V2007"
ClientHeight = 7830
ClientLeft = 165
ClientTop = -15
ClientWidth = 9630
Icon = "main.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10710
ScaleWidth = 15240
StartUpPosition = 2 '屏幕中心
Begin VB.Image Image1
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 11550
Left = 0
Picture = "main.frx":038A
Top = 0
Width = 15390
End
Begin yfDNetMenu.DNetMenu DNetMenu1
Left = 1440
Top = 6120
_ExtentX = 847
_ExtentY = 847
BmpCount = 25
Bmp:1 = "main.frx":10E02
Key:1 = "#m_settime"
Bmp:2 = "main.frx":1122A
Key:2 = "#m_setticheng"
Bmp:3 = "main.frx":11652
Key:3 = "#m_setPws"
Bmp:4 = "main.frx":11A7A
Key:4 = "#m_setyg"
Bmp:5 = "main.frx":11EA2
Key:5 = "#M_Start"
Bmp:6 = "main.frx":122CA
Key:6 = "#m_skinset"
Bmp:7 = "main.frx":126F2
Key:7 = "#m_exit"
Bmp:8 = "main.frx":12B1A
Key:8 = "#m_adduser"
Bmp:9 = "main.frx":12F42
Key:9 = "#m_userview"
Bmp:10 = "main.frx":1336A
Key:10 = "#m_ygkaoqin"
Bmp:11 = "main.frx":13792
Key:11 = "#m_kaoqinjilu"
Bmp:12 = "main.frx":13BBA
Key:12 = "#m_yggz"
Bmp:13 = "main.frx":13FE2
Key:13 = "#m_dataBak"
Bmp:14 = "main.frx":1440A
Key:14 = "#m_ygtcck"
Bmp:15 = "main.frx":14832
Key:15 = "#m_datare"
Bmp:16 = "main.frx":14C5A
Key:16 = "#m_datastar"
Bmp:17 = "main.frx":15082
Key:17 = "#m_op"
Bmp:18 = "main.frx":154AA
Key:18 = "#m_tel"
Bmp:19 = "main.frx":158D2
Key:19 = "#m_kqprint"
Bmp:20 = "main.frx":15CFA
Key:20 = "#m_gzprint"
Bmp:21 = "main.frx":16122
Key:21 = "#m_sy"
Bmp:22 = "main.frx":1654A
Key:22 = "#m_viewd"
Bmp:23 = "main.frx":16972
Key:23 = "#view_yyy"
Bmp:24 = "main.frx":16D9A
Key:24 = "#m_printyy"
Bmp:25 = "main.frx":171C2
Key:25 = "#m_about"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu M_sysset
Caption = "系统设置(&S)"
Begin VB.Menu m_settime
Caption = "设置考勤时间表(&T)"
End
Begin VB.Menu m_setticheng
Caption = "设置员工提成比例"
End
Begin VB.Menu m_setPws
Caption = "设置管理员密码"
End
Begin VB.Menu m_setyg
Caption = "设置员工参数"
End
Begin VB.Menu M_Start
Caption = "初始化设置"
End
Begin VB.Menu m_skinset
Caption = "界面设置"
End
Begin VB.Menu m_exit
Caption = "退出系统"
End
End
Begin VB.Menu m_shouying
Caption = "收银系统(&D)"
Begin VB.Menu m_sy
Caption = "收银(&S)"
End
Begin VB.Menu m_viewd
Caption = "查看当天营业额"
End
Begin VB.Menu view_yyy
Caption = "查看营业额统计"
End
Begin VB.Menu m_printyy
Caption = "打印营业报表"
End
End
Begin VB.Menu m_userm
Caption = "会员管理(&U)"
Begin VB.Menu m_adduser
Caption = "添加或修改会员信息"
End
Begin VB.Menu m_userview
Caption = "会员信息查看"
End
End
Begin VB.Menu m_kaoqin
Caption = "考勤(&K)"
Begin VB.Menu m_ygkaoqin
Caption = "员工考勤"
End
Begin VB.Menu m_kaoqinjilu
Caption = "考勤统计"
End
Begin VB.Menu m_kqprint
Caption = "打印考勤报表"
End
End
Begin VB.Menu m_gztongji
Caption = "工资统计(&T)"
Begin VB.Menu m_yggz
Caption = "员工工资汇总"
End
Begin VB.Menu m_ygtcck
Caption = "员工提成查看"
End
Begin VB.Menu m_gzprint
Caption = "打印工资报表"
End
End
Begin VB.Menu m_wupin
Caption = "管理操作(&M)"
Begin VB.Menu m_ruku
Caption = "录入工资"
End
End
Begin VB.Menu m_dataMan
Caption = "数据管理(&D)"
Begin VB.Menu m_dataBak
Caption = "数据备份"
End
Begin VB.Menu m_datare
Caption = "数据恢复"
End
Begin VB.Menu m_datastar
Caption = "初始化数据库"
End
End
Begin VB.Menu m_help
Caption = "帮助(&H)"
Begin VB.Menu m_op
Caption = "操作说明"
End
Begin VB.Menu m_tel
Caption = "联系方式"
End
Begin VB.Menu m_about
Caption = "关于我们"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
srts.Show
Me.WindowState = 2
st
End Sub
Private Sub m_About_Click()
frmAbout.Show
End Sub
Private Sub m_adduser_Click()
hygl.Show
End Sub
Private Sub m_exit_Click()
Unload Me
End
End Sub
Private Sub m_kaoqinjilu_Click()
kaoqintj.Show
End Sub
Private Sub m_ruku_Click()
Form2.Show
End Sub
Private Sub m_setticheng_Click()
tcbl.Show
End Sub
Private Sub m_settime_Click()
setTime.Show
End Sub
Private Sub m_setyg_Click()
ygtj.Show
End Sub
Private Sub m_skinset_Click()
skin.Show
End Sub
Private Sub m_sy_Click()
sy.Show
End Sub
Private Sub m_viewd_Click()
yinyetj.Show
End Sub
Private Sub m_yggz_Click()
gztj.Show
End Sub
Private Sub m_ygkaoqin_Click()
kaoqin.Show
End Sub
Private Sub Timer1_Timer()
End Sub
Private Sub view_yyy_Click()
yyhz.Show
End Sub
Sub st()
Y = Screen.Height / Screen.TwipsPerPixelY
If Y = 768 Then
Image1.Picture = LoadPicture(App.Path & "\bg\bg2.jpg")
Image1.Height = Screen.Height + 400
Image1.Width = Screen.Width + 4000
ElseIf Y = 600 Then
Image1.Picture = LoadPicture(App.Path & "\bg\bg1.jpg")
Image1.Height = Screen.Height
Image1.Width = Screen.Width + 4000
Else
MsgBox "分辨率错误"
Image1.Picture = LoadPicture(App.Path & "\bg\bg.jpg")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -