{********************************************************}
{ }
{ Zeos Database Objects }
{ Simple MySql Query Test }
{ }
{ Copyright (c) 1999-2001 Sergey Seroukhov }
{ }
{********************************************************}
unit simple_mysql1;
interface
uses
Classes, SysUtils,
{$IFNDEF LINUX}
Windows, Messages, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, DBCtrls,
Db, ComCtrls, ToolWin,
Grids, DBGrids, StdCtrls, DBTables, ImgList,
{$ELSE}
QGraphics, QControls, QForms, QDialogs,
QMenus, QExtCtrls, QDBCtrls,
DB, QComCtrls,
QGrids, QDBGrids, QStdCtrls, QImgList,
{$ENDIF}
ZMySqlQuery, ZMySQLCon, ZDirMySQL, ZMySQLTr,
ZSQLExtra, ZQuery, ZTransact, ZConnect;
type
TfrmMain =
class(TForm)
dsMain: TDataSource;
ilMain: TImageList;
pnMain: TPanel;
lbHost: TLabel;
lbDb: TLabel;
lbLogin: TLabel;
lbPswd: TLabel;
edHost: TEdit;
edDb: TEdit;
edLogin: TEdit;
edPswd: TEdit;
cbxRequest: TCheckBox;
cbxStore: TCheckBox;
Panel1: TPanel;
mmSql: TMemo;
Splitter2: TSplitter;
dgGrid: TDBGrid;
btnConnect: TButton;
btnDisconnect: TButton;
btnExit: TButton;
btnSort: TButton;
btnClearSort: TButton;
btnLocate: TButton;
btnFilter: TButton;
dbMain: TZZMySqlDatabase;
// hier die Änderung vornehmen
trMain: TZMySqlTransact;
qrMain: TZZMySqlQuery;
// hier die Änderung auch vornehmen
procedure btnConnectClick(Sender: TObject);
procedure btnDisconnectClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure btnSortClick(Sender: TObject);
procedure btnClearSortClick(Sender: TObject);
procedure btnLocateClick(Sender: TObject);
procedure btnFilterClick(Sender: TObject);
end;
var
frmMain: TfrmMain;