?? frmyhckb.frm

?? 用友u8財務源碼,用visual basic開發
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
            
            .TextMatrix(0, 14) = IIf(djnwb = 1, "往來銀行", "復核")
            .ColAlignment(14) = UG_ALIGNLEFT
            .JoinCells 0, 14, 1, 14, True
    
            .TextMatrix(0, 15) = IIf(djnwb = 1, "往來賬號", "記賬")
            .ColAlignment(15) = UG_ALIGNLEFT
            .JoinCells 0, 15, 1, 15, True
                    
            .TextMatrix(0, 16) = IIf(djnwb = 1, "內部經辦", "制單")
            .ColAlignment(16) = UG_ALIGNLEFT
            .JoinCells 0, 16, 1, 16, True
            
            If djnwb = 1 Then
            
                .TextMatrix(0, 17) = "中心經辦"
                .ColAlignment(17) = UG_ALIGNLEFT
                .JoinCells 0, 17, 1, 17, True
                    
                .TextMatrix(0, 18) = "復核"
                .ColAlignment(18) = UG_ALIGNLEFT
                .JoinCells 0, 18, 1, 18, True
        
                .TextMatrix(0, 19) = "記賬"
                .ColAlignment(19) = UG_ALIGNLEFT
                .JoinCells 0, 19, 1, 19, True
    
                .TextMatrix(0, 20) = "制單"
                .ColAlignment(20) = UG_ALIGNLEFT
                .JoinCells 0, 20, 1, 20, True
            End If
        End With
    Else
        With Me.UfGridado1
            .TextMatrix(0, 0) = "定期"
            .TextMatrix(1, 0) = "活期"
'            .ColAlignment(0) = UG_ALIGNLEFT  'cuidong S.A 2001.09.11
            .ColAlignment(0) = UG_ALIGNCENTER 'cuidong S.A 2001.09.11
        
            .TextMatrix(0, 1) = "業務日期"
            .ColAlignment(1) = UG_ALIGNLEFT
            .JoinCells 0, 1, 1, 1, True
             
            .TextMatrix(0, 2) = "業務編號"
            .ColAlignment(2) = UG_ALIGNLEFT
            .JoinCells 0, 2, 1, 2, True
               
            .TextMatrix(0, 3) = IIf(djnwb = 1, "銀行名稱", "內部單位")
            .ColAlignment(3) = UG_ALIGNLEFT
            .JoinCells 0, 3, 1, 3, True
            
            .TextMatrix(0, 4) = IIf(djnwb = 1, "銀行賬戶", "賬戶號")
            .ColAlignment(4) = UG_ALIGNLEFT
            .JoinCells 0, 4, 1, 4, True
            
            .TextMatrix(0, 5) = IIf(djcqk = 1, "存款金額", "取款金額")
            .ColAlignment(5) = UG_ALIGNRIGHT
            .JoinCells 0, 5, 1, 5, True
            
            .TextMatrix(0, 6) = "幣別"
            .ColAlignment(6) = UG_ALIGNLEFT
            .JoinCells 0, 6, 1, 6, True
            
            .TextMatrix(0, 7) = "匯率"
            .ColAlignment(7) = UG_ALIGNRIGHT
            .JoinCells 0, 7, 1, 7, True
            
            .TextMatrix(0, 8) = "本位幣金額"
            .ColAlignment(8) = UG_ALIGNRIGHT
            .JoinCells 0, 8, 1, 8, True
            
            .TextMatrix(0, 9) = "利率代碼"
            .ColAlignment(9) = UG_ALIGNLEFT
            .JoinCells 0, 9, 1, 9, True
            
            .TextMatrix(0, 10) = "存期"
            .TextMatrix(1, 10) = "(月)"
            .ColAlignment(10) = UG_ALIGNLEFT
            
            .TextMatrix(0, 11) = "經辦人"
            .ColAlignment(11) = UG_ALIGNLEFT
            .JoinCells 0, 11, 1, 11, True
            
            .TextMatrix(0, 12) = "摘要"
            .ColAlignment(12) = UG_ALIGNLEFT
            .JoinCells 0, 12, 1, 12, True
            
            .TextMatrix(0, 13) = "復核"
            .ColAlignment(13) = UG_ALIGNLEFT
            .JoinCells 0, 13, 1, 13, True
    
            .TextMatrix(0, 14) = "記賬"
            .ColAlignment(14) = UG_ALIGNLEFT
            .JoinCells 0, 14, 1, 14, True
                    
            .TextMatrix(0, 15) = "制單"
            .ColAlignment(15) = UG_ALIGNLEFT
            .JoinCells 0, 15, 1, 15, True
        End With
    End If
    
    With Me.UfGridado1
        .Left = 0
        .Top = Tlbckd.Height + Picture1.Height
        .HeadForeColor = &H404040
        .HeadBackColor = &H8000000E
        .HeadFont.Name = "宋體"
        .HeadFont.Size = 9
        .HeadFont.Bold = True
        If rstBind.EOF Then
            .Rows = 2
            .FixedRows = 2
        End If
    End With
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
    If Me.WindowState = 1 Then
        Exit Sub
    End If
    If Me.WindowState = 0 Then
        If Me.Width < 3700 Then Me.Width = 3700
        If Me.Height < 3300 Then Me.Height = 3300
    End If
    UfGridado1.Width = Me.Width - 100
    UfGridado1.Height = Me.Height - (5820 - 3890)
    Picture1.Left = Me.Width - ZjAccInfo.zjPictWidth
    If Picture1.Left > 0 Then Picture1.Left = 0
    Label0.Left = (Me.Width - Label0.Width) / 2 - Picture1.Left
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Select Case djcqk * 2 + djnwb
        Case 3
            zjLogInfo.TaskExec "FD020102", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020102 = False
        Case 1
            zjLogInfo.TaskExec "FD020202", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020202 = False
        Case 2
            zjLogInfo.TaskExec "FD020302", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020302 = False
        Case 0
            zjLogInfo.TaskExec "FD020402", 0, zjLogInfo.cIYear
            'zjGen_arr.FD020402 = False
        Case 5
            zjLogInfo.TaskExec "FD021502", 0, zjLogInfo.cIYear
            'zjGen_arr.FD021502 = False
        Case 4
            zjLogInfo.TaskExec "FD021402", 0, zjLogInfo.cIYear
            'zjGen_arr.FD021402 = False
    End Select
    zjLogInfo.ClearError
End Sub

Private Sub tlbckd_ButtonClick(ByVal Button As ComctlLib.Button)
    Gen_Key Button.key
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF3
            If Shift = 0 Then
                Gen_Key "Lanmuxz"
            End If
        Case vbKeyF4
            If Shift = 2 Then
                Gen_Key "Exit"
            ElseIf Shift = 0 Then
                Gen_Key "Lcdj"
            End If
        Case vbKeyP
            If Shift = 2 Then
                Gen_Key "Print"
                KeyCode = 0
            End If
        Case vbKeyS
            'cuidong 2001.01.15
            'If Shift = 2 Then
            '    Gen_Key "Preview"
            '    KeyCode = 0
            'End If
        Case vbKeyW
            If Shift = 2 Then
                Gen_Key "Dataout"
                KeyCode = 0
            End If
        Case vbKeyF
            If Shift = 2 Then
                Gen_Key "Recx"
                KeyCode = 0
            End If
    End Select
End Sub

Private Sub Gen_Key(TLB_Key As String)
    On Error Resume Next
    Select Case TLB_Key
        Case Is = "Print", "Preview", "Dataout"
            zjbPrnViewOut Me, IIf(djcqk = 2, "cxjsb", "yhckb"), TLB_Key, False, Label0.Caption
        Case Is = "Lanmuxz"
            Set frmblmxz.ufg1 = Me.UfGridado1
            frmblmxz.lms = IIf(djcqk = 2, IIf(djnwb = 1, 12, 10), 10)
            frmblmxz.fsk = IIf(djcqk = 2, False, True)
            frmblmxz.Show 1
        Case Is = "Lcdj"
            If UfGridado1.Row > 1 Then
''''''                If djcqk = 2 Then
''''''                    Lcjsdj djnwb, Right(UfGridADO1.TextMatrix(UfGridADO1.Row, IIf(djnwb = 1, 3, 1)), 8), sqlst1
''''''                Else
''''''                    Lccqkdj djnwb, djcqk, Right(UfGridADO1.TextMatrix(UfGridADO1.Row, 2), 8), sqlst1
'''''''                End If
                  Dim sCell As String
                  If djcqk = 2 Then
                        sCell = UfGridado1.TextMatrix(UfGridado1.Row, IIf(djnwb = 1, 3, 1))
                  Else
                        sCell = UfGridado1.TextMatrix(UfGridado1.Row, 2)
                  End If
                  If Not IsNumeric(Right(sCell, 8)) Then Exit Sub
                  oUniFind.ShowBill "FD", oV.Name2Code(Left(sCell, InStr(sCell, "-") - 1)) + Right(sCell, 8)

            End If
        Case Is = "Recx"
            If djcqk = 2 Then
                frmyjstj.Quitfs = False
                frmyjstj.cxnwb = djnwb
                frmyjstj.Show 1
            Else
                frmcktj.Quitfs = False
                frmcktj.djnwb = djnwb
                frmcktj.djcqk = djcqk
                frmcktj.Show 1
            End If
        Case Is = "Help"
            SendKeys "{F1}"
        Case Is = "Exit"
            Unload Me
    End Select
End Sub

Private Sub UfGridado1_DBClick(ByVal nRow As Long, ByVal nCol As Long)
    If nRow > 1 And Not Trim(UfGridado1.TextMatrix(nRow, IIf(djnwb = 1, 0, 1))) = Trim(CX_SumTEXT) Then
'''''        If djcqk = 2 Then
'''''            Lcjsdj djnwb, Right(UfGridado1.TextMatrix(UfGridado1.Row, IIf(djnwb = 1, 3, 1)), 8), sqlst1
'''''        Else
'''''            Lccqkdj djnwb, djcqk, Right(UfGridado1.TextMatrix(nRow, 2), 8), sqlst1
'''''        End If
'      If UfGridADO1.TextMatrix(UfGridADO1.Row, IIf(djnwb = 1, 1, 0)) = CX_SumTEXT Then Exit Sub 'cuidong S.A 2001.09.17
      
      Dim sCell As String
      If djcqk = 2 Then
            sCell = UfGridado1.TextMatrix(UfGridado1.Row, IIf(djnwb = 1, 3, 1))
      Else
            sCell = UfGridado1.TextMatrix(nRow, 2)
      End If
      If Not IsNumeric(Right(sCell, 8)) Then Exit Sub
      oUniFind.ShowBill "FD", oV.Name2Code(Left(sCell, InStr(sCell, "-") - 1)) + Right(sCell, 8)
    End If
End Sub

'數據準備線程函數
'警告：如果啟動數據準備線程，則程序不能在VB環境里調試
'實際解決辦法是：
'   1.不啟動數據準備線程(即不調用Me.UfGridado1.StartThread)
'   2.通過TIMER或直接調用線程函數完成數據準備函數的調試
'   3.一切無誤后調用Me.UfGridado1.StartThread啟動線程
'   4.生成EXE文件后運行查看多線程效果
'數據綁定方式下格式化單元內容
Private Sub UfGridado1_FormatCellValue(ByVal Row As Long, ByVal Col As Long, cVal As String, ByVal vType As UFGRIDspLib.enumValueType)
    If Row < 2 Then Exit Sub
'    ''''''''''''''''''''''''''''''''''''''''''
    Dim cValTmp As String
    
    On Error Resume Next
    cValTmp = cVal
'    Dim hFile As Long
'    hFile = FreeFile
'    Open "c:\log.txt" For Append Access Write As #hFile
'    Print #hFile, Row & "," & Col & "," & cVal & "," & CInt(vType)
'    Close #hFile
'    ''''''''''''''''''''''''''''''''''''''''''
    Select Case Col
        Case Is = 0
            If djcqk = 2 Then
                If djnwb = 0 Then
                    cValTmp = Format(cValTmp, "yyyy-mm-dd")
                End If
            End If
        Case Is = 1
            If djcqk = 2 Then
                If djnwb = 1 Then
                    cValTmp = Jsfscton(cValTmp, True)
                End If
            Else
                cValTmp = Format(cValTmp, "yyyy-mm-dd")
            End If
        Case Is = 2
            If djcqk = 2 Then
                If djnwb = 0 Then
                    cValTmp = Zhbhtodwmc(cValTmp)
                Else
                    cValTmp = Format(cValTmp, "yyyy-mm-dd")
                End If
            End If
        Case Is = 3
            If djcqk < 2 Then
                cValTmp = Zhbhtodwmc(cValTmp)
            End If
        Case Is = 4
            If djcqk = 2 Then
                cValTmp = Zhbhtodwmc(cValTmp)
            End If
'        Case Is = 5
'            Stop
        Case Is = 6
            If djcqk = 2 Then
                If djnwb = 1 Then
                    cValTmp = Zhbhtodwmc(cValTmp)
                Else
                    cValTmp = Format(Val(cValTmp), "##,##0.00")
                End If
            End If
        Case Is = 7
            If djcqk < 2 Then
                cValTmp = Format(Val(cValTmp), "#0.######")
                If Right(cValTmp, 1) = "." Then
                    cValTmp = Left(cValTmp, Len(cValTmp) - 1)
                End If
            End If
        Case Is = 8
            If djcqk = 2 Then
                If djnwb = 1 Then
                    cValTmp = Format(Val(cValTmp), "##,##0.00")
                Else
                    cValTmp = Format(Val(cValTmp), "#0.######")
                    If Right(cValTmp, 1) = "." Then
                        cValTmp = Left(cValTmp, Len(cValTmp) - 1)
                    End If
                End If
            Else
                cValTmp = Format(Val(cValTmp), "##,##0.00")
            End If
        Case Is = 9
            If djcqk = 2 Then
                If djnwb = 0 Then
                    cValTmp = Format(Val(cValTmp), "##,##0.00")
                End If
            End If
        Case Is = 10
            If djcqk = 2 Then
                If djnwb = 1 Then
                    cValTmp = Format(Val(cValTmp), "#0.######")
                    If Right(cValTmp, 1) = "." Then
                        cValTmp = Left(cValTmp, Len(cValTmp) - 1)
                    End If
                End If
            End If
        Case Else
            If vType = dbCurrency _
            Or vType = dbSingle _
            Or vType = dbDouble _
            Or vType = dbLong _
            Or vType = dbInteger _
            Or vType = dbNumeric _
            Or vType = dbDecimal Then cValTmp = Format(Val(cValTmp), "##,##0.00")
            
    End Select
    
    cVal = cValTmp
    On Error GoTo 0
    
''    ''''''''''''''''''''''''''''''''''''''''''
''    Dim hFile As Long
''    hFile = FreeFile
''    Open "c:\zjgl813log.txt" For Output Access Write As #hFile
''    Print #hFile, "Row = " & Row & ", Col = " & Col & ", Orignal cVal = " & cValTmp & ", Current cVal = " & cVal & ", Type = " & CInt(vType)
''    Close #hFile
''    ''''''''''''''''''''''''''''''''''''''''''
End Sub
上一頁 12
?? 文件大小 979 K
?? 上傳用戶 apsdn
?? 所屬分類企業管理
??? 相關標簽

#visual #basic #財務 #源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmyhckb.frm

?? 快捷鍵說明
