亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? hcconst.bas

?? 用友u8財務源碼,用visual basic開發
?? BAS
?? 第 1 頁 / 共 5 頁
字號: 
    
End Function

Public Function CharNumInStr(str1 As String, str2 As String) As Integer
    
    Dim i
    Dim lenth
    Dim num
    
    lenth = Len(str1)
    For i = 1 To lenth
        If mID(str1, i, 1) = str2 Then
            num = num + 1
        End If
    Next i
    CharNumInStr = num
    
End Function

'Public Sub InckChnEngForm(frm As Form)
'
'    Dim ctl As Control
'    frm.Icon = LoadResPicture(109, vbResIcon)
'    frm.Caption = GetResource(CInt(frm.Caption))
'    For Each ctl In frm.Controls
'        Select Case TypeName(ctl)
'            Case "Label", "OptionButton", "Frame", "UsedFlag"
'                If ctl.Tag <> "" Then
'                    ctl.Caption = GetResource(CInt(ctl.Tag))
'                End If
'        End Select
'    Next
'
'End Sub
'窗體中英文

Public Function AccCodeToDqBillID(AccCode As String) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
'    Set rsl = dbsZJ.OpenRecordset("FD_Sav", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cSavID From FD_Sav Where cAccID = '" & AccCode & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cAccID = '" & AccCode & "'"             'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                           'CuiDong Efficiency-A 2000/06/19 效率優化A
            AccCodeToDqBillID = !cSavID
        Else
            AccCodeToDqBillID = ""
        End If
    End With
    
    CloseRS rsl                                              'CuiDong Efficiency-A 2000/06/20 效率優化A
End Function
'由科目編碼求名稱
Public Function KmCodeToName(code As String) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
'    Set rsl = dbsZJ.OpenRecordset("code", dbOpenDynaset)      'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select ccode_name From Code Where ccode = '" & code & "'", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "ccode = '" & Code & "'"                   'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                  'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                             'CuiDong Efficiency-A 2000/06/19 效率優化A
            KmCodeToName = !ccode_name
        Else
            KmCodeToName = ""
        End If
    End With
    CloseRS rsl
End Function
'由科目名稱求編碼
Public Function KmNameToCode(code As String) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
'    Set rsl = dbsZJ.OpenRecordset("code", dbOpenDynaset)        'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cCode From Code Where ccode_name = '" & code & "'", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "ccode_name = '" & Code & "'"                'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                    'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                               'CuiDong Efficiency-A 2000/06/19 效率優化A
            KmNameToCode = !cCode
        Else
            KmNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function
'由個人編碼求名稱
Public Function PersonCodeToName(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        PersonCodeToName = ""
        Exit Function
    End If

'    Set rsl = dbsZJ.OpenRecordset("Person", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cPersonName From Person Where cPersonCode = '" & code & "'", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cPersonCode = '" & Code & "'"           'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                           'CuiDong Efficiency-A 2000/06/19 效率優化A
            PersonCodeToName = !cPersonName
        Else
            PersonCodeToName = ""
        End If
    End With
    CloseRS rsl
End Function
'由個人名稱求編碼
Public Function PersonNameToCode(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        PersonNameToCode = ""
        Exit Function
    End If
    
'    Set rsl = dbsZJ.OpenRecordset("Person", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cPersonCode From Person Where cPersonName = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cPersonName = '" & Code & "'"           'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                           'CuiDong Efficiency-A 2000/06/19 效率優化A
            PersonNameToCode = !cPersonCode
        Else
            PersonNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function DeptCodeToName(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        DeptCodeToName = ""
        Exit Function
    End If
    
'    Set rsl = dbsZJ.OpenRecordset("Department", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cDepName From Department Where cDepCode = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cDepCode = '" & Code & "'"                  'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                    'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                               'CuiDong Efficiency-A 2000/06/19 效率優化A
            DeptCodeToName = !cDepName
        Else
            DeptCodeToName = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function DeptNameToCode(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        DeptNameToCode = ""
        Exit Function
    End If
    
'    Set rsl = dbsZJ.OpenRecordset("Department", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cDepCode From Department Where cDepName = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cDepName = '" & Code & "'"                  'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                    'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                               'CuiDong Efficiency-A 2000/06/19 效率優化A
            DeptNameToCode = !cDepCode
        Else
            DeptNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function CusCodeToName(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        CusCodeToName = ""
        Exit Function
    End If
'    Set rsl = dbsZJ.OpenRecordset("Customer", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cCusAbbName From Customer Where cCusCode = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cCusCode = '" & Code & "'"                'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                  'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                             'CuiDong Efficiency-A 2000/06/19 效率優化A
            CusCodeToName = !cCusAbbName
        Else
            CusCodeToName = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function CusNameToCode(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        CusNameToCode = ""
        Exit Function
    End If
'    Set rsl = dbsZJ.OpenRecordset("Customer", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cCusCode From Customer Where cCusAbbName = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cCusAbbName = '" & Code & "'"             'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                  'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                             'CuiDong Efficiency-A 2000/06/19 效率優化A
            CusNameToCode = !cCusCode
        Else
            CusNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function SupCodeToName(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        SupCodeToName = ""
        Exit Function
    End If

'    Set rsl = dbsZJ.OpenRecordset("Vendor", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cVenAbbName From Vendor Where cVenCode = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cVenCode = '" & Code & "'"              'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                           'CuiDong Efficiency-A 2000/06/19 效率優化A
            SupCodeToName = !cVenAbbName
        Else
            SupCodeToName = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function SupNameToCode(code As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    
    Dim rsl As New UfRecordset
    
    If IsNull(code) Then
        SupNameToCode = ""
        Exit Function
    End If
'    Set rsl = dbsZJ.OpenRecordset("Vendor", dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select cVenCode From Vendor Where cVenAbbName = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "cVenAbbName = '" & Code & "'"           'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                           'CuiDong Efficiency-A 2000/06/19 效率優化A
            SupNameToCode = !cVenCode
        Else
            SupNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function

Public Function ItemCodeToName(code As Variant, xmdl As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    
    Dim rsl As New UfRecordset
    If IsNull(code) Or IsNull(xmdl) Then
        ItemCodeToName = ""
        Exit Function
    End If
    If code = "" Or xmdl = "" Then
        ItemCodeToName = ""
        Exit Function
    End If
    '------------------- zcl - cuidong 2001.01.09
''    Set rsl = dbsZJ.OpenRecordset("fitemss" & xmdl, dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
'    Set rsl = dbsZJ.OpenRecordset("Select cItemName From fitemss" & xmdl & " Where citemcode = '" & Code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
'    With rsl
''        .FindFirst "citemcode = '" & Code & "'"                     'CuiDong Efficiency-A 2000/06/19 效率優化A
''        If Not .NoMatch Then                                        'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not (.EOF Or .BOF) Then                                   'CuiDong Efficiency-A 2000/06/19 效率優化A
'            ItemCodeToName = !cItemName
'        Else
'            ItemCodeToName = ""
'        End If
'    End With
'    CloseRS rsl
    
    '------------------- zcl - cuidong 2001.01.09
    If xmdl = "ch" Then
        Set rsl = dbsZJ.OpenRecordset("Select cInvName As sName From Inventory Where cInvCode ='" & code & "'")
    Else
        Set rsl = dbsZJ.OpenRecordset("Select cItemName As sName From fitemss" & xmdl & " Where citemcode = '" & code & "'")
    End If
    With rsl
        If Not (.EOF Or .BOF) Then
            ItemCodeToName = !sName
        Else
            ItemCodeToName = ""
        End If
    End With
    CloseRS rsl
    '------------------- zcl - cuidong 2001.01.09

End Function

Public Function ItemNameToCode(code As Variant, xmdl As Variant) As String
    'CuiDong Efficiency-A 2000/06/19 效率優化A OK
    Dim rsl As New UfRecordset
    If IsNull(code) Then
        ItemNameToCode = ""
        Exit Function
    End If
    If xmdl = "" Then
        ItemNameToCode = ""
        Exit Function
    End If
      
'    Set rsl = dbsZJ.OpenRecordset("fitemss" & xmdl, dbOpenDynaset)  'CuiDong Efficiency-A 2000/06/19 效率優化A
    Set rsl = dbsZJ.OpenRecordset("Select citemcode From fitemss" & xmdl & " Where citemname = '" & code & "'", dbOpenDynaset) 'CuiDong Efficiency-A 2000/06/19 效率優化A
    With rsl
'        .FindFirst "citemname = '" & Code & "'"                     'CuiDong Efficiency-A 2000/06/19 效率優化A
'        If Not .NoMatch Then                                        'CuiDong Efficiency-A 2000/06/19 效率優化A
        If Not (.EOF Or .BOF) Then                                   'CuiDong Efficiency-A 2000/06/19 效率優化A
            ItemNameToCode = !citemcode
        Else
            ItemNameToCode = ""
        End If
    End With
    CloseRS rsl
End Function

Public Sub LoadKmGrade()
    'CuiDong Efficiency-A 2000/06

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
老司机精品视频线观看86| 亚洲成av人片一区二区三区| 欧美午夜精品电影| 91老师片黄在线观看| 成人免费视频app| 成人黄色在线网站| 国产馆精品极品| www.视频一区| 99re亚洲国产精品| 色成年激情久久综合| 91久久精品日日躁夜夜躁欧美| 91丨国产丨九色丨pron| 在线国产亚洲欧美| 91麻豆精品国产自产在线| 亚洲精品一区二区三区福利| 亚洲精品在线一区二区| 久久麻豆一区二区| 国产精品久久久久影院| 亚洲免费观看高清完整版在线观看| 亚洲免费伊人电影| 视频一区二区三区入口| 国产在线播放一区三区四| 国产91在线观看丝袜| 欧洲精品在线观看| 日韩欧美电影一二三| 中国色在线观看另类| 亚洲精选一二三| 蜜臀av一区二区| 成人avav影音| 337p亚洲精品色噜噜噜| 国产精品欧美精品| 亚洲国产精品一区二区www在线| 免费观看成人鲁鲁鲁鲁鲁视频| 国产一区二区精品久久91| 色诱亚洲精品久久久久久| 欧美精品三级在线观看| 久久视频一区二区| 亚洲综合另类小说| 国产一区二区按摩在线观看| 91亚洲男人天堂| 精品久久久久久久一区二区蜜臀| 自拍偷拍欧美精品| 韩国成人福利片在线播放| 欧美曰成人黄网| 久久精品日产第一区二区三区高清版 | 久久久欧美精品sm网站| 亚洲欧美日韩一区| 国产久卡久卡久卡久卡视频精品| 在线观看不卡视频| 中文字幕中文字幕在线一区 | 在线免费观看日本一区| 日韩你懂的在线播放| 一区二区三区不卡在线观看 | 美女视频黄 久久| 色老汉av一区二区三区| 国产欧美一区二区精品秋霞影院| 午夜一区二区三区视频| 91浏览器在线视频| 久久久久亚洲综合| 美女久久久精品| 欧美色爱综合网| 玉米视频成人免费看| 成人av动漫在线| 久久亚洲二区三区| 韩国视频一区二区| 精品免费99久久| 毛片一区二区三区| 日韩亚洲国产中文字幕欧美| 图片区小说区区亚洲影院| 91丨九色porny丨蝌蚪| 国产精品国产三级国产专播品爱网 | 欧美色电影在线| 一区二区三区欧美激情| 这里是久久伊人| 久久先锋资源网| 国产乱码精品一品二品| 久久综合久久综合九色| 狠狠v欧美v日韩v亚洲ⅴ| 欧美精品一区二区三区四区| 美日韩一区二区| 精品久久一二三区| 美女视频黄a大片欧美| 精品免费视频一区二区| 国产精品资源在线看| 久久精品人人做人人爽97 | 久久久久国色av免费看影院| 久久国产剧场电影| 国产亚洲欧美激情| 成人av集中营| 婷婷综合久久一区二区三区| 欧美剧在线免费观看网站| 日韩福利电影在线| 精品国产乱码久久久久久浪潮| 国产永久精品大片wwwapp| 久久久一区二区三区| 成人av免费在线播放| 亚洲一区二区在线观看视频| 欧美精三区欧美精三区| 久久成人18免费观看| 国产精品久久久久桃色tv| 在线观看亚洲一区| 精品一区二区精品| 亚洲色图另类专区| 欧美二区乱c少妇| 国产精品白丝av| 夜色激情一区二区| 精品久久人人做人人爽| 色欧美片视频在线观看在线视频| 日韩1区2区日韩1区2区| 中文字幕一区不卡| 欧美一区二区三区婷婷月色| 成人午夜碰碰视频| 午夜欧美一区二区三区在线播放| 欧美va亚洲va在线观看蝴蝶网| 99精品视频一区二区三区| 日本不卡视频在线| 一区二区三区欧美视频| 国产欧美视频一区二区| 日韩女优视频免费观看| 成人ar影院免费观看视频| 日韩精品成人一区二区在线| 中文字幕免费观看一区| 6080yy午夜一二三区久久| 91小视频免费观看| 狠狠狠色丁香婷婷综合久久五月| 亚洲图片欧美色图| 国产精品久久久久久久久久免费看 | 亚洲国产成人va在线观看天堂| 2020国产精品自拍| 884aa四虎影成人精品一区| 91免费在线视频观看| 国产精品99久| 麻豆精品视频在线观看视频| 亚洲一级片在线观看| 综合色天天鬼久久鬼色| 国产精品区一区二区三区| 欧美va在线播放| 欧美一区二区三区的| 欧美久久久久久蜜桃| 日本高清不卡一区| 99麻豆久久久国产精品免费| 国产麻豆视频一区二区| 老司机精品视频一区二区三区| 天使萌一区二区三区免费观看| 亚洲三级在线观看| 1000部国产精品成人观看| 日本一区二区三区免费乱视频| 日韩亚洲电影在线| 精品美女在线播放| 337p日本欧洲亚洲大胆色噜噜| 宅男噜噜噜66一区二区66| 欧美丰满嫩嫩电影| 91精品国产综合久久香蕉麻豆| 91极品美女在线| 欧美日韩美女一区二区| 欧美三级日韩三级国产三级| 欧美日韩亚洲综合在线 | 成人夜色视频网站在线观看| 狠狠v欧美v日韩v亚洲ⅴ| 国产美女在线精品| 粉嫩一区二区三区性色av| 成人永久免费视频| 99精品视频一区| 欧美性xxxxxxxx| 欧美精品 国产精品| 6080午夜不卡| 欧美一区二区三区播放老司机| 欧美成人精品福利| 久久精品夜色噜噜亚洲aⅴ| 久久人人爽爽爽人久久久| 国产欧美日韩在线视频| 亚洲人成7777| 亚洲成a人v欧美综合天堂下载| 日本aⅴ亚洲精品中文乱码| 九一久久久久久| 99精品热视频| 91麻豆精品91久久久久久清纯 | 欧美精品视频www在线观看| 日韩欧美资源站| 欧美激情在线一区二区| 亚洲精品乱码久久久久| 日韩精彩视频在线观看| 国产成人综合在线| 色香蕉久久蜜桃| 欧美大片一区二区| 中文字幕亚洲综合久久菠萝蜜| 亚洲影视资源网| 国产精品影音先锋| 欧美综合一区二区三区| 久久久久99精品一区| 亚洲人成在线播放网站岛国| 日本在线不卡一区| av午夜一区麻豆| 日韩一级片网址| 亚洲欧美日韩国产成人精品影院| 老司机精品视频导航| 91视频免费观看| 久久久久久一二三区| 爽好多水快深点欧美视频| 丰满少妇在线播放bd日韩电影|