⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmoutdate.frm

📁 金算盘软件代码
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
                If Len(Trim(strWhere)) <> 1 Then
                    strWhere = strWhere & ")"
                Else
                    strWhere = ""
                End If
            Case 30, 31
                Dim recTmp As rdoResultset
                strWhere = "SELECT ItemActivity.lngActivityID as RecID  " & strFrom _
                            & " Where " & IIf(Trim(strWhereInform) = "", "", strWhereInform & " And ") _
                            & IIf(Trim(strWhere) = "", "", strWhere & " AND ") & " ItemActivity.lngReceiptTypeID IN (30,31)"
                
                Set recTmp = gclsBase.BaseDB.OpenResultset(strWhere, rdOpenStatic)
                strWhere = "("
                Do Until recTmp.EOF
                    strWhere = strWhere & recTemp!recID & ","
                    recTmp.MoveNext
                Loop
                If Len(strWhere) <> 1 Then
                    strWhere = strWhere & ")"
                Else
                    strWhere = ""
                End If
            Case 34 To 38  '应收单
                strWhere = "(SELECT Activity.lngActivityID  " & strFrom & IIf(Trim(strWhere) = "", strType, strType & " AND " & strWhere)
                If Trim(strTemp) <> "" Then
                    strWhere = strWhere & " Group by Activity.lngActivityID  Having " & strTemp & ")"
                Else
                    strWhere = strWhere & ")"
                End If
            Case 39, 40 '收付款单
                strWhere = "(SELECT Activity.lngActivityID  " & strFrom & IIf(Trim(strWhere) = "", strType, strType & " AND " & strWhere)
                If Trim(strTemp) <> "" Then
                    strWhere = strWhere & " Group by Activity.lngActivityID  Having " & strTemp & ")"
                Else
                    strWhere = strWhere & ")"
                End If
            Case Else
            End Select
        End If
        If Trim(strHaving) = "" Then
            intResult = AccountExport(txtName.Text, cboOutItem.ItemData(cboOutItem.ListIndex), strWhere, gclsBase.AccountYear, 1, 12)
        Else
            intResult = AccountExport(txtName.Text, cboOutItem.ItemData(cboOutItem.ListIndex), strWhere, gclsBase.AccountYear, 1, 12)  ', strHaving)
        End If
    End If
    
    If intResult = 0 Then
        ShowMsg Me.hwnd, cboOutItem.Text & "导出成功！", vbInformation, Me.Caption
        Unload Me
    Else
        ShowMsg Me.hwnd, cboOutItem.Text & "导出失败！", vbInformation, Me.Caption
    End If
End Sub
'下一步
Private Sub cmdNext_Click()
    With sstWizard
        If .Tab < 2 Then
            If .TabVisible(.Tab + 1) Then
                .Tab = .Tab + 1
            End If
        End If
        If .Tab = 2 Or (mintViewId(cboOutItem.ItemData(cboOutItem.ListIndex)) = -1 And .Tab = 1) Then cmdnext.Enabled = False
        If Not cmdPrevious.Enabled Then cmdPrevious.Enabled = True
    End With
End Sub
'更改文件名
Private Sub cmdOutDate_Click()
    With clgOutFileName
        .DialogTitle = "保存导出数据"
        
        .FileName = "Format.ini"
        .Flags = cdlOFNPathMustExist
        .InitDir = App.Path
        #If conWan <> 1 Then
            .Filter = "金算盘数据导出文件(.ini )| *.ini"
        #Else
            .Filter = "万能数据导出文件(.ini )| *.ini"
        #End If
        .ShowSave
        If GetFilePath(.FileName) <> "" Then txtName.Text = .FileName
    End With
End Sub
'上一步
Private Sub cmdPrevious_Click()
    With sstWizard
        If .Tab <> 0 Then .Tab = .Tab - 1
        If .Tab = 0 Then cmdPrevious.Enabled = False
        If Not cmdnext.Enabled Then cmdnext.Enabled = True
    End With
End Sub

Private Sub CmdSendOut_Click()
    On Error Resume Next
    frmMail.Show vbModal
    Unload frmMail
    Set frmMail = Nothing
End Sub

Private Sub Form_Load()
    Dim strDataSpace As String
    '加载资源
    LoadPictureRes
    tvwFilter.ImageList = frmMain.ImageListFilter
    
    '初始化类的对象
    Set mclsHook = New Hook
    Set mclsOutFilter = New FormCond
    
    '初始化界面
    strDataSpace = GetSetting(App.title, "SendOutDate", gclsBase.BaseFile, "")
    If strDataSpace <> "" Then
        If Dir(strDataSpace) <> "" Then
            txtName.Text = strDataSpace
        Else
            txtName.Text = App.Path & "\Format.ini"
        End If
    Else
        txtName.Text = App.Path & "\Format.ini"
    End If
    
    InitOutItem
    cboOutItem.ListIndex = 0
    mintItem = -1
    
    Set mListset = New ListSet
    mListset.ViewId = mintViewId(cboOutItem.ItemData(cboOutItem.ListIndex))
    If mListset.ListID < 1 Then mListset.SaveList
    mclsOutFilter.ShowFilter Me, mListset.ListID, 1
    
    cmdPrevious.Enabled = False
    sstWizard.Tab = 0
End Sub

'初始化导出项目
Private Sub InitOutItem()
    Dim recTemp As rdoResultset
    Dim intSum As Integer
    Dim strSql As String
    cboOutItem.Clear
    
    cboOutItem.AddItem "货币"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 0
    mintViewId(0) = 15
    
    
    cboOutItem.AddItem "科目"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 1
    mintViewId(1) = 6
    
    cboOutItem.AddItem "部门"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 2
    mintViewId(2) = 9
    
    cboOutItem.AddItem "职员类别"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 3
    mintViewId(3) = 1152
    
    cboOutItem.AddItem "职员"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 4
    mintViewId(4) = 10
    
    cboOutItem.AddItem "单位类别"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 5
    mintViewId(5) = 8
    
    cboOutItem.AddItem "单位"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 6
    mintViewId(6) = 7
    
    cboOutItem.AddItem "统计核算"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 7
    mintViewId(7) = 48
    
    cboOutItem.AddItem "项目核算"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 8
    mintViewId(8) = 52
 If (gclsBase.ControlAccount And gVersionType = vtAccount) Or gVersionType <> vtAccount Then
    cboOutItem.AddItem "商品性质"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 9
    mintViewId(9) = 368
    
    cboOutItem.AddItem "商品类别"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 10
    mintViewId(10) = 54
    
    cboOutItem.AddItem "商品"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 11
    mintViewId(11) = 55
    
    cboOutItem.AddItem "商品单位"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 12
    mintViewId(12) = 1151
End If
    If gVersionType <> vtAccount Then
    cboOutItem.AddItem "商品货位"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 13
    mintViewId(13) = 53
    
    cboOutItem.AddItem "工程类别"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 14
    mintViewId(14) = 13
    
    cboOutItem.AddItem "工程"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 15
    mintViewId(15) = 12
    
    cboOutItem.AddItem "自定义项目0"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 16
    mintViewId(16) = 24
    
    cboOutItem.AddItem "自定义项目1"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 17
    mintViewId(17) = 25
    
    cboOutItem.AddItem "自定义项目2"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 18
    mintViewId(18) = 26
    
    cboOutItem.AddItem "自定义项目3"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 19
    mintViewId(19) = 27
    
    cboOutItem.AddItem "自定义项目4"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 20
    mintViewId(20) = 28
    
    cboOutItem.AddItem "自定义项目5"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 21
    mintViewId(21) = 29
End If
    cboOutItem.AddItem "凭证类型"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 22
    mintViewId(22) = 14
    
    cboOutItem.AddItem "单据模板"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 23
    mintViewId(23) = 37
    
    cboOutItem.AddItem "固资方式"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 24
    mintViewId(24) = -1
    
    cboOutItem.AddItem "固资类别"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 25
    mintViewId(25) = -1
If gVersionType <> vtAccount Then
    cboOutItem.AddItem "企业收发地址"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 26
    mintViewId(26) = -1
    
    cboOutItem.AddItem "企业开户银行"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 27
    mintViewId(27) = -1
    
    cboOutItem.AddItem "单位收发地址"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 28
    mintViewId(28) = -1
    
    cboOutItem.AddItem "单位开户银行"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 29
    mintViewId(29) = -1
End If
    cboOutItem.AddItem "凭证"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 30
    mintViewId(30) = 19
    
    cboOutItem.AddItem "余额"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 31
    mintViewId(31) = 0
    
    cboOutItem.AddItem "科目期初"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 32
    mintViewId(32) = 1153
    
    cboOutItem.AddItem "应收应付余额"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 33
    mintViewId(33) = -1
    
    cboOutItem.AddItem "应收应付期初"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 34
    mintViewId(34) = -1
    
    cboOutItem.AddItem "现金银行余额"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 35
    mintViewId(35) = -1
    
    cboOutItem.AddItem "银行对帐单"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 36
    mintViewId(36) = 32
    
    cboOutItem.AddItem "银行期初"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 37
    If gclsBase.ControlAccount Then
        mintViewId(37) = 33
    Else
        mintViewId(37) = 1104
    End If
    'twy speak
'If gVersionType <> vtAccount Then
    cboOutItem.AddItem "固资变动"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 38
    mintViewId(38) = 118
'End If
    cboOutItem.AddItem "财务预算"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 39
    mintViewId(39) = 1224
If gVersionType <> vtAccount Then
    cboOutItem.AddItem "经营预算"
    cboOutItem.ItemData(cboOutItem.ListCount - 1) = 40
    mintViewId(40) = 1225
End If
'    #If conTest = 0 Then
        intSum = cboOutItem.ItemData(cboOutItem.ListCount - 1)
'        intSum = intSum + 3    '临时调试用
        #If conVersionType = 16 Then
        'zj speak 1999-10-16
            If gclsBase.ControlAccount Then
                strSql = "SELECT * FROM ReceiptType WHERE (lngReceiptTypeID > 33 AND lngReceiptTypeID < 42) OR lngReceiptTypeID IN (53,2,13) and bytVersion<>0"
            Else
                strSql = "SELECT * FROM ReceiptType WHERE lngReceiptTypeID  IN (53) and bytVersion<>0"
                'Exit Sub
            End If
        #Else
            strSql = "SELECT * FROM ReceiptType WHERE  lngReceiptTypeID NOT IN (41,48,49,50,51,54,55) and bytVersion<>0"
        #End If
        Set recTemp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
        Do While Not recTemp.EOF
            If recTemp!lngReceiptTypeID <> 32 Then
                cboOutItem.AddItem recTemp!strReceiptTypeName
                cboOutItem.ItemData(cboOutItem.ListCount - 1) = recTemp!lngReceiptTypeID + intSum
                InitFilterViewID recTemp!lngReceiptTypeID, cboOutItem.ItemData(cboOutItem.ListCount - 1)
            End If
            recTemp.MoveNext
        Loop
'    #End If
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    SaveSetting App.title, "SendOutDate", gclsBase.BaseFile, txtName.Text
    '释放对象
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -