VERSION 5.00
Begin VB.Form frmCashFlowCard 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "新增現(xiàn)金流量項目"
   ClientHeight    =   1650
   ClientLeft      =   2220
   ClientTop       =   2310
   ClientWidth     =   5340
   HelpContextID   =   10238
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1650
   ScaleWidth      =   5340
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtCashFlow 
      Height          =   270
      Index           =   1
      Left            =   2640
      TabIndex        =   3
      Top             =   840
      Width           =   975
   End
   Begin VB.TextBox txtCashFlow 
      Height          =   285
      Index           =   0
      Left            =   240
      MaxLength       =   70
      TabIndex        =   1
      Top             =   840
      Width           =   2025
   End
   Begin VB.CommandButton cmdCashFlow 
      Height          =   350
      Index           =   2
      Left            =   4000
      Style           =   1  'Graphical
      TabIndex        =   6
      Tag             =   "1009"
      Top             =   1080
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdCashFlow 
      Cancel          =   -1  'True
      Height          =   350
      Index           =   1
      Left            =   4000
      Style           =   1  'Graphical
      TabIndex        =   5
      Tag             =   "1002"
      Top             =   630
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdCashFlow 
      Height          =   350
      Index           =   0
      Left            =   4000
      Style           =   1  'Graphical
      TabIndex        =   4
      Tag             =   "1001"
      Top             =   180
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.Label lblTax 
      Caption         =   "行次(&S)"
      Height          =   225
      Index           =   1
      Left            =   2640
      TabIndex        =   2
      Top             =   300
      Width           =   1005
   End
   Begin VB.Label lblTax 
      Caption         =   "現(xiàn)金流量項目名稱(&N)"
      Height          =   225
      Index           =   0
      Left            =   240
      TabIndex        =   0
      Top             =   300
      Width           =   2205
   End
End
Attribute VB_Name = "frmCashFlowCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'                                                                        '
'功能:    完成現(xiàn)金流量項目的增、刪、改。                           '
'卡片接口:             EditCard 參數(shù): lngID 記錄的ID號                   '
'作用:                         LNGID為零是增加記錄、其它為編輯記錄       '
'                      DelCard 參數(shù): lngID 記錄的ID號                       '
'作用:                          刪除ID號為LNGID的記錄                    '
'作者：     鄭權(quán)
'1999.1.12
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

Private mstrCashFlowName As String
Private mstrCashFlowNO As String

Private mblnIsNew As Boolean
Private mblnIsChanged As Boolean
Private mlngCashFlowID As Integer
Private mblnIsFirst As Boolean
'Private WithEvents mclsMainControl As MainControl               '主控對象

Public Property Get getID()
    getID = mlngCashFlowID
End Property

Private Sub cmdCashFlow_Click(Index As Integer)
    
    Select Case Index
           Case 0
                If SaveCard Then
                   Unload Me
                End If
           Case 1
                Unload Me
           Case 2
                If Not SaveCard() Then
                   Exit Sub
                End If
                mlngCashFlowID = 0
                InitCard
                txtCashFlow(0).SetFocus
    End Select
    
End Sub

Private Sub Form_Activate()
    SetHelpID Me.HelpContextID
  txtCashFlow(0).SelStart = 0
  txtCashFlow(0).SelLength = StrLen(txtCashFlow(0).Text)
  txtCashFlow(0).SetFocus
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        BKKEY Me.ActiveControl.hwnd, vbKeyTab
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn And Shift = 2 Then
        cmdCashFlow(0).Value = True
    End If
End Sub

Private Sub Form_Load()
        On Error GoTo ErrHandle
'        SetHelpID Me.hwnd, 10238
        mblnIsChanged = False
        Utility.LoadFormResPicture Me
        'Set mclsMainControl = gclsSys.MainControls.Add(Me)
         Exit Sub
         Dim edtErrReturn As ErrDealType
ErrHandle:
         edtErrReturn = Errors.ErrorsDeal
    
         If edtErrReturn = edtResume Then
            Resume
         Else
            On Error Resume Next
            Unload Me
         End If
End Sub

Private Sub Form_Paint()
    FrameBox Me.hwnd, 120, 180, 3800, 1430
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim intResponse As Integer
     
    If UnloadMode = vbFormControlMenu And mblnIsChanged Then
        intResponse = ShowMsg(0, "當前現(xiàn)金流量項目已被修改，是否保存？", _
                     vbYesNoCancel + vbQuestion + MB_TASKMODAL, Caption)
        If intResponse = vbYes Then
           Cancel = Not SaveCard()
        ElseIf intResponse = vbCancel Then
           Cancel = True
        End If
    End If
    If Not Cancel Then mblnIsChanged = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
     'gclsSys.MainControls.Remove Me
    ' Set mclsMainControl = Nothing
    On Error Resume Next
    mblnIsFirst = False
    Utility.UnLoadFormResPicture Me
End Sub

Public Function AddCard(Optional strName As String = "", Optional intModal As Integer = 0) As Long
    mblnIsFirst = True
    mlngCashFlowID = 0
    mblnIsNew = True
    InitCard strName
    Show intModal
    AddCard = mlngCashFlowID
End Function

Public Sub EditCard(ByVal lngID As Long, Optional intModal As Integer = 0)
    mblnIsFirst = True
    If Not CheckIDUsed("ETSetting", "lngETSettingID", lngID) Then
        ShowMsg 0, "該現(xiàn)金流量項目不存在,不能進行修改！", _
                  vbExclamation + MB_TASKMODAL, Caption
        Unload Me
    Else
        mlngCashFlowID = lngID
        mblnIsNew = False
        InitCard
        Caption = "修改現(xiàn)金流量項目"