├── .gitignore ├── LGPL.2.1.txt ├── LICENSE.txt ├── README.md ├── fpdoc ├── README.fpdoc └── ghorm.xml ├── src ├── ghorm.pas ├── ghormpkg.lpk └── ghormpkg.pas └── unittest ├── tcusersandroles.pp ├── test ├── test.lpi ├── test.lpr ├── test.sql └── usersandroles.pp /.gitignore: -------------------------------------------------------------------------------- 1 | *.[oa] 2 | *.ppu 3 | *.lps 4 | *.compiled 5 | *.bak* 6 | *.exe 7 | *.dll 8 | *.bat 9 | /.project 10 | */lib/* 11 | -------------------------------------------------------------------------------- /LGPL.2.1.txt: -------------------------------------------------------------------------------- 1 | GNU LESSER GENERAL PUBLIC LICENSE 2 | Version 2.1, February 1999 3 | 4 | Copyright (C) 1991, 1999 Free Software Foundation, Inc. 5 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 6 | Everyone is permitted to copy and distribute verbatim copies 7 | of this license document, but changing it is not allowed. 8 | 9 | [This is the first released version of the Lesser GPL. It also counts 10 | as the successor of the GNU Library Public License, version 2, hence 11 | the version number 2.1.] 12 | 13 | Preamble 14 | 15 | The licenses for most software are designed to take away your 16 | freedom to share and change it. By contrast, the GNU General Public 17 | Licenses are intended to guarantee your freedom to share and change 18 | free software--to make sure the software is free for all its users. 19 | 20 | This license, the Lesser General Public License, applies to some 21 | specially designated software packages--typically libraries--of the 22 | Free Software Foundation and other authors who decide to use it. You 23 | can use it too, but we suggest you first think carefully about whether 24 | this license or the ordinary General Public License is the better 25 | strategy to use in any particular case, based on the explanations below. 26 | 27 | When we speak of free software, we are referring to freedom of use, 28 | not price. Our General Public Licenses are designed to make sure that 29 | you have the freedom to distribute copies of free software (and charge 30 | for this service if you wish); that you receive source code or can get 31 | it if you want it; that you can change the software and use pieces of 32 | it in new free programs; and that you are informed that you can do 33 | these things. 34 | 35 | To protect your rights, we need to make restrictions that forbid 36 | distributors to deny you these rights or to ask you to surrender these 37 | rights. These restrictions translate to certain responsibilities for 38 | you if you distribute copies of the library or if you modify it. 39 | 40 | For example, if you distribute copies of the library, whether gratis 41 | or for a fee, you must give the recipients all the rights that we gave 42 | you. You must make sure that they, too, receive or can get the source 43 | code. If you link other code with the library, you must provide 44 | complete object files to the recipients, so that they can relink them 45 | with the library after making changes to the library and recompiling 46 | it. And you must show them these terms so they know their rights. 47 | 48 | We protect your rights with a two-step method: (1) we copyright the 49 | library, and (2) we offer you this license, which gives you legal 50 | permission to copy, distribute and/or modify the library. 51 | 52 | To protect each distributor, we want to make it very clear that 53 | there is no warranty for the free library. Also, if the library is 54 | modified by someone else and passed on, the recipients should know 55 | that what they have is not the original version, so that the original 56 | author's reputation will not be affected by problems that might be 57 | introduced by others. 58 | 59 | Finally, software patents pose a constant threat to the existence of 60 | any free program. We wish to make sure that a company cannot 61 | effectively restrict the users of a free program by obtaining a 62 | restrictive license from a patent holder. Therefore, we insist that 63 | any patent license obtained for a version of the library must be 64 | consistent with the full freedom of use specified in this license. 65 | 66 | Most GNU software, including some libraries, is covered by the 67 | ordinary GNU General Public License. This license, the GNU Lesser 68 | General Public License, applies to certain designated libraries, and 69 | is quite different from the ordinary General Public License. We use 70 | this license for certain libraries in order to permit linking those 71 | libraries into non-free programs. 72 | 73 | When a program is linked with a library, whether statically or using 74 | a shared library, the combination of the two is legally speaking a 75 | combined work, a derivative of the original library. The ordinary 76 | General Public License therefore permits such linking only if the 77 | entire combination fits its criteria of freedom. The Lesser General 78 | Public License permits more lax criteria for linking other code with 79 | the library. 80 | 81 | We call this license the "Lesser" General Public License because it 82 | does Less to protect the user's freedom than the ordinary General 83 | Public License. It also provides other free software developers Less 84 | of an advantage over competing non-free programs. These disadvantages 85 | are the reason we use the ordinary General Public License for many 86 | libraries. However, the Lesser license provides advantages in certain 87 | special circumstances. 88 | 89 | For example, on rare occasions, there may be a special need to 90 | encourage the widest possible use of a certain library, so that it becomes 91 | a de-facto standard. To achieve this, non-free programs must be 92 | allowed to use the library. A more frequent case is that a free 93 | library does the same job as widely used non-free libraries. In this 94 | case, there is little to gain by limiting the free library to free 95 | software only, so we use the Lesser General Public License. 96 | 97 | In other cases, permission to use a particular library in non-free 98 | programs enables a greater number of people to use a large body of 99 | free software. For example, permission to use the GNU C Library in 100 | non-free programs enables many more people to use the whole GNU 101 | operating system, as well as its variant, the GNU/Linux operating 102 | system. 103 | 104 | Although the Lesser General Public License is Less protective of the 105 | users' freedom, it does ensure that the user of a program that is 106 | linked with the Library has the freedom and the wherewithal to run 107 | that program using a modified version of the Library. 108 | 109 | The precise terms and conditions for copying, distribution and 110 | modification follow. Pay close attention to the difference between a 111 | "work based on the library" and a "work that uses the library". The 112 | former contains code derived from the library, whereas the latter must 113 | be combined with the library in order to run. 114 | 115 | GNU LESSER GENERAL PUBLIC LICENSE 116 | TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 117 | 118 | 0. This License Agreement applies to any software library or other 119 | program which contains a notice placed by the copyright holder or 120 | other authorized party saying it may be distributed under the terms of 121 | this Lesser General Public License (also called "this License"). 122 | Each licensee is addressed as "you". 123 | 124 | A "library" means a collection of software functions and/or data 125 | prepared so as to be conveniently linked with application programs 126 | (which use some of those functions and data) to form executables. 127 | 128 | The "Library", below, refers to any such software library or work 129 | which has been distributed under these terms. A "work based on the 130 | Library" means either the Library or any derivative work under 131 | copyright law: that is to say, a work containing the Library or a 132 | portion of it, either verbatim or with modifications and/or translated 133 | straightforwardly into another language. (Hereinafter, translation is 134 | included without limitation in the term "modification".) 135 | 136 | "Source code" for a work means the preferred form of the work for 137 | making modifications to it. For a library, complete source code means 138 | all the source code for all modules it contains, plus any associated 139 | interface definition files, plus the scripts used to control compilation 140 | and installation of the library. 141 | 142 | Activities other than copying, distribution and modification are not 143 | covered by this License; they are outside its scope. The act of 144 | running a program using the Library is not restricted, and output from 145 | such a program is covered only if its contents constitute a work based 146 | on the Library (independent of the use of the Library in a tool for 147 | writing it). Whether that is true depends on what the Library does 148 | and what the program that uses the Library does. 149 | 150 | 1. You may copy and distribute verbatim copies of the Library's 151 | complete source code as you receive it, in any medium, provided that 152 | you conspicuously and appropriately publish on each copy an 153 | appropriate copyright notice and disclaimer of warranty; keep intact 154 | all the notices that refer to this License and to the absence of any 155 | warranty; and distribute a copy of this License along with the 156 | Library. 157 | 158 | You may charge a fee for the physical act of transferring a copy, 159 | and you may at your option offer warranty protection in exchange for a 160 | fee. 161 | 162 | 2. You may modify your copy or copies of the Library or any portion 163 | of it, thus forming a work based on the Library, and copy and 164 | distribute such modifications or work under the terms of Section 1 165 | above, provided that you also meet all of these conditions: 166 | 167 | a) The modified work must itself be a software library. 168 | 169 | b) You must cause the files modified to carry prominent notices 170 | stating that you changed the files and the date of any change. 171 | 172 | c) You must cause the whole of the work to be licensed at no 173 | charge to all third parties under the terms of this License. 174 | 175 | d) If a facility in the modified Library refers to a function or a 176 | table of data to be supplied by an application program that uses 177 | the facility, other than as an argument passed when the facility 178 | is invoked, then you must make a good faith effort to ensure that, 179 | in the event an application does not supply such function or 180 | table, the facility still operates, and performs whatever part of 181 | its purpose remains meaningful. 182 | 183 | (For example, a function in a library to compute square roots has 184 | a purpose that is entirely well-defined independent of the 185 | application. Therefore, Subsection 2d requires that any 186 | application-supplied function or table used by this function must 187 | be optional: if the application does not supply it, the square 188 | root function must still compute square roots.) 189 | 190 | These requirements apply to the modified work as a whole. If 191 | identifiable sections of that work are not derived from the Library, 192 | and can be reasonably considered independent and separate works in 193 | themselves, then this License, and its terms, do not apply to those 194 | sections when you distribute them as separate works. But when you 195 | distribute the same sections as part of a whole which is a work based 196 | on the Library, the distribution of the whole must be on the terms of 197 | this License, whose permissions for other licensees extend to the 198 | entire whole, and thus to each and every part regardless of who wrote 199 | it. 200 | 201 | Thus, it is not the intent of this section to claim rights or contest 202 | your rights to work written entirely by you; rather, the intent is to 203 | exercise the right to control the distribution of derivative or 204 | collective works based on the Library. 205 | 206 | In addition, mere aggregation of another work not based on the Library 207 | with the Library (or with a work based on the Library) on a volume of 208 | a storage or distribution medium does not bring the other work under 209 | the scope of this License. 210 | 211 | 3. You may opt to apply the terms of the ordinary GNU General Public 212 | License instead of this License to a given copy of the Library. To do 213 | this, you must alter all the notices that refer to this License, so 214 | that they refer to the ordinary GNU General Public License, version 2, 215 | instead of to this License. (If a newer version than version 2 of the 216 | ordinary GNU General Public License has appeared, then you can specify 217 | that version instead if you wish.) Do not make any other change in 218 | these notices. 219 | 220 | Once this change is made in a given copy, it is irreversible for 221 | that copy, so the ordinary GNU General Public License applies to all 222 | subsequent copies and derivative works made from that copy. 223 | 224 | This option is useful when you wish to copy part of the code of 225 | the Library into a program that is not a library. 226 | 227 | 4. You may copy and distribute the Library (or a portion or 228 | derivative of it, under Section 2) in object code or executable form 229 | under the terms of Sections 1 and 2 above provided that you accompany 230 | it with the complete corresponding machine-readable source code, which 231 | must be distributed under the terms of Sections 1 and 2 above on a 232 | medium customarily used for software interchange. 233 | 234 | If distribution of object code is made by offering access to copy 235 | from a designated place, then offering equivalent access to copy the 236 | source code from the same place satisfies the requirement to 237 | distribute the source code, even though third parties are not 238 | compelled to copy the source along with the object code. 239 | 240 | 5. A program that contains no derivative of any portion of the 241 | Library, but is designed to work with the Library by being compiled or 242 | linked with it, is called a "work that uses the Library". Such a 243 | work, in isolation, is not a derivative work of the Library, and 244 | therefore falls outside the scope of this License. 245 | 246 | However, linking a "work that uses the Library" with the Library 247 | creates an executable that is a derivative of the Library (because it 248 | contains portions of the Library), rather than a "work that uses the 249 | library". The executable is therefore covered by this License. 250 | Section 6 states terms for distribution of such executables. 251 | 252 | When a "work that uses the Library" uses material from a header file 253 | that is part of the Library, the object code for the work may be a 254 | derivative work of the Library even though the source code is not. 255 | Whether this is true is especially significant if the work can be 256 | linked without the Library, or if the work is itself a library. The 257 | threshold for this to be true is not precisely defined by law. 258 | 259 | If such an object file uses only numerical parameters, data 260 | structure layouts and accessors, and small macros and small inline 261 | functions (ten lines or less in length), then the use of the object 262 | file is unrestricted, regardless of whether it is legally a derivative 263 | work. (Executables containing this object code plus portions of the 264 | Library will still fall under Section 6.) 265 | 266 | Otherwise, if the work is a derivative of the Library, you may 267 | distribute the object code for the work under the terms of Section 6. 268 | Any executables containing that work also fall under Section 6, 269 | whether or not they are linked directly with the Library itself. 270 | 271 | 6. As an exception to the Sections above, you may also combine or 272 | link a "work that uses the Library" with the Library to produce a 273 | work containing portions of the Library, and distribute that work 274 | under terms of your choice, provided that the terms permit 275 | modification of the work for the customer's own use and reverse 276 | engineering for debugging such modifications. 277 | 278 | You must give prominent notice with each copy of the work that the 279 | Library is used in it and that the Library and its use are covered by 280 | this License. You must supply a copy of this License. If the work 281 | during execution displays copyright notices, you must include the 282 | copyright notice for the Library among them, as well as a reference 283 | directing the user to the copy of this License. Also, you must do one 284 | of these things: 285 | 286 | a) Accompany the work with the complete corresponding 287 | machine-readable source code for the Library including whatever 288 | changes were used in the work (which must be distributed under 289 | Sections 1 and 2 above); and, if the work is an executable linked 290 | with the Library, with the complete machine-readable "work that 291 | uses the Library", as object code and/or source code, so that the 292 | user can modify the Library and then relink to produce a modified 293 | executable containing the modified Library. (It is understood 294 | that the user who changes the contents of definitions files in the 295 | Library will not necessarily be able to recompile the application 296 | to use the modified definitions.) 297 | 298 | b) Use a suitable shared library mechanism for linking with the 299 | Library. A suitable mechanism is one that (1) uses at run time a 300 | copy of the library already present on the user's computer system, 301 | rather than copying library functions into the executable, and (2) 302 | will operate properly with a modified version of the library, if 303 | the user installs one, as long as the modified version is 304 | interface-compatible with the version that the work was made with. 305 | 306 | c) Accompany the work with a written offer, valid for at 307 | least three years, to give the same user the materials 308 | specified in Subsection 6a, above, for a charge no more 309 | than the cost of performing this distribution. 310 | 311 | d) If distribution of the work is made by offering access to copy 312 | from a designated place, offer equivalent access to copy the above 313 | specified materials from the same place. 314 | 315 | e) Verify that the user has already received a copy of these 316 | materials or that you have already sent this user a copy. 317 | 318 | For an executable, the required form of the "work that uses the 319 | Library" must include any data and utility programs needed for 320 | reproducing the executable from it. However, as a special exception, 321 | the materials to be distributed need not include anything that is 322 | normally distributed (in either source or binary form) with the major 323 | components (compiler, kernel, and so on) of the operating system on 324 | which the executable runs, unless that component itself accompanies 325 | the executable. 326 | 327 | It may happen that this requirement contradicts the license 328 | restrictions of other proprietary libraries that do not normally 329 | accompany the operating system. Such a contradiction means you cannot 330 | use both them and the Library together in an executable that you 331 | distribute. 332 | 333 | 7. You may place library facilities that are a work based on the 334 | Library side-by-side in a single library together with other library 335 | facilities not covered by this License, and distribute such a combined 336 | library, provided that the separate distribution of the work based on 337 | the Library and of the other library facilities is otherwise 338 | permitted, and provided that you do these two things: 339 | 340 | a) Accompany the combined library with a copy of the same work 341 | based on the Library, uncombined with any other library 342 | facilities. This must be distributed under the terms of the 343 | Sections above. 344 | 345 | b) Give prominent notice with the combined library of the fact 346 | that part of it is a work based on the Library, and explaining 347 | where to find the accompanying uncombined form of the same work. 348 | 349 | 8. You may not copy, modify, sublicense, link with, or distribute 350 | the Library except as expressly provided under this License. Any 351 | attempt otherwise to copy, modify, sublicense, link with, or 352 | distribute the Library is void, and will automatically terminate your 353 | rights under this License. However, parties who have received copies, 354 | or rights, from you under this License will not have their licenses 355 | terminated so long as such parties remain in full compliance. 356 | 357 | 9. You are not required to accept this License, since you have not 358 | signed it. However, nothing else grants you permission to modify or 359 | distribute the Library or its derivative works. These actions are 360 | prohibited by law if you do not accept this License. Therefore, by 361 | modifying or distributing the Library (or any work based on the 362 | Library), you indicate your acceptance of this License to do so, and 363 | all its terms and conditions for copying, distributing or modifying 364 | the Library or works based on it. 365 | 366 | 10. Each time you redistribute the Library (or any work based on the 367 | Library), the recipient automatically receives a license from the 368 | original licensor to copy, distribute, link with or modify the Library 369 | subject to these terms and conditions. You may not impose any further 370 | restrictions on the recipients' exercise of the rights granted herein. 371 | You are not responsible for enforcing compliance by third parties with 372 | this License. 373 | 374 | 11. If, as a consequence of a court judgment or allegation of patent 375 | infringement or for any other reason (not limited to patent issues), 376 | conditions are imposed on you (whether by court order, agreement or 377 | otherwise) that contradict the conditions of this License, they do not 378 | excuse you from the conditions of this License. If you cannot 379 | distribute so as to satisfy simultaneously your obligations under this 380 | License and any other pertinent obligations, then as a consequence you 381 | may not distribute the Library at all. For example, if a patent 382 | license would not permit royalty-free redistribution of the Library by 383 | all those who receive copies directly or indirectly through you, then 384 | the only way you could satisfy both it and this License would be to 385 | refrain entirely from distribution of the Library. 386 | 387 | If any portion of this section is held invalid or unenforceable under any 388 | particular circumstance, the balance of the section is intended to apply, 389 | and the section as a whole is intended to apply in other circumstances. 390 | 391 | It is not the purpose of this section to induce you to infringe any 392 | patents or other property right claims or to contest validity of any 393 | such claims; this section has the sole purpose of protecting the 394 | integrity of the free software distribution system which is 395 | implemented by public license practices. Many people have made 396 | generous contributions to the wide range of software distributed 397 | through that system in reliance on consistent application of that 398 | system; it is up to the author/donor to decide if he or she is willing 399 | to distribute software through any other system and a licensee cannot 400 | impose that choice. 401 | 402 | This section is intended to make thoroughly clear what is believed to 403 | be a consequence of the rest of this License. 404 | 405 | 12. If the distribution and/or use of the Library is restricted in 406 | certain countries either by patents or by copyrighted interfaces, the 407 | original copyright holder who places the Library under this License may add 408 | an explicit geographical distribution limitation excluding those countries, 409 | so that distribution is permitted only in or among countries not thus 410 | excluded. In such case, this License incorporates the limitation as if 411 | written in the body of this License. 412 | 413 | 13. The Free Software Foundation may publish revised and/or new 414 | versions of the Lesser General Public License from time to time. 415 | Such new versions will be similar in spirit to the present version, 416 | but may differ in detail to address new problems or concerns. 417 | 418 | Each version is given a distinguishing version number. If the Library 419 | specifies a version number of this License which applies to it and 420 | "any later version", you have the option of following the terms and 421 | conditions either of that version or of any later version published by 422 | the Free Software Foundation. If the Library does not specify a 423 | license version number, you may choose any version ever published by 424 | the Free Software Foundation. 425 | 426 | 14. If you wish to incorporate parts of the Library into other free 427 | programs whose distribution conditions are incompatible with these, 428 | write to the author to ask for permission. For software which is 429 | copyrighted by the Free Software Foundation, write to the Free 430 | Software Foundation; we sometimes make exceptions for this. Our 431 | decision will be guided by the two goals of preserving the free status 432 | of all derivatives of our free software and of promoting the sharing 433 | and reuse of software generally. 434 | 435 | NO WARRANTY 436 | 437 | 15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO 438 | WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW. 439 | EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR 440 | OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY 441 | KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 442 | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 443 | PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE 444 | LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME 445 | THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 446 | 447 | 16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN 448 | WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY 449 | AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU 450 | FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR 451 | CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE 452 | LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING 453 | RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A 454 | FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF 455 | SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH 456 | DAMAGES. 457 | 458 | END OF TERMS AND CONDITIONS 459 | 460 | How to Apply These Terms to Your New Libraries 461 | 462 | If you develop a new library, and you want it to be of the greatest 463 | possible use to the public, we recommend making it free software that 464 | everyone can redistribute and change. You can do so by permitting 465 | redistribution under these terms (or, alternatively, under the terms of the 466 | ordinary General Public License). 467 | 468 | To apply these terms, attach the following notices to the library. It is 469 | safest to attach them to the start of each source file to most effectively 470 | convey the exclusion of warranty; and each file should have at least the 471 | "copyright" line and a pointer to where the full notice is found. 472 | 473 | 474 | Copyright (C) 475 | 476 | This library is free software; you can redistribute it and/or 477 | modify it under the terms of the GNU Lesser General Public 478 | License as published by the Free Software Foundation; either 479 | version 2.1 of the License, or (at your option) any later version. 480 | 481 | This library is distributed in the hope that it will be useful, 482 | but WITHOUT ANY WARRANTY; without even the implied warranty of 483 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 484 | Lesser General Public License for more details. 485 | 486 | You should have received a copy of the GNU Lesser General Public 487 | License along with this library; if not, write to the Free Software 488 | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 489 | 490 | Also add information on how to contact you by electronic and paper mail. 491 | 492 | You should also get your employer (if you work as a programmer) or your 493 | school, if any, to sign a "copyright disclaimer" for the library, if 494 | necessary. Here is a sample; alter the names: 495 | 496 | Yoyodyne, Inc., hereby disclaims all copyright interest in the 497 | library `Frob' (a library for tweaking knobs) written by James Random Hacker. 498 | 499 | , 1 April 1990 500 | Ty Coon, President of Vice 501 | 502 | That's all there is to it! 503 | -------------------------------------------------------------------------------- /LICENSE.txt: -------------------------------------------------------------------------------- 1 | This is the file LICENSE.txt, it applies to the ghORM, 2 | distributed by Mario Ray Mahardhika. 3 | 4 | The source code of the Brook framework is distributed under the GNU 5 | Lesser General Public License (see the file LGPL.2.1.txt) with the 6 | following modification: 7 | 8 | As a special exception, the copyright holders of this library give you 9 | permission to link this library with independent modules to produce an 10 | executable, regardless of the license terms of these independent modules, 11 | and to copy and distribute the resulting executable under terms of your 12 | choice, provided that you also meet, for each linked independent module, 13 | the terms and conditions of the license of that module. An independent 14 | module is a module which is not derived from or based on this library. 15 | If you modify this library, you may extend this exception to your version 16 | of the library, but you are not obligated to do so. If you do not wish to 17 | do so, delete this exception statement from your version. 18 | 19 | If you didn't receive a copy of the file LGPL.2.1.txt, contact: 20 | 21 | Free Software Foundation 22 | 51 Franklin Street, Fifth Floor, 23 | Boston, MA 02110-1301 24 | USA -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | # ghORM 6 | 7 | ## !! IMPORTANT INFORMATION !! 8 | ghORM has been branched to ghORM-OG and ghORM-NG. 9 | 10 | OG (Old Generation) consists of earlier implementation which is stuck at relationship feature that I'm not capable enough to implement. I left it at the latest state I can do in case someday someone is willing to revive it when one found a way to implement the missing relationship features. 11 | 12 | NG (New Generation) is my new attempt that has successfully implement the relationship features, both 1-N and M-N using a different approach from OG branch. The NG implementation does not use RTTI and instead let the user override certain methods and do the mapping manually. This also increase flexibility in the naming. One doesn't need to have matching class <-> table name and property <-> column name. The current implementation is rather complex to use and has traps to watch out, but works. At user (of the resulting model) level, the POV stays the same: No SQL or Greyhound stuffs exposed. 13 | 14 | ## README 15 | 16 | Object Relational Mapping unit built on top of Greyhound Project - https://github.com/mdbs99/Greyhound 17 | 18 | Greyhound project is a great ORM-ish (thus, **not** true ORM) project to ease database access from Free Pascal, by abstracting the backend and simple data retrieval (with filtering), insertion and update. However, by design Greyhound has the following features: 19 | 20 | * It use SQL as query language and does not try to create a complex **abstraction between objects and tables** 21 | * It allows developers to have **greater control of SQL rather than relying on the framework to generate it automatically** 22 | 23 | Those **bold** parts are what ghORM fills. Using ghORM, data can be inserted, retrieved and updated in a more abstract manner so the user doesn't need to touch SQL as far as possible. But the unit doesn't try to hide SQL from user. If necessary, an access to Greyhound table instance is provided. 24 | 25 | Take a look at the unit tests on how to use the unit. 26 | -------------------------------------------------------------------------------- /fpdoc/README.fpdoc: -------------------------------------------------------------------------------- 1 | # execute the following command to generate the documentation (in chm format): 2 | # BASH-compatible shell users, feel free to execute this file :) 3 | fpdoc --package='ghORM Framework' --input=../src/ghorm.pas --descr=ghorm.xml --format=chm --make-searchable --auto-toc --auto-index --output=ghorm.chm 4 | -------------------------------------------------------------------------------- /fpdoc/ghorm.xml: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Object Relational Mapping unit built on top of Greyhound project 6 | The idea is to automate saving and loading of published properties. Note that the API is not yet stable, it might change in the future without notice 7 | 8 | Base class for all ghORM models 9 | All models should inherit from this class and implement the abstract methods and create the respective for the CRUD-er. 10 | 11 | 12 | Database ID for this model's object 13 | Read-only by design, as one should not alter this. Take whatever value obtained from the instance instead. 14 | 15 | 16 | Override this method to give a database table name for this model 17 | Other methods accepting TghSQLTable parameter shall receive an instance of this table 18 | 19 | 20 | Override this method to implement automatic validation when saving an object (insert/update) through instance 21 | Automatic validation isn't yet implemented, but it shall be soon 22 | 23 | 24 | Override this method to assign object's properties from given table instance 25 | The table instance already points to respective row in the table, so you just have to assign the values to properties such as: 26 |

FField := ATable['column-name'].AsString; 27 |

28 | 29 | If you access non-existing column, an exception will be generated 30 | 31 | 32 | Override this method to assign table instance columns with current object's properties 33 | The table instance already points to respective row in the table, so you just have to assign the values to properties such as: 34 |

ATable['column-name'].AsString := FField; 35 |

36 | 37 | If you access non-existing column, an exception will be generated 38 | 39 | 40 | Override this method to load actual instances of linked tables 41 | By default, when getting an object from instance, the linked objects from table relationships are not loaded. This is to prevent stack overflow in case of M-N relationship. This method will be called automatically when calling . 42 | If you access non-existing link, an exception will be generated 43 | 44 | 45 | Table instance resembling the current object 46 | 47 | 48 | Table instance resembling the current object 49 | 50 | 51 | Override this method to load actual instances of linked tables 52 | In case of an insert operation, the object doesn't have an ID yet. So we can't save the object and relationships in one go. This method is supposed to save the relationships and will be automatically called upon insert/update. The instance will take care of the saving order (the object first, retrieve its ID and use it to save the relationships). 53 | If you access non-existing link, an exception will be generated 54 | 55 | 56 | List of tables linked to this model 57 | 58 | 59 | List of tables linked to this model 60 | 61 | 62 | Property access for the protected field 63 | 64 | 65 | 66 | 67 | -------------------------------------------------------------------------------- /src/ghorm.pas: -------------------------------------------------------------------------------- 1 | unit ghORM; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, fgl, ghSQL; 9 | 10 | type 11 | 12 | { TModel } 13 | 14 | TModel = class 15 | protected 16 | FID: Integer; 17 | public 18 | class function GetTableName: String; virtual; abstract; 19 | function Validate: Boolean; virtual; abstract; 20 | procedure LoadFromTable(ATable: TghSQLTable); virtual; abstract; 21 | procedure SaveToTable(ATable: TghSQLTable); virtual; abstract; 22 | procedure LoadRelationships(ALinks: TghSQLTableList); virtual; 23 | procedure SaveRelationships(ALinks: TghSQLTableList); virtual; 24 | property ID: Integer read FID; 25 | end; 26 | 27 | { TModelList } 28 | 29 | generic TModelList = class(specialize TFPGObjectList) 30 | public 31 | constructor Create; 32 | end; 33 | 34 | { TORM } 35 | 36 | generic TORM = class 37 | protected 38 | function GetTable: TghSQLTable; 39 | public 40 | type TThisModelList = specialize TModelList; 41 | constructor Create; 42 | function New: T; 43 | function Insert(o: T): Boolean; 44 | function Update(o: T): Boolean; 45 | function Delete(o: T): Boolean; 46 | function GetOne(id: Integer; out o: T): Boolean; 47 | function GetWhere(conditions: String; out ol: TThisModelList): Boolean; 48 | procedure LinkRelationships; virtual; 49 | procedure ResolveLinks(o: T); 50 | end; 51 | 52 | procedure SetConn(AConn: TghSQLConnector); 53 | function Conn: TghSQLConnector; 54 | 55 | resourcestring 56 | rsDbConnUninitialized = 'Database connection has not been initialized'; 57 | 58 | implementation 59 | 60 | var 61 | LConn: TghSQLConnector; 62 | 63 | procedure SetConn(AConn: TghSQLConnector); 64 | begin 65 | LConn := AConn; 66 | end; 67 | 68 | function Conn: TghSQLConnector; 69 | begin 70 | if not Assigned(LConn) then 71 | raise EghSQLHandlerError(rsDbConnUninitialized); 72 | Result := LConn; 73 | end; 74 | 75 | { TModel } 76 | 77 | procedure TModel.LoadRelationships(ALinks: TghSQLTableList); 78 | begin 79 | // intentionally left blank 80 | end; 81 | 82 | procedure TModel.SaveRelationships(ALinks: TghSQLTableList); 83 | begin 84 | // intentionally left blank 85 | end; 86 | 87 | { TModelList } 88 | 89 | constructor TModelList.Create; 90 | begin 91 | inherited Create(true); 92 | end; 93 | 94 | { TORM } 95 | 96 | function TORM.Delete(o: T): Boolean; 97 | begin 98 | try 99 | GetTable.Where('id = %d',[o.ID]).Delete; 100 | Result := true; 101 | except 102 | Result := false; 103 | end; 104 | end; 105 | 106 | function TORM.GetOne(id: Integer; out o: T): Boolean; 107 | var 108 | Tab: TghSQLTable; 109 | begin 110 | Tab := GetTable.Where('id = %d',[id]).Open; 111 | Result := not Tab.EOF; 112 | if Result then begin 113 | o := T.Create; 114 | o.FID := Tab['id'].AsInteger; 115 | o.LoadFromTable(Tab); 116 | end; 117 | end; 118 | 119 | function TORM.GetWhere(conditions: String; out ol: TThisModelList): Boolean; 120 | var 121 | Tab: TghSQLTable; 122 | o: T; 123 | begin 124 | Tab := GetTable.Where(Conditions).Open; 125 | ol := TThisModelList.Create; 126 | while not Tab.EOF do begin 127 | o := T.Create; 128 | o.LoadFromTable(Tab); 129 | ol.Add(o); 130 | Tab.Next; 131 | end; 132 | Result := true; 133 | end; 134 | 135 | function TORM.Insert(o: T): Boolean; 136 | var 137 | Tab: TghSQLTable; 138 | begin 139 | try 140 | Tab := GetTable.Open; 141 | // first save the object, we need the id 142 | Tab.Insert; 143 | o.SaveToTable(Tab); 144 | Tab.Commit; 145 | // now we can use the id to save relationships 146 | o.FID := Tab['id'].AsInteger; 147 | Tab.Edit; 148 | o.SaveRelationships(Tab.Links); 149 | Tab.Commit; 150 | Result := true; 151 | except 152 | Result := false; 153 | end; 154 | end; 155 | 156 | function TORM.New: T; 157 | begin 158 | Result := T.Create; 159 | end; 160 | 161 | function TORM.Update(o: T): Boolean; 162 | var 163 | Tab: TghSQLTable; 164 | begin 165 | try 166 | Tab := GetTable.Open; 167 | // already has id, we can save both the object and relationships in one go 168 | Tab.Edit; 169 | o.SaveToTable(Tab); 170 | o.SaveRelationships(Tab.Links); 171 | Tab.Commit; 172 | Result := true; 173 | except 174 | Result := false; 175 | end; 176 | end; 177 | 178 | function TORM.GetTable: TghSQLTable; 179 | begin 180 | Result := Conn.Tables[T.GetTableName]; 181 | end; 182 | 183 | procedure TORM.ResolveLinks(o: T); 184 | var 185 | Tab: TghSQLTable; 186 | begin 187 | Tab := GetTable.Where('id = %d',[o.ID]).Open; 188 | o.LoadRelationships(Tab.Links); 189 | end; 190 | 191 | constructor TORM.Create; 192 | begin 193 | LinkRelationships; 194 | end; 195 | 196 | procedure TORM.LinkRelationships; 197 | begin 198 | // intentionally left blank 199 | end; 200 | 201 | end. 202 | 203 | -------------------------------------------------------------------------------- /src/ghormpkg.lpk: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | -------------------------------------------------------------------------------- /src/ghormpkg.pas: -------------------------------------------------------------------------------- 1 | { This file was automatically created by Lazarus. Do not edit! 2 | This source is only used to compile and install the package. 3 | } 4 | 5 | unit ghormpkg; 6 | 7 | interface 8 | 9 | uses 10 | ghORM, LazarusPackageIntf; 11 | 12 | implementation 13 | 14 | procedure Register; 15 | begin 16 | end; 17 | 18 | initialization 19 | RegisterPackage('ghormpkg',@Register); 20 | end. 21 | -------------------------------------------------------------------------------- /unittest/tcusersandroles.pp: -------------------------------------------------------------------------------- 1 | unit TCUsersAndRoles; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, fpcunit, testutils, testregistry; 9 | 10 | type 11 | 12 | { TTestUsersAndRoles } 13 | 14 | TTestUsersAndRoles = class(TTestCase) 15 | protected 16 | procedure SetUp; override; 17 | procedure TearDown; override; 18 | published 19 | procedure TestInsertUser; 20 | procedure TestInsertRole; 21 | procedure TestAddRoleToUser; 22 | procedure TestAddUserToRole; 23 | end; 24 | 25 | implementation 26 | 27 | uses 28 | ghORM, UsersAndRoles; 29 | 30 | procedure TTestUsersAndRoles.SetUp; 31 | begin 32 | Conn.Tables['users'].Open.DeleteAll.Commit; 33 | Conn.Tables['roles'].Open.DeleteAll.Commit; 34 | Conn.Tables['users_roles'].Open.DeleteAll.Commit; 35 | end; 36 | 37 | procedure TTestUsersAndRoles.TearDown; 38 | begin 39 | end; 40 | 41 | procedure TTestUsersAndRoles.TestInsertUser; 42 | var 43 | o: TUsers; 44 | u: TUser; 45 | id: Integer; 46 | begin 47 | o := TUsers.Create; 48 | 49 | u := o.New; 50 | u.Name := 'Mario'; 51 | u.Password := '123abc'; 52 | AssertTrue('Failed to insert user to database',o.Insert(u)); 53 | id := u.ID; 54 | u.Free; 55 | 56 | AssertTrue('Failed to get user from database, id = ' + IntToStr(id),o.GetOne(id,u)); 57 | AssertEquals('"Mario" <> "' + u.Name + '"','Mario',u.Name); 58 | AssertEquals('"123abc" <> "' + u.Password + '"','123abc',u.Password); 59 | 60 | u.Free; 61 | o.Free; 62 | end; 63 | 64 | procedure TTestUsersAndRoles.TestInsertRole; 65 | var 66 | o: TRoles; 67 | r: TRole; 68 | id: Integer; 69 | begin 70 | o := TRoles.Create; 71 | 72 | r := o.New; 73 | r.Name := 'login'; 74 | r.Description := 'logged in user'; 75 | AssertTrue('Failed to insert role to database',o.Insert(r)); 76 | id := r.ID; 77 | r.Free; 78 | 79 | AssertTrue('Failed to get role from database, id = ' + IntToStr(id),o.GetOne(id,r)); 80 | AssertEquals('"login" <> "' + r.Name + '"','login',r.Name); 81 | AssertEquals('"logged in user" <> "' + r.Description + '"','logged in user',r.Description); 82 | 83 | r.Free; 84 | o.Free; 85 | end; 86 | 87 | procedure TTestUsersAndRoles.TestAddRoleToUser; 88 | const 89 | RoleName = 'login'; 90 | RoleDesc = 'logged in user'; 91 | UserName = 'Mario'; 92 | UserPassword = '123abc'; 93 | var 94 | ormu: TUsers; 95 | ormr: TRoles; 96 | r: TRole; 97 | u: TUser; 98 | id: Integer; 99 | begin 100 | ormu := TUsers.Create; 101 | ormr := TRoles.Create; 102 | 103 | u := ormu.New; 104 | u.Name := UserName; 105 | u.Password := UserPassword; 106 | 107 | r := ormr.New; 108 | r.Name := RoleName; 109 | r.Description := RoleDesc; 110 | AssertTrue('Failed to insert role to database',ormr.Insert(r)); 111 | u.Roles.Add(r); 112 | 113 | AssertTrue('Failed to insert user to database',ormu.Insert(u)); 114 | id := u.ID; 115 | u.Free; 116 | 117 | AssertTrue(Format('Failed to get user from database, id = %d',[id]),ormu.GetOne(id,u)); 118 | AssertEquals(Format('"%s" <> "%s"',[UserName,u.Name]),UserName,u.Name); 119 | AssertEquals(Format('"%s" <> "%s"',[UserPassword,u.Password]),UserPassword,u.Password); 120 | ormu.ResolveLinks(u); 121 | AssertEquals(Format('Roles count don''t match: %d <> %d',[1,u.Roles.Count]),1,u.Roles.Count); 122 | r := u.Roles[0]; 123 | AssertEquals(Format('"%s" <> "%s"',[RoleName,r.Name]),RoleName,r.Name); 124 | AssertEquals(Format('"%s" <> "%s"',[RoleDesc,r.Description]),RoleDesc,r.Description); 125 | 126 | u.Free; 127 | ormu.Free; 128 | ormr.Free; 129 | end; 130 | 131 | procedure TTestUsersAndRoles.TestAddUserToRole; 132 | const 133 | RoleName = 'login'; 134 | RoleDesc = 'logged in user'; 135 | UserName = 'Mario'; 136 | UserPassword = '123abc'; 137 | var 138 | ormu: TUsers; 139 | ormr: TRoles; 140 | r: TRole; 141 | u: TUser; 142 | id: Integer; 143 | begin 144 | ormu := TUsers.Create; 145 | ormr := TRoles.Create; 146 | 147 | r := ormr.New; 148 | r.Name := RoleName; 149 | r.Description := RoleDesc; 150 | 151 | u := ormu.New; 152 | u.Name := UserName; 153 | u.Password := UserPassword; 154 | AssertTrue('Failed to insert user to database',ormu.Insert(u)); 155 | r.Users.Add(u); 156 | 157 | AssertTrue('Failed to insert role to database',ormr.Insert(r)); 158 | id := r.ID; 159 | r.Free; 160 | 161 | AssertTrue(Format('Failed to get role from database, id = %d',[id]),ormr.GetOne(id,r)); 162 | AssertEquals(Format('"%s" <> "%s"',[RoleName,r.Name]),RoleName,r.Name); 163 | AssertEquals(Format('"%s" <> "%s"',[RoleDesc,r.Description]),RoleDesc,r.Description); 164 | ormr.ResolveLinks(r); 165 | AssertEquals(Format('Users count don''t match: %d <> %d',[1,r.Users.Count]),1,r.Users.Count); 166 | u := r.Users[0]; 167 | AssertEquals(Format('"%s" <> "%s"',[UserName,u.Name]),UserName,u.Name); 168 | AssertEquals(Format('"%s" <> "%s"',[UserPassword,u.Password]),UserPassword,u.Password); 169 | 170 | u.Free; 171 | ormu.Free; 172 | ormr.Free; 173 | end; 174 | 175 | initialization 176 | RegisterTest(TTestUsersAndRoles); 177 | 178 | end. 179 | 180 | -------------------------------------------------------------------------------- /unittest/test: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/leledumbo/ghORM/64886b735384fc3bd155212e9b0071c56b8cb89b/unittest/test -------------------------------------------------------------------------------- /unittest/test.lpi: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | <UseAppBundle Value="False"/> 10 | <ResourceType Value="res"/> 11 | </General> 12 | <i18n> 13 | <EnableI18N LFM="False"/> 14 | </i18n> 15 | <VersionInfo> 16 | <StringTable ProductVersion=""/> 17 | </VersionInfo> 18 | <BuildModes Count="2"> 19 | <Item1 Name="Debug" Default="True"/> 20 | <Item2 Name="Release"> 21 | <CompilerOptions> 22 | <Version Value="11"/> 23 | <Target> 24 | <Filename Value="test"/> 25 | </Target> 26 | <SearchPaths> 27 | <IncludeFiles Value="$(ProjOutDir)"/> 28 | <OtherUnitFiles Value="../src/models"/> 29 | <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 30 | </SearchPaths> 31 | <CodeGeneration> 32 | <SmartLinkUnit Value="True"/> 33 | <Optimizations> 34 | <OptimizationLevel Value="3"/> 35 | </Optimizations> 36 | </CodeGeneration> 37 | <Linking> 38 | <Debugging> 39 | <GenerateDebugInfo Value="False"/> 40 | <StripSymbols Value="True"/> 41 | </Debugging> 42 | <LinkSmart Value="True"/> 43 | </Linking> 44 | </CompilerOptions> 45 | </Item2> 46 | </BuildModes> 47 | <PublishOptions> 48 | <Version Value="2"/> 49 | </PublishOptions> 50 | <RunParams> 51 | <local> 52 | <FormatVersion Value="1"/> 53 | </local> 54 | </RunParams> 55 | <RequiredPackages Count="4"> 56 | <Item1> 57 | <PackageName Value="ghormpkg"/> 58 | </Item1> 59 | <Item2> 60 | <PackageName Value="fpcunittestrunner"/> 61 | </Item2> 62 | <Item3> 63 | <PackageName Value="Greyhound"/> 64 | </Item3> 65 | <Item4> 66 | <PackageName Value="FCL"/> 67 | </Item4> 68 | </RequiredPackages> 69 | <Units Count="3"> 70 | <Unit0> 71 | <Filename Value="test.lpr"/> 72 | <IsPartOfProject Value="True"/> 73 | </Unit0> 74 | <Unit1> 75 | <Filename Value="tcusersandroles.pp"/> 76 | <IsPartOfProject Value="True"/> 77 | <UnitName Value="TCUsersAndRoles"/> 78 | </Unit1> 79 | <Unit2> 80 | <Filename Value="usersandroles.pp"/> 81 | <IsPartOfProject Value="True"/> 82 | <UnitName Value="UsersAndRoles"/> 83 | </Unit2> 84 | </Units> 85 | </ProjectOptions> 86 | <CompilerOptions> 87 | <Version Value="11"/> 88 | <Target> 89 | <Filename Value="test"/> 90 | </Target> 91 | <SearchPaths> 92 | <IncludeFiles Value="$(ProjOutDir)"/> 93 | <OtherUnitFiles Value="../src/models"/> 94 | <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 95 | </SearchPaths> 96 | <CodeGeneration> 97 | <Optimizations> 98 | <OptimizationLevel Value="0"/> 99 | </Optimizations> 100 | </CodeGeneration> 101 | <Linking> 102 | <Debugging> 103 | <DebugInfoType Value="dsDwarf2Set"/> 104 | </Debugging> 105 | </Linking> 106 | </CompilerOptions> 107 | <Debugging> 108 | <Exceptions Count="4"> 109 | <Item1> 110 | <Name Value="EAbort"/> 111 | </Item1> 112 | <Item2> 113 | <Name Value="ECodetoolError"/> 114 | </Item2> 115 | <Item3> 116 | <Name Value="EFOpenError"/> 117 | </Item3> 118 | <Item4> 119 | <Name Value="EAssertionFailedError"/> 120 | </Item4> 121 | </Exceptions> 122 | </Debugging> 123 | </CONFIG> 124 | -------------------------------------------------------------------------------- /unittest/test.lpr: -------------------------------------------------------------------------------- 1 | program test; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | uses 6 | Interfaces, Forms, GuiTestRunner, 7 | sysutils, 8 | ghSQL, ghSQLdbLib, ghORM, 9 | TCUsersAndRoles, usersandroles; 10 | 11 | const 12 | DbFileName = 'app.db'; 13 | 14 | procedure DeleteDbFile; inline; 15 | begin 16 | if FileExists(DbFileName) then DeleteFile(DbFileName); 17 | end; 18 | 19 | var 20 | AConn: TghSQLConnector; 21 | begin 22 | DeleteDbFile; 23 | AConn := TghSQLConnector.Create(TghSQLite3Lib); 24 | AConn.Database := DbFileName; 25 | AConn.Connect; 26 | 27 | AConn.Script.LoadFromFile('test.sql'); 28 | AConn.IsBatch := true; 29 | AConn.Execute; 30 | 31 | SetConn(AConn); 32 | try 33 | Application.Initialize; 34 | Application.CreateForm(TGuiTestRunner, TestRunner); 35 | Application.Run; 36 | finally 37 | Conn.Free; 38 | DeleteDbFile; 39 | end; 40 | end. 41 | 42 | -------------------------------------------------------------------------------- /unittest/test.sql: -------------------------------------------------------------------------------- 1 | DROP TABLE IF EXISTS 'users'; 2 | CREATE TABLE 'users' ( 3 | id INTEGER PRIMARY KEY AUTOINCREMENT, 4 | name VARCHAR(32), 5 | password VARCHAR(128) 6 | ); 7 | 8 | DROP TABLE IF EXISTS 'roles'; 9 | CREATE TABLE 'roles' ( 10 | id INTEGER PRIMARY KEY AUTOINCREMENT, 11 | name VARCHAR(32), 12 | description VARCHAR(256) 13 | ); 14 | 15 | DROP TABLE IF EXISTS 'users_roles'; 16 | CREATE TABLE 'users_roles' ( 17 | user_id INTEGER, 18 | role_id INTEGER, 19 | PRIMARY KEY (user_id,role_id), 20 | FOREIGN KEY (user_id) REFERENCES users(id), 21 | FOREIGN KEY (role_id) REFERENCES roles(id) 22 | ); 23 | -------------------------------------------------------------------------------- /unittest/usersandroles.pp: -------------------------------------------------------------------------------- 1 | unit UsersAndRoles; 2 | 3 | {$mode objfpc}{$H+} 4 | 5 | interface 6 | 7 | uses 8 | Classes, SysUtils, ghSQL, ghORM; 9 | 10 | type 11 | 12 | TRole = class; 13 | 14 | { TRoleList } 15 | 16 | TRoleList = specialize TModelList<TRole>; 17 | 18 | { TUser } 19 | 20 | TUser = class(TModel) 21 | private 22 | FName: String; 23 | FPassword: String; 24 | FRoles: TRoleList; 25 | public 26 | constructor Create; 27 | destructor Destroy; override; 28 | class function GetTableName: String; override; 29 | function Validate: Boolean; override; 30 | procedure LoadFromTable(ATable: TghSQLTable); override; 31 | procedure SaveToTable(ATable: TghSQLTable); override; 32 | procedure LoadRelationships(ALinks: TghSQLTableList); override; 33 | procedure SaveRelationships(ALinks: TghSQLTableList); override; 34 | property Name: String read FName write FName; 35 | property Password: String read FPassword write FPassword; 36 | property Roles: TRoleList read FRoles; 37 | end; 38 | 39 | { TUserList } 40 | 41 | TUserList = specialize TModelList<TUser>; 42 | 43 | TRole = class(TModel) 44 | private 45 | FName: String; 46 | FDescription: String; 47 | FUsers: TUserList; 48 | public 49 | constructor Create; 50 | destructor Destroy; override; 51 | class function GetTableName: String; override; 52 | function Validate: Boolean; override; 53 | procedure LoadFromTable(ATable: TghSQLTable); override; 54 | procedure SaveToTable(ATable: TghSQLTable); override; 55 | procedure LoadRelationships(ALinks: TghSQLTableList); override; 56 | procedure SaveRelationships(ALinks: TghSQLTableList); override; 57 | property Name: String read FName write FName; 58 | property Description: String read FDescription write FDescription; 59 | property Users: TUserList read FUsers; 60 | end; 61 | 62 | { TUsers } 63 | 64 | TUsers = class(specialize TORM<TUser>) 65 | public 66 | procedure LinkRelationships; override; 67 | end; 68 | 69 | { TRoles } 70 | 71 | TRoles = class(specialize TORM<TRole>) 72 | public 73 | procedure LinkRelationships; override; 74 | end; 75 | 76 | implementation 77 | 78 | { TUser } 79 | 80 | constructor TUser.Create; 81 | begin 82 | FRoles := TRoleList.Create; 83 | end; 84 | 85 | destructor TUser.Destroy; 86 | begin 87 | FRoles.Free; 88 | inherited Destroy; 89 | end; 90 | 91 | procedure TUser.LoadFromTable(ATable: TghSQLTable); 92 | begin 93 | FName := ATable['name'].AsString; 94 | FPassword := ATable['password'].AsString; 95 | end; 96 | 97 | procedure TUser.SaveToTable(ATable: TghSQLTable); 98 | begin 99 | ATable['name'].AsString := FName; 100 | ATable['password'].AsString := FPassword; 101 | end; 102 | 103 | class function TUser.GetTableName: String; 104 | begin 105 | Result := 'users'; 106 | end; 107 | 108 | function TUser.Validate: Boolean; 109 | begin 110 | Result := true; 111 | end; 112 | 113 | procedure TUser.SaveRelationships(ALinks: TghSQLTableList); 114 | var 115 | UserRoleTab: TghSQLTable; 116 | LRole: TRole; 117 | begin 118 | UserRoleTab := ALinks['users_roles']; 119 | for LRole in FRoles do begin 120 | UserRoleTab.Insert; 121 | UserRoleTab['user_id'].AsInteger := Self.ID; 122 | UserRoleTab['role_id'].AsInteger := LRole.ID; 123 | UserRoleTab.Commit; 124 | end; 125 | end; 126 | 127 | procedure TUser.LoadRelationships(ALinks: TghSQLTableList); 128 | var 129 | RoleORM: TRoles; 130 | RoleTab: TghSQLTable; 131 | LRole: TRole; 132 | begin 133 | FRoles.Clear; 134 | RoleORM := TRoles.Create; 135 | RoleTab := ALinks['roles'].Open; 136 | RoleTab.First; 137 | while not RoleTab.EOF do begin 138 | RoleORM.GetOne(RoleTab['id'].AsInteger,LRole); 139 | FRoles.Add(LRole); 140 | RoleTab.Next; 141 | end; 142 | RoleORM.Free; 143 | end; 144 | 145 | { TRole } 146 | 147 | constructor TRole.Create; 148 | begin 149 | FUsers := TUserList.Create; 150 | end; 151 | 152 | destructor TRole.Destroy; 153 | begin 154 | FUsers.Free; 155 | inherited Destroy; 156 | end; 157 | 158 | procedure TRole.LoadFromTable(ATable: TghSQLTable); 159 | begin 160 | FName := ATable['name'].AsString; 161 | FDescription := ATable['description'].AsString; 162 | end; 163 | 164 | procedure TRole.SaveToTable(ATable: TghSQLTable); 165 | begin 166 | ATable['name'].AsString := FName; 167 | ATable['description'].AsString := FDescription; 168 | end; 169 | 170 | class function TRole.GetTableName: String; 171 | begin 172 | Result := 'roles'; 173 | end; 174 | 175 | function TRole.Validate: Boolean; 176 | begin 177 | Result := true; 178 | end; 179 | 180 | procedure TRole.SaveRelationships(ALinks: TghSQLTableList); 181 | var 182 | UserRoleTab: TghSQLTable; 183 | LUser: TUser; 184 | begin 185 | UserRoleTab := ALinks['users_roles']; 186 | for LUser in FUsers do begin 187 | UserRoleTab.Insert; 188 | UserRoleTab['role_id'].AsInteger := Self.ID; 189 | UserRoleTab['user_id'].AsInteger := LUser.ID; 190 | UserRoleTab.Commit; 191 | end; 192 | end; 193 | 194 | procedure TRole.LoadRelationships(ALinks: TghSQLTableList); 195 | var 196 | UserORM: TUsers; 197 | UserTab: TghSQLTable; 198 | LUser: TUser; 199 | begin 200 | FUsers.Clear; 201 | UserORM := TUsers.Create; 202 | UserTab := ALinks['users'].Open; 203 | while not UserTab.EOF do begin 204 | UserORM.GetOne(UserTab['id'].AsInteger,LUser); 205 | FUsers.Add(LUser); 206 | UserTab.Next; 207 | end; 208 | UserORM.Free; 209 | end; 210 | 211 | { TUsers } 212 | 213 | procedure TUsers.LinkRelationships; 214 | begin 215 | GetTable.Relations['roles'] 216 | .Where('id IN (SELECT role_id FROM users_roles WHERE user_id = :id)'); 217 | GetTable.Relations['users_roles'] 218 | .Where('user_id = :id'); 219 | end; 220 | 221 | { TRoles } 222 | 223 | procedure TRoles.LinkRelationships; 224 | begin 225 | GetTable.Relations['users'] 226 | .Where('id IN (SELECT user_id FROM users_roles WHERE role_id = :id)'); 227 | GetTable.Relations['users_roles'] 228 | .Where('role_id = :id'); 229 | end; 230 | 231 | end. 232 | 233 | --------------------------------------------------------------------------------