sql編程實(shí)例(已改無錯(cuò)字)
2022-10-02 23:12:24 本頁面
【正文】 ed39。) else strField := 39。39。 end else strField := [ItemIndex]。 if ( = 39。39。) and ( Ord(soNoCondition)) and ( Ord(soBlank)) then raise (39。Can39。39。t Run Query: No Search Value Entered39。) else strValue := 。 { See if the field being search is a string field. If so, then pad the quote string with quotation marks。 otherwise, set it to a null value. } if strField 39。39。 then with (strField) do if (DataType = ftString) or (DataType = ftMemo) then strQuote := 39。39。 else strQuote := 39。39。 { Construct the WHERE clause of the query based on the user39。s choice in Type. } case etSQLOps() of soNoCondition: strWhere := 39。39。 soEqual: strWhere := strField + 39。 = 39。 + strQuote + strValue+ strQuote。 soNotEqual: strWhere := strField + 39。 39。 + strQuote + strValue + strQuote。 soLessThan: strWhere := strField + 39。 39。 + strQuote + strValue + strQuote。 soLessEqual: strWhere := strField + 39。 = 39。 + strQuote + strValue + strQuote。 soMoreThan: strWhere := strField + 39。 39。 + strQuote + strValue + strQuote。 soMoreEqual: strWhere := strField + 39。 = 39。 + strQuote + strValue + strQuote。 soStartsWith: strWhere := strField + 39。 LIKE 39。 + strQuote + strValue + 39。%39。 + strQuote。 soNoStartsWith: strWhere := strField + 39。 NOT LIKE 39。 + strQuote + strValue + 39。%39。 + strQuote。 soEndsWith: strWhere := strField + 39。 LIKE 39。 + strQuote + 39。%39。 + strValue + strQuote。 soNoEndsWith: strWhere := strField + 39。 NOT LIKE 39。 + strQuote + 39。%39。 + strValue + strQuote。 soContains: strWhere := strField + 39。 LIKE 39。+ strQuote+39。%39。+ strValue + 39。%39。 + strQuote。 soNoContains: strWhere := strField + 39。 NOT LIKE 39。 + strQuote + 39。%39。 + strValue + 39。%39。 + strQuote。 soBlank: strWhere := strField + 39。 IS NULL39。 soNotBlank: strWhere := strField + 39。 IS NOT NULL39。 end。 if = Ord(soNoCondition) then strQuery := 39。SELECT * FROM 39。 + strTable + 39。39。 else if (strField).DataType = ftString then strQuery := 39。SELECT * FROM 39。 + strTable + 39。 t WHERE t.39。 + strWhere else strQuery := 39。SELECT * FROM 39。 + strTable + 39。 t WHERE t.39。 + strWhere。 { Create
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1