mainfrm.frm

用于家庭收支管理

Attribute VB_Name = "mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Const MF_BYPOSITION = &H400&

 Const MF_REMOVE = &H1000&

Private Sub cxllhelp_Click()
Load cxll
 cxll.Show
End Sub

Private Sub endpro_Click()
End
End Sub

Private Sub fxtjc_Click()
Load fxtj
fxtj.Show
End Sub

Private Sub guanyu_Click()
 Load zuoze
zuoze.Show
  
End Sub

Private Sub helpli_Click()
 HtmlHelpA mainfrm.hwnd, App.Path + "\使用说明.chm", 0, 0
End Sub
Public Sub DisableX()
     Dim hMenu As Long
     Dim nCount As Long
     hMenu = GetSystemMenu(Me.hwnd, 0)
     nCount = GetMenuItemCount(hMenu)
     'Get rid of the Close menu and its separator
     Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
     Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
     'Make sure the screen updates
     'our change　　 DrawMenuBar Me.hWnd
End Sub

Private Sub MDIForm_Load()
Call xiesz

Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)

lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)
 DisableX

 frmdj.Show
 Call CheckExist(mainfrm)
 
End Sub

Private Sub Timer1_Timer()
te = 2
Load rjtx
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If Cancel = 0 Then
   End
   Else
   End
   End If
End Sub

Private Sub passgan_Click()
ret1 = GetSetting("yonghu", "start", "word")
       SaveSetting "yonghu", "start", "word", "first"
       
       Load password
       password.Show
       password.Label2.Caption = "输入你新密码:"
       password.Caption = "用户密码修改"
      ret2 = GetSetting("yonghu", "start", "word")
      
      If ret1 = ret2 Then
          SaveSetting "yonghu", "start", "word", ret2
          Else
          SaveSetting "yonghu", "start", "word", ret1
     End If
End Sub

Private Sub rjtxc_Click()
 te = 0
   Load rjtx
 
   rjtx.Show
End Sub

Private Sub tjjl_Click()
Load frmdj
frmdj.Show
End Sub

Private Sub tjlb_Click()
Load tjlbform
tjlbform.Show
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
       Case Is = "add"
   


      Load frmdj
      frmdj.Show
      frmdj.SetFocus
     
      
    
       Case Is = "qian"
           Select Case formname
              Case "mxdj"
                 If frmdj.Data2.Recordset.RecordCount <> 0 Then
                    frmdj.Data2.Recordset.MovePrevious
                    If frmdj.Data2.Recordset.BOF Then
                         mainfrm.Toolbar1.Buttons(4).Enabled = False
                         mainfrm.Toolbar1.Buttons(5).Enabled = True
                    Else
                    mainfrm.Toolbar1.Buttons(5).Enabled = True
                     End If
                Else
                    MsgBox "无记录可操作。", 48, "提示"

                End If
            Case "form1"
            End Select
       Case Is = "next"
          Select Case formname
             Case "mxdj"
                 If frmdj.Data2.Recordset.RecordCount <> 0 Then
                     frmdj.Data2.Recordset.MoveNext
                     If frmdj.Data2.Recordset.EOF Then
                         mainfrm.Toolbar1.Buttons(4).Enabled = True
                           mainfrm.Toolbar1.Buttons(5).Enabled = False
                     Else
                     mainfrm.Toolbar1.Buttons(4).Enabled = True
              
                     End If
                 Else
                     MsgBox "无记录可操作。", 48, "提示"
                 End If
            Case "form1"
           End Select
       Case Is = "edit" '修改记录
           Select Case formname
           Case "mxdj"
               mainfrm.Toolbar1.Buttons(3).Enabled = False
               mainfrm.Toolbar1.Buttons(4).Enabled = False
               mainfrm.Toolbar1.Buttons(5).Enabled = False
                 mainfrm.Toolbar1.Buttons(2).Enabled = False
                 mainfrm.Toolbar1.Buttons(6).Visible = True
              If frmdj.Data2.Recordset.RecordCount <> 0 Then '有记录时
                   frmdj.Text4.Locked = False
                   frmdj.Text8.Locked = False
                    frmdj.Text9.Locked = False
                   frmdj.Combo2.Locked = False
                    frmdj.Combo3.Locked = False
                    frmdj.Data2.Recordset.Edit
            End If
        Case "form1"
           End Select
       Case Is = "del" '删除记录
          Select Case formname
              Case "mxdj"
                  If frmdj.Data2.Recordset.RecordCount <> 0 Then
                    yn = MsgBox("真的要删除当前的记录吗？", 36, "提示")
                    If yn = 6 Then
                        frmdj.Data2.Recordset.Delete
                        frmdj.Data2.Refresh
                        frmdj.Data2.Recordset.MoveLast
                    End If
                  End If
             Case "cxll"
                 If cxll.Data1.Recordset.RecordCount <> 0 Then
                    yn = MsgBox("真的要删除所查的记录吗？", 36, "提示")
                    If yn = 6 Then
                        cxll.Data1.Recordset.MoveFirst
                        While Not cxll.Data1.Recordset.EOF
                        cxll.Data1.Recordset.Delete
                        
                        cxll.Data1.Recordset.MoveLast
                        Wend
                        cxll.Data1.Refresh
                    End If
                  End If
         End Select
       Case Is = "exit"
             End
       Case Is = "help"
       
       HtmlHelpA mainfrm.hwnd, App.Path + "\使用说明.chm", 0, 0
       Case Is = "tongji"
           Load fxtj
           fxtj.Show
     
       Case Is = "chaxun"
        Load cxll
        cxll.Show
         Unload frmdj
       
       Case Is = "about"
      Load zuoze
      zuoze.Show
      Case Is = "pass"
      ret1 = GetSetting("yonghu", "start", "word")
       SaveSetting "yonghu", "start", "word", "first"
       
       Load password
       password.Show
       password.Label2.Caption = "输入你新密码:"
       password.Caption = "用户密码修改"
      ret2 = GetSetting("yonghu", "start", "word")
      
      If ret1 = ret2 Then
          SaveSetting "yonghu", "start", "word", ret2
          Else
          SaveSetting "yonghu", "start", "word", ret1
     End If
     Case Is = "shua"
        Select Case formname
              Case "mxdj"
                  On Error GoTo li
                  frmdj.Data2.Refresh
                  frmdj.Data2.Recordset.MoveLast
                   mainfrm.Toolbar1.Buttons(3).Enabled = True
                  mainfrm.Toolbar1.Buttons(4).Enabled = True
                  mainfrm.Toolbar1.Buttons(5).Enabled = True
                   mainfrm.Toolbar1.Buttons(2).Enabled = True
                    mainfrm.Toolbar1.Buttons(6).Visible = False
                  frmdj.Text4.Locked = True
                   frmdj.Text8.Locked = True
                   frmdj.Text9.Locked = True
                  frmdj.Combo2.Locked = True
                   frmdj.Combo3.Locked = True
        Case "form1"
    End Select
   Case Is = "wlrj" '日记提醒
   te = 0
   Load rjtx
 
   rjtx.Show
li:
      If Err.Number <> 0 Then
      MsgBox " 出现错误，修改不成功", 48, "提示"
      Exit Sub
      End If
End Select

End Sub