📄 gzglxtbas.frm
字号:
MouseDownColor = 16761024
MouseOnColor = 16761024
StyleColor = -2147483646
Style3dColor1 = -2147483646
Style3dColor2 = -2147483646
Picture = "gzglxtbas.frx":8F10B
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MySuperMarket.XButton XButton7
Height = 480
Left = 6060
TabIndex = 7
ToolTipText = "关于"
Top = 0
Width = 525
_ExtentX = 926
_ExtentY = 847
Caption = ""
MouseDownColor = 16761024
MouseOnColor = 16761024
StyleColor = -2147483646
Style3dColor1 = -2147483646
Style3dColor2 = -2147483646
Picture = "gzglxtbas.frx":918BD
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = 6015
X2 = 6015
Y1 = 30
Y2 = 440
End
Begin VB.Line Line2
BorderColor = &H80000003&
X1 = 3735
X2 = 3735
Y1 = 30
Y2 = 440
End
Begin VB.Line Line1
BorderColor = &H80000003&
X1 = 765
X2 = 765
Y1 = 30
Y2 = 440
End
End
Begin VsMenu.ctxVsMenu ctxVsMenu1
Left = 1440
Top = 3000
_ExtentX = 900
_ExtentY = 900
BmpCount = 1
Mask:1 = 16711935
Key:1 = "#mnusysquit"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "新宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MenuDrawStyle = 2
UserSelectedMenuBackColour= 13040639
UserSelectedMenuBorderColour= 15717306
UserTopMenuBackColour= 16761765
UserTopMenuSelectedColour= 16769990
UserTopMenuHotColour= 33023
UserTopMenuHotBorderColour= 16711680
UserMenuBorderColour= 8388608
UserCheckBackColour= 8108783
UserCheckBorderColour= 16711680
UserGradientOne = 16777215
UserGradientTwo = 16761765
UserUseGradient = -1 'True
UserSelectedItemForeColour= 16384
UserSideBarColour= 16711680
End
Begin VB.Menu mnusys
Caption = "系统(&S)"
Begin VB.Menu mnusysquit
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu mnudata
Caption = "数据维护(&D)"
Begin VB.Menu mnudataadd
Caption = "增加"
End
Begin VB.Menu mnudatamodify
Caption = "修改"
End
Begin VB.Menu mnudatadelete
Caption = "删除"
End
End
Begin VB.Menu mnucount
Caption = "统计(&C)"
Begin VB.Menu mnucountsection
Caption = "按部门"
Begin VB.Menu mnucountsectionemp
Caption = "职工人数"
End
Begin VB.Menu mnucountsectionave
Caption = "平均工资"
End
Begin VB.Menu mnucountsectionsum
Caption = "工资总额"
End
End
Begin VB.Menu mnucountall
Caption = "按全体"
Begin VB.Menu mnucountallemp
Caption = "职工人数"
End
Begin VB.Menu mnucountallave
Caption = "平均工资"
End
Begin VB.Menu mnucountallsum
Caption = "工资总额"
End
End
End
Begin VB.Menu mnuquery
Caption = "查询(&Q)"
Begin VB.Menu mnuqueryname
Caption = "按姓名"
End
Begin VB.Menu mnuquerydepart
Caption = "按部门"
End
End
Begin VB.Menu mnuhelp
Caption = "帮助(&H)"
Begin VB.Menu mnuHelpAbout
Caption = "关于"
End
End
End
Attribute VB_Name = "frm开始"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim btns As Integer '变量声明
Private Sub Form_Load()
XButton1.MouseDownColor = RGB(182, 190, 220)
XButton1.MouseOnColor = RGB(182, 190, 220)
XButton2.MouseDownColor = RGB(182, 190, 220)
XButton2.MouseOnColor = RGB(182, 190, 220)
XButton3.MouseDownColor = RGB(182, 190, 220)
XButton3.MouseOnColor = RGB(182, 190, 220)
XButton4.MouseDownColor = RGB(182, 190, 220)
XButton4.MouseOnColor = RGB(182, 190, 220)
XButton5.MouseDownColor = RGB(182, 190, 220)
XButton5.MouseOnColor = RGB(182, 190, 220)
XButton6.MouseDownColor = RGB(182, 190, 220)
XButton6.MouseOnColor = RGB(182, 190, 220)
XButton7.MouseDownColor = RGB(182, 190, 220)
XButton7.MouseOnColor = RGB(182, 190, 220)
XButton7.MouseDownColor = RGB(182, 190, 220)
XButton7.MouseOnColor = RGB(182, 190, 220)
Set db = OpenDatabase(App.Path + "\db1.mdb")
'定义将打开的数据库和表
Set rt = db.OpenRecordset("职工表")
If rt.RecordCount = 0 Then
'如果表为空，将只能进行“增加”、“退出”和“帮助”操作
mnudatamodify.Enabled = False
mnudatadelete.Enabled = False
mnucount.Enabled = False
mnuquery.Enabled = False '删除相关工具按钮
btns = 8
Do While btns > 3
'frm开始.Toolbar1.Buttons.Remove (btns)
btns = btns - 1
Loop
End If
End Sub
Private Sub mnusysquit_click() '系统-退出菜单项
'关闭数据库和表，结束程序运行
End
End Sub
Private Sub mnudataadd_click() '数据维护-增加菜单项
frm增加.Show 1
End Sub
Private Sub mnudatadelete_click() '数据维护-删除菜单项
frm删除.Show 1
End Sub
Private Sub mnudatamodify_click() '数据维护-修改菜单项
frm修改.Show 1
End Sub
Private Sub mnucountsectionave_click() '统计-按部门-平均工资菜单项
frm部门平均工资.Show 1
End Sub
Private Sub mnucountsectionemp_click() '统计-按部门-职工人数菜单项
frm统计部门人数.Show 1
End Sub
Private Sub mnucountsectionsum_click() '统计-按部门-工资总额菜单项
frm部门工资总数.Show 1
End Sub
Private Sub mnucountallave_click() '统计-按全体-平均工资菜单项
frm统计平均工资.Show 1
End Sub
Private Sub mnucountallemp_click() '统计-按全体-职工人数菜单项
frm统计人数.Show 1
End Sub
Private Sub mnucountallsum_click() '统计-按全体-工资总额菜单项
frm统计工资总数.Show 1
End Sub
Private Sub mnuqueryname_click() '查询-按姓名菜单项
frm姓名查询.Show 1
End Sub
Private Sub mnuquerydepart_click() '查询-按部门菜单项
frm部门查询.Show 1
End Sub
Private Sub mnuHelpAbout_click() '帮助-关于菜单项
frm关于.Show 1
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnucount, vbPopupMenuCenterAlign Or vbPopupMenuRight - Button, X, Y
End If
End Sub
Private Sub XButton1_Click()
End
End Sub
Private Sub XButton2_Click()
frm增加.Show 1
End Sub
Private Sub XButton3_Click()
frm修改.Show 1
End Sub
Private Sub XButton4_Click()
frm删除.Show 1
End Sub
Private Sub XButton5_Click()
frm姓名查询.Show 1
End Sub
Private Sub XButton6_Click()
frm部门查询.Show 1
End Sub
Private Sub XButton7_Click()
frm关于.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -