📄 frmmain.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm FrmMain
BackColor = &H00C0FFFF&
Caption = "企业人事管理系统 "
ClientHeight = 7335
ClientLeft = 165
ClientTop = 450
ClientWidth = 9675
Icon = "FrmMain.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Moveable = 0 'False
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 9675
_ExtentX = 17066
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 4
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "人事信息"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "考勤信息"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "调动信息"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "退出"
Object.Tag = ""
ImageIndex = 4
EndProperty
EndProperty
Begin ComctlLib.ImageList ImageList1
Left = 6840
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 4
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":0BE4
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":0EFE
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "FrmMain.frx":1218
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Menu System
Caption = "系统"
Index = 1
Begin VB.Menu Add_User
Caption = "添加用户"
End
Begin VB.Menu Change_PWD
Caption = "修改密码"
End
Begin VB.Menu System_EXIT
Caption = "退出"
End
End
Begin VB.Menu Stuff_Info
Caption = "员工基本信息"
Index = 2
Begin VB.Menu Stuffinfo
Caption = "员工基本信息管理"
End
End
Begin VB.Menu Stuff_Checkin
Caption = "员工考勤信息"
Index = 3
Begin VB.Menu inout
Caption = "员工出勤信息管理"
End
Begin VB.Menu otherkq
Caption = "员工其它考勤信息管理"
End
Begin VB.Menu SetTime
Caption = "设置上下班时间"
End
End
Begin VB.Menu Stuff_Alteration
Caption = "员工调动信息"
Index = 4
Begin VB.Menu ddxx
Caption = "员工调动信息维护"
End
End
Begin VB.Menu prnmenu
Caption = "打印"
Begin VB.Menu prnstuffinfo
Caption = "打印员工基本信息"
End
Begin VB.Menu prnstuffattend
Caption = "打印员工上下班信息"
End
End
Begin VB.Menu System_Help
Caption = "帮助"
Index = 6
Begin VB.Menu About
Caption = "关于"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private SQL As String
Private Sub About_Click() '关于窗体
frmAbout.Show
frmAbout.ZOrder 0
End Sub
Private Sub Add_Alter_Click() '添加调动信息
flag = 1
frmAlteration.Caption = "添加员工调动信息"
frmAlteration.Show
frmAlteration.ZOrder 0
End Sub
Private Sub Add_Stuff_Click() '添加员工信息
flag = 1
frmStuff_info.Show
frmStuff_info.ZOrder 0
'frmStuff.Show
'frmStuff.ZOrder 0
End Sub
Private Sub Add_User_Click() '添加用户
Dim fAdd As New frmAddUser
fAdd.Show
fAdd.ZOrder 0
End Sub
Private Sub AddAttendance_Click() '添加上下班信息
flag = 1
FrmAttendance.Show
FrmAttendance.ZOrder 0
End Sub
Private Sub AddOtherKQ_Click() '添加其他考勤信息
flag = 1
frmOtherKQ.Show
frmOtherKQ.ZOrder 0
End Sub
Private Sub Chage_Alter_Click() '修改调动信息
frmAlterationResult.Show
frmAlterationResult.ZOrder 0
End Sub
Private Sub Change_PWD_Click() '修改密码
Dim fChangePWD As New frmChangePWD
fChangePWD.Show
End Sub
Private Sub Change_Stuff_Click() '修改员工信息
frmCheckStuff.topic = "选择修改条件"
frmCheckStuff.Caption = "修改员工基本信息"
SQL = "select * from StuffInfo order by SID"
frmResult.createList (SQL)
frmResult.Show
frmResult.ZOrder 0
frmCheckStuff.Show
frmCheckStuff.ZOrder 0
End Sub
Private Sub ChangeAttendance_Click() '修改上下班信息
frmAResult.Show
frmAResult.ZOrder 0
End Sub
Private Sub changeOtherKQ_Click() '修改其他考勤信息
frmOKQResult.Show
frmOKQResult.ZOrder 0
End Sub
Private Sub Check_Alter_Click() '查询调动信息
frmCheckAlter.Show
frmCheckAlter.ZOrder 0
End Sub
Private Sub Check_Checkin_Click() '查询其他考勤信息
frmCheckKQ.Show
frmCheckKQ.ZOrder 0
End Sub
Private Sub Check_Stuff_Click() '查询员工信息
SQL = "select * from StuffInfo"
frmResult.createList (SQL)
frmResult.Show
frmCheckStuff.Show
frmResult.ZOrder 1
frmCheckStuff.ZOrder 0
End Sub
Private Sub ddxx_Click()
frmAlterationResult.Show
End Sub
Private Sub Del_Alter_Click() '删除调动信息
frmAlterationResult.Show
frmAlterationResult.ZOrder 0
End Sub
Private Sub Del_Stuff_Click() '删除员工信息
frmCheckStuff.topic = "选择删除条件"
frmCheckStuff.Caption = "删除员工基本信息"
SQL = "select * from StuffInfo"
frmResult.createList (SQL)
frmResult.Show
frmCheckStuff.Show
frmResult.ZOrder 1
frmCheckStuff.ZOrder 0
End Sub
Private Sub delInOut_Click() '删除上下班信息
Dim SQL As String
SQL = "select * from AttendanceInfo order by ID desc"
Call frmAResult.ListTopic
Call frmAResult.ShowData(SQL)
frmAResult.Show
frmAResult.ZOrder 0
End Sub
Private Sub delOtherKQ_Click() '删除其他考勤信息
frmOKQResult.Show
frmOKQResult.ZOrder 0
End Sub
Private Sub inout_Click()
frmAResult.Show
End Sub
Private Sub otherkq_Click()
frmOKQResult.Show
End Sub
Private Sub prnstuffattend_Click()
DataReport2.Show
End Sub
Private Sub prnstuffinfo_Click()
DataReport1.Show
End Sub
Private Sub SetTime_Click() '设置上下班时间
frmSetTime.Show
frmSetTime.ZOrder 0
End Sub
Private Sub Stuffinfo_Click()
SQL = "select * from StuffInfo order by SID"
frmstuffinfoResult.createList (SQL)
frmstuffinfoResult.Show
frmstuffinfoResult.ZOrder 0
End Sub
Private Sub System_EXIT_Click()
Unload Me
Exit Sub
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
Case 1
Dim SQL As String
' frmsearchStuff.topic = "选择修改条件"
' frmsearchStuff.Caption = "修改员工基本信息"
SQL = "select * from StuffInfo order by SID"
frmstuffinfoResult.createList (SQL)
frmstuffinfoResult.Show
frmstuffinfoResult.ZOrder 0
'frmsearchStuff.Show
' frmsearchStuff.ZOrder 0
' flag = 1
' frmStuff.Show
Case 2
frmkqcheckresult.Show
Case 3
frmAlterationResult.Show
Case 4
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -