📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIMainForm
BackColor = &H8000000C&
Caption = "家庭理财助手"
ClientHeight = 7005
ClientLeft = 165
ClientTop = 450
ClientWidth = 10890
LinkTopic = "MDIForm1"
Picture = "MDIForm1.frx":0000
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 10335
Width = 15240
_ExtentX = 26882
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2469
MinWidth = 2469
Text = "欢迎使用"
TextSave = "欢迎使用"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 22049
MinWidth = 22049
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2646
MinWidth = 2646
Text = "1.0版本"
TextSave = "1.0版本"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 420
Left = 0
TabIndex = 0
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 741
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Consumer"
Object.ToolTipText = "用户"
ImageIndex = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "exitsystem"
Object.ToolTipText = "退出"
ImageIndex = 9
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "type"
Object.ToolTipText = "项目"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "bank"
Object.ToolTipText = "账户"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "income"
Object.ToolTipText = "收入"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "output"
Object.ToolTipText = "支出"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "live"
Object.ToolTipText = "活期"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ding"
Object.ToolTipText = "定期"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "jiechu"
Object.ToolTipText = "借出"
ImageIndex = 2
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "jieru"
Object.ToolTipText = "借入"
ImageIndex = 10
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "month"
Object.ToolTipText = "每月查询"
ImageIndex = 11
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "tong"
Object.ToolTipText = "统计"
ImageIndex = 12
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "about"
Object.ToolTipText = "关于"
ImageIndex = 13
EndProperty
EndProperty
OLEDropMode = 1
Begin MSComctlLib.ImageList ImageList1
Left = 8400
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 13
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":62A80
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":635CA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":69E2C
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":91ACE
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":97D68
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":9877A
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":98BD4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":995E6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":99A40
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":99D5A
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":9C50C
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":A27A6
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":A2BF8
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Menu System
Caption = "系统"
Begin VB.Menu Client_Edit
Caption = "用户管理"
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu FINANCE
Caption = "理财项目"
Begin VB.Menu SHOUZHIMENU
Caption = "收支项目"
End
Begin VB.Menu BANKNAME
Caption = "开户银行"
End
End
Begin VB.Menu MANAGE
Caption = "日常管理"
Begin VB.Menu DAILY_INCOME
Caption = "日常收入"
End
Begin VB.Menu DAILY_EXPENSE
Caption = "日常支出"
End
Begin VB.Menu symbol1
Caption = "-"
End
Begin VB.Menu LIVE_ACCOUNT
Caption = "活期帐户结余"
End
Begin VB.Menu FIXED
Caption = "定期帐户结余"
End
Begin VB.Menu symbol2
Caption = "-"
End
Begin VB.Menu BORROW
Caption = "借入款"
End
Begin VB.Menu LEND
Caption = "借出款"
End
End
Begin VB.Menu STATISTICS
Caption = "统计报告"
Begin VB.Menu MONTH_LIST
Caption = "每月明细"
End
Begin VB.Menu INCOME_EXPENSE
Caption = "收支统计"
End
End
Begin VB.Menu HELP
Caption = "帮助"
Begin VB.Menu ABOUT
Caption = "关于"
End
End
End
Attribute VB_Name = "MDIMainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ABOUT_Click()
Form_About.Show
End Sub
Private Sub BANKNAME_Click()
Form_bank.Show
End Sub
Private Sub BORROW_Click()
Form_Jieru.Show
End Sub
Private Sub Client_Edit_Click()
Form_Consumer.Show
End Sub
Private Sub DAILY_EXPENSE_Click()
Form_Output.Show
End Sub
Private Sub DAILY_INCOME_Click()
Form_Income.Show
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub FIXED_Click()
Form_Ding.Show
End Sub
Private Sub INCOME_EXPENSE_Click()
Form_Tong.Show
End Sub
Private Sub LEND_Click()
Form_JIECHU.Show
End Sub
Private Sub LIVE_ACCOUNT_Click()
Form_Live.Show
End Sub
Private Sub MONTH_LIST_Click()
Form_Month.Show
End Sub
Private Sub SHOUZHIMENU_Click()
Form_Type.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) '工具条的操作
Select Case Button.Key
Case Is = "Consumer" '用户管理
Client_Edit_Click
Case Is = "exitsystem" '退出
Exit_Click
Case Is = "type" '收支项目
SHOUZHIMENU_Click
Case Is = "bank" '开户银行
BANKNAME_Click
Case Is = "income" '日常收入
DAILY_INCOME_Click
Case Is = "output" '日常支出
DAILY_EXPENSE_Click
Case Is = "jiechu" '借出款
Form_JIECHU.Show
Case Is = "jieru" '借入款
Form_Jieru.Show
Case Is = "live" '活期帐户结余
LIVE_ACCOUNT_Click
Case Is = "ding" '定期帐户结余
FIXED_Click
Case Is = "month" '每月明细
Form_Month.Show
Case Is = "tong" '收支统计
Form_Tong.Show
Case Is = "about" '关于
Form_About.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -