Return to Controller.m CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / DatabaseKit / AssociationOracle

Annotation of Examples/DatabaseKit/AssociationOracle/Controller.m, revision 1.1.1.1

1.1       root        1: /* Controller.m:
                      2:  * You may freely copy, distribute, and reuse the code in this example.
                      3:  * NeXT disclaims any warranty of any kind, expressed or  implied, as to its
                      4:  * fitness for any particular use.
                      5:  *
                      6:  * Written by Mai Nguyen, NeXT Developer Support
                      7:  *
                      8:  */
                      9: #import        <dbkit/dbkit.h>
                     10: #import <libc.h>
                     11: #import "Controller.h"
                     12: #import "QualifiedAssociation.h"
                     13: 
                     14: /* Define localized strings */
                     15: #define INSTALL_MODEL NXLocalizedString("Please install OracleDemo.dbmodela into your project directory and restart.", NULL, "Notify user that OracleDemo.dbmodeal must be installed in his project directory.")
                     16: 
                     17: @implementation Controller
                     18: 
                     19: /* At init time, the proper association is set up between the master fetchgroup
                     20:  * and the detail fetchgroup, such that whenever a fetch happens, that fetch
                     21:  * will be done with the specified qualifier.
                     22:  */ 
                     23: -appDidInit:sender
                     24: {
                     25:        id      dbDatabase;
                     26: 
                     27:                /* Notify the user if the database can't be found */
                     28:        if ( (dbDatabase = [DBDatabase findDatabaseNamed:"OracleDemo" connect:YES]) == nil) {
                     29:                NXRunAlertPanel(NULL, INSTALL_MODEL, "OK", NULL, NULL);
                     30:                return self;
                     31:        }
                     32:        [dbDatabase setDelegate:self];
                     33:        
                     34:        detailFetchGroup = [departmentTable fetchGroupNamed:"employees"];
                     35: 
                     36:                /* Set up the new association.
                     37:                   Note that the new association now belongs to the DBModule
                     38:                   just as the old one did. */
                     39:         newAssociation = [[QualifiedAssociation alloc]
                     40:                initAndReplaceAssociationTo:detailFetchGroup];
                     41:        dbQualifier = [[DBQualifier alloc] 
                     42:                        initForEntity:[detailFetchGroup entity]
                     43:                        fromDescription: "%p > 1000", "salary"];
                     44:        [newAssociation setQualifier: dbQualifier];
                     45:        [departmentTable fetchAllRecords:sender];
                     46:        [theWindow makeKeyAndOrderFront:nil];
                     47:        return self;
                     48: }
                     49: 
                     50: - changeQualifier:sender
                     51: {
                     52:        if (dbQualifier)
                     53:                [dbQualifier free];
                     54:        dbQualifier = [[DBQualifier alloc] 
                     55:                        initForEntity:[detailFetchGroup entity]
                     56:                        fromDescription: "%p > %d", "salary", (int)[salaryField intValue]];
                     57:        [newAssociation setQualifier: dbQualifier];
                     58:        [departmentTable fetchAllRecords:sender];
                     59:        return self;
                     60: }
                     61: 
                     62: - free
                     63: {
                     64:        if (dbQualifier)
                     65:                [dbQualifier free];
                     66:        if (newAssociation)
                     67:                [newAssociation free];
                     68:        return [super free];
                     69: }
                     70: 
                     71: /* For debugging purpose */
                     72: - (BOOL)db:aDb willEvaluateString:(const unsigned char*)aString
                     73:      usingBinder:aBinder
                     74: {
                     75:        fprintf(stderr, "SQL Query: %s\n", (char *)aString);
                     76:        return YES;
                     77: }
                     78:        
                     79: @end
                     80: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.