Ignore:
Timestamp:
Apr 2, 2012, 3:59:58 PM (12 years ago)
Author:
chronos
Message:
  • Added: Unfinished installable module management.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Client/Application/Clients/UChronisClientMySQL.pas

    r46 r51  
    175175
    176176procedure TChronisClientMySQL.TypeUndefine(AType: TChronisType);
    177 begin
    178 
     177var
     178  DbRows: TDbRows;
     179  I: Integer;
     180  Query: string;
     181  RefType: TChronisType;
     182begin
     183  try
     184    DbRows := TDbRows.Create;
     185    Query := 'DROP TABLE IF EXISTS `' + AType.Name + '`';
     186    Database.Query(DbRows, Query);
     187  finally
     188    DbRows.Free;
     189  end;
    179190end;
    180191
Note: See TracChangeset for help on using the changeset viewer.