中繁英三种语言 表设计 及函数

 

表 Label File

 

 

 

Code varchar(20)Unchecked

Label nvarchar(255)Checked

LabelGBnvarchar(255)Checked

LabelEngnvarchar(255)Checked

LabelDescnvarchar(255)Checked

 

 

 

 

Public Function GL(ByVal mCode As String, Optional ByVal ParaConnStr As String = "", Optional ByVal ParagLanguage As String = "", Optional ByVal Val1 As String = "", Optional ByVal Val2 As String = "", Optional ByVal Val3 As String = "", Optional ByVal Val4 As String = "", Optional ByVal Val5 As String = "", Optional ByVal Val6 As String = "", Optional ByVal Val7 As String = "", Optional ByVal Val8 As String = "", Optional ByVal Val9 As String = "", Optional ByVal Val10 As String = "") As String Dim Ado As New clsParentAdo() Dim st As String Dim ConnGL As SqlConnection Dim SqlDataReader As SqlDataReader If ParaConnStr = "" Then ParaConnStr = ConnStr ConnGL = New SqlConnection(ParaConnStr) st = "Select LabelEng, Label, LabelGB From LabelFile Where Code = '" & RP(mCode) & "'" SqlDataReader = Ado.ReturnDataReader(st, ConnGL) If SqlDataReader.Read Then GL = SqlDataReader.Item(CInt(IIf(ParagLanguage = "", gLanguage, ParagLanguage))) Else GL = mCode End If SqlDataReader.Close() ConnGL.Close() If Val1 <> "" Then GL = Replace(GL, "%1", Val1) If Val2 <> "" Then GL = Replace(GL, "%2", Val2) If Val3 <> "" Then GL = Replace(GL, "%3", Val3) If Val4 <> "" Then GL = Replace(GL, "%4", Val4) If Val5 <> "" Then GL = Replace(GL, "%5", Val5) If Val6 <> "" Then GL = Replace(GL, "%6", Val6) If Val7 <> "" Then GL = Replace(GL, "%7", Val7) If Val8 <> "" Then GL = Replace(GL, "%8", Val8) If Val9 <> "" Then GL = Replace(GL, "%9", Val9) If Val10 <> "" Then GL = Replace(GL, "%10", Val10) End Function