Стартовый пул
This commit is contained in:
87
ZEOSDBO/examples/design/ZDesignTime.dof
Normal file
87
ZEOSDBO/examples/design/ZDesignTime.dof
Normal file
@@ -0,0 +1,87 @@
|
||||
[FileVersion]
|
||||
Version=6.0
|
||||
[Compiler]
|
||||
A=8
|
||||
B=0
|
||||
C=1
|
||||
D=1
|
||||
E=0
|
||||
F=0
|
||||
G=1
|
||||
H=1
|
||||
I=1
|
||||
J=0
|
||||
K=0
|
||||
L=1
|
||||
M=0
|
||||
N=1
|
||||
O=1
|
||||
P=1
|
||||
Q=0
|
||||
R=0
|
||||
S=0
|
||||
T=0
|
||||
U=0
|
||||
V=1
|
||||
W=0
|
||||
X=1
|
||||
Y=1
|
||||
Z=1
|
||||
ShowHints=1
|
||||
ShowWarnings=1
|
||||
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
|
||||
[Linker]
|
||||
MapFile=0
|
||||
OutputObjs=0
|
||||
ConsoleApp=1
|
||||
DebugInfo=0
|
||||
RemoteSymbols=0
|
||||
MinStackSize=16384
|
||||
MaxStackSize=1048576
|
||||
ImageBase=4194304
|
||||
ExeDescription=
|
||||
[Directories]
|
||||
OutputDir=
|
||||
UnitOutputDir=
|
||||
PackageDLLOutputDir=
|
||||
PackageDCPOutputDir=
|
||||
SearchPath=
|
||||
Packages=
|
||||
Conditionals=
|
||||
DebugSourceDirs=
|
||||
UsePackages=0
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
Launcher=
|
||||
UseLauncher=0
|
||||
DebugCWD=
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=1033
|
||||
CodePage=1252
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
67
ZEOSDBO/examples/design/ZDesignTime.dpr
Normal file
67
ZEOSDBO/examples/design/ZDesignTime.dpr
Normal file
@@ -0,0 +1,67 @@
|
||||
{*********************************************************}
|
||||
{ }
|
||||
{ Zeos Database Objects }
|
||||
{ Design Time Test Application }
|
||||
{ }
|
||||
{ Originally written by Sergey Seroukhov }
|
||||
{ }
|
||||
{*********************************************************}
|
||||
|
||||
{@********************************************************}
|
||||
{ Copyright (c) 1999-2006 Zeos Development Group }
|
||||
{ }
|
||||
{ License Agreement: }
|
||||
{ }
|
||||
{ This library is distributed in the hope that it will be }
|
||||
{ useful, but WITHOUT ANY WARRANTY; without even the }
|
||||
{ implied warranty of MERCHANTABILITY or FITNESS FOR }
|
||||
{ A PARTICULAR PURPOSE. See the GNU Lesser General }
|
||||
{ Public License for more details. }
|
||||
{ }
|
||||
{ The source code of the ZEOS Libraries and packages are }
|
||||
{ distributed under the Library GNU General Public }
|
||||
{ License (see the file COPYING / COPYING.ZEOS) }
|
||||
{ with the following modification: }
|
||||
{ As a special exception, the copyright holders of this }
|
||||
{ library give you permission to link this library with }
|
||||
{ independent modules to produce an executable, }
|
||||
{ regardless of the license terms of these independent }
|
||||
{ modules, and to copy and distribute the resulting }
|
||||
{ executable under terms of your choice, provided that }
|
||||
{ you also meet, for each linked independent module, }
|
||||
{ the terms and conditions of the license of that module. }
|
||||
{ An independent module is a module which is not derived }
|
||||
{ from or based on this library. If you modify this }
|
||||
{ library, you may extend this exception to your version }
|
||||
{ of the library, but you are not obligated to do so. }
|
||||
{ If you do not wish to do so, delete this exception }
|
||||
{ statement from your version. }
|
||||
{ }
|
||||
{ }
|
||||
{ The project web site is located on: }
|
||||
{ http://zeos.firmos.at (FORUM) }
|
||||
{ http://zeosbugs.firmos.at (BUGTRACKER) }
|
||||
{ svn://zeos.firmos.at/zeos/trunk (SVN Repository) }
|
||||
{ }
|
||||
{ http://www.sourceforge.net/projects/zeoslib. }
|
||||
{ http://www.zeoslib.sourceforge.net }
|
||||
{ }
|
||||
{ }
|
||||
{ }
|
||||
{ Zeos Development Group. }
|
||||
{********************************************************@}
|
||||
|
||||
program ZDesignTime;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
ZDesignTimeMain in 'ZDesignTimeMain.pas' {frmMain};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TfrmMain, frmMain);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
98
ZEOSDBO/examples/design/ZDesignTimeMain.dfm
Normal file
98
ZEOSDBO/examples/design/ZDesignTimeMain.dfm
Normal file
@@ -0,0 +1,98 @@
|
||||
object frmMain: TfrmMain
|
||||
Left = 264
|
||||
Top = 174
|
||||
Width = 454
|
||||
Height = 401
|
||||
Caption = 'Design Time Test'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object navMain: TDBNavigator
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 446
|
||||
Height = 25
|
||||
DataSource = dsMain
|
||||
Align = alTop
|
||||
TabOrder = 0
|
||||
end
|
||||
object gdMain: TDBGrid
|
||||
Left = 0
|
||||
Top = 25
|
||||
Width = 446
|
||||
Height = 349
|
||||
Align = alClient
|
||||
DataSource = dsMain
|
||||
TabOrder = 1
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -11
|
||||
TitleFont.Name = 'MS Sans Serif'
|
||||
TitleFont.Style = []
|
||||
end
|
||||
object conMain: TZConnection
|
||||
Protocol = 'mysql'
|
||||
HostName = 'localhost'
|
||||
Port = 0
|
||||
Database = 'zeoslib'
|
||||
User = 'root'
|
||||
AutoCommit = True
|
||||
ReadOnly = True
|
||||
TransactIsolationLevel = tiNone
|
||||
Connected = True
|
||||
Left = 56
|
||||
Top = 72
|
||||
end
|
||||
object qrMain: TZQuery
|
||||
Connection = conMain
|
||||
OnCalcFields = qrMainCalcFields
|
||||
RequestLive = True
|
||||
CachedUpdates = False
|
||||
SQL.Strings = (
|
||||
'select * from department')
|
||||
ParamCheck = True
|
||||
Params = <>
|
||||
ShowRecordTypes = [utModified, utInserted, utUnmodified]
|
||||
Left = 96
|
||||
Top = 72
|
||||
end
|
||||
object dsMain: TDataSource
|
||||
DataSet = qrMain
|
||||
Left = 176
|
||||
Top = 72
|
||||
end
|
||||
object upMain: TZUpdateSQL
|
||||
DeleteSQL.Strings = (
|
||||
'DELETE FROM :Id')
|
||||
InsertSQL.Strings = (
|
||||
'INSERT INTO :Name')
|
||||
ModifySQL.Strings = (
|
||||
'UPDATE :Address, :Id')
|
||||
Left = 136
|
||||
Top = 72
|
||||
ParamData = <
|
||||
item
|
||||
DataType = ftUnknown
|
||||
Name = 'Address'
|
||||
ParamType = ptUnknown
|
||||
end
|
||||
item
|
||||
DataType = ftString
|
||||
Name = 'Id'
|
||||
ParamType = ptUnknown
|
||||
Value = 'xxx'
|
||||
end
|
||||
item
|
||||
DataType = ftString
|
||||
Name = 'Name'
|
||||
ParamType = ptUnknown
|
||||
Value = 'qwe'
|
||||
end>
|
||||
end
|
||||
end
|
||||
95
ZEOSDBO/examples/design/ZDesignTimeMain.pas
Normal file
95
ZEOSDBO/examples/design/ZDesignTimeMain.pas
Normal file
@@ -0,0 +1,95 @@
|
||||
{*********************************************************}
|
||||
{ }
|
||||
{ Zeos Database Objects }
|
||||
{ Design Time Test Application }
|
||||
{ }
|
||||
{ Originally written by Sergey Seroukhov }
|
||||
{ }
|
||||
{*********************************************************}
|
||||
|
||||
{@********************************************************}
|
||||
{ Copyright (c) 1999-2006 Zeos Development Group }
|
||||
{ }
|
||||
{ License Agreement: }
|
||||
{ }
|
||||
{ This library is distributed in the hope that it will be }
|
||||
{ useful, but WITHOUT ANY WARRANTY; without even the }
|
||||
{ implied warranty of MERCHANTABILITY or FITNESS FOR }
|
||||
{ A PARTICULAR PURPOSE. See the GNU Lesser General }
|
||||
{ Public License for more details. }
|
||||
{ }
|
||||
{ The source code of the ZEOS Libraries and packages are }
|
||||
{ distributed under the Library GNU General Public }
|
||||
{ License (see the file COPYING / COPYING.ZEOS) }
|
||||
{ with the following modification: }
|
||||
{ As a special exception, the copyright holders of this }
|
||||
{ library give you permission to link this library with }
|
||||
{ independent modules to produce an executable, }
|
||||
{ regardless of the license terms of these independent }
|
||||
{ modules, and to copy and distribute the resulting }
|
||||
{ executable under terms of your choice, provided that }
|
||||
{ you also meet, for each linked independent module, }
|
||||
{ the terms and conditions of the license of that module. }
|
||||
{ An independent module is a module which is not derived }
|
||||
{ from or based on this library. If you modify this }
|
||||
{ library, you may extend this exception to your version }
|
||||
{ of the library, but you are not obligated to do so. }
|
||||
{ If you do not wish to do so, delete this exception }
|
||||
{ statement from your version. }
|
||||
{ }
|
||||
{ }
|
||||
{ The project web site is located on: }
|
||||
{ http://zeos.firmos.at (FORUM) }
|
||||
{ http://zeosbugs.firmos.at (BUGTRACKER) }
|
||||
{ svn://zeos.firmos.at/zeos/trunk (SVN Repository) }
|
||||
{ }
|
||||
{ http://www.sourceforge.net/projects/zeoslib. }
|
||||
{ http://www.zeoslib.sourceforge.net }
|
||||
{ }
|
||||
{ }
|
||||
{ }
|
||||
{ Zeos Development Group. }
|
||||
{********************************************************@}
|
||||
|
||||
unit ZDesignTimeMain;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ZSqlUpdate, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset,
|
||||
ZConnection, Grids, DBGrids, ExtCtrls, DBCtrls, ZDbcMySql, StdCtrls;
|
||||
|
||||
type
|
||||
TfrmMain = class(TForm)
|
||||
conMain: TZConnection;
|
||||
qrMain: TZQuery;
|
||||
dsMain: TDataSource;
|
||||
navMain: TDBNavigator;
|
||||
gdMain: TDBGrid;
|
||||
upMain: TZUpdateSQL;
|
||||
procedure qrMainCalcFields(DataSet: TDataSet);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
frmMain: TfrmMain;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
{**
|
||||
Calculates dataset calculated fields.
|
||||
@param DataSet a dataset object.
|
||||
}
|
||||
procedure TfrmMain.qrMainCalcFields(DataSet: TDataSet);
|
||||
begin
|
||||
DataSet.FieldByName('dep_calc').AsString := 'AbCdEfGhI';
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user