Search options (Page 372 of 400)

последние две строки отвечают за работу с датой

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
var
   s: string;
begin
     //First method
     Form1.Edit1.Text := SQLExecute('SELECT lastname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));
     Form1.Edit2.Text := SQLExecute('SELECT firstname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));

     s := SQLExecute('SELECT dateofbirth FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID)); 
     if s <> '' then Form1.DateTimePicker1.Date := SQLDateTimeToDateTime(s) else Form1.DateTimePicker1.Checked := False;
end;

в данном примере используется функция SQLDateTimeToDateTime, которая появилась только в бета версии 1.43
скачать ее можете здесь
https://www.dropbox.com/s/4qdlk4pouldrz … 201.43.zip

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

Для этого придется воспользоваться скриптом, и это можно реализовать двумя способами, с помощью SQL запроса получать данные из базы, либо получать необходимый текст непосредственно из компонента TableGrid, для этого необходимо создать событие OnCellClick у компонента TableGrid в который выводится список клиентов

пример (второй способ закомментирован):

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     //First method
     Form1.Edit1.Text := SQLExecute('SELECT lastname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));
     Form1.Edit2.Text := SQLExecute('SELECT firstname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));

     //Second method
     //Form1.Edit1.Text := Form1.GridEmployees.Cells[0, ARow];
     //Form1.Edit2.Text :=Form1.GridEmployees.Cells[1, ARow];
end;

К сообщение прилагаю проект с данной реализацией

savage
в структуре базы данных, в таблице Books, поле bookname помечено как обязательное для ввода, поэтому выскакивает ошибка, т.к. как я уже говорил, перед созданием читателя книги, система обязана сохранить данные о книге.

Просто не делайте в структуре базы данных поле bookname обязательным  для ввода, а его обязательное заполнение контролируйте скриптом.

Т.е. вы хотите чтобы изменение сделанное на одной клиентской машине оповещало об этом на других клиентских машинах?

einsteinf5

Please, send me your project to support@drive-software.com
With description, what you need do.

Thanks.

savage
отключить на время кнопку ОК не получиться, как я сказал программа пытается сохранить для начала книгу, чтобы можно было привязать к ней читателя, можно настроить скрипт таким образом, чтобы он не производил проверку в этот момент.

примерное решение я уже написал выше:

К сожалению в текущей версии это сделать не получиться простым путем, данный функционал придется программировать с помощью скрипта.

einsteinf5

You can do it without script, using button with action SQL query and using property Increm. Search of TableGrid, where you should choose button with action SQL query.

Unfortunately I can not understand your SQL query to correct it.

Hello,

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
   id: integer;
begin
   id := Form1.GridEmployees.dbItemID;
   SQLExecute ('DELETE FROM employees WHERE id = ' + IntToStr(id));
   Form1.GridEmployees.dbUpdate;
end;

Also I made for you example project, how to delete record using script.

d9d9sam
Пожалуйста скачайте версию 1.43
https://www.dropbox.com/s/4qdlk4pouldrz … 201.43.zip

теперь секция [DisableUpperCase] теряет смысл, все должно работать без лишних настроек, но весь русский текст набитый в базу в прошлой версией, будет заглавными буквами, т.к. он в базе хранился именно таким образом для работы регистронезависимого поиска, кроме тех полей, которые были прописаны в [DisableUpperCase]. Все новые данные и которые будут изменены, будут иметь нормальный регистр букв.

glkonst79
к сожалению не понял о какой проблеме идет речь, отправьте пожалуйста базу данных на support@drive-software.com
с подробным описанием проблемы.