default.frm

来自「This application i made for handle simpl」· FRM 代码 · 共 418 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm mdiDefault 
   Appearance      =   0  'Flat
   AutoShowChildren=   0   'False
   BackColor       =   &H00FBF7F4&
   Caption         =   "Finance"
   ClientHeight    =   6525
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11100
   Icon            =   "Default.frx":0000
   LockControls    =   -1  'True
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Timer tmrClose 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   10575
      Top             =   5700
   End
   Begin Irfan.IrfanHeader ihdDefault 
      Align           =   1  'Align Top
      Height          =   825
      Left            =   0
      Top             =   0
      Width           =   11100
      _ExtentX        =   19579
      _ExtentY        =   1455
      Text            =   "Finance"
   End
   Begin MSComctlLib.StatusBar stDefault 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   6210
      Width           =   11100
      _ExtentX        =   19579
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   19050
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu mnFile 
      Caption         =   "&File"
      Begin VB.Menu mnSubFile 
         Caption         =   "&Transaction"
         Index           =   0
      End
      Begin VB.Menu mnSubFile 
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu mnSubFile 
         Caption         =   "&Close"
         Enabled         =   0   'False
         Index           =   2
      End
      Begin VB.Menu mnSubFile 
         Caption         =   "E&xit"
         Index           =   3
      End
   End
   Begin VB.Menu mnTools 
      Caption         =   "&Tools"
      Begin VB.Menu mnSubTools 
         Caption         =   "&Account"
         Index           =   0
      End
      Begin VB.Menu mnSubTools 
         Caption         =   "A&rea"
         Index           =   1
      End
      Begin VB.Menu mnSubTools 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu mnToolsReport 
         Caption         =   "Repor&t"
         Begin VB.Menu mnSubReport 
            Caption         =   "GL &Summary"
            Index           =   0
         End
         Begin VB.Menu mnSubReport 
            Caption         =   "&Transaction List"
            Index           =   1
         End
         Begin VB.Menu mnSubReport 
            Caption         =   "&Neraca"
            Index           =   2
         End
         Begin VB.Menu mnSubReport 
            Caption         =   "&Laba Rugi"
            Index           =   3
         End
      End
      Begin VB.Menu mn00 
         Caption         =   "-"
      End
      Begin VB.Menu mnToolsConfig 
         Caption         =   "&Configuration"
      End
   End
   Begin VB.Menu mnHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnAbout 
         Caption         =   "&About"
      End
      Begin VB.Menu mnLicense 
         Caption         =   "&License"
      End
      Begin VB.Menu mnThanks 
         Caption         =   "&Thanks to  "
      End
   End
   Begin VB.Menu mnAccount 
      Caption         =   "AccountMenu"
      Visible         =   0   'False
      Begin VB.Menu mnSubAccount 
         Caption         =   "&Add"
         Index           =   0
      End
      Begin VB.Menu mnSubAccount 
         Caption         =   "&Delete"
         Index           =   1
      End
      Begin VB.Menu mnSubAccount 
         Caption         =   "&Edit"
         Index           =   2
      End
      Begin VB.Menu mnSubAccount 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu mnSubAccount 
         Caption         =   "&Refresh"
         Index           =   4
      End
      Begin VB.Menu mnSubAccount 
         Caption         =   "Repor&t"
         Index           =   5
      End
   End
   Begin VB.Menu mnArea 
      Caption         =   "AreaMenu"
      Visible         =   0   'False
      Begin VB.Menu mnSubArea 
         Caption         =   "&Add"
         Index           =   0
      End
      Begin VB.Menu mnSubArea 
         Caption         =   "&Delete"
         Index           =   1
      End
      Begin VB.Menu mnSubArea 
         Caption         =   "&Edit"
         Index           =   2
      End
      Begin VB.Menu mnSubArea 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu mnSubArea 
         Caption         =   "&Refresh"
         Index           =   4
      End
   End
   Begin VB.Menu mnTransaction 
      Caption         =   "TransactionMenu"
      Visible         =   0   'False
      Begin VB.Menu mnSubTransaction 
         Caption         =   "&Add"
         Index           =   0
      End
      Begin VB.Menu mnSubTransaction 
         Caption         =   "&Delete"
         Index           =   1
      End
      Begin VB.Menu mnSubTransaction 
         Caption         =   "&Edit"
         Index           =   2
      End
      Begin VB.Menu mnSubTransaction 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu mnSubTransaction 
         Caption         =   "De&tail"
         Index           =   4
      End
      Begin VB.Menu mnSubTransaction 
         Caption         =   "&Refresh"
         Index           =   5
      End
   End
   Begin VB.Menu mnTransDetail 
      Caption         =   "TransactionDetailMenu"
      Visible         =   0   'False
      Begin VB.Menu mnSubTransDetail 
         Caption         =   "&Add"
         Index           =   0
      End
      Begin VB.Menu mnSubTransDetail 
         Caption         =   "&Delete"
         Index           =   1
      End
      Begin VB.Menu mnSubTransDetail 
         Caption         =   "&Edit"
         Index           =   2
      End
   End
End
Attribute VB_Name = "mdiDefault"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Option Explicit


Private Sub mnAbout_Click()

  Call frmAbout.Show(1, Me)

End Sub

Public Sub mnSubArea_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    frmArea.sMenu = SelectedSubMenu.Add

  Case (1)
    frmArea.sMenu = SelectedSubMenu.Delete

  Case (2)
    frmArea.sMenu = SelectedSubMenu.Edit

  Case (4)
    frmArea.sMenu = SelectedSubMenu.Refresh

  End Select

  Call frmArea.lvArea.SetFocus

End Sub

Public Sub mnSubAccount_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    frmAccount.sMenu = SelectedSubMenu.Add

  Case (1)
    frmAccount.sMenu = SelectedSubMenu.Delete

  Case (2)
    frmAccount.sMenu = SelectedSubMenu.Edit

  Case (4)
    frmAccount.sMenu = SelectedSubMenu.Refresh

  Case (5)
    frmAccount.sMenu = SelectedSubMenu.Report

  End Select

  Call frmAccount.lvAccount.SetFocus

End Sub

Private Sub mnSubFile_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    Call frmTransaction.Show
    Call frmTransaction.ZOrder(0)

    mnSubFile(2).Enabled = True

  Case (2)
    Call Unload(Me.ActiveForm)

  Case (3)
    End

  End Select

End Sub

Private Sub mnSubReport_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    Call frmReportGl.Show(1, mdiDefault)

  Case (1)
    Call frmReportTransactionList.Show(1, mdiDefault)

  Case (2)
    Call frmReportNeraca.Show(1, mdiDefault)

  Case (3)
    Call frmReportLabaRugi.Show(1, mdiDefault)

  End Select

End Sub

Private Sub mnSubTools_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    Call frmAccount.Show
    Call frmAccount.ZOrder(0)

  Case (1)
    Call frmArea.Show
    Call frmArea.ZOrder(0)

  End Select

  mnSubFile(2).Enabled = True

End Sub

Private Sub mnSubTransaction_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    frmTransaction.sMenu = SelectedSubMenu.Add

  Case (1)
    frmTransaction.sMenu = SelectedSubMenu.Delete

  Case (2)
    frmTransaction.sMenu = SelectedSubMenu.Edit

  Case (4)
    frmTransaction.sMenu = SelectedSubMenu.Detail

  Case (5)
    frmTransaction.sMenu = SelectedSubMenu.Refresh

  End Select

  Call frmTransaction.lvTransaction.SetFocus

End Sub

Private Sub mnSubTransDetail_Click(Index As Integer)

  Select Case (Index)
  Case (0)
    frmTransactionAddEdit.sMenu = SelectedSubMenu.Add

  Case (1)
    frmTransactionAddEdit.sMenu = SelectedSubMenu.Delete

  Case (2)
    frmTransactionAddEdit.sMenu = SelectedSubMenu.Edit

  End Select

  Call frmTransactionAddEdit.lvDetail.SetFocus

End Sub

Private Sub mnThanks_Click()

  Call frmThanks.Show(1, Me)

End Sub

Private Sub mnToolsConfig_Click()

  Call frmConfig.Show(1, mdiDefault)

End Sub

Private Sub mnLicense_Click()

  Call frmHelp.Show '(1, Me)

End Sub

Private Sub tmrClose_Timer()

  If (Me.ActiveForm Is Nothing) Then
    mnSubFile(2).Enabled = False
    ihdDefault.Text = LoadResString(0)
  Else
    mnSubFile(2).Enabled = True
  End If

  tmrClose.Enabled = False

End Sub