动态翻译数据内容

最新推荐文章于 2024-07-22 16:19:52 发布

xiashu

最新推荐文章于 2024-07-22 16:19:52 发布

阅读量371

点赞数

分类专栏： VB 文章标签： integer function string table c

本文链接：https://blog.csdn.net/xiashu/article/details/1422621

版权

VB 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Function ssEngWord2Chn (ByVal FormName As String, ByVal Word As String) As String
    Dim tbXlateWord As Table
    Dim btbOpened As Integer, OpenRetry As Integer
    Dim oldCursor As Integer

oldCursor = Screen.MousePointer
Screen.MousePointer = HOURGLASS

    OpenRetry = 0
OpenW2CErrRetry:

    On Error GoTo errEngWord2Chn

    If (G_SaveCaption) Then
        Set tbXlateWord = g_helpdb.OpenTable("LangXlate")
    Else
        Set tbXlateWord = g_helpdb.OpenTable("LangXlate", DB_READONLY)
    End If

btbOpened = True
tbXlateWord.Index = "PrimaryKey"

tbXlateWord.Seek "=", gAppName, FormName, Word

    If (tbXlateWord.NoMatch) Then
        If (G_SaveCaption) Then
            tbXlateWord.AddNew
            tbXlateWord!ApplName = gAppName
            tbXlateWord!FormName = FormName
            tbXlateWord!ItemName = Word
            tbXlateWord!EngText = Word
            tbXlateWord.Update

            ssEngWord2Chn = Word        'Just to satisfy the caller
        Else
            ssEngWord2Chn = TranslateCommonWord(Word)
        End If
    Else
        If (G_Sess.Language = "C") Then
            ssEngWord2Chn = tbXlateWord!AltText
        Else
            ssEngWord2Chn = tbXlateWord!EngText
        End If
    End If

errEngWord2Chn:
    If (btbOpened) Then
        tbXlateWord.Close
    Else
        If OpenRetry <= 5 Then
            On Error Resume Next
            OpenRetry = OpenRetry + 1
            g_helpdb.Close
            Set g_helpdb = OpenDatabase(FullPath(G_Sess.WorkFilePath, "HELP.MDB"), False, True)
            GoTo OpenW2CErrRetry:
        End If
    End If

Screen.MousePointer = oldCursor

Exit Function
End Function