Search options (Page 15 of 61)

!\(00\) 0 0000-0000;0;_

procedure UD_REDACT_OnClose (Sender: TObject; Action: string);
begin
  UD_REDACT.ComboBox7.dbFilter := ''; // по умолчанию фильтр снят
  UD_REDACT.ComboBox7.dbUpdate;
end;

procedure UD_REDACT_OnShow (Sender: TObject; Action: string);
begin
  if Action='NewRecord' then // если добавление новой записи, то
  begin // добавить фильтр
    UD_REDACT.ComboBox7.dbFilter := 'id_LS_STATUS = 1';
    UD_REDACT.ComboBox7.dbUpdate;
  end;
end;

const
  DB_TEXT_FIELD = 1;

procedure DB_AddField(ATableName: string; AFieldName:string; AType:integer );
// добавление поля
var
  tmpSQL:string;
begin
  tmpSQL := 'ALTER TABLE ['+ATableName+'] ADD COLUMN ['+AFieldName+'] ';
  case dbType of
  DBT_UNKNOW: RaiseException('DB_AddField - не поддерживается для типа базы DBT_UNKNOW');
  DBT_SQLITE: begin
  case AType of
  DB_TEXT_FIELD: tmpSQL := tmpSQL + ' TEXT';
  else RaiseException('DB_AddField - не поддерживается тип поля: '+IntToStr(AType));
  end;
  end;
  DBT_MYSQL: RaiseException('DB_AddField - не поддерживается для типа базы DBT_MYSQL');
  end;
  SQLExecute(tmpSQL);
end;

function DB_FieldExists( ATableName: string; AFieldName:string ):boolean;
// проверяет существование таблицы
var
  tmpDataSet:TDataSet;
begin
  case dbType of
  DBT_UNKNOW: RaiseException('DB_TableExists - не поддерживается для типа базы DBT_UNKNOW');
  DBT_SQLITE: begin
    // Result := SQLExecute('SELECT COUNT(*) AS CNTREC FROM ( pragma_table_info('+ATableName+') WHERE name="'+AFieldName+'" )' ) = 1; // SQLite - не работает в MVDB, но работает в SQLiteStudio
    Result := False;
    SQLQuery('PRAGMA table_info(['+ATableName+']) ',tmpDataSet);
    while not tmpDataSet.EOF do
    begin
      if UpperCase( tmpDataSet.FieldByName('name').asString ) = UpperCase( AFieldName ) then
      begin
        Result := True;
        break;
      end;
      tmpDataSet.Next;
    end;
    tmpDataSet.Free;
  end;
  DBT_MYSQL: RaiseException('DB_TableExists - не поддерживается для типа базы DBT_MYSQL');
  end;
end;

function DB_TableExists( ATableName: string ):boolean;
// проверяет существование таблицы
begin
  case dbType of
  DBT_UNKNOW: RaiseException('DB_TableExists - не поддерживается для типа базы DBT_UNKNOW');
  DBT_SQLITE: Result := SQLExecute('SELECT COUNT(*) FROM sqlite_master WHERE type="table" AND tbl_Name="'+ATableName+'"') = 1; // SQLite
  DBT_MYSQL: RaiseException('DB_TableExists - не поддерживается для типа базы DBT_MYSQL');
  end;
end;

  if not DB_TableExists('blank') then
  begin
    tmpSQL := //
      '  CREATE TABLE blank ( '+CR+//
      '    id     INTEGER PRIMARY KEY ASC AUTOINCREMENT, '+CR+//
      '    length INTEGER NOT NULL '+CR+//
      '                   DEFAULT 0, '+CR+//
      '    qty    INTEGER NOT NULL '+CR+//
      '                   DEFAULT 0, '+CR+//
      '    basic  INTEGER NOT NULL '+CR+//
      '                   DEFAULT 0 '+CR+//
      '); ';
    SQLExecute(tmpSQL);
  end;

  if not DB_FieldExists( 'order', 'comment' ) then
    DB_AddField('order','comment',DB_TEXT_FIELD);