00001 {*********************************************************}
00002 { }
00003 { Zeos Database Objects }
00004 { SQL Monitor component }
00005 { }
00006 { Originally written by Sergey Seroukhov }
00007 { }
00008 {*********************************************************}
00009
00010 {@********************************************************}
00011 { Copyright (c) 1999-2006 Zeos Development Group }
00012 { }
00013 { License Agreement: }
00014 { }
00015 { This library is distributed in the hope that it will be }
00016 { useful, but WITHOUT ANY WARRANTY; without even the }
00017 { implied warranty of MERCHANTABILITY or FITNESS FOR }
00018 { A PARTICULAR PURPOSE. See the GNU Lesser General }
00019 { Public License for more details. }
00020 { }
00021 { The source code of the ZEOS Libraries and packages are }
00022 { distributed under the Library GNU General Public }
00023 { License (see the file COPYING / COPYING.ZEOS) }
00024 { with the following modification: }
00025 { As a special exception, the copyright holders of this }
00026 { library give you permission to link this library with }
00027 { independent modules to produce an executable, }
00028 { regardless of the license terms of these independent }
00029 { modules, and to copy and distribute the resulting }
00030 { executable under terms of your choice, provided that }
00031 { you also meet, for each linked independent module, }
00032 { the terms and conditions of the license of that module. }
00033 { An independent module is a module which is not derived }
00034 { from or based on this library. If you modify this }
00035 { library, you may extend this exception to your version }
00036 { of the library, but you are not obligated to do so. }
00037 { If you do not wish to do so, delete this exception }
00038 { statement from your version. }
00039 { }
00040 { }
00041 { The project web site is located on: }
00042 { http:
00043 { http:
00044 { svn:
00045 { }
00046 { http:
00047 { http:
00048 { }
00049 { }
00050 { }
00051 { Zeos Development Group. }
00052 {********************************************************@}
00053
00054 unit ZSqlTestForm;
00055
00056 {$I ZComponent.inc}
00057
00058 interface
00059
00060 uses
00061
00062 {$IFDEF WIN32}
00063 Windows, Messages,
00064 {$ENDIF}
00065 Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls,
00066 DBGrids, Buttons, DB, ZDataset, ZMessages;
00067
00068 type
00069
00070 { TZeosSQLEditorTestForm }
00071
00072 TZeosSQLEditorTestForm = class(TForm)
00073 private
00074 { private declarations }
00075 Button1: TButton;
00076 Datasource1: TDatasource;
00077 dbGrid1: TdbGrid;
00078 Panel1: TPanel;
00079 public
00080 { public declarations }
00081 ZeosSQL: TZReadOnlyQuery;
00082 constructor Create(AOwner: TComponent);
00083 end;
00084
00085 var
00086 ZeosSQLEditorTestForm: TZeosSQLEditorTestForm;
00087
00088 implementation
00089
00090 constructor TZeosSQLEditorTestForm.Create(AOwner: TComponent);
00091 begin
00092 inherited Create(AOwner);
00093 Caption := SFormTest;
00094 ClientHeight := 300;
00095 ClientWidth := 683;
00096 Height := 300;
00097 Left := 291;
00098 Top := 323;
00099 Width := 683;
00100 ZeosSQL := TZReadOnlyQuery.Create(self);
00101 Datasource1 := TDataSource.Create(self);
00102 Datasource1.DataSet := ZeosSQL;
00103 Panel1 := TPanel.Create(self);
00104 with Panel1 do
00105 begin
00106 Parent := self;
00107 Anchors := [akTop,akLeft,akRight];
00108 Align := alTop;
00109 Left :=0;
00110 Height := 42;
00111 Top := 0;
00112 Width := 683;
00113 TabStop := False;
00114 end;
00115 Button1 := TButton.Create(self);
00116 with Button1 do
00117 begin
00118 Parent := Panel1;
00119 Anchors := [akTop,akLeft];
00120 Cancel := True;
00121 Default := True;
00122 ModalResult := mrOk;
00123 Caption := SButtonClose;
00124 Left := 600;
00125 Height := 25;
00126 Top := 8;
00127 Width := 75;
00128 TabOrder := 0;
00129 TabStop := True;
00130 end;
00131 dbGrid1 := TdbGrid.Create(self);
00132 with dbGrid1 do
00133 begin
00134 Parent := self;
00135 Anchors := [akTop,akLeft,akRight,akBottom];
00136 DataSource := Datasource1;
00137 Options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,
00138 dgTabs,dgAlwaysShowSelection,dgConfirmDelete,dgCancelOnExit];
00139 ReadOnly := True;
00140 Align := alClient;
00141 DefaultRowHeight := 24;
00142 Left := 0;
00143 Height := 258;
00144 TabOrder := 1;
00145 TabStop := True;
00146 Top := 42;
00147 Width := 683;
00148 end;
00149 end;
00150
00151 end.
00152