Search options (Page 367 of 400)

Приветствую,

вы имеете ввиду, что необходимо преобразовать тип поле ДА/НЕТ, который содержит 1 или 0 в Да или Нет?
тогда так

SELECT 
(case when Tdtv.P_set_upakovka = 0 then 'Нет' else 'Да' end) as P_set_upakovka

таким образом нужно поступить с каждым полем данного  типа

данный отчет вы можете сформировать и без использования SQL, с помощью кнопки с действием Отчет
но для этого скачайте последнюю бета версию, так как были исправлены некоторые ошибки связанные с данной возможностью
https://www.dropbox.com/s/2phoggh5kfu88 … 4.zip?dl=0

Please, send me project with this script to support@drive-software.com

отправьте пожалуйста ваш проект на support@drive-software.com
постараюсь помочь.

Niema
Скачайте данный проект с примером, как это сделать
http://myvisualdatabase.com/forum/misc. … download=1

Hello )

// mbYes is 6
// mbNo is 7
// mbCancel is 2
if 6 = MessageDlg('Really?', mtConfirmation, mbYes + mbNo + mbCancel, 0) then 
   ShowMessage('Yes') 
   else ShowMessage('No');

Do you mean SQLite Studio?
http://sqlitestudio.pl/

You can save excel as csv file,
Then open csv file in SQLite Studio and do import in database.
But in the process a lot of nuances.

Where you trying to change format of date?
In SQL? in script? in Object inspector? in Windows control panel?

In current version button font color dont' work, thank you.

в данном примере, в скриптах замените

if Form1.TableGrid1.Cells[3,i] = 'Yes' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'No' then Form1.TableGrid1.Cell[3,i].Color := clGreen;

на

if Form1.TableGrid1.Cells[3,i] = 'Да' then Form1.TableGrid1.Cell[3,i].Color := clRed;
if Form1.TableGrid1.Cells[3,i] = 'Нет' then Form1.TableGrid1.Cell[3,i].Color := clGreen;

Посмотрите данный проект телефонного справочника, на форме есть два грида и можно посмотреть все телефоны человека и при необходимости переместить данный телефон другому владельцу, в принципе получается тоже самое, только вместо объектов недвижимости, будут телефоны.

Please, change
FillAContainer.dotinspDate.Text := Cdotdate;
to
FillAContainer.dotinspDate.DateTime := SQLDateTimeToDateTime(Cdotdate);

You should use function SQLExecute ('SQL query here');
but using SQLExecute you can get only one value from database.

example:

procedure Form1_ComboBox1_OnChange (Sender: string);
var
    Value1, Value2, Value3: string;
begin
    Value1 := SQLExecute('SELECT field1 FROM table WHERE id=' + IntToStr(Form1.ComboBox1.dbItemID) );
    Value2 := SQLExecute('SELECT field2 FROM table WHERE id=' + IntToStr(Form1.ComboBox1.dbItemID) );
    Value3 := SQLExecute('SELECT field3 FROM table WHERE id=' + IntToStr(Form1.ComboBox1.dbItemID) );

    Form1.Edit1.Text := Value1;
    Form1.Edit2.Text := Value2;
    Form1.Edit3.Text := Value3;
end;

В текущей версии это невозможно, могу предложить изменять структуру базы данных с помощью бесплатной программы SQLite Studio, затем необходимо также изменить структуру базы через My Visual Database, при запуске проекта отказаться от пересоздания базы данных, таким образом данные не будут потеряны.