📄 mdifrm.dll
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{C30D627D-2D3A-433E-B3B6-6D83CC5D0B98}#1.0#0"; "HookMenu.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.MDIForm MDIfrm
BackColor = &H00FFFFFF&
Caption = "MDIForm1"
ClientHeight = 6405
ClientLeft = 165
ClientTop = 735
ClientWidth = 9000
Icon = "MDIfrm.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComDlg.CommonDialog CommonDialog1
Left = 720
Top = 1695
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "选择还原文件"
Filter = "备份卡(*.bak)|*.bak"
InitDir = "backup\"
End
Begin MSComctlLib.ImageList ImageList1
Left = 1800
Top = 1320
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 24
ImageHeight = 24
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":0FC4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":16BE
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":1DB8
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":24B2
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":2BC6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIfrm.frx":32DA
Key = ""
EndProperty
EndProperty
End
Begin HookMenu.ctxHookMenu ctxHookMenu1
Left = 4560
Top = 2160
_ExtentX = 900
_ExtentY = 900
MenuGradientColor= 16184565
MenuForeColor = -2147483640
MenuBorderColor = -2147483632
MenuGradientSelectColor= 0
PopupBorderColor= -2147483632
PopupBorderColor= -2147483640
PopupGradientSelectColor= 0
SideBarGradientColor= 16184565
CheckForeColor = -2147483641
ShadowColor = 0
BmpCount = 9
Bmp:1 = "MDIfrm.frx":39EE
Mask:1 = 16777215
Key:1 = "#munJCDA"
Bmp:2 = "MDIfrm.frx":3F40
Mask:2 = 16777215
Key:2 = "#munGZGL"
Mask:3 = 16711935
Key:3 = "#munXtsz"
Bmp:4 = "MDIfrm.frx":4492
Mask:4 = 16777215
Key:4 = "#munMMXG"
Bmp:5 = "MDIfrm.frx":49E4
Mask:5 = 16777215
Key:5 = "#munSJBF"
Bmp:6 = "MDIfrm.frx":4F36
Mask:6 = 16777215
Key:6 = "#munXTBZ"
Bmp:7 = "MDIfrm.frx":5488
Mask:7 = 16777215
Key:7 = "#munGsxx"
Bmp:8 = "MDIfrm.frx":59DA
Mask:8 = 16777215
Key:8 = "#munDLYHGL"
Bmp:9 = "MDIfrm.frx":5F2C
Key:9 = "#munGY"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 675
Left = 0
TabIndex = 1
Top = 0
Width = 9000
_ExtentX = 15875
_ExtentY = 1191
ButtonWidth = 1455
ButtonHeight = 1138
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "基础档案"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "工资管理"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "计算器"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "记事本"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
ImageIndex = 7
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 0
Top = 6105
Width = 9000
_ExtentX = 15875
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 7056
MinWidth = 7056
Picture = "MDIfrm.frx":6354
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
TextSave = "NUM"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
Enabled = 0 'False
TextSave = "CAPS"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Picture = "MDIfrm.frx":68EE
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Picture = "MDIfrm.frx":6C88
TextSave = "2009-1-12"
EndProperty
EndProperty
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 munDacz
Caption = "档案操作(&N)"
Begin VB.Menu munJCDA
Caption = "基础档案"
End
Begin VB.Menu munGZGL
Caption = "工资管理"
End
End
Begin VB.Menu munXtsz
Caption = "系统设置(&O)"
Begin VB.Menu munGsxx
Caption = "公司信息"
End
Begin VB.Menu munDwsz
Caption = "单位设置"
End
Begin VB.Menu munXtcs
Caption = "系统参数"
End
Begin VB.Menu feng
Caption = "-"
End
Begin VB.Menu munGJL
Caption = "工具栏"
End
Begin VB.Menu munZTL
Caption = "状态栏"
End
End
Begin VB.Menu munYhgl
Caption = "用户管理(&Y)"
Begin VB.Menu munDLYHGL
Caption = "登陆用户管理"
End
Begin VB.Menu munMMXG
Caption = "密码修改"
End
End
Begin VB.Menu munSjgl
Caption = "数据管理(&S)"
Begin VB.Menu munSJBF
Caption = "数据备份"
End
Begin VB.Menu munSJHY
Caption = "数据还原"
End
End
Begin VB.Menu munBZ
Caption = "帮助(&H)"
Begin VB.Menu munXTBZ
Caption = "系统帮助"
End
Begin VB.Menu munGY
Caption = "关于"
End
End
Begin VB.Menu munTc
Caption = "退出(&X)"
End
End
Attribute VB_Name = "MDIfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/12/17
'描 述：企事业单位人事管理系统 Ver 2007
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub MDIForm_Load()
Dim cCzyqx As String '本窗体使用的操作员权限
Me.Caption = gXtmc
Me.Picture = LoadPicture(App.Path & "\bg\bg.jpg")
Me.StatusBar1.Panels(1) = gGsmc
Me.StatusBar1.Panels(4) = "操作员： " & gCzy
'权限设定
Call OpenConn
SQL = "select * from 系统用户表 where czy='" & gCzy & "'"
rs.Open SQL, cn, 1, 1
cCzyqx = rs!czyqx
Call CloseConn
If Mid(cCzyqx, 1, 1) = 0 Then
munJCDA.Visible = False
Me.Toolbar1.Buttons(2).Visible = False
End If
If Mid(cCzyqx, 2, 1) = 0 Then
munGZGL.Visible = False
Me.Toolbar1.Buttons(3).Visible = False
End If
If Mid(cCzyqx, 3, 1) = 0 Then munDwsz.Visible = False
If Mid(cCzyqx, 4, 1) = 0 Then munXtcs.Visible = False
If Mid(cCzyqx, 5, 1) = 0 Then munDLYHGL.Visible = False
If Mid(cCzyqx, 6, 1) = 0 Then munSjgl.Visible = False
'-------------------------------------
munGJL.Checked = True '菜单属性
munZTL.Checked = True
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
If MsgBox("确认要退出系统吗?", vbInformation + vbYesNo, "提示") = vbYes Then
End
Else
Cancel = -1
End If
End Sub
Private Sub munDLYHGL_Click()
frmCZY.Show 1
End Sub
Private Sub munDwsz_Click()
frmDWSZ.Show 1
End Sub
Private Sub munGJL_Click()
munGJL.Checked = Not munGJL.Checked
Me.Toolbar1.Visible = munGJL.Checked
End Sub
Private Sub munGsxx_Click()
frmGSXX.Show 1
End Sub
Private Sub munGY_Click()
frmAbout.Show 1
End Sub
Private Sub munGZGL_Click()
If (MDIfrm.ActiveForm Is Nothing) = False Then
Unload MDIfrm.ActiveForm
End If
frmLoading.Show '载入完成后才显示
DoEvents
Load frm1GZGL
Unload frmLoading
frm1GZGL.Show
End Sub
Private Sub munJCDA_Click()
'MDI子窗体找开时先判断是否有别的子窗体打开，如果有就先关闭！
If (MDIfrm.ActiveForm Is Nothing) = False Then
Unload MDIfrm.ActiveForm
End If
'----------------------------------------
frmLoading.Show '载入完成后才显示
DoEvents
Load frmJCDA
Unload frmLoading
frmJCDA.Show
End Sub
Private Sub munMMXG_Click()
frmMMXG.Show 1
End Sub
Private Sub munSJBF_Click()
On Error GoTo ERR_line
newname = App.Path & "\data\data.cc"
datapath = App.Path & "\backup\" & Date & " 备份卡.bak"
FileCopy newname, datapath
MsgBox "数据已备份到 " & datapath, 64, "提示"
Exit Sub
ERR_line:
MsgBox "不能完成数据备份！", 48, "运行错误"
End Sub
Private Sub munSJHY_Click()
On Error GoTo ERR_line
Me.CommonDialog1.ShowOpen
snewname = Me.CommonDialog1.FileName
sdatapath = App.Path & "\data\data.cc"
If snewname <> "" Then
If MsgBox("还原后将覆盖原有数据，确定还原吗?", vbInformation + vbYesNo, "提示") = vbYes Then
FileCopy snewname, sdatapath
MsgBox "数据已经成功还原！请重新登陆 ", 48, "提示"
Unload Me
frmLogin.Show
Else
Exit Sub
End If
End If
Exit Sub
ERR_line:
MsgBox "不能完成数据还原，请进入系统后未做任何操作时进行！", 48, "运行错误"
End Sub
Private Sub munTc_Click()
If MsgBox("确认要退出系统吗?", vbInformation + vbYesNo, "提示") = vbYes Then
End
Else
Exit Sub
End If
End Sub
Private Sub munXTBZ_Click()
Shell "hh.exe help.chm", vbNormalFocus
End Sub
Private Sub munXtcs_Click()
frmXTSZ.Show 1
End Sub
Private Sub munZTL_Click()
munZTL.Checked = Not munZTL.Checked
Me.StatusBar1.Visible = munZTL.Checked
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case Is = 2
munJCDA_Click
Case Is = 3
munGZGL_Click
Case Is = 5
Shell ("calc.exe"), vbNormalFocus
Case Is = 6
Shell ("NOTEPAD.EXE"), vbNormalFocus
Case Is = 7
munTc_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -