Search options (Page 10 of 10)

kovalenko
Пожалуйста приложите ваш проект.

Используйте событие OnAfterClick от кнопки сохранения, в основную таблицу S сохраняйте информацию с помощью кнопки с действием Сохранить запись, а в таблицу D с помощью данного скрипта

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
   SQLExecute( 'INSERT INTO D (X, Y, Z) VALUES ("' + Form2.Edit1.Text + '","' + Form2.Edit2.Text + '","' + Form2.Edit3.Text +'")' );
end;

kovalenko

Так можно. Телефоны будут показаны в компонентах Edit2,Edit4,Edit5

пример:

procedure frmOrder_GridOrder_OnCellClick (Sender: string; ACol, ARow: Integer); 
var
    sl: TStringList;
begin
   //Первый метод
      //Form1.Edit2.Text := SQLExecute('SELECT firstname FROM employees WHERE id = ' + IntToStr(Form1.GridEmployees.dbItemID));
     //frmOrder.Edit2.Text := SQLExecute('SELECT notes FROM application WHERE id = ' + IntToStr(frmOrder.GridOrder.dbItemID));
     //frmOrder.Edit2.Text := SQLExecute('SELECT number FROM phones WHERE id = ' + IntToStr(frmApplication.edPhone.dbItemID));
     //Второй метод
     frmOrder.edNotes.Text := frmOrder.GridOrder.Cells[12, ARow];
     frmOrder.Edit1.Text := frmOrder.GridOrder.Cells[9, ARow];


     frmOrder.Edit2.Clear;
     frmOrder.Edit4.Clear;
     frmOrder.Edit5.Clear;
     sl := TStringList.Create;
     sl.Text := SQLExecute('SELECT group_concat(phones.number, char(13) || char(10)) FROM application LEFT OUTER JOIN client ON client.id=application.id_client LEFT OUTER JOIN phones ON phones.id_client=client.id WHERE Application.id='+frmOrder.GridOrder.sqlValue);
     if sl.Count > 0 then frmOrder.Edit2.Text := sl[0];
     if sl.Count > 1 then frmOrder.Edit4.Text := sl[1];
     if sl.Count > 2 then frmOrder.Edit5.Text := sl[2];
     sl.Free;
end;

в событие

procedure frmOrder_GridOrder_OnCellClick (Sender: string; ACol, ARow: Integer); 

добавьте эту строку

frmOrder.Memo1.Text := SQLExecute('SELECT group_concat(phones.number, char(13) || char(10)) FROM application LEFT OUTER JOIN client ON client.id=application.id_client LEFT OUTER JOIN phones ON phones.id_client=client.id WHERE Application.id='+frmOrder.GridOrder.sqlValue);

номера телефонов будут выведены в Memo, в отдельные поля TextBox возможно, но сложней, т.к. их придется создавать на форме динамически, потому что количество телефонов может быть разное.

DriveSoft wrote:

kovalenko wrote:

Дмитрий здравствуйте. Подскажите как можно сделать вывод номера телефона в  форме frmOrder  с привязкой к ранее заполненному заказу в frmApplication. Я там что-то "поковырял" , но что-то соображаловки и знаний как это сделать не хватает.
Спасибо

Здравствуйте.

Судя по вашей структуре БД, клиент может иметь несколько телефонных номеров, поэтому не ясно, какой номер телефона нужно выводить на форму frmOrder

А какие есть варианты решения? Хотелось бы иметь возможность заводить под клиента более одного телефона. Может вариант как-то сделать что-то вроде основного номера? А остальную информацию брать из карточки клиента?

kovalenko
У компонент TextBox есть свойство EditMask, присвойте ему значение:
!\(999\)000-0000;1;_

Можно и с помощью ComboBox, в вашем проекте замените эту строку

   frmApplication.textcomplet.Lines.Add(frmApplication.TableGrid1.Cells[0,frmApplication.TableGrid1.SelectedRow] );

на эту

   frmApplication.textcomplet.Lines.Add(frmApplication.cdComplet.Text );

На счет дублирования, вы про дубликаты в компоненте Memo при добавлении комплектации?

Готово.

На форме frmApplication разместил грид, из которого вы можете выбирать комлектацию, двойным кликом либо нажав кнопку "< Добавить <"