Search options (Page 359 of 400)

Hello,

Please, fix it:

Form1.TableGrid1Piesa.dbFilter := 'piesa.idcazan = "c"'; 

to

Form1.TableGrid1Piesa.dbFilter := 'piesa.idcazan = "' + c+ '"'; 

You found bug in My Visual Database, for fix them, i renamed table "Kat1" to "Kat"

I can't answer to e-mail, got error
The error that the other server returned was:
554 delivery error: dd This user doesn't have a yahoo.com account

Please, download fixed project.

Да, отвечал через емейл, копия ответа:

у кнопки "Удалить запись" можно отключить подтверждение удаления, и организовать это подтверждение через скрипт с функцией MessageDlg

Хорошая идея, спасибо, реализовал, но само собой доступ к этому id можно получить только в событии OnAfterClick

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
     ShowMessage(IntToStr(Form1.Button1.dbGeneralTableId));
end;

для этой возможности, скачайте бета версию 1.46
https://www.dropbox.com/s/30ysr48sd8ca4 … 6.zip?dl=0

Не совсем понял в чем проблема.
OnClick - получаем id записи, которая будет удалена
OnAfterClick - работает с этим id после удаления (почему такая связка нежелательна?)

либо можно все сделать в OnClick, удалить запись с помощью SQL и далее использовать id удаленной записи.

savage
а что значит под вкладку? )

4. Думаю можно автоматически, с помощью SQL запроса UPDATE
SQL команда UPDATE позволяет обновить не только одну запись, но и несколько, которые удовлетворяют условию, например

UPDATE task SET isBlock = 1 WHERE (DateStart IS NOT NULL) and (DateFinish IS NOT NULL) 

т.е. блокируем записи, у которых дата старта и дата финиша присутствует.
думаю тут не хватает еще статуса задачи, например чтобы отличать уже выполненную задачу и новую, чтобы данный SQL запрос блокировал только новые задачи

5. В событии OnShow формы для редактирования, проверяем состояние CheckBox, если он True, то просто блокируем кнопку для Сохранения записи на этой форме
например так:

procedure Form2_OnShow (Sender: string; Action: string);
begin
     Form2.ButtonSave.Enabled := not Form2.CheckBox1.Checked;                                                                                                                                                                 
end;

Form1.Hide;

try this:

Main.biggerineu.Caption := SQLExecute ('SELECT MAX(einnahme) FROM Ennahmeausgabe')+' €';

Script:

procedure Form1_OnKeyDown (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
     if key = 13 then Form1.SetFocusNextControl; // go to next field when press enter key on keyboard
end;

procedure Form1_OnKeyPress (Sender: string; var Key: Char);
begin
     if (Key = 's') or (Key='S') then Form2.ShowModal; // show Form2 when pressing a key "s" on keyboard!

end;

begin
     Form1.KeyPreview := True; // If KeyPreview is true, keyboard events occur on the form before they occur on the active control.
end.

Also you can download example project.

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

savage

1. Это необходимо проверять, в примере ниже проверяется DateTimePicker3

var
  sDate1: string;
begin
if AddSubTask.DateTimePicker3.Checked then  sDate1 := '"' +FormatDateTime('yyyy-MM-DD',AddSubTask.DateTimePicker3.Date) + '"'
else sDate1 := 'NULL';

SQLExecute('INSERT INTO Tasks (Task_name, id_TaskType, id_users, start_PF, finishPL, finishFc, active_task, comments) VALUES ("'+AddSubTask.Edit1.Text+'", 2 , ' + IntToStr(AddSubTask.ComboBoxEmpl.dbItemID)+', '+ sDate1 +', "'+ FormatDateTime('yyyy-MM-DD',AddSubTask.DateTimePicker1.Date)+'", "'+ FormatDateTime('yyyy-MM-DD',AddSubTask.DateTimePicker2.Date)+'",' + IntToStr(AddSubTask.CheckBox1.State)+',"'+AddSubTask.Memo1.Text+'" );');

2. Эта форма при сохранении вызывает SQL скрипт INSERT INTO?
если да, то необходимо в случае редактирования записи, использовать UPDATE

Form1.dbAction - позволяет узнать, для чего была открыта форма (для создания новой записи или редактирования)
Может иметь следующие значения:
'NewRecord' - при вызове окна с помощью кнопки с действием Новая запись.
'ShowRecord' - при вызове окна с помощью кнопки с действием Показать запись
'ShowForm' - при вызове окна с помощью кнопки с действием Показать форму
'' - пустая строка, если окно было вызвано с помощью скрипта.

пример:

 procedure Form1_bSave_OnClick (Sender: string; var Cancel: boolean);
 begin
    if Form1.dbAction = 'NewRecord' then ShowMessage('Форма была вызвана для создания новой записи');
 end;

помимо этого, вам необходимо знать идентификатор текущей записи, его можно получить у кнопки сохранения записи
Form1.Button1.dbGeneralTableId