sql編程實(shí)例(文件)
【正文】 。39。39。 soEqual: strWhere := strField + 39。 39。 + strQuote + strValue + strQuote。 soMoreThan: strWhere := strField + 39。 = 39。 + strQuote + strValue + 39。 NOT LIKE 39。 soEndsWith: strWhere := strField + 39。 + strValue + strQuote。%39。+ strQuote+39。 + strQuote。%39。 soBlank: strWhere := strField + 39。 end。39。 t WHERE t.39。 t WHERE t.39。 if then 。 { add query string to query object } := True。s no point in displaying the form. In that event, raise an exception. } if 1 then raise (39。s status line } if strField = 39。 + strTable + 39。+ strTable +39。+ strValue + 39。 end。 end. unit RSLTFORM。 Panel1: TPanel。 Query1: TQuery。 procedure SpeedButton1Click(Sender: TObject)。 implementation {$R *.DFM} procedure (Sender: TObject)。 var strText: string。 for iCounter := 0 to 1 do strText := strText + [iCounter]。 end。The underlying query is: 39。 { Loop counter variable } begin { Build a string containing the query } strText := 39。 end。 end。 Panel4: TPanel。 Panel2: TPanel。 type TResultForm = class(TForm) DBGrid1: TDBGrid。 end。 { show the form } ShowModal。+ strField +39。 else := 39。 then := 39。 )。 if then begin { If the query didn39。 {set the alias the query poitns to} 。 { Create an instance of the browser form. } frmQuery := (Application)。SELECT * FROM 39。SELECT * FROM 39。SELECT * FROM 39。 soNotBlank: strWhere := strField + 39。%39。 NOT LIKE 39。+ strValue + 39。 soContains: strWhere := strField + 39。 NOT LIKE 39。 + strQuote + 39。%39。 + strQuote。 soStartsWith: strWhere := strField + 39。 + strQuote + strValue + strQuote。 = 39。 soLessThan: strWhere := strField + 39。 + strQuote + strValue+ strQuote。s choice in Type. } case etSQLOps() of soNoCondition: strWhere := 39。39。 { See if the field being search is a string field. If so, then pad the quote string with quotation marks。Can39。 end else strField := [ItemIndex]。39。t Run Query: No Table Selected39。) else strAlias := [ItemIndex]。t contain: NOT IN (xx, yy, zz) } begin { Initialize the variables needed to run the query } with ListBox1 do if ItemIndex = 1
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1