mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-06 09:59:36 +01:00
Examples: added SQLite 'mushrooms' database example by Jurassic Pork, bug #25511
git-svn-id: trunk@43743 -
This commit is contained in:
maxim
parent
56325c433d
commit
a51ef5c65e
19
.gitattributes
vendored
19
.gitattributes
vendored
@ -4399,6 +4399,25 @@ examples/database/sqldbtutorial3/readme.txt svneol=native#text/plain
|
||||
examples/database/sqldbtutorial3/sqldbtutorial3.ini svneol=native#text/plain
|
||||
examples/database/sqldbtutorial3/sqldbtutorial3.lpi svneol=native#text/plain
|
||||
examples/database/sqldbtutorial3/sqldbtutorial3.lpr svneol=native#text/pascal
|
||||
examples/database/sqlite_mushrooms/ImageTest.db3 -text
|
||||
examples/database/sqlite_mushrooms/Mushroom_Report.lrf svneol=native#text/plain
|
||||
examples/database/sqlite_mushrooms/Readme.txt svneol=native#text/plain
|
||||
examples/database/sqlite_mushrooms/images/320px-Amanita_phalloides.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/320px-Conocybe.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/320px-Destroying_Angel.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/320px-FalseMorel.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/320px-Galerina.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/Small-Amanita_phalloides_1.JPG -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/Small-Conocybe_rugosa.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/Small-Destroying_Angel_02.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/Small-FalseMorel.JPG -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/images/Small-Galerina.jpg -text svneol=unset#image/jpeg
|
||||
examples/database/sqlite_mushrooms/project1.ico -text svneol=unset#image/ico
|
||||
examples/database/sqlite_mushrooms/project1.lpi svneol=native#text/plain
|
||||
examples/database/sqlite_mushrooms/project1.lpr svneol=native#text/pascal
|
||||
examples/database/sqlite_mushrooms/project1.res -text
|
||||
examples/database/sqlite_mushrooms/unit1.lfm svneol=native#text/plain
|
||||
examples/database/sqlite_mushrooms/unit1.pas svneol=native#text/pascal
|
||||
examples/database/tsqlscript/dbconfig.pas svneol=native#text/pascal
|
||||
examples/database/tsqlscript/dbconfiggui.lfm svneol=native#text/plain
|
||||
examples/database/tsqlscript/dbconfiggui.pas svneol=native#text/pascal
|
||||
|
||||
BIN
examples/database/sqlite_mushrooms/ImageTest.db3
Normal file
BIN
examples/database/sqlite_mushrooms/ImageTest.db3
Normal file
Binary file not shown.
439
examples/database/sqlite_mushrooms/Mushroom_Report.lrf
Normal file
439
examples/database/sqlite_mushrooms/Mushroom_Report.lrf
Normal file
@ -0,0 +1,439 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<CONFIG>
|
||||
<LazReport>
|
||||
<Version Value="26"/>
|
||||
<Title Value=""/>
|
||||
<Subject Value=""/>
|
||||
<KeyWords Value=""/>
|
||||
<Comments Value=""/>
|
||||
<ReportCreateDate Value="1899-12-30 00:00:00"/>
|
||||
<ReportLastChange Value="2014-01-16 02:43:56"/>
|
||||
<ReportVersionBuild Value=""/>
|
||||
<ReportVersionMajor Value=""/>
|
||||
<ReportVersionMinor Value=""/>
|
||||
<ReportVersionRelease Value=""/>
|
||||
<ReportAutor Value=""/>
|
||||
<Script Value=""/>
|
||||
<Pages>
|
||||
<PrintToDefault Value="False"/>
|
||||
<DoublePass Value="True"/>
|
||||
<SelectedPrinter Value="Microsoft XPS Document Writer"/>
|
||||
<PageCount Value="1"/>
|
||||
<Page1>
|
||||
<Name Value="Page1"/>
|
||||
<ClassName Value="TfrPageReport"/>
|
||||
<Visible Value="True"/>
|
||||
<Width Value="595"/>
|
||||
<Height Value="842"/>
|
||||
<Script Value=""/>
|
||||
<PgSize Value="9"/>
|
||||
<Margins>
|
||||
<left Value="0"/>
|
||||
<Top Value="0"/>
|
||||
<Right Value="0"/>
|
||||
<Bottom Value="0"/>
|
||||
</Margins>
|
||||
<Orientation Value="poPortrait"/>
|
||||
<UseMargins Value="True"/>
|
||||
<PrintToPrevPage Value="False"/>
|
||||
<ColCount Value="0"/>
|
||||
<ColGap Value="0"/>
|
||||
<LayoutOrder Value="loColumns"/>
|
||||
<ObjectCount Value="10"/>
|
||||
<Object1>
|
||||
<Name Value="MasterData1"/>
|
||||
<ClassName Value="TfrBandView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtBand"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="0"/>
|
||||
<Top Value="104"/>
|
||||
<Width Value="752"/>
|
||||
<Height Value="812"/>
|
||||
</Size>
|
||||
<Flags Value="48"/>
|
||||
<Data>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<BandType Value="btMasterData"/>
|
||||
<Condition Value=""/>
|
||||
<DatasetStr Value="frDBDataSet1"/>
|
||||
</Object1>
|
||||
<Object2>
|
||||
<Name Value="PageHeader1"/>
|
||||
<ClassName Value="TfrBandView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtBand"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="0"/>
|
||||
<Top Value="20"/>
|
||||
<Width Value="752"/>
|
||||
<Height Value="60"/>
|
||||
</Size>
|
||||
<Flags Value="48"/>
|
||||
<Data>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<BandType Value="btPageHeader"/>
|
||||
<Condition Value=""/>
|
||||
<DatasetStr Value=""/>
|
||||
</Object2>
|
||||
<Object3>
|
||||
<Name Value="Memo1"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="248"/>
|
||||
<Top Value="44"/>
|
||||
<Width Value="272"/>
|
||||
<Height Value="30"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="558"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="DEADLY MUSHROOMS
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="18"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taCenter"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object3>
|
||||
<Object4>
|
||||
<Name Value="Memo2"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="208"/>
|
||||
<Top Value="140"/>
|
||||
<Width Value="360"/>
|
||||
<Height Value="38"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="558"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="[SQLQuery1."Common_Name"]
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="18"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taCenter"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object4>
|
||||
<Object5>
|
||||
<Name Value="Memo3"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="16"/>
|
||||
<Top Value="228"/>
|
||||
<Width Value="712"/>
|
||||
<Height Value="138"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="46"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="[SQLQuery1."Notes"]
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="12"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taLeftJustify"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object5>
|
||||
<Object6>
|
||||
<Name Value="Picture1"/>
|
||||
<ClassName Value="TfrPictureView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtPicture"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="40"/>
|
||||
<Top Value="428"/>
|
||||
<Width Value="172"/>
|
||||
<Height Value="230"/>
|
||||
</Size>
|
||||
<Flags Value="6"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Memo Value="[SQLQuery1."Picture"]
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Picture>
|
||||
<SharedName Value=""/>
|
||||
<Type Value="0"/>
|
||||
</Picture>
|
||||
</Object6>
|
||||
<Object7>
|
||||
<Name Value="Memo4"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="44"/>
|
||||
<Top Value="392"/>
|
||||
<Width Value="156"/>
|
||||
<Height Value="18"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="558"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="Image in Database (Blob)
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="10"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taCenter"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object7>
|
||||
<Object8>
|
||||
<Name Value="Memo5"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="456"/>
|
||||
<Top Value="392"/>
|
||||
<Width Value="152"/>
|
||||
<Height Value="20"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="558"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="External Image (Link)
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="10"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taCenter"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object8>
|
||||
<Object9>
|
||||
<Name Value="Picture2"/>
|
||||
<ClassName Value="TfrPictureView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtPicture"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="348"/>
|
||||
<Top Value="428"/>
|
||||
<Width Value="376"/>
|
||||
<Height Value="362"/>
|
||||
</Size>
|
||||
<Flags Value="6"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Memo Value=""/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Picture>
|
||||
<SharedName Value=""/>
|
||||
<Type Value="0"/>
|
||||
</Picture>
|
||||
</Object9>
|
||||
<Object10>
|
||||
<Name Value="Memo6"/>
|
||||
<ClassName Value="TfrMemoView"/>
|
||||
<Visible Value="True"/>
|
||||
<Typ Value="gtMemo"/>
|
||||
<StreamMode Value="0"/>
|
||||
<Size>
|
||||
<Left Value="644"/>
|
||||
<Top Value="44"/>
|
||||
<Width Value="68"/>
|
||||
<Height Value="24"/>
|
||||
</Size>
|
||||
<Flags Value="3"/>
|
||||
<FillColor Value="clNone"/>
|
||||
<Frames>
|
||||
<FrameColor Value="clBlack"/>
|
||||
<FrameStyle Value="frsSolid"/>
|
||||
<FrameWidth Value="1"/>
|
||||
<FrameBorders Value=""/>
|
||||
</Frames>
|
||||
<Data>
|
||||
<Format Value="558"/>
|
||||
<FormatStr Value=""/>
|
||||
<Memo Value="[PAGE#]/[TOTALPAGES]
"/>
|
||||
<Script Value=""/>
|
||||
</Data>
|
||||
<Tag Value=""/>
|
||||
<FURLInfo Value=""/>
|
||||
<Font>
|
||||
<Name Value="Arial"/>
|
||||
<Size Value="18"/>
|
||||
<Color Value="clBlack"/>
|
||||
<Charset Value="0"/>
|
||||
<Style Value=""/>
|
||||
</Font>
|
||||
<Highlight>
|
||||
<FontStyle Value="2"/>
|
||||
<FontColor Value="clBlack"/>
|
||||
<FillColor Value="clWhite"/>
|
||||
<HighlightStr Value=""/>
|
||||
</Highlight>
|
||||
<Alignment Value="taLeftJustify"/>
|
||||
<Layout Value="tlTop"/>
|
||||
<Angle Value="0"/>
|
||||
<Justify Value="False"/>
|
||||
</Object10>
|
||||
</Page1>
|
||||
<FVal>
|
||||
<Count Value="1"/>
|
||||
<Objects1>
|
||||
<Typ Value="0"/>
|
||||
<OtherKind Value="0"/>
|
||||
<Dataset Value=""/>
|
||||
<Field Value=""/>
|
||||
<Item Value="ImageLink"/>
|
||||
</Objects1>
|
||||
</FVal>
|
||||
<ParentVars Value="My Variables
 ImageLink
"/>
|
||||
</Pages>
|
||||
</LazReport>
|
||||
</CONFIG>
|
||||
23
examples/database/sqlite_mushrooms/Readme.txt
Normal file
23
examples/database/sqlite_mushrooms/Readme.txt
Normal file
@ -0,0 +1,23 @@
|
||||
MushRoomsDatabase by Jurassic Pork - January 2014
|
||||
Features:
|
||||
- Use SqlDb and lazreport components.
|
||||
- Sqlite3 database DeadlyMushrooms with 5 mushrooms.
|
||||
- The images are stored in blob field without extension at the beginning.
|
||||
With this you can view blob images with database browser editor (ex sqlite2009pro).
|
||||
- In the database there is also a field with images links (filenames).
|
||||
- You can see the linked images in a Timage.
|
||||
- The linked images are stored in the folder images of the project.
|
||||
- You can change the images in the database :
|
||||
- for Tdbimage double click on the component and choose your image.
|
||||
- for Timage click on the button near the image filename.(you must be in edit mode )
|
||||
- Transaction commit when you click on Tdbnavigator refresh button or on close form.
|
||||
- Small pictures of the mushrooms are in the sqlite3Database. Largest images are in files in the folder images.
|
||||
- Print button to print all the mushrooms (lazreport).
|
||||
On each page you have:
|
||||
- a title.
|
||||
- the field common_name of the mushroom database.
|
||||
- the field notes of the mushroom database.
|
||||
- the field picture of the mushroom database (picture picture1).
|
||||
- the picture of the field image_link (picture picture2).
|
||||
|
||||
The report name is Mushroom_Report.lrf
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 33 KiB |
BIN
examples/database/sqlite_mushrooms/images/320px-Conocybe.jpg
Normal file
BIN
examples/database/sqlite_mushrooms/images/320px-Conocybe.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 34 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 28 KiB |
BIN
examples/database/sqlite_mushrooms/images/320px-FalseMorel.jpg
Normal file
BIN
examples/database/sqlite_mushrooms/images/320px-FalseMorel.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 39 KiB |
BIN
examples/database/sqlite_mushrooms/images/320px-Galerina.jpg
Normal file
BIN
examples/database/sqlite_mushrooms/images/320px-Galerina.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 44 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 10 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 9.8 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 7.9 KiB |
BIN
examples/database/sqlite_mushrooms/images/Small-FalseMorel.JPG
Normal file
BIN
examples/database/sqlite_mushrooms/images/Small-FalseMorel.JPG
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
BIN
examples/database/sqlite_mushrooms/images/Small-Galerina.jpg
Normal file
BIN
examples/database/sqlite_mushrooms/images/Small-Galerina.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
BIN
examples/database/sqlite_mushrooms/project1.ico
Normal file
BIN
examples/database/sqlite_mushrooms/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.2 KiB |
105
examples/database/sqlite_mushrooms/project1.lpi
Normal file
105
examples/database/sqlite_mushrooms/project1.lpi
Normal file
@ -0,0 +1,105 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="9"/>
|
||||
<PathDelim Value="\"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="project1"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<i18n>
|
||||
<EnableI18N LFM="False"/>
|
||||
</i18n>
|
||||
<VersionInfo>
|
||||
<StringTable ProductVersion=""/>
|
||||
</VersionInfo>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="4">
|
||||
<Item1>
|
||||
<PackageName Value="lazreport"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="SQLDBLaz"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="FCL"/>
|
||||
</Item3>
|
||||
<Item4>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item4>
|
||||
</RequiredPackages>
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="project1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="project1"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="unit1.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="Unit1"/>
|
||||
</Unit1>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<PathDelim Value="\"/>
|
||||
<Target>
|
||||
<Filename Value="project1"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Optimizations>
|
||||
<OptimizationLevel Value="2"/>
|
||||
</Optimizations>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerMessages>
|
||||
<MsgFileName Value=""/>
|
||||
</CompilerMessages>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
20
examples/database/sqlite_mushrooms/project1.lpr
Normal file
20
examples/database/sqlite_mushrooms/project1.lpr
Normal file
@ -0,0 +1,20 @@
|
||||
program project1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, Unit1;
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource := True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
BIN
examples/database/sqlite_mushrooms/project1.res
Normal file
BIN
examples/database/sqlite_mushrooms/project1.res
Normal file
Binary file not shown.
417
examples/database/sqlite_mushrooms/unit1.lfm
Normal file
417
examples/database/sqlite_mushrooms/unit1.lfm
Normal file
@ -0,0 +1,417 @@
|
||||
object Form1: TForm1
|
||||
Left = 517
|
||||
Height = 667
|
||||
Top = 119
|
||||
Width = 531
|
||||
BorderStyle = bsSingle
|
||||
Caption = 'Deadly Mushrooms by Jurassic Pork'
|
||||
ClientHeight = 667
|
||||
ClientWidth = 531
|
||||
Icon.Data = {
|
||||
BE1000000000010001002020000001002000A810000016000000280000002000
|
||||
000040000000010020000000000000100000120B0000120B0000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000D1212124E686A6C77A1A5A880AFB4B86D95
|
||||
999C2C3C3D3E0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000001010101506A6D6EA8E5EBF2A2E7F3FF96E1F0FF92DFEFFF96E2
|
||||
F0FFA4E9F4FE5774777900000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000006D909496ABEBF6FF97E0F0FF8DDEEFFF89DDEEFF88DDEEFF8BDE
|
||||
EEFF94DFEFFFA7E5F0FB141A1B1B000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00004358595BADEBF6FF96DFEFFF8ADDEEFF86DDEEFF8EE5F3FF96ECF6FF9DEF
|
||||
F8FFA7F1F9FFB2F0F8FF3B4D4E50000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000406
|
||||
0606A0D6DCE29AE0F0FF89DDEDFF84DEEEFF92ECF6FF9BEFF8FFA2F1F9FFA8F2
|
||||
F9FFB1F3FAFFBAF5FBFF35454647000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000004054
|
||||
5657A9E9F4FF8FDEEEFF82DCEEFF8DEAF5FF98EEF7FFA5F1F9FFAFF3FAFFB5F4
|
||||
FAFFBAF5FBFFBCF2F7FC0F141414000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000000000083AD
|
||||
B2B69BE1F0FF86DCEDFF89E6F3FF94EDF7FFA3F1F9FFB0F3FAFFB9F5FBFFBDF6
|
||||
FBFFBEF6FBFF88B2B4B800000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000000E131314ABE8
|
||||
F1FA91DEEEFF85DFEFFF90EDF7FF9EEFF8FFAFF3FAFFB9F5FBFFBEF6FBFFBFF6
|
||||
FBFFBEF4F9FE2E3B3C3D00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000048606364A1E6
|
||||
F2FF88DDEEFF87E6F3FF94EEF8FFA8F2F9FFB6F4FBFFBDF6FBFFBFF6FBFFBFF6
|
||||
FBFF77989C9E0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000000000007EABB0B694DF
|
||||
EFFF81DCEDFF8AEBF5FF9AEFF8FFAFF3F9FFBAF5FBFFBEF6FBFFBFF6FBFFA0CD
|
||||
D2D50A0C0C0D0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000004050506A3E2EAF48ADC
|
||||
ECFF7FE0EFFF8AEBF5FF9FF0F8FFB3F4FAFFBCF6FBFFBEF6FBFFAEE0E4E91A21
|
||||
2222000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000243133349FE6F2FF80D5
|
||||
E7FF7FE2EFFF8EEBF5FFA6F1F9FFB6F4FAFFBCF6FBFFB4E7EBF0253031320000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000455F616394DEEDFF7BD3
|
||||
E4FF81E2EDFF96ECF6FFADF3FAFFB9F5FBFFB6ECF1F52E3B3C3D000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000005D84878D89D6E7FF7AD4
|
||||
E2FF88E4EEFFA0EFF7FFB2F4FAFFB9F2F8FD394B4C4D00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000072A4ABB381D1E2FF7FD9
|
||||
E5FF91E8F2FFA8F2F9FFB6F4FAFF5C797C7E0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000001010B0D0302
|
||||
181D0404171B05060C0E0000000000000000000000007AB9C5D77ACDDEFF83DE
|
||||
E9FF9AEDF5FFAEF3FAFF8CBBBEC3020303030000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000032404E516D89C3D40F0EC4FE100F
|
||||
C6FF1312C7FF1A1AC8FE2425C2F01718A8D50B0D85B57FC6DCF96DC0D6FF81DA
|
||||
E8FF9CEBF5FFA5E5EBF219212122000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000003443535790BCEBFE6F9DD8FF0A0AAEFF0D0F
|
||||
8FFF0E117EFF090C78FF060774FF11117BFF131C93FF79C5DAFF6ABFD4FF7ED4
|
||||
E6FF94DFEFFF4B62B7C70807363A000001010000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000090C10118DB5E1EE71A0D9FF567BCAFF10119AFF0A0D
|
||||
6FFF02056AFF000064FF000059FF00004FFF243778FF70BED4FF6DC2D6FF85D7
|
||||
E9FF72A7D6FF1415B8FF1C1AD7FF2323C3D93F4F7074090B0D0D000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000003F50666B85B2E5FF6793D2FF1A23A9FF1414A0FF0B0D
|
||||
6AFF01035FFF000056FF00004AFF000042FF365486FF6AB9D1FF75CADCFF8CDA
|
||||
EBFF23348FFF050878FF090C7EFF12149BFF2529C2FF576AD6EB2B336E740101
|
||||
0505000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000556B9CA65574D0FF141BA9FF050499FF04049AFF2020
|
||||
9FFF0C0E67FF000050FF000042FF000038FF487497FF64B3C9FF78C9DAFF71AD
|
||||
CDFF020466FF020469FF070A70FF0D1076FF10127AFF101288FF1A19CCFF1D19
|
||||
C1D10403191B0000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000F0D9FBD0909B1FF05059DFF040393FF030392FF0403
|
||||
9AFF0B0AA9FF0B0B96FF060574FF050657FF5B99B2FF5AA5B8FF6FBBCBFF3D5F
|
||||
92FF000054FF000057FF01035EFF040664FF040769FF06096FFF1415B1FF211E
|
||||
E6FF1916A6B30000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000F0C9BBB0908AFFF05049AFF030390FF03028DFF0302
|
||||
91FF04039AFF0505A3FF0707ABFF0C0BBBFF1010BFFF2030BBFF3C5DC4FF1B26
|
||||
8FFF09096AFF13136CFF141470FF19197CFF1C1C92FF1616B3FF1F1DE1FF2622
|
||||
EDFF231FE9FB02020E0F00000000000000000000000000000000000000000000
|
||||
000000000000000000000C0C859F0A09B3FF05049BFF03038EFF03028AFF0202
|
||||
8CFF030291FF040397FF05059FFF0908B4FF0C0BBFFF110FCDFF1412D3FF1715
|
||||
D6FF1817D7FF1918D9FF1C1ADCFF1E1CE0FF211EE7FF2522EEFF312FEFFF7788
|
||||
F4FF7F9DF5FF21293E4100000000000000000000000000000000000000000000
|
||||
00000000000000000000090856671517C0FF2A3BB1FF2B3CA8FF101693FF0202
|
||||
8AFF02028DFF03028FFF030391FF0605A6FF0908B6FF3039D1FF6C86EAFF7897
|
||||
F1FF5A6CF0FF2320EBFF211EECFF231FECFF2420EDFF3A38F2FFA1BBF8FFB4D6
|
||||
F9FFA1CCF8FF303D4B4D00000000000000000000000000000000000000000000
|
||||
000000000000000000000303131684AAE4F96D9DD5FF6D9CD2FF6C9ACFFF374D
|
||||
ACFF02028CFF02028DFF03028FFF040499FF313DC4FF9AC5F1FF9DC8F4FF9EC9
|
||||
F7FF9FCAF8FF667DF2FF221EECFF231FEDFF312CF3FF909DF9FFC2DEFBFFBADA
|
||||
FAFFA2CCF8FF1920292A00000000000000000000000000000000000000000000
|
||||
00000000000000000000000000005971969F7AA9DEFF6D9CD4FF6D9CD2FF6D9C
|
||||
D0FF1B269EFF030290FF030394FF04039CFF526ECAFF9AC6F2FF9DC8F5FF9ECA
|
||||
F7FF9FCAF8FF93BAF7FF221EECFF312BF4FF4640F9FFC5D5FCFFCDE3FBFFBEDB
|
||||
FAFF8AACD2D90000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000E121E2089B3E4F56F9FD8FF6D9CD4FF6D9C
|
||||
D3FF3145B1FF040398FF04039DFF0505A6FF3E58C5FF7EADE3FF9DC9F6FF9FCA
|
||||
F7FF9FCBF8FF99C2F8FF332EF5FF4840FDFF5952FBFFC7D3FCFFD4E7FCFFBCDA
|
||||
FAFF415064670000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000002F3B575C8BB7E9FE709FD8FF6D9D
|
||||
D5FF2432B3FF0606A4FF0606A9FF0707B1FF1921C0FF6B98D9FF90BCEFFF9FCA
|
||||
F8FFA5CEF8FF95A5FBFF453DFEFF544CFEFF6862FCFFA2A5FBFFD0E6FCFF6E81
|
||||
9DA1010101010000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000002B36515683A9DCEC6F96
|
||||
DEFF0E0FB7FF0A0AB3FF0B0AB6FF0C0BBDFF0E0EC4FF242CCEFF556EE1FF748C
|
||||
F6FF7279F9FF403AFAFF453EFCFF5C56FCFF716BFAFF5E59ECF4444C70730101
|
||||
0101000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004050C0E1518
|
||||
535D0D0C7E950F0D96B5110FAACE1413C7ED1816D8FF1A18D8FF221FE5FF2D28
|
||||
F2FF332DF5FF3832F7FF443EF9FF4741EEF528258D920706191A000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000030316190A09424812106D751A17
|
||||
8D951E1A989F201B919817156266050513130000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000FFFFE07FFFFF803FFFFF801FFFFF001FFFFE001FFFFE001FFFFE003FFFFC
|
||||
003FFFFC007FFFFC007FFFF800FFFFF801FFFFF803FFFFF807FFFFF80FFFFC38
|
||||
0FFFF0001FFFE0000FFFC00003FFC00000FFC000007FC000007FC000003FC000
|
||||
003FC000003FC000003FE000007FE000007FF000007FF80000FFFC0003FFFFF0
|
||||
0FFF
|
||||
}
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '1.2.0.2'
|
||||
object DBNavigator1: TDBNavigator
|
||||
Left = 6
|
||||
Height = 35
|
||||
Top = 6
|
||||
Width = 354
|
||||
BeforeAction = DBNavigator1BeforeAction
|
||||
BevelOuter = bvNone
|
||||
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
||||
ChildSizing.EnlargeVertical = crsScaleChilds
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 100
|
||||
ClientHeight = 35
|
||||
ClientWidth = 354
|
||||
DataSource = Datasource1
|
||||
Options = []
|
||||
TabOrder = 0
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 429
|
||||
Height = 32
|
||||
Top = 6
|
||||
Width = 93
|
||||
DefaultCaption = True
|
||||
Kind = bkClose
|
||||
ModalResult = 11
|
||||
TabOrder = 1
|
||||
end
|
||||
object DBText1: TDBText
|
||||
Left = 88
|
||||
Height = 20
|
||||
Top = 48
|
||||
Width = 240
|
||||
Alignment = taCenter
|
||||
AutoSize = False
|
||||
DataField = 'Common_Name'
|
||||
DataSource = Datasource1
|
||||
Font.CharSet = ANSI_CHARSET
|
||||
Font.Height = -19
|
||||
Font.Name = 'Arial'
|
||||
Font.Pitch = fpVariable
|
||||
Font.Quality = fqDraft
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object DBMemo1: TDBMemo
|
||||
Left = 8
|
||||
Height = 72
|
||||
Top = 440
|
||||
Width = 514
|
||||
DataField = 'Notes'
|
||||
DataSource = Datasource1
|
||||
TabOrder = 2
|
||||
end
|
||||
object DBEdit1: TDBEdit
|
||||
Left = 128
|
||||
Height = 23
|
||||
Top = 408
|
||||
Width = 166
|
||||
DataField = 'Image_Link'
|
||||
DataSource = Datasource1
|
||||
CharCase = ecNormal
|
||||
Color = clCream
|
||||
MaxLength = 255
|
||||
TabOrder = 3
|
||||
OnChange = DBEdit1Change
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 307
|
||||
Height = 22
|
||||
Top = 408
|
||||
Width = 21
|
||||
Caption = '...'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 4
|
||||
end
|
||||
object DBGrid1: TDBGrid
|
||||
Left = 8
|
||||
Height = 144
|
||||
Top = 520
|
||||
Width = 514
|
||||
AlternateColor = clCream
|
||||
Color = clWindow
|
||||
Columns = <
|
||||
item
|
||||
Title.Caption = 'Common Name'
|
||||
Width = 101
|
||||
FieldName = 'Common_Name'
|
||||
end
|
||||
item
|
||||
Title.Caption = 'Scientific Name'
|
||||
Width = 98
|
||||
FieldName = 'Scientific_Name'
|
||||
end
|
||||
item
|
||||
Title.Caption = 'Order'
|
||||
Width = 45
|
||||
FieldName = 'Order'
|
||||
end
|
||||
item
|
||||
Title.Caption = 'Genus'
|
||||
Width = 48
|
||||
FieldName = 'Genus'
|
||||
end
|
||||
item
|
||||
Title.Caption = 'ID'
|
||||
Width = 26
|
||||
FieldName = 'ID'
|
||||
end
|
||||
item
|
||||
Title.Caption = 'Notes'
|
||||
Width = 46
|
||||
FieldName = 'Notes'
|
||||
end>
|
||||
DataSource = Datasource1
|
||||
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgAutoSizeColumns]
|
||||
Scrollbars = ssAutoBoth
|
||||
TabOrder = 5
|
||||
OnPrepareCanvas = DBGrid1PrepareCanvas
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 8
|
||||
Height = 328
|
||||
Top = 72
|
||||
Width = 322
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 2
|
||||
BorderStyle = bsSingle
|
||||
ClientHeight = 324
|
||||
ClientWidth = 318
|
||||
ParentColor = False
|
||||
TabOrder = 6
|
||||
object Image1: TImage
|
||||
AnchorSideLeft.Control = Panel1
|
||||
AnchorSideTop.Control = Panel1
|
||||
AnchorSideRight.Control = Panel1
|
||||
AnchorSideBottom.Control = Panel1
|
||||
Left = 2
|
||||
Height = 320
|
||||
Top = 2
|
||||
Width = 316
|
||||
Center = True
|
||||
Proportional = True
|
||||
Stretch = True
|
||||
end
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 360
|
||||
Height = 328
|
||||
Top = 72
|
||||
Width = 162
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 2
|
||||
BorderStyle = bsSingle
|
||||
ClientHeight = 324
|
||||
ClientWidth = 158
|
||||
ParentColor = False
|
||||
TabOrder = 7
|
||||
object DBImage1: TDBImage
|
||||
AnchorSideLeft.Control = Panel2
|
||||
AnchorSideTop.Control = Panel2
|
||||
AnchorSideRight.Control = Panel2
|
||||
AnchorSideBottom.Control = Panel2
|
||||
Left = 2
|
||||
Height = 320
|
||||
Top = 2
|
||||
Width = 150
|
||||
Center = True
|
||||
DataField = 'Picture'
|
||||
DataSource = Datasource1
|
||||
OnDblClick = DBImage1DblClick
|
||||
OnDBImageRead = DBImage1DBImageRead
|
||||
OnDBImageWrite = DBImage1DBImageWrite
|
||||
Proportional = True
|
||||
end
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 22
|
||||
Caption = 'Link'
|
||||
ParentColor = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 360
|
||||
Height = 15
|
||||
Top = 55
|
||||
Width = 24
|
||||
Caption = 'Blob'
|
||||
ParentColor = False
|
||||
end
|
||||
object Bt_Print: TButton
|
||||
Left = 360
|
||||
Height = 25
|
||||
Top = 406
|
||||
Width = 163
|
||||
Caption = 'Print all Mushrooms'
|
||||
OnClick = Bt_PrintClick
|
||||
TabOrder = 8
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 424
|
||||
Width = 32
|
||||
Caption = 'Note :'
|
||||
ParentColor = False
|
||||
end
|
||||
object Datasource1: TDatasource
|
||||
DataSet = SQLQuery1
|
||||
left = 216
|
||||
top = 192
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
left = 64
|
||||
top = 288
|
||||
end
|
||||
object SQLQuery1: TSQLQuery
|
||||
FieldDefs = <>
|
||||
Database = SQLite3Connection1
|
||||
Transaction = SQLTransaction1
|
||||
SQL.Strings = (
|
||||
'select * from DeadlyMushrooms'
|
||||
)
|
||||
Params = <>
|
||||
left = 64
|
||||
top = 192
|
||||
end
|
||||
object SQLTransaction1: TSQLTransaction
|
||||
Active = True
|
||||
Action = caCommitRetaining
|
||||
Database = SQLite3Connection1
|
||||
left = 208
|
||||
top = 120
|
||||
end
|
||||
object SQLite3Connection1: TSQLite3Connection
|
||||
Connected = True
|
||||
LoginPrompt = False
|
||||
DatabaseName = 'ImageTest.db3'
|
||||
KeepConnection = False
|
||||
Transaction = SQLTransaction1
|
||||
LogEvents = []
|
||||
Options = []
|
||||
left = 64
|
||||
top = 120
|
||||
end
|
||||
object frReport1: TfrReport
|
||||
Dataset = frDBDataSet1
|
||||
DefaultCopies = 0
|
||||
InitialZoom = pzDefault
|
||||
Options = []
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
|
||||
DataType = dtDataSet
|
||||
OnEnterRect = frReport1EnterRect
|
||||
OnDBImageRead = frReport1DBImageRead
|
||||
left = 384
|
||||
top = 344
|
||||
end
|
||||
object frDBDataSet1: TfrDBDataSet
|
||||
DataSet = SQLQuery1
|
||||
left = 464
|
||||
top = 344
|
||||
end
|
||||
end
|
||||
224
examples/database/sqlite_mushrooms/unit1.pas
Normal file
224
examples/database/sqlite_mushrooms/unit1.pas
Normal file
@ -0,0 +1,224 @@
|
||||
unit Unit1;
|
||||
// J.P August 2013
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, LR_Class, LR_DBSet, Forms, Controls, Graphics,
|
||||
Dialogs, DbCtrls, Buttons, ExtCtrls, StdCtrls, DBGrids,
|
||||
db, sqldb, sqlite3conn, Grids;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
BitBtn1: TBitBtn;
|
||||
Button1: TButton;
|
||||
Bt_Print: TButton;
|
||||
Datasource1: TDatasource;
|
||||
DBEdit1: TDBEdit;
|
||||
DBGrid1: TDBGrid;
|
||||
DBImage1: TDBImage;
|
||||
DBMemo1: TDBMemo;
|
||||
DBNavigator1: TDBNavigator;
|
||||
DBText1: TDBText;
|
||||
frDBDataSet1: TfrDBDataSet;
|
||||
frReport1: TfrReport;
|
||||
Image1: TImage;
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
OpenDialog1: TOpenDialog;
|
||||
Panel1: TPanel;
|
||||
Panel2: TPanel;
|
||||
SQLite3Connection1: TSQLite3Connection;
|
||||
SQLQuery1: TSQLQuery;
|
||||
SQLTransaction1: TSQLTransaction;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Bt_PrintClick(Sender: TObject);
|
||||
procedure DBEdit1Change(Sender: TObject);
|
||||
procedure DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
|
||||
Column: TColumn; AState: TGridDrawState);
|
||||
procedure DBImage1DBImageRead(Sender: TObject; S: TStream;
|
||||
var GraphExt: string);
|
||||
procedure DBImage1DBImageWrite(Sender: TObject; S: TStream; GraphExt: string
|
||||
);
|
||||
procedure DBImage1DblClick(Sender: TObject);
|
||||
procedure DBNavigator1BeforeAction(Sender: TObject; Button: TDBNavButtonType
|
||||
);
|
||||
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure frReport1DBImageRead(Sender: TObject; S: TStream;
|
||||
var GraphExt: string);
|
||||
procedure frReport1EnterRect(Memo: TStringList; View: TfrView);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.DBImage1DBImageRead(Sender: TObject; S: TStream;
|
||||
var GraphExt: string);
|
||||
var val1,val2: WORD;
|
||||
begin
|
||||
S.Seek(0, soFromBeginning);
|
||||
S.Read(val1,2);
|
||||
S.Position := 2;
|
||||
S.Read(val2,2);
|
||||
if (val1 = $4D42) then GraphExt := 'bmp';
|
||||
if (val1 = $4947) and (val2 = $3846) then GraphExt := 'gif';
|
||||
if (val1 = $5089) and (val2 = $474E) then GraphExt := 'png';
|
||||
if (val1 = $D8FF) and (val2 = $E0FF) then GraphExt := 'jpg';
|
||||
S.Seek(0, soFromBeginning);
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
begin
|
||||
if SQLQuery1.Active then begin
|
||||
OpenDialog1.Filter :=
|
||||
'All image files (*.bmp,*.jpg,*.png,*.gif)|*.bmp;*.jpg;*.png;*.gif|' +
|
||||
'BMP files (*.bmp)|*.bmp|' +
|
||||
'JPEG files (*.jpg)|*.jpg|' +
|
||||
'PNG files (*.png)|*.png|' +
|
||||
'GIF files (*.gif)|*.gif';
|
||||
OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'images';
|
||||
if OpenDialog1.Execute then begin
|
||||
if SQLQuery1.State <> dsEdit then
|
||||
SQLQuery1.Edit;
|
||||
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
|
||||
DBEdit1.Text := ExtractFileName(OpenDialog1.FileName);
|
||||
SQLQuery1.Post;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.Bt_PrintClick(Sender: TObject);
|
||||
begin
|
||||
frReport1.LoadFromFile(ExtractFilePath(application.ExeName) +
|
||||
'\Mushroom_Report.lrf');
|
||||
frReport1.ShowReport();
|
||||
end;
|
||||
procedure TForm1.DBEdit1Change(Sender: TObject);
|
||||
begin
|
||||
if DBEdit1.Text <> '' then
|
||||
Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) +
|
||||
'images' + DirectorySeparator + DBEdit1.Text) else
|
||||
Image1.Picture.Clear;
|
||||
end;
|
||||
|
||||
procedure TForm1.DBGrid1PrepareCanvas(sender: TObject; DataCol: Integer;
|
||||
Column: TColumn; AState: TGridDrawState);
|
||||
var MyTextStyle: TTextStyle;
|
||||
begin
|
||||
if (DataCol =5) then
|
||||
begin
|
||||
MyTextStyle := DbGrid1.Canvas.TextStyle;
|
||||
MyTextStyle.SingleLine := false;
|
||||
DbGrid1.Canvas.TextStyle := MyTextStyle;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
procedure TForm1.DBImage1DBImageWrite(Sender: TObject; S: TStream;
|
||||
GraphExt: string);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TForm1.DBImage1DblClick(Sender: TObject);
|
||||
var
|
||||
BlobStream: TStream;
|
||||
FileStream: TStream;
|
||||
begin
|
||||
if SQLQuery1.Active then begin
|
||||
OpenDialog1.Filter :=
|
||||
'All image files (*.bmp,*.jpg,*.png,*.gif)|*.bmp;*.jpg;*.png;*.gif|' +
|
||||
'BMP files (*.bmp)|*.bmp|' +
|
||||
'JPEG files (*.jpg)|*.jpg|' +
|
||||
'PNG files (*.png)|*.png|' +
|
||||
'GIF files (*.gif)|*.gif';
|
||||
if OpenDialog1.Execute then begin
|
||||
begin
|
||||
if SQLQuery1.State <> dsEdit then
|
||||
SQLQuery1.Edit;
|
||||
|
||||
try
|
||||
FileStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
|
||||
try
|
||||
BlobStream := SQLQuery1.CreateBlobStream(
|
||||
SQLQuery1.FieldByName('Picture'), bmWrite);
|
||||
BlobStream.CopyFrom(FileStream, FileStream.Size);
|
||||
SQLQuery1.Post;
|
||||
finally
|
||||
FileStream.Free;
|
||||
end;
|
||||
finally
|
||||
BlobStream.Free;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
|
||||
Button: TDBNavButtonType);
|
||||
begin
|
||||
if Button = nbRefresh then
|
||||
begin
|
||||
SQLQuery1.ApplyUpdates;
|
||||
SQLTransaction1.CommitRetaining;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
SQLQuery1.ApplyUpdates;
|
||||
SQLTransaction1.CommitRetaining;
|
||||
end;
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
SQLQuery1.Close;
|
||||
SQLite3Connection1.DatabaseName:= ExtractFilePath(ParamStr(0)) + 'ImageTest.db3';
|
||||
SQLQuery1.Active := true;
|
||||
end;
|
||||
|
||||
procedure TForm1.frReport1DBImageRead(Sender: TObject; S: TStream;
|
||||
var GraphExt: string);
|
||||
var val1,val2: WORD;
|
||||
begin
|
||||
S.Seek(0, soFromBeginning);
|
||||
S.Read(val1,2);
|
||||
S.Position := 2;
|
||||
S.Read(val2,2);
|
||||
if (val1 = $4D42) then GraphExt := 'bmp';
|
||||
if (val1 = $4947) and (val2 = $3846) then GraphExt := 'gif';
|
||||
if (val1 = $5089) and (val2 = $474E) then GraphExt := 'png';
|
||||
if (val1 = $D8FF) and (val2 = $E0FF) then GraphExt := 'jpg';
|
||||
S.Seek(0, soFromBeginning);
|
||||
end;
|
||||
|
||||
procedure TForm1.frReport1EnterRect(Memo: TStringList; View: TfrView);
|
||||
begin
|
||||
if View.Name = 'Picture2' then
|
||||
if DBEdit1.Text <> '' then
|
||||
TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) +
|
||||
'images' + DirectorySeparator + frDBDataSet1.DataSet.FieldByName('Image_Link').AsString);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user