mdiform1.frm

运用VB和SQL Server实现

         EndProperty
         BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel11 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel12 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
         BeginProperty Panel13 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   22049
            MinWidth        =   22049
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统"
      Begin VB.Menu Client_Edit 
         Caption         =   "用户管理"
      End
      Begin VB.Menu tianjia 
         Caption         =   "添加用户"
      End
      Begin VB.Menu DataBackupRestore 
         Caption         =   "数据备份与恢复"
      End
      Begin VB.Menu DataToExcel 
         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 HOME 
      Caption         =   "家政"
      Begin VB.Menu tongxun 
         Caption         =   "通讯录"
      End
      Begin VB.Menu beiwanglu 
         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 beiwanglu_Click()
Form_Beiwang.Show
End Sub

Private Sub bfhf_Click()
Form_BackupRestore.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()
    'Dim BankTrade As New frm_BankTrade
    'Load BankTrade
    'BankTrade.TradeEnableCancel = True
    'BankTrade.cmbType.ListIndex = 4
   ' BankTrade.cmbType.Enabled = False
   ' BankTrade.DTPickerTime = Date
    'BankTrade.Show vbModal, Me
    'Unload BankTrade
    'Set BankTrade = Nothing
  Form_Income.Show
End Sub

Private Sub datadc_Click()
Form_ToExcel.Show
End Sub

Private Sub DataBackupRestore_Click()
Form_BackupRestore.Show
End Sub

Private Sub DataToExcel_Click()
Form_ToExcel.Show
End Sub

Private Sub exit_Click()
If MsgBox("确定要退出系统么？", vbYesNo, "退出系统") = vbYes Then
   Unload Me
End If
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 tianjia_Click()
Form_UserInsert.Show
End Sub

Private Sub tongxun_Click()
Form_Tongxun.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 = "beifenhuifu" '数据的备份与恢复
        bfhf_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
    Case Is = "tongxun"      '通讯录
       Form_Tongxun.Show
     Case Is = "beiwang"     '备忘录
       Form_Beiwang.Show
End Select
End Sub