知识大全 SQL编程（二）[4]

Posted 2022-07-21 知

篇首语：天下无难事，只怕有心人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 SQL编程（二）[4]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：SQL编程（二）[4] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　begin

　　Screen Cursor := crHourglass;

　　if Query Active then Query Close;

　　Query DatabaseName := strAlias; set the alias the query poitns to

　　Query SQL clear; empty existing SQL in the query

　　Query SQL Add（strQuery） add query string to query object

　　Query Active := True; try to run the query

　　Screen Cursor := crDefault;

　　if Query Active then

　　begin

　　 If the query didn t return any records there s no point in

　　displaying the form In that event raise an exception

　　if Query RecordCount < then

　　raise Exception create（ No records matched your criteria

　　Please try again ）

　　 write a message to the browse form s status line

　　if strField = then

　　Panel Caption := Now showing all records from + strTable

　　+ …

　　else

　　Panel Caption := Now showing + strTable + where + strField

　　+ contains values equal to + strValue + … ;

　　 show the form

　　ShowModal;

　　end;

　　finally

　　frmQuery Free;

　　end;

　　end

　　unit RSLTFORM;

　　interface

　　uses

　　SysUtils Windows Messages Classes Graphics Controls StdCtrls DB

　　Forms DBCtrls DBGrids DBTables Buttons Grids ExtCtrls Dialogs;

　　type

　　TResultForm = class（TForm）

　　DBGrid : TDBGrid;

　　DBNavigator: TDBNavigator;

　　Panel : TPanel;

　　DataSource : TDataSource;

　　Panel : TPanel;

　　Query : TQuery;

　　SpeedButton : TSpeedButton;

　　Panel : TPanel;

　　SpeedButton : TSpeedButton;

　　procedure SpeedButton Click（Sender: TObject）

　　end;

　　var

　　ResultForm: TResultForm;

　　implementation

　　$R * DFM

　　procedure TResultForm SpeedButton Click（Sender: TObject）

　　begin

　　Close;

　　end;

　　procedure TResultForm SpeedButton Click（Sender: TObject）

　　var

　　strText: string; Variable to hold display text

　　iCounter: Integer; Loop counter variable

　　begin

　　 Build a string containing the query

　　strText := ;

　　for iCounter := to Query SQL Count do

　　strText := strText + Query SQL[iCounter];

　　 Display the query text

　　MessageDlg（ The underlying query is: + # + # + strText

　　mtInformation [mbOK] ）

　　end;

　　end

　　返回目录 DELPHI基础教程

编辑推荐

Java程序设计培训视频教程

J EE高级框架实战培训视频教程

　　Visual C++音频/视频技术开发与实战

　　Oracle索引技术

　　ORACLE G数据库开发优化指南

　　Java程序性能优化让你的Java程序更快更稳定

　　C嵌入式编程设计模式

　　Android游戏开发实践指南

cha138/Article/program/Delphi/201311/25143