frmacntbookwizard.frm

金算盘软件代码

            Height          =   285
            Index           =   0
            Left            =   210
            TabIndex        =   52
            Top             =   240
            Value           =   1  'Checked
            Width           =   945
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "说明"
         Height          =   1185
         Left            =   -73020
         TabIndex        =   48
         Top             =   2670
         Width           =   5385
         Begin MSForms.Label Label3 
            Height          =   180
            Left            =   390
            TabIndex        =   49
            Top             =   300
            Width           =   2895
            VariousPropertyBits=   276824091
            Caption         =   "首先请选择帐册类型并输入帐册名称"
            Size            =   "5106;317"
            FontName        =   "宋体"
            FontHeight      =   180
            FontCharSet     =   134
            FontPitchAndFamily=   34
         End
      End
      Begin VB.TextBox txtName 
         Height          =   285
         Left            =   -71655
         TabIndex        =   4
         Top             =   1740
         Width           =   3375
      End
      Begin ListRefer.ListText cmbOnlyData 
         Height          =   300
         Left            =   -71655
         TabIndex        =   62
         Top             =   2250
         Width           =   3405
         _ExtentX        =   6006
         _ExtentY        =   529
         CodeSort        =   -1  'True
         AutoPop         =   0   'False
         BackColor       =   -2147483643
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label2 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         Caption         =   "帐册类型(&T)"
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   -72840
         TabIndex        =   1
         Top             =   960
         Width           =   1005
      End
      Begin VB.Label Label11 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         Caption         =   "帐册名称(&N)"
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   -72840
         TabIndex        =   3
         Top             =   1770
         Width           =   1005
      End
   End
   Begin VB.Line linSep 
      BorderColor     =   &H00808080&
      Index           =   0
      X1              =   0
      X2              =   8000
      Y1              =   4530
      Y2              =   4530
   End
   Begin VB.Line linSep 
      BorderColor     =   &H00FFFFFF&
      Index           =   1
      X1              =   0
      X2              =   8000
      Y1              =   4545
      Y2              =   4545
   End
End
Attribute VB_Name = "frmAcntBookWizard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'  三栏帐向导
'  作者：魏 然
'  日期：1998.05.21
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private mclsReportSet As ReportSet
Private mclsFilter As FormCond           '查询条件类

Private mlngStepNum As Long      '当前向导步数
Private mintMaxStep As Integer   '最大向导步数
Private mintIndex As Integer     '上次设置条件的字段在列表中的 ListIndex

Private mblnChanged As Boolean       '条件是否改变
Private mblnOk As Boolean
Private mblnLoaded As Boolean
Private mblnVirtual As Boolean                                  '是否虚拟科目帐
Private mblnHeadChange As Boolean
Private WithEvents mclsHook As Hook        '响应msgFilter中vbUp 和vbDown
Attribute mclsHook.VB_VarHelpID = -1

Private Sub ShowStep()
    SSTab1.Tab = mlngStepNum - 1
End Sub

Private Sub cmbDateBegin_Change()
    mblnChanged = True
End Sub

Private Sub cmbDateEnd_Change()
    mblnChanged = True
End Sub

Private Sub chkOnlyData_Click()
  If chkOnlyData.Value = 1 Then
     cmbOnlyData.Visible = True
     If cmbOnlyData.ReferRow = -1 Then
        cmbOnlyData.ReferRow = 0
     Else
        cmbOnlyData_Choose
     End If
     lstBeChoose.Enabled = False
     lstChoosed.Enabled = False
     cmdSerial(0).Enabled = False
     cmdSerial(1).Enabled = False
     cmdRightOne.Enabled = False
     cmdRightAll.Enabled = False
     cmdLeftOne.Enabled = False
     cmdLeftAll.Enabled = False
  Else
     cmbOnlyData.Visible = False
     mclsReportSet.PaperID = 0
     lstBeChoose.Enabled = True
     lstChoosed.Enabled = True
     cmdSerial(0).Enabled = True
     cmdSerial(1).Enabled = True
     cmdRightOne.Enabled = True
     cmdRightAll.Enabled = True
     cmdLeftOne.Enabled = True
     cmdLeftAll.Enabled = True
  End If
End Sub

Private Sub cmbOnlyData_Choose()
  If mblnLoaded Then
    mclsReportSet.PaperID = cmbOnlyData.ID
    mclsReportSet.GetReportTdSet
    lstChoosed.Clear
    lstBeChoose.Clear
    ReGetChoosed
    GetMayChoose
  End If
End Sub

Private Sub cmbShowCode_Click()
  Dim strText As String
   strText = Left(lstChoosed2.Text, Len(lstChoosed2.Text) - 1)
   strText = strText & CStr(cmbShowCode.ListIndex + 1)
   lstChoosed2.list(lstChoosed2.ListIndex) = strText
End Sub

Private Sub cmbType_Click()
    On Error Resume Next
    mclsReportSet.ReportType = cmbType.ListIndex + 1
End Sub

Private Sub CmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdNext_Click()
    If mlngStepNum < mintMaxStep Then
       mlngStepNum = mlngStepNum + 1
    End If
    ShowStep
    ComEnabled
End Sub

'涮新按钮的 Enabled 属性
Private Sub ComEnabled()
    If mlngStepNum = 2 Then
       picWizard.Visible = False
       CmdReset.Visible = True
    Else
       picWizard.Visible = True
       CmdReset.Visible = False
    End If
    If mlngStepNum = 1 Then
       CmdPrev.Enabled = False
    Else
       CmdPrev.Enabled = True
    End If
    If mlngStepNum = mintMaxStep Then
       cmdNext.Enabled = False
    Else
       cmdNext.Enabled = True
    End If
    If mlngStepNum >= mintMaxStep - 1 Then
       cmdOk.Enabled = True
    Else
       cmdOk.Enabled = False
    End If
End Sub

Private Sub CmdPrev_Click()
    If mlngStepNum > 1 Then
       mlngStepNum = mlngStepNum - 1
    End If
    ShowStep
    ComEnabled
End Sub

Private Sub cmdOK_Click()
  Dim intCount As Integer, intHead As Integer
  Dim blnCurr As Boolean
  Dim strName As String
  Dim blnDiff As Boolean, blnPrice As Boolean, blnQuan As Boolean, blnAmount As Boolean
   
   If cmbOnlyData.ID <> 0 And cmbOnlyData.Visible And lstChoosed2.ListCount > 5 Then
      ShowMsg Me.hwnd, "套打方式下最多只能选择5个表头栏目!", vbOKOnly + vbInformation, App.title
      Exit Sub
   End If
   
   blnDiff = False
   For intCount = 0 To lstChoosed.ListCount - 1
      strName = Trim(GetNoXString(lstChoosed.list(intCount), 1, Space(40)))
      If strName = "结存单价" Then
         blnPrice = True
      End If
      If strName = "结存数量" Then
         blnQuan = True
      End If
      If strName = "结存金额" Then
         blnAmount = True
      End If
      If (strName = "进销差价余额" Or strName = "成本差异余额") And blnDiff Then
          ShowMsg Me.hwnd, """" & "进销差价余额" & """" & "和" & """" & "成本差异余额" & """" & "不能同时选择!", vbOKOnly + vbInformation, App.title
          Exit Sub
      End If
      If strName = "进销差价余额" Or strName = "成本差异余额" Then
         blnDiff = True
      End If
      If InStr(1, strName, "原币") > 0 And strName <> "原币金额" Then
          For intHead = 0 To lstChoosed2.ListCount - 1
              If InStr(1, Trim(GetNoXString(lstChoosed2.list(intHead), 1, "/")), "币种") > 0 Then
                  blnCurr = True
                  Exit For
              End If
          Next intHead
          If blnCurr Then
            Exit For
          Else
            ShowMsg Me.hwnd, "请选择币种为表头栏目!", vbOKOnly + vbInformation, App.title
            Exit Sub
          End If
      End If
   Next intCount
   
   If blnPrice And (blnQuan = False Or blnAmount = False) Then
      ShowMsg Me.hwnd, "选择结存单价则必须选择结存金额和结存数量!", vbOKOnly + vbInformation, App.title
      Exit Sub
   End If
   
   mblnOk = True
   
   mclsReportSet.ReportName = txtName
   With lstChoosed
        mclsReportSet.Columns = .ListCount
        For intCount = 0 To .ListCount - 1
            mclsReportSet.ColumnDesc(intCount + 1) = GetNoXString(.list(intCount), 1, Space(40))
            mclsReportSet.ColumnFieldName(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 1, "`")
            mclsReportSet.ColumnWidth(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 2, "`")
            mclsReportSet.ColumnOrderType(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 3, "`")
            mclsReportSet.ColumnIsFix(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 4, "`")
            mclsReportSet.ColumnFieldID(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 5, "`")
            mclsReportSet.ColumnFieldType(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 6, "`")
            mclsReportSet.ColumnFieldSize(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 7, "`")
            mclsReportSet.ColumnCombine(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 9, "`")
            mclsReportSet.ColumnIsMust(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 13, "`")
            mclsReportSet.ColumnFomular(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 14, "`")
            mclsReportSet.ColumnFormat(intCount + 1) = GetNoXString(GetNoXString(.list(intCount), 2, Space(40)), 15, "`")
        Next intCount
   End With
   
   GetHead
   
   GetAccountInfo
   If mblnVirtual And (cmbDirect.ListIndex = 0 Or cmbDirect.ListIndex = 3) And mclsReportSet.ViewId = 5 Then
       If mblnLoaded Then
          ShowMsg Me.hwnd, "查询虚拟科目帐帐册方向只能选择" & """" & "借方" & """" & "或" & """" & "贷方!" & """", vbOKOnly, App.title
       End If
       cmbDirect.ListIndex = 1
   End If
   Select Case cmbDirect.ListIndex
      Case 0
         mclsReportSet.Direct = 4
      Case 1
         mclsReportSet.Direct = 1
      Case 2
         mclsReportSet.Direct = -1
      Case 3
         mclsReportSet.Direct = 0
   End Select
   
   If cmbOnlyData.Visible Then
      mclsReportSet.PaperID = cmbOnlyData.ID
   Else
      mclsReportSet.PaperID = 0
   End If
   
   mblnOk = True
   Unload Me
End Sub

Private Sub RefreshUpDown()
   With lstChoosed
      If GetNoXString(.list(.ListIndex), 1, Space(40)) = "年" Then
         cmdSerial(0).Enabled = False
         cmdSerial(1).Enabled = False
         Exit Sub
      End If
      If .ListIndex + 1 = mclsReportSet.FixColumns Then
          If .ListIndex > 0 Then
              cmdSerial(0).Enabled = True
          Else
              cmdSerial(0).Enabled = False
          End If
          cmdSerial(1).Enabled = False
      End If
      If .ListIndex + 1 < mclsReportSet.FixColumns Then
          If .ListIndex > 0 Then
              cmdSerial(0).Enabled = True
          Else
              cmdSerial(0).Enabled = False
          End If
          cmdSerial(1).Enabled = True
      End If
      If .ListIndex + 1 > mclsReportSet.FixColumns Then
          If .ListIndex > mclsReportSet.FixColumns Then
             cmdSerial(0).Enabled = True
          Else
             cmdSerial(0).Enabled = False
          End If
          If .ListIndex < .ListCount - 1 Then
              cmdSerial(1).Enabled = True
          Else
              cmdSerial(1).Enabled = False
          End If
      End If
      If .ListIndex = -1 Then
          cmdSerial(0).Enabled = False
          cmdSerial(1).Enabled = False
      End If
      If .ListIndex = 1 Then