Changeset 13 for trunk/Forms


Ignore:
Timestamp:
Jun 10, 2011, 8:23:37 AM (13 years ago)
Author:
george
Message:
  • Added: Type separated to base types and custom type instances. Every type which have parameters should have own SQL table. Types which have structured values should have tables for values too.
Location:
trunk/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.lfm

    r11 r13  
    115115      Category = 'Item'
    116116      Caption = 'Delete'
     117      OnExecute = AItemDeleteExecute
    117118    end
    118119    object AItemAdd: TAction

  • trunk/Forms/UMainForm.pas

    r12 r13  
    6868    procedure AInitSystemValuesExecute(Sender: TObject);
    6969    procedure AItemAddExecute(Sender: TObject);
     70    procedure AItemDeleteExecute(Sender: TObject);
    7071    procedure AItemEditExecute(Sender: TObject);
    7172    procedure AItemViewExecute(Sender: TObject);
    … …  
    116117  SObjectNotFound = 'Object not found';
    117118  SGroup = 'Groups';
     119  SItemDeletion = 'Delete items';
     120  SReallyWantToDelete = 'Really want to delete selected items?';
    118121
    119122
    … …  
    171174  Data: TDictionaryStringString;
    172175  ObjectId: Integer;
     176  Tables: TListString;
     177  I: Integer;
    173178begin
    174179  with System do
    175180  try
    176181    DbRows := TDbRows.Create;
     182    Tables := TListString.Create;
    177183    Data := TDictionaryStringString.Create;
    178184
    179     Database.Query(DbRows, 'SHOW TABLES LIKE "' + InformationTable + '"');
    180     if DbRows.Count = 0 then begin
     185    Database.Query(DbRows, 'SHOW TABLES');
     186    Tables.Count := DbRows.Count;
     187    for I := 0 to DbRows.Count - 1 do
     188      Tables[I] := DbRows[I].Items[0].Value;
     189
     190    if Tables.IndexOf(InformationTable) = -1 then begin
    181191      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + InformationTable + '` ( ' +
    182192  '`Version` varchar(255) NOT NULL,' +
    … …  
    189199    StructureVersion := DbRows[0].Values['Version'];
    190200
    191     Database.Query(DbRows, 'SHOW TABLES LIKE "' + ObjectTable + '"');
    192     if DbRows.Count = 0 then begin
     201    if Tables.IndexOf(ObjectTable) = -1 then begin
    193202      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + ObjectTable + '` ( ' +
    194203        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    197206        '`Table` varchar(255) NOT NULL,' +
    198207        '`PrimaryKey` varchar(255) NOT NULL DEFAULT "Id", ' +
    199         '`Sequence` int(11) NOT NULL,' +
     208        '`Sequence` int(11) NOT NULL DEFAULT 0,' +
    200209        '`Group` int(11) NOT NULL,' +
    201         'PRIMARY KEY (`Id`),' +
    202         'KEY `Group` (`Group`)' +
     210        'KEY `Group` (`Group`),' +
     211        'PRIMARY KEY (`Id`)' +
    203212      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    204213
    205214    end;
    206215
    207     Database.Query(DbRows, 'SHOW TABLES LIKE "' + ObjectGroupTable + '"');
    208     if DbRows.Count = 0 then begin
     216    if Tables.IndexOf(ObjectGroupTable) = -1 then begin
    209217      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + ObjectGroupTable + '` ( ' +
    210218        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    211219        '`Name` varchar(255) NOT NULL,' +
    212         '`Parent` int(11) NOT NULL,' +
    213         '`Sequence` int(11) NOT NULL,' +
     220        '`Parent` int(11) NOT NULL DEFAULT 0,' +
     221        '`Sequence` int(11) NOT NULL DEFAULT 0,' +
     222        'KEY `Parent` (`Parent`),' +
    214223        'PRIMARY KEY (`Id`)' +
    215224      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    216225    end;
    217226
    218     Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyTable + '"');
    219     if DbRows.Count = 0 then begin
     227    if Tables.IndexOf(PropertyTable) = -1 then begin
    220228      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyTable + '` ( ' +
    221229        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    222230      '`Name` varchar(255) NOT NULL,' +
    223231      '`Object` int(11) NOT NULL,' +
    224       '`PropertyGroup` int(11) NOT NULL,' +
    225       '`Type` int(11) NOT NULL,' +
     232      '`PropertyGroup` int(11) NOT NULL DEFAULT 0,' +
     233      '`CustomType` int(11) NOT NULL,' +
     234      '`Editable` bool NOT NULL DEFAULT 1,' +
    226235      '`ColumnName` varchar(255) NOT NULL,' +
    227236      'KEY `Object` (`Object`),' +
    228237      'KEY `PropertyGroup` (`PropertyGroup`),' +
    229       'KEY `Type` (`Type`),' +
     238      'KEY `CustomType` (`CustomType`),' +
    230239      'PRIMARY KEY (`Id`)' +
    231240      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    232241    end;
    233     Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyTypeTable + '"');
    234     if DbRows.Count = 0 then begin
     242    if Tables.IndexOf(PropertyTypeTable) = -1 then begin
    235243      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyTypeTable + '` ( ' +
    236244        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    238246      '`DbType` varchar(255) NOT NULL,' +
    239247      '`TypeIndex` int(11) NOT NULL,' +
    240       '`Parent` int(11) NOT NULL,' +
    241       '`ParameterTable` varchar(255) NOT NULL,' +
    242248      'PRIMARY KEY (`Id`)' +
    243249      ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
    244250    end;
    245     Database.Query(DbRows, 'SHOW TABLES LIKE "' + PropertyGroupTable + '"');
    246     if DbRows.Count = 0 then begin
     251
     252    if Tables.IndexOf(PropertyGroupTable) = -1 then begin
    247253      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + PropertyGroupTable + '` ( ' +
    248254        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
    … …  
    254260    end;
    255261
     262    if Tables.IndexOf(EnumerationState) = -1 then begin
     263      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + EnumerationState + '` ( ' +
     264        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     265        '`Enumeration` int(11) NOT NULL,' +
     266        '`Name` varchar(255) NOT NULL,' +
     267        '`Sequence` int(11) NOT NULL DEFAULT 0,' +
     268        'KEY `Enumeration` (`Enumeration`),' +
     269        'PRIMARY KEY (`Id`)' +
     270        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     271    end;
     272
     273    if Tables.IndexOf(Enumeration) = -1 then begin
     274      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + Enumeration + '` ( ' +
     275        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     276        '`Name` varchar(255) NOT NULL,' +
     277        'PRIMARY KEY (`Id`)' +
     278        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     279    end;
     280
     281    if Tables.IndexOf(TypeEnumeration) = -1 then begin
     282      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeEnumeration + '` ( ' +
     283        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     284        '`Enumeration` int(11) NOT NULL,' +
     285        'KEY `Enumeration` (`Enumeration`),' +
     286        'PRIMARY KEY (`Id`)' +
     287        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     288    end;
     289
     290    if Tables.IndexOf(TypeRelationOne) = -1 then begin
     291      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationOne + '` ( ' +
     292        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     293        '`Type` int(11) NOT NULL,' +
     294        '`Object` int(11) NOT NULL,' +
     295        'KEY `Type` (`Type`),' +
     296        'PRIMARY KEY (`Id`)' +
     297        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     298    end;
     299
     300    if Tables.IndexOf(TypeRelationMany) = -1 then begin
     301      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeRelationMany + '` ( ' +
     302        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     303        '`Type` int(11) NOT NULL,' +
     304        '`ObjectProperty` int(11) NOT NULL,' +
     305        'KEY `Type` (`Type`),' +
     306        'PRIMARY KEY (`Id`)' +
     307        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     308    end;
     309
     310    if Tables.IndexOf(TypeFile) = -1 then begin
     311      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeFile + '` ( ' +
     312        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     313        '`Name` varchar(255) NOT NULL,' +
     314        '`Size` int(11) NOT NULL,' +
     315        'PRIMARY KEY (`Id`)' +
     316        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     317    end;
     318
     319    if Tables.IndexOf(TypeGPS) = -1 then begin
     320      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeGPS + '` ( ' +
     321        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     322        '`Latitude` double NOT NULL,' +
     323        '`Longitude` double NOT NULL,' +
     324        'PRIMARY KEY (`Id`)' +
     325        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     326    end;
     327
     328    if Tables.IndexOf(CustomType) = -1 then begin
     329      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + CustomType + '` ( ' +
     330        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     331        '`Type` int NOT NULL,' +
     332        'KEY `Type` (`Type`),' +
     333        'PRIMARY KEY (`Id`)' +
     334        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     335    end;
     336
     337    if Tables.IndexOf(TypeNumber) = -1 then begin
     338      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeNumber + '` ( ' +
     339        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     340        '`CustomType` int NOT NULL,' +
     341        '`Default` int NOT NULL,' +
     342        '`Min` int NOT NULL,' +
     343        '`Max` int NOT NULL,' +
     344        'KEY `CustomType` (`CustomType`),' +
     345        'PRIMARY KEY (`Id`)' +
     346        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     347    end;
     348
     349    if Tables.IndexOf(TypeString) = -1 then begin
     350      Database.Query(DbRows, 'CREATE TABLE IF NOT EXISTS `' + TypeString + '` ( ' +
     351        '`Id` int(11) NOT NULL AUTO_INCREMENT,' +
     352        '`CustomType` int NOT NULL,' +
     353        '`Default` VARCHAR(255) NOT NULL,' +
     354        '`MaxLength` int NOT NULL,' +
     355        'KEY `CustomType` (`CustomType`),' +
     356        'PRIMARY KEY (`Id`)' +
     357        ') ENGINE=InnoDB  DEFAULT CHARSET=utf8');
     358    end;
    256359  finally
     360    Tables.Free;
    257361    Data.Free;
    258362    DbRows.Free;
    … …  
    265369  TypeNumber: Integer;
    266370  TypeString: Integer;
     371  TypeBoolean: Integer;
    267372  GroupId: Integer;
     373  EnumId: Integer;
    268374begin
    269375  with System do begin
    270376  TypeNumber := AddType('Number', 'INT', vtInteger);
    271   TypeString := AddType('String', 'VAR(255)', vtString);
     377  TypeString := AddType('String', 'VARCHAR(255)', vtString);
    272378  AddType('Text', 'TEXT', vtText);
    273379  AddType('Date and time', 'DATETIME', vtDateTime);
    274380  AddType('Floating number', 'FLOAT', vtFloat);
    275381  AddType('Image', 'BLOB', vtImage);
    276   AddType('Boolean', 'BOOL', vtBoolean);
     382  TypeBoolean := AddType('Boolean', 'BOOL', vtBoolean);
    277383  AddType('IPv4', 'BINARY(4)', vtIPv4);
    278384  AddType('IPv6', 'BINARY(16)', vtIPv6);
    279385  AddType('MAC address', 'BINARY(6)', vtMAC);
    280   AddType('File', '', vtFile);
    281   AddType('GPS', '', vtGPS);
     386  AddType('File', 'INT', vtFile);
     387  AddType('GPS', 'INT', vtGPS);
    282388  AddType('Currency', 'FLOAT', vtCurrency);
    283   AddType('Enumeration', '', vtEnumeration);
     389  AddType('Enumeration', 'INT', vtEnumeration);
    284390  AddType('Time', 'TIME', vtTime);
    285391  AddType('Date', 'DATE', vtDate);
    286392  AddType('Color', 'INT', vtColor);
     393  AddType('Hyperlink', 'VARCHAR(255)', vtHyperlink);
     394  AddType('RelationOne', 'INT', vtRelationOne);
     395  AddType('RelationMany', 'INT', vtRelationMany);
     396  AddType('Password', 'VARCHAR(255)', vtPassword);
     397
     398  EnumId := AddEnumeration('Boolean');
     399  AddEnumerationState(EnumId, 'False');
     400  AddEnumerationState(EnumId, 'True');
     401
     402  EnumId := AddEnumeration('Priority');
     403  AddEnumerationState(EnumId, 'Low');
     404  AddEnumerationState(EnumId, 'Normal');
     405  AddEnumerationState(EnumId, 'High');
    287406
    288407  GroupId := AddObjectGroup('System');
    289408
    290409  ObjectId := AddObject('Object groups', 'ObjectGroup', System.Database.Database, GroupId);
    291     AddProperty(ObjectId, 'Name', 'Name', TypeString);
     410    AddPropertyString(ObjectId, 'Name', 'Name');
    292411  ObjectId := AddObject('Objects', 'Object', System.Database.Database, GroupId);
    293     AddProperty(ObjectId, 'Name', 'Name', TypeString);
    294     AddProperty(ObjectId, 'Group', 'Group', TypeNumber);
    295     AddProperty(ObjectId, 'Schema', 'Schema', TypeString);
    296     AddProperty(ObjectId, 'Table', 'Table', TypeString);
    297     AddProperty(ObjectId, 'Primary key', 'PrimaryKey', TypeString);
    298     AddProperty(ObjectId, 'Sequence', 'Sequence', TypeNumber);
     412    AddPropertyString(ObjectId, 'Name', 'Name');
     413    AddPropertyNumber(ObjectId, 'Group', 'Group');
     414    AddPropertyString(ObjectId, 'Schema', 'Schema');
     415    AddPropertyString(ObjectId, 'Table', 'Table');
     416    AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey');
     417    AddPropertyNumber(ObjectId, 'Sequence', 'Sequence');
    299418  ObjectId := AddObject('Property types', 'Type', System.Database.Database, GroupId);
    300     AddProperty(ObjectId, 'Name', 'Name', TypeString);
    301     AddProperty(ObjectId, 'Type', 'DbType', TypeString);
    302     AddProperty(ObjectId, 'Type index', 'TypeIndex', TypeNumber);
    303     AddProperty(ObjectId, 'Parent', 'Parent', TypeNumber);
     419    AddPropertyString(ObjectId, 'Name', 'Name');
     420    AddPropertyString(ObjectId, 'Type', 'DbType');
     421    AddPropertyNumber(ObjectId, 'Type index', 'TypeIndex');
     422    AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    304423  ObjectId := AddObject('Property groups', 'PropertyGroup', System.Database.Database, GroupId);
    305424  ObjectId := AddObject('Properties', 'Property', System.Database.Database, GroupId);
    306     AddProperty(ObjectId, 'Name', 'Name', TypeString);
    307     AddProperty(ObjectId, 'Object', 'Object', TypeNumber);
    308     AddProperty(ObjectId, 'PropertyGroup', 'PropertyGroup', TypeNumber);
    309     AddProperty(ObjectId, 'Type', 'Type', TypeNumber);
    310     AddProperty(ObjectId, 'ColumnName', 'ColumnName', TypeString);
     425    AddPropertyString(ObjectId, 'Name', 'Name');
     426    AddPropertyNumber(ObjectId, 'Object', 'Object');
     427    AddPropertyNumber(ObjectId, 'PropertyGroup', 'PropertyGroup');
     428    AddPropertyNumber(ObjectId, 'Type', 'Type');
     429    AddProperty(ObjectId, 'Editable', 'Editable', TypeBoolean);
     430    AddPropertyString(ObjectId, 'ColumnName', 'ColumnName');
    311431  end;
    312432end;
    … …  
    412532end;
    413533
    414 procedure TMainForm.AItemAddExecute(Sender: TObject);
    415 begin
    416   ItemAddForm.Show;
    417 end;
    418 
    419534procedure TMainForm.AExitExecute(Sender: TObject);
    420535begin
    … …  
    426541  InitSystemValues;
    427542  LoadTree;
     543end;
     544
     545procedure TMainForm.AItemAddExecute(Sender: TObject);
     546begin
     547  ItemAddForm.ShowModal;
     548end;
     549
     550procedure TMainForm.AItemDeleteExecute(Sender: TObject);
     551begin
     552  if MessageDlg(SItemDeletion, SReallyWantToDelete, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
     553
     554  end;
    428555end;
    429556
Note: See TracChangeset for help on using the changeset viewer.