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

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

?? clsvbtableclass.cls

?? VB代碼生成器
?? CLS
?? 第 1 頁 / 共 4 頁
字號: 
            If I <> 0 Then
               If Right(strTemp, 1) <> "(" Then
                  strTemp = strTemp & ","
               End If
            End If
            
            Select Case strHeadInfo
               Case "dtm"
                  strTemp = strTemp & """ & strSymbol " & vbCrLf & Space(9) & "mstrSQL = mstrSQL & Format(." & strHeadInfo & strColummName & ", ""yyyy-mm-dd hh:nn:ss"") & strSymbol & """
               Case "str"
                  strTemp = strTemp & "'"" " & vbCrLf & Space(9) & "mstrSQL = mstrSQL & ." & strHeadInfo & strColummName & " & ""'"
               Case "lng", "int", "byt", "bln", "dbl", "sng"
                  strTemp = strTemp & """ " & vbCrLf & Space(9) & "mstrSQL = mstrSQL & CStr(." & strHeadInfo & strColummName & ") & """
               Case Else '"var"
                  strTemp = strTemp & "'"" " & vbCrLf & Space(9) & "mstrSQL = mstrSQL & ." & strHeadInfo & strColummName & " & ""'"
            End Select
'            If I = lngCount - 1 Then
'               strTemp = strTemp & ")""" & vbCrLf
'            Else
'               strTemp = strTemp & ","
'            End If
         End If
      Next I
      strTemp = strTemp & ")""" & vbCrLf
      strTemp = strTemp & Space(6) & "End With" & vbCrLf
      
         strTemp = strTemp & Space(6) & "If Not mobjQDatabase.QExecuteQuery(MSTR_DATABASENAME, mstrSQL, rlngErrNum, rstrErrDescr) Then" & vbCrLf
            strTemp = strTemp & Space(9) & "Err.Raise rlngErrNum, , rstrErrDescr" & vbCrLf
         strTemp = strTemp & Space(6) & "End If" & vbCrLf
      strTemp = strTemp & Space(3) & "End If" & vbCrLf & vbCrLf
   
      strTemp = strTemp & Space(3) & "QAddNew = True" & vbCrLf & vbCrLf
   
      strTemp = strTemp & Space(3) & "Err.Clear" & vbCrLf
   strTemp = strTemp & "QAddNewErr:" & vbCrLf
      strTemp = strTemp & Space(3) & "rlngErrNum = Err.Number" & vbCrLf
      strTemp = strTemp & Space(3) & "rstrErrDescr = Err.Description" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf

   CreateQAddNew = strTemp
End Function

Private Function CreateGetResults(ByVal vstrProjectName As String, _
                                 ByRef objTable As Table) As String
   Dim strTemp As String
   Dim strTableName As String
   strTableName = objTable.Name
   
   strTemp = ""
   strTemp = strTemp & "Private Function GetResults() As typ" & strTableName & "()" & vbCrLf
   strTemp = strTemp & Space(3) & "Dim arrudt" & strTableName & "() As typ" & strTableName & vbCrLf
   strTemp = strTemp & Space(3) & "Dim I As Long" & vbCrLf
   strTemp = strTemp & Space(3) & "Dim lngErrNum As Long, strErrDescr As String" & vbCrLf & vbCrLf
   
   strTemp = strTemp & Space(3) & "If mlngRecordCount > 0 Then" & vbCrLf
      strTemp = strTemp & Space(6) & "ReDim arrudt" & strTableName & "(mlngRecordCount - 1)" & vbCrLf
      strTemp = strTemp & Space(6) & "If Not QMoveFirst(arrudt" & strTableName & "(0), lngErrNum, strErrDescr) Then" & vbCrLf
         strTemp = strTemp & Space(9) & "Err.Raise lngErrNum, , strErrDescr" & vbCrLf
      strTemp = strTemp & Space(6) & "End If" & vbCrLf
      strTemp = strTemp & Space(6) & "For I = 1 To mlngRecordCount - 1" & vbCrLf
         strTemp = strTemp & Space(9) & "If Not QMoveNext(arrudt" & strTableName & "(I), lngErrNum, strErrDescr) Then" & vbCrLf
            strTemp = strTemp & Space(12) & "Err.Raise lngErrNum, , strErrDescr" & vbCrLf
         strTemp = strTemp & Space(9) & "End If" & vbCrLf
      strTemp = strTemp & Space(6) & "Next I" & vbCrLf
   strTemp = strTemp & Space(3) & "End If" & vbCrLf & vbCrLf
   
   strTemp = strTemp & Space(3) & "GetResults = arrudt" & strTableName & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
   
   CreateGetResults = strTemp
End Function

Private Function CreateQGetAll(ByVal vstrProjectName As String, _
                              ByRef objTable As Table) As String
   Dim strTemp As String
   Dim strTableName As String
   strTableName = objTable.Name
   
   strTemp = ""
   strTemp = strTemp & "Public Function QGetAll(Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
   strTemp = strTemp & "                        Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
   strTemp = strTemp & "   Dim blnRet As Boolean" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   mlngRecordCount = -1" & vbCrLf
   strTemp = strTemp & "   mstrSQL = ""Select * From "" & MSTR_TABLENAME" & vbCrLf
   strTemp = strTemp & "   blnRet = mobjQDatabase.QOpenRecordSet(MSTR_DATABASENAME, mstrSQL, mrst, rlngErrNum, rstrErrDescr)" & vbCrLf
   strTemp = strTemp & "   If blnRet Then" & vbCrLf
   strTemp = strTemp & "      mstrSQL = ""GetAll""" & vbCrLf
   strTemp = strTemp & "      mlngRecordCount = mrst.RecordCount" & vbCrLf
   strTemp = strTemp & "   End If" & vbCrLf
   strTemp = strTemp & "   QGetAll = blnRet" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "Public Function QGetAlls(ByRef rarrudt" & strTableName & "() As typ" & strTableName & ", _" & vbCrLf
   strTemp = strTemp & "                        Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
   strTemp = strTemp & "                        Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
   strTemp = strTemp & "   On Error GoTo QGetAllsErr" & vbCrLf
   strTemp = strTemp & "   QGetAlls = False" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   If mstrSQL <> ""GetAll"" Then" & vbCrLf
   strTemp = strTemp & "      If Not QGetAll(rlngErrNum, rstrErrDescr) Then" & vbCrLf
   strTemp = strTemp & "         Err.Raise rlngErrNum, , rstrErrDescr" & vbCrLf
   strTemp = strTemp & "      End If" & vbCrLf
   strTemp = strTemp & "   End If" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   rarrudt" & strTableName & " = GetResults" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   QGetAlls = True" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   Err.Clear" & vbCrLf
   strTemp = strTemp & "QGetAllsErr:" & vbCrLf
   strTemp = strTemp & "   rlngErrNum = Err.Number" & vbCrLf
   strTemp = strTemp & "   rstrErrDescr = Err.Description" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
   
   CreateQGetAll = strTemp
End Function

'Private Function CreateQGetBySN(ByVal vstrProjectName As String, _
'                              ByRef objTable As Table) As String
'
'   Dim strTemp As String
'   Dim strTableName As String
'   strTableName = objTable.Name
'
'   strTemp = ""
'   strTemp = strTemp & "Public Function QGetBySN(ByVal vstrSN As String, _" & vbCrLf
'   strTemp = strTemp & "                        ByRef udt" & strTableName & " As typ" & strTableName & ", _" & vbCrLf
'   strTemp = strTemp & "                        Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
'   strTemp = strTemp & "                        Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
'   strTemp = strTemp & "   Dim blnRet As Boolean" & vbCrLf & vbCrLf
'
'   strTemp = strTemp & "   mlngRecordCount = -1" & vbCrLf
'   strTemp = strTemp & "   mstrSQL = ""Select * From "" & MSTR_TABLENAME & _" & vbCrLf
'   strTemp = strTemp & "            "" Where " & strTableName & "SN='"" & vstrSN & ""' Order By " & strTableName & "ID ASC" & vbCrLf
'   strTemp = strTemp & "   blnRet = mobjQDatabase.QOpenRecordSet(MSTR_DATABASENAME, mstrSQL, mrst, rlngErrNum, rstrErrDescr)" & vbCrLf
'   strTemp = strTemp & "   If blnRet Then" & vbCrLf
'   strTemp = strTemp & "      mlngRecordCount = mrst.RecordCount" & vbCrLf
'   strTemp = strTemp & "   End If" & vbCrLf
'   strTemp = strTemp & "   QGetBySN = blnRet" & vbCrLf
'   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
'
'   CreateQGetBySN = strTemp
'End Function

Private Function CreateQGetByField(ByVal vstrProjectName As String, _
                                 ByRef objTable As Table) As String

   Dim strTemp As String
   Dim strTableName As String
   strTableName = objTable.Name
   
   strTemp = ""
   strTemp = strTemp & "Public Function QGetByField(ByVal vstrFieldName As String, _" & vbCrLf
   strTemp = strTemp & "                           ByVal vvarFieldValue As Variant, _" & vbCrLf
   strTemp = strTemp & "                           Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
   strTemp = strTemp & "                           Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
   strTemp = strTemp & "   Dim strSymbol As String, strFieldValue As String" & vbCrLf
   strTemp = strTemp & "   Dim blnRet As Boolean" & vbCrLf & vbCrLf

   strTemp = strTemp & "   mlngRecordCount = -1" & vbCrLf & vbCrLf

   strTemp = strTemp & "   TranceferSymbo vvarFieldValue, strSymbol, strFieldValue" & vbCrLf
   strTemp = strTemp & "   mstrSQL = ""Select * From "" & MSTR_TABLENAME & _" & vbCrLf
   strTemp = strTemp & "            "" Where "" & vstrFieldName & ""="" & strSymbol & strFieldValue & strSymbol" & vbCrLf
   strTemp = strTemp & "   blnRet = mobjQDatabase.QOpenRecordSet(MSTR_DATABASENAME, mstrSQL, mrst, rlngErrNum, rstrErrDescr)" & vbCrLf
   strTemp = strTemp & "   If blnRet Then" & vbCrLf
   strTemp = strTemp & "      mlngRecordCount = mrst.RecordCount" & vbCrLf
   strTemp = strTemp & "   End If" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   QGetByField = blnRet" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "Public Function QGetByFields(ByVal vstrFieldName As String, _" & vbCrLf
   strTemp = strTemp & "                           ByVal vvarFieldValue As Variant, _" & vbCrLf
   strTemp = strTemp & "                           ByRef rarrudt" & strTableName & "() As typ" & strTableName & ", _" & vbCrLf
   strTemp = strTemp & "                           Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
   strTemp = strTemp & "                           Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
   strTemp = strTemp & "   Dim strSQL As String" & vbCrLf
   strTemp = strTemp & "   Dim strSymbol As String, strFieldValue As String" & vbCrLf
   strTemp = strTemp & "   On Error GoTo QGetByFieldsErr" & vbCrLf
   strTemp = strTemp & "   QGetByFields = False" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   TranceferSymbo vvarFieldValue, strSymbol, strFieldValue" & vbCrLf
   strTemp = strTemp & "   strSQL = ""Select * From "" & MSTR_TABLENAME & _" & vbCrLf
   strTemp = strTemp & "            "" Where "" & vstrFieldName & ""="" & strSymbol & strFieldValue & strSymbol" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   If mstrSQL <> strSQL Then" & vbCrLf
   strTemp = strTemp & "      If Not QGetByField(vstrFieldName, vvarFieldValue, rlngErrNum, rstrErrDescr) Then" & vbCrLf
   strTemp = strTemp & "         Err.Raise rlngErrNum, , rstrErrDescr" & vbCrLf
   strTemp = strTemp & "      End If" & vbCrLf
   strTemp = strTemp & "   End If" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   rarrudt" & strTableName & " = GetResults" & vbCrLf & vbCrLf
   
   strTemp = strTemp & "   QGetByFields = True" & vbCrLf
   strTemp = strTemp & "   Err.Clear" & vbCrLf
   strTemp = strTemp & "QGetByFieldsErr:" & vbCrLf
   strTemp = strTemp & "   rlngErrNum = Err.Number" & vbCrLf
   strTemp = strTemp & "   rstrErrDescr = Err.Description" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf
   
   CreateQGetByField = strTemp
End Function

Private Function CreateQGetBySQL(ByVal vstrProjectName As String, _
                                 ByRef objTable As Table) As String

   Dim strTemp As String
   Dim strTableName As String
   strTableName = objTable.Name
   
   strTemp = ""
   strTemp = strTemp & "Public Function QGetBySQL(ByVal vstrSQL As String, _" & vbCrLf
   strTemp = strTemp & "                        Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf
   strTemp = strTemp & "                        Optional ByRef rstrErrDescr As String = """") As Boolean" & vbCrLf
   strTemp = strTemp & "   Dim blnRet As Boolean" & vbCrLf
   strTemp = strTemp & "   mlngRecordCount = -1" & vbCrLf & vbCrLf

   strTemp = strTemp & "   blnRet = mobjQDatabase.QOpenRecordSet(MSTR_DATABASENAME, vstrSQL, mrst, rlngErrNum, rstrErrDescr)" & vbCrLf
   strTemp = strTemp & "   If blnRet Then" & vbCrLf
   strTemp = strTemp & "      mstrSQL = vstrSQL" & vbCrLf
   strTemp = strTemp & "      mlngRecordCount = mrst.RecordCount" & vbCrLf
   strTemp = strTemp & "   End If" & vbCrLf & vbCrLf

   strTemp = strTemp & "   QGetBySQL = blnRet" & vbCrLf
   strTemp = strTemp & "End Function" & vbCrLf & vbCrLf

   strTemp = strTemp & "Public Function QGetBySQLs(ByVal vstrSQL As String, _" & vbCrLf
   strTemp = strTemp & "                           ByRef rarrudt" & strTableName & "() As typ" & strTableName & ", _" & vbCrLf
   strTemp = strTemp & "                           Optional ByRef rlngErrNum As Long = 0, _" & vbCrLf

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
欧美在线综合视频| 亚洲一区二区av电影| 欧美日韩一区二区三区免费看| 国产一区二区三区免费播放| 日本最新不卡在线| 日韩av网站在线观看| 日韩av高清在线观看| 日本va欧美va瓶| 高清不卡一区二区在线| 国产成人自拍网| 色天天综合色天天久久| 欧日韩精品视频| 精品999久久久| 中文字幕一区日韩精品欧美| 一区二区三区国产精华| 亚洲综合免费观看高清在线观看| 亚洲无线码一区二区三区| 日本系列欧美系列| 福利一区在线观看| 91麻豆精品国产91久久久使用方法| 欧美一区二区三区在线观看| 2023国产精品视频| 亚洲男女一区二区三区| 裸体在线国模精品偷拍| 成人av网址在线| 日韩一卡二卡三卡四卡| 亚洲欧美日韩在线| 久久99久久精品| 一本色道a无线码一区v| 国产亚洲欧美在线| 秋霞国产午夜精品免费视频| 成人午夜在线视频| 色婷婷综合久久久久中文| 欧美一级黄色片| 狠狠色丁香久久婷婷综合丁香| 色综合久久久久| 亚洲午夜在线视频| 91精品国产手机| 蜜臀久久99精品久久久画质超高清 | 欧美高清一级片在线| 亚洲综合激情另类小说区| 99久久伊人精品| 一区二区三区国产豹纹内裤在线| 不卡的av网站| 自拍偷拍国产精品| 色综合久久久久网| 天天色综合成人网| 在线不卡中文字幕播放| 日韩国产在线观看| 在线观看网站黄不卡| 欧美日韩国产高清一区二区| 久久九九99视频| 成人动漫在线一区| 天涯成人国产亚洲精品一区av| 91精品国产色综合久久ai换脸| 中文字幕av一区二区三区高 | 国产91精品入口| 五月婷婷久久综合| 激情文学综合丁香| 日韩高清欧美激情| 午夜精品一区二区三区免费视频| 久久先锋影音av鲁色资源网| 色一区在线观看| 国产69精品久久99不卡| 日韩影院精彩在线| 欧美激情一区二区在线| 69堂精品视频| 精品伦理精品一区| 色视频成人在线观看免| aaa国产一区| 懂色av中文字幕一区二区三区 | 欧美一区二区人人喊爽| 91久久精品一区二区三区| 99久精品国产| 99国产精品久久久| 99精品国产视频| 成人18精品视频| 不卡大黄网站免费看| jvid福利写真一区二区三区| 成人av在线网| 99视频超级精品| 色婷婷精品久久二区二区蜜臂av | 欧美视频一区二区三区四区 | 亚洲四区在线观看| 亚洲色图都市小说| 亚洲精品乱码久久久久久 | 国产精品久99| 国产精品电影院| 亚洲精品乱码久久久久| 亚洲综合小说图片| 日韩成人免费看| 精品在线播放午夜| 高清不卡一区二区在线| 99国产精品久久久久| 欧美色大人视频| 日韩欧美不卡在线观看视频| 久久亚洲精品小早川怜子| 国产精品天干天干在线综合| 中文字幕字幕中文在线中不卡视频| 亚洲精品视频在线观看免费| 午夜精品一区二区三区电影天堂 | 高清av一区二区| 色婷婷综合久久久久中文| 欧美性做爰猛烈叫床潮| 日韩精品资源二区在线| 国产精品欧美一区二区三区| 亚洲精品精品亚洲| 日韩在线一区二区| 国产成人三级在线观看| 在线亚洲免费视频| 欧美成人精品1314www| 中文字幕不卡在线观看| 亚洲自拍都市欧美小说| 老司机午夜精品99久久| 东方aⅴ免费观看久久av| 欧洲亚洲精品在线| 精品av久久707| 亚洲乱码中文字幕| 老司机精品视频一区二区三区| 国产不卡视频一区| 欧美一区午夜精品| 亚洲视频网在线直播| 蜜桃视频一区二区三区| 91女人视频在线观看| 日韩欧美一区中文| 亚洲乱码国产乱码精品精98午夜| 日韩高清不卡一区二区| 91亚洲精品久久久蜜桃网站 | youjizz久久| 中文字幕一区三区| 久久精品国产亚洲5555| 在线欧美一区二区| 国产人伦精品一区二区| 蜜臀久久久久久久| 色综合久久综合| 国产三级精品在线| 精品一区二区免费| 欧美精品 日韩| 亚洲一区二区成人在线观看| 成人网在线免费视频| 日韩欧美黄色影院| 亚洲国产综合91精品麻豆| 国产宾馆实践打屁股91| 日韩欧美一级精品久久| 亚洲成在人线在线播放| 色哟哟在线观看一区二区三区| 欧美激情在线免费观看| 激情综合色综合久久综合| 欧美一区二区视频在线观看 | 91福利视频在线| 综合久久给合久久狠狠狠97色| 久久国产三级精品| 日韩视频免费观看高清在线视频| 午夜精品久久久久久| 欧美性受xxxx黑人xyx性爽| 中文字幕一区二区三区精华液| 国产精品一区二区三区99| 91精品国产综合久久小美女| 亚洲一区日韩精品中文字幕| 91麻豆免费观看| 亚洲视频资源在线| 99久久99久久免费精品蜜臀| 国产欧美一区二区三区沐欲| 极品少妇一区二区| 久久久久久久综合色一本| 激情六月婷婷久久| 日韩av一区二区三区四区| 欧美日韩国产综合视频在线观看| 亚洲一区视频在线观看视频| 欧美日韩一区二区三区四区 | 久久免费精品国产久精品久久久久 | 国产欧美一区二区精品秋霞影院 | 国产在线视视频有精品| www国产精品av| 国产精品自拍网站| 国产精品美女视频| 91在线播放网址| 亚洲一二三四区| 51午夜精品国产| 精品亚洲成a人| 国产精品欧美一区二区三区| 91亚洲资源网| 亚洲电影在线播放| 4438x亚洲最大成人网| 老司机免费视频一区二区| 国产欧美一区二区三区沐欲| 99久久免费精品| 亚洲国产aⅴ成人精品无吗| 日韩手机在线导航| 国产剧情一区在线| 亚洲欧美另类久久久精品2019| 欧美日韩亚洲综合在线| 激情成人综合网| 亚洲欧美在线视频观看| 欧美色偷偷大香| 91精品国产色综合久久| 国产老女人精品毛片久久| 亚洲免费视频成人| 欧美一区二区三区啪啪| 国产成人免费在线观看不卡|