mdiform1.frm

本软件主要的使用对象是家庭与个人。它提供了比较完善的收支记录、查询修改、统计报表等功能。您可以自定义各种系统参数：如自定义用户名、密码、系统自动备份时间、资金不足警示、各种收支类型等。您还可以手动备份

            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "MDIForm1.frx":267C
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu system 
      Caption         =   "系统(&S)"
      Begin VB.Menu csh 
         Caption         =   "系统设置"
      End
      Begin VB.Menu fdg 
         Caption         =   "-"
      End
      Begin VB.Menu exi 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu szjl 
      Caption         =   "收支记录(&R)"
      Begin VB.Menu addszjl 
         Caption         =   "添加收支记录"
         Shortcut        =   {F2}
      End
      Begin VB.Menu dsf 
         Caption         =   "-"
      End
      Begin VB.Menu editszjl 
         Caption         =   "查询编辑记录"
         Shortcut        =   {F3}
      End
      Begin VB.Menu ghd 
         Caption         =   "-"
      End
      Begin VB.Menu zjld 
         Caption         =   "资金流动记录"
      End
   End
   Begin VB.Menu baobiao 
      Caption         =   "统计报表(&T)"
      Begin VB.Menu szbb 
         Caption         =   "收支统计报表(&T)"
         Shortcut        =   {F4}
      End
      Begin VB.Menu fdgdfg 
         Caption         =   "-"
      End
      Begin VB.Menu jsq 
         Caption         =   "计算器"
      End
   End
   Begin VB.Menu sjcl 
      Caption         =   "数据处理(&D)"
      Begin VB.Menu bakjl 
         Caption         =   "备份收支记录"
      End
      Begin VB.Menu irdt 
         Caption         =   "-"
      End
      Begin VB.Menu drszjl 
         Caption         =   "导入收支记录"
      End
   End
   Begin VB.Menu window 
      Caption         =   "窗口(&W)"
      Begin VB.Menu chongdie 
         Caption         =   "窗口层叠"
      End
      Begin VB.Menu fhsg 
         Caption         =   "-"
      End
      Begin VB.Menu pingpu 
         Caption         =   "水平平铺"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu softhelp 
         Caption         =   "软件帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu hrfd 
         Caption         =   "-"
      End
      Begin VB.Menu aboutsoft 
         Caption         =   "关于软件"
      End
      Begin VB.Menu kdyt 
         Caption         =   "-"
      End
      Begin VB.Menu aboutwrit 
         Caption         =   "新软工作室"
      End
   End
   Begin VB.Menu pop 
      Caption         =   "弹出菜单"
      Visible         =   0   'False
      Begin VB.Menu delterecoud 
         Caption         =   "删除记录"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub aboutsoft_Click()
Load Form8
Form8.Show
End Sub

Private Sub aboutwrit_Click()
Load Form9
Form9.Show
End Sub

Private Sub addszjl_Click()
Load Form4
Form4.Show
End Sub

Private Sub bakjl_Click()
On Error GoTo err
CommonDialog1.FileName = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
   Exit Sub
Else
FileCopy App.path + "\database.mdb", CommonDialog1.FileName
MsgBox "备份成功！" & "数据备份在：" & CommonDialog1.FileName
End If
'如果数据库没有关闭
err:
If err.Number = 70 Then MsgBox "请关闭您在本软件内打开的所有其它菜单窗口，再进行导入！"
End Sub

Private Sub chongdie_Click()
Me.Arrange vbCascade
End Sub

Private Sub csh_Click()
Load Form1
Form1.Show
End Sub

Private Sub delterecoud_Click()
On Error GoTo err
Form5.Adodc1.Recordset.Delete
err:
Exit Sub
End Sub

Private Sub drszjl_Click()
On Error GoTo err
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
   Exit Sub
Else
FileCopy CommonDialog1.FileName, App.path + "\Database.mdb"
MsgBox "导入成功！"
End If
'如果数据库没有关闭
err:
If err.Number = 70 Then MsgBox "请关闭您在本软件内打开的所有其它菜单窗口，再进行导入！"
End Sub

Private Sub editszjl_Click()
Load Form5
Form5.Show
End Sub

Private Sub exi_Click()
On Error GoTo err
If bfdb = 1 Then
FileCopy App.path + "\database.mdb", bfpath & "\收支记录备份.mdb"
MsgBox "系统巳根据您的设定自动进行了数据备份，备份文件在：" & bfpath & "\收支记录备份.mdb"
End If

'如果数据库没有关闭
err:
If err.Number = 70 Then
MsgBox "请关闭您在本软件内打开的所有菜单窗口，系统将在退出前自动备份数据库！"
Exit Sub
End If

End
End Sub


Private Sub jsq_Click()
Load Form10
Form10.Show
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error GoTo err
If bfdb = 1 Then
FileCopy App.path + "\database.mdb", bfpath & "\收支记录备份.mdb"
MsgBox "系统巳根据您的设定自动进行了数据备份，备份文件在：" & bfpath & "\收支记录备份.mdb"
End If

'如果数据库没有关闭
err:
If err.Number = 70 Then
MsgBox "请关闭您在本软件内打开的所有菜单窗口，系统将在退出前自动备份数据库！"
Cancel = 1
End If
End Sub

Private Sub pingpu_Click()
Me.Arrange 1
End Sub

Private Sub softhelp_Click()

If Dir(App.path & "\help.htm") = "" Then
Dim okc
okc = MsgBox("帮助文件没有找到！是否上网查找？", vbYesNo, "文件没有找到！")
If okc = vbYes Then ShellExecute hWnd, "open", "http://gogzy.126.com", vbNullString, vbNullString, conSwNormal
Else
ShellExecute hWnd, "open", App.path + "\help.htm", vbNullString, vbNullString, conSwNormal
End If

End Sub

Private Sub szbb_Click()
Load Form7
Form7.Show
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key
       Case "a"
        csh_Click
       Case "b"
        exi_Click
       Case "c"
        addszjl_Click
       Case "d"
        editszjl_Click
       Case "e"
         zjld_Click
       Case "f"
         szbb_Click
       Case "g"
         jsq_Click
       Case "h"
         bakjl_Click
       Case "i"
         drszjl_Click
       Case "j"
         chongdie_Click
       Case "k"
         pingpu_Click
       Case "l"
        ShellExecute hWnd, "open", "http://www.xin-soft.com", vbNullString, vbNullString, conSwNormal
       Case "m"
       Const WEB = "mailto:[e-mail]"
       Dim perjump As Integer ' hyperjumphy
       perjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
       Case "n"
         softhelp_Click
End Select
End Sub

Private Sub zjld_Click()
Load Form6
Form6.Show
End Sub