📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmmain
Caption = "日常生活开支管理系统"
ClientHeight = 8790
ClientLeft = 3615
ClientTop = 855
ClientWidth = 12135
Icon = "frmmain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 8790
ScaleWidth = 12135
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 8415
Width = 12135
_ExtentX = 21405
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 15769
Text = "status"
TextSave = "status"
Object.ToolTipText = "显示当前操作"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-3-18"
Object.ToolTipText = "显示当前日期"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "11:33"
Object.ToolTipText = "显示当前时间"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 5280
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":0556
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":06F2
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmmain.frx":088E
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 0
Top = 0
Width = 12135
_ExtentX = 21405
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 953
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增"
Key = "新增"
Object.ToolTipText = "新增一条记录"
ImageIndex = 1
Style = 2
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "修改"
Object.ToolTipText = "删除、修改记录"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "查询"
Object.ToolTipText = "查询记录"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "退出"
ImageIndex = 4
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 15000
Left = 0
Picture = "frmmain.frx":09A2
Top = 600
Width = 18750
End
Begin VB.Menu system
Caption = "系统操作(&S)"
Begin VB.Menu adduser
Caption = "增加用户"
End
Begin VB.Menu modiuser
Caption = "修改用户密码"
End
Begin VB.Menu sysdata_setup
Caption = "系统数据设置"
End
Begin VB.Menu cleardata
Caption = "清空数据"
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Begin VB.Menu payoutop
Caption = "开支操作(&P)"
Begin VB.Menu add
Caption = "新增"
Shortcut = ^A
End
Begin VB.Menu query
Caption = "查询"
Shortcut = ^Q
End
Begin VB.Menu modify
Caption = "修改"
Shortcut = ^M
End
End
Begin VB.Menu ru_op
Caption = "收入管理(&R)"
Begin VB.Menu addnew
Caption = "新增"
End
Begin VB.Menu ru_query
Caption = "收入查询"
End
End
Begin VB.Menu report
Caption = "报表(&R)"
Begin VB.Menu report_window
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 Sub add_Click()
frmaddnew.Show
Unload Me
End Sub
Private Sub addnew_Click()
frmruaddnew.Show
frmmain.Hide
End Sub
Private Sub adduser_Click()
frmadduser.Show
Unload Me
End Sub
Private Sub cleardata_Click()
Dim db As Database
Set db = OpenDatabase(App.Path & "\payout.mdb")
Dim ask As String
ask = MsgBox("你真的确定删除数据库中的所有数据吗?数据一旦删除就无法恢复,请慎重!", vbOKCancel + vbExclamation, "警告")
If ask = vbYes Then
db.Execute ("delete * from payout")
db.Execute ("delete * from dkind")
db.Execute ("delete * from xkind")
db.Execute ("delete * from payname")
Else
Exit Sub
End If
End Sub
Private Sub exit_Click()
Dim a As String
a = MsgBox("你是否真的要退出本系统?", vbYesNo + vbQuestion, "询问")
If a = vbYes Then
Unload Me
End If
End Sub
Private Sub Form_Resize()
Image1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub modify_Click()
frmmodi_del.Show
Unload Me
End Sub
Private Sub modiuser_Click()
frmuser_modi.Show
Unload Me
End Sub
Private Sub query_Click()
frmquery.Show
Unload Me
End Sub
Private Sub report_window_Click()
frmreport.Show
Unload Me
End Sub
Private Sub ru_query_Click()
frmruquery.Show
frmmain.Hide
End Sub
Private Sub sysdata_setup_Click()
frmsysdata.Show
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "新增"
frmaddnew.Show
Unload Me
Case "修改"
frmmodi_del.Show
Unload Me
Case "查询"
frmquery.Show
Unload Me
Case "退出"
Dim a As String
a = MsgBox("你是否真的要退出本系统?", vbYesNo + vbQuestion, "询问")
If a = vbYes Then
Unload Me
End If
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -