📄 系统.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form4
BorderStyle = 0 'None
Caption = "医院工资管理系统"
ClientHeight = 7620
ClientLeft = 150
ClientTop = 435
ClientWidth = 10755
Icon = "系统.frx":0000
LinkTopic = "Form4"
MaxButton = 0 'False
ScaleHeight = 7620
ScaleWidth = 10755
StartUpPosition = 1 '所有者中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 0
Top = 7215
Width = 10755
_ExtentX = 18971
_ExtentY = 714
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Enabled = 0 'False
Object.Width = 9869
MinWidth = 9878
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 9022
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 10200
Top = 7080
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":094F
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":0F01
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":139A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":1924
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":1E15
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":2343
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":281C
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "系统.frx":2D9D
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 10755
_ExtentX = 18971
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "a"
Object.ToolTipText = "生成上报盘"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "b"
Object.ToolTipText = "浏览员工信息"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "c"
Object.ToolTipText = "查询"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "d"
Object.ToolTipText = "工资汇总"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "e"
Object.ToolTipText = "打印"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "f"
Object.ToolTipText = "压缩修复数据库"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "g"
Object.ToolTipText = "修改密码"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "h"
Object.ToolTipText = "帮助"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "i"
Object.ToolTipText = "退出"
ImageIndex = 9
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 10140
Left = 0
Stretch = -1 'True
Top = 720
Width = 15315
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu brow
Caption = "编辑员工信息"
End
Begin VB.Menu insert
Caption = "调入新员工"
End
Begin VB.Menu reload
Caption = "重新登陆"
End
Begin VB.Menu quit
Caption = "退出(&X))"
End
End
Begin VB.Menu search
Caption = "查询(&L)"
Begin VB.Menu name
Caption = "按姓名查询(&N)"
End
Begin VB.Menu bmcx
Caption = "按部门查询(&C)"
End
Begin VB.Menu xmcx
Caption = "按日期查询"
End
End
Begin VB.Menu other
Caption = "其它(&Q)"
Begin VB.Menu ggmm
Caption = "更改密码(&R)"
End
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim myyear, mymonth, myday, mydate, constr1, constr2 As String
Dim yn, picw, pich As Integer
Dim jro As New jro.JetEngine
Dim Form As Form
Private Sub bmcx_Click()
Form6.Show
End Sub
Private Sub brow_Click()
Form10.Show
End Sub
Private Sub change_Click()
Form13.Show
End Sub
Private Sub Form_Load()
myyear = Year(Now)
mymonth = Month(Now)
myday = Day(Now)
mydate = myyear & "年" & mymonth & "月" & myday & "日"
StatusBar1.Panels(1).Text = "今天是" + mydate
Me.Caption = "事业单位通用工资管理系统 使用者：" + user
Image1.Picture = LoadPicture(App.Path + "\back.jpg")
picw = Image1.Width
pich = Image1.Height
Me.Width = Screen.Width
Me.Height = Screen.Height
End Sub
Private Sub Form_Resize()
Image1.Width = Form4.Width
Image1.Height = Image1.Width * (pich / picw)
End Sub
Private Sub ggmm_Click()
Form8.Show 1
End Sub
Private Sub insert_Click()
Form9.Show 1
End Sub
Private Sub name_Click()
Form2.Show 1
End Sub
Private Sub quit_Click()
yn = MsgBox("您确定要退出系统吗", vbYesNo, "提示")
If yn = 6 Then
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End If
End Sub
Private Sub reload_Click()
Form4.Hide
Form3.Show 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "a"
Form12.Show
Case "b"
Form10.Show
Case "c"
Form5.Show
Case "d"
Mainfrm.Show
Case "e"
Mainfrm.Show
Mainfrm.Command1.Enabled = True
Case "f"
constr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=gzgl.mdb"
constr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=newgzgl.mdb"
jro.CompactDatabase constr1, constr2
Kill App.Path & "\gzgl.mdb"
Name "newgzgl.mdb" As "gzgl.mdb"
MsgBox "数据库压缩成功！", 64, "恭喜！"
Case "g"
Form8.Show
Case "h"
Form11.Show
Case "i"
yn = MsgBox("您确定要退出系统吗", vbYesNo, "提示")
If yn = 6 Then
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End If
End Select
End Sub
Private Sub xmcx_Click()
Form7.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -