?? frm_main.frm

?? 只共參考.代碼編寫上如有什么問題請與本人聯系.
?? FRM
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frm_main 
   Caption         =   "小財迷1.0"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   Icon            =   "frm_main.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Palette         =   "frm_main.frx":030A
   Picture         =   "frm_main.frx":1DB0E
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   960
      Top             =   2280
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
      DefaultExt      =   "mdb"
      Filter          =   "mdb"
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   3960
      Top             =   840
      _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         =   "frm_main.frx":25DB50
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25DEEC
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25E7C8
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25EB64
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25EF00
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25F29C
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25F638
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25F9D4
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":25FD70
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":26010C
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":2604A8
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":260844
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frm_main.frx":261120
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   1080
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   1905
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   17
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "項目管理"
            Object.ToolTipText     =   "項目管理"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "添加家庭成員"
            Object.ToolTipText     =   "添加家庭成員"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "修改密碼"
            Object.ToolTipText     =   "修改密碼"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "導出數據庫"
            Object.ToolTipText     =   "導出數據庫"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "導入數據庫"
            Object.ToolTipText     =   "導入數據庫"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "日常收入"
            Object.ToolTipText     =   "日常收入"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "日常支出"
            Object.ToolTipText     =   "日常支出"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "活期存款"
            Object.ToolTipText     =   "活期存款"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "每月明細"
            Object.ToolTipText     =   "每月明細"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "查詢"
            Object.ToolTipText     =   "查詢"
            ImageIndex      =   10
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "幫助"
            Object.ToolTipText     =   "幫助"
            ImageIndex      =   11
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "關于"
            Object.ToolTipText     =   "關于"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "退出"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   13
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnu_xt 
      Caption         =   "系統設置(&S)"
      Begin VB.Menu mnu_xt_xu 
         Caption         =   "項目管理"
      End
      Begin VB.Menu mnu_xy_family 
         Caption         =   "添加家庭成員"
      End
      Begin VB.Menu mnu_0 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_xt_xg 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu mnu_xt_shz 
         Caption         =   "更改使用者"
      End
      Begin VB.Menu mnu_2 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_bf 
         Caption         =   "數據備份"
      End
      Begin VB.Menu mnu_hf 
         Caption         =   "數據恢復"
      End
   End
   Begin VB.Menu mnu_rcgl 
      Caption         =   "日常管理(&N)"
      Begin VB.Menu mnu_rcgl_sr 
         Caption         =   "日常收入"
      End
      Begin VB.Menu mnu_rcgl_zc 
         Caption         =   "日常支出"
      End
      Begin VB.Menu mnu_rcgl_hq 
         Caption         =   "活期帳戶"
      End
      Begin VB.Menu mnu_rcgl_dq 
         Caption         =   "定期儲蓄"
      End
      Begin VB.Menu mnu_3 
         Caption         =   "-"
      End
      Begin VB.Menu mnu_rcgl_jr 
         Caption         =   "借入款"
      End
      Begin VB.Menu mnu_rcgl_jc 
         Caption         =   "借出款"
      End
   End
   Begin VB.Menu mnu_cx 
      Caption         =   "查詢(&Q)"
   End
   Begin VB.Menu mnu_bg 
      Caption         =   "理財報告(&R)"
      Begin VB.Menu mnu_bg_yue 
         Caption         =   "每月明細"
      End
      Begin VB.Menu mnu_bg_tj 
         Caption         =   "收支統計"
      End
   End
   Begin VB.Menu mnu_bz 
      Caption         =   "幫助(&H)"
      Begin VB.Menu mnu_bz_zt 
         Caption         =   "幫助主題"
      End
      Begin VB.Menu mnu_bz_gy 
         Caption         =   "關于"
      End
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnu_bg_yue_Click()
            frm_list.Show 0, frm_main     '參數,讓frm_main為主窗體打開多個子窗體
End Sub

Private Sub mnu_bz_gy_Click()
            frm_About.Show 0, frm_main
End Sub

Private Sub mnu_bz_zt_Click()
MsgBox 11
End Sub

Private Sub mnu_cx_shouru_Click()
            frm_query.Show 0, frm_main
End Sub

Private Sub mnu_cx_Click()
            frm_query.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_dq_Click()
            frm_fix.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_hq_Click()
            frm_live.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_jc_Click()
              frm_borrowgo.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_jr_Click()
            frm_borrowin.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_sr_Click()
            frm_intake.Show 0, frm_main
End Sub

Private Sub mnu_rcgl_zc_Click()
            frm_expend.Show 0, frm_main
End Sub

Private Sub mnu_xt_shz_Click()
            frm_login.Show
            Unload Me
End Sub

Private Sub mnu_xt_xg_Click()
            frm_password.Show 0, frm_main
End Sub

Private Sub mnu_xt_xu_Click()
            frm_project.Show 0, frm_main
End Sub

Private Sub mnu_xy_family_Click()
            frm_family.Show 0, frm_main
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
            Select Case Button.Index
                   Case 1
                        Call mnu_xt_xu_Click
                   Case 2
                        Call mnu_xy_family_Click
                   Case 3
                        Call mnu_xt_xg_Click
                   Case 5
                        Call FileGo
                   Case 6
                        Call FileIn
                   Case 8
                        Call mnu_rcgl_sr_Click
                   Case 9
                        Call mnu_rcgl_zc_Click
                   Case 10
                        Call mnu_rcgl_hq_Click
                   Case 11
                        mnu_bg_yue_Click
                   Case 13
                        Call mnu_cx_Click
                   Case 15
                        MsgBox "help"
                   Case 16
                        Call mnu_bz_gy_Click
                   Case 17
                        MsgBox "謝謝使用！", , "小財迷"
                        Unload Me
                   End Select
End Sub
Private Function FileGo()
        On Error Resume Next
        Dim A, B As String

        CommonDialog1.ShowSave
        A = CommonDialog1.FileName
        B = CurDir() & "\" & "MISER.MDB"
        Set fs = CreateObject("Scripting.FileSystemObject")
        fs.CopyFile B, A
        MsgBox "數據庫導出成功！", vbOKOnly + 64, "成功"
        
        
        
        'CommonDialog1.ShowSave
        'A = CommonDialog1.FileName
        'B = CurDir() & "\" & "MISER.MDB"
        'FileCopy B, A
        'MsgBox "b\" & B
        'MsgBox "a\" & A
End Function
Private Function FileIn()
        On Error Resume Next
        Dim A, B, C, D As String
        
        C = MsgBox("是否真的導入數據庫，導入新數據庫后，將覆蓋原來的所有錄？", vbYesNo + 48 + 256, "警告")
        If C = vbYes Then
           CommonDialog1.ShowOpen
           A = CommonDialog1.FileName
           B = CurDir() & "\" & "MISER.MDB"
           'D = CurDir() & "\" & "MISER.MDB"
           Set Fs1 = CreateObject("Scripting.FileSystemObject")
           'Fs1.DeleteFile D, True
           Fs1.CopyFile A, B
           MsgBox "數據庫導入成功！", vbOKOnly + 64, "成功"
        End If
End Function
?? 文件大小 825 K
?? 上傳用戶 SLing2008
?? 所屬分類家庭/個人應用
??? 相關標簽

#代碼 #編寫
?? 快捷鍵說明

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

?? frm_main.frm

?? 快捷鍵說明
