?? mdiform1.frm

?? 畢業設計源代碼
?? 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
?? 文件大小 1432 K
?? 上傳用戶 jun604001464
?? 所屬分類教育系統應用
??? 相關標簽

#畢業設計 #源代碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mdiform1.frm

?? 快捷鍵說明
