• Registered: 2015-03-07
  • Posts: 122

Topic: NewRecord

Здравеите,имам нужда от помощ
възможно ли е при натискане на бутон Form1.Button "new record 2"        във frmApplication.Edit1.text = jkhkhjgvkvg
Благодаря

Post's attachments

Attachment icon Нова папка.rar 291.92 kb, 437 downloads since 2015-09-29 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: NewRecord

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


можно так

procedure Form1_Button2_OnAfterClick (Sender: string);
begin
   frmApplication.Edit1.dbDefaultValue := '';
end;

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
   frmApplication.Edit1.dbDefaultValue := 'jkhkhjgvkvg';
end;
Dmitry.
  • Registered: 2015-03-07
  • Posts: 122

Re: NewRecord

Здравейте,при New record :
procedure Form1_Button22_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.TableGrid1.dbItemID<>-1 then
    begin

   frmApplication.edClient.dbDefaultValue := SQLExecute ('SELECT clientname FROM application WHERE id =' + IntToStr(Form1.TableGrid1.dbItemID) +'' );  РАБОТИ
   
frmApplication.edPhone.dbDefaultValue := SQLExecute ('SELECT clientphone FROM application WHERE id =' + IntToStr(Form1.TableGrid1.dbItemID) +'' ); РАБОТИ
   
frmApplication.ComboBox3.dbItemID := SQLExecute('SELECT id_grad  FROM application  WHERE id='+IntToStr(Form1.TableGrid1.dbItemID) +'');  НЕ РАБОТИ

   frmApplication.ComboBox3.DoOnChange;
end;

end;

  • Registered: 2014-02-14
  • Posts: 10,294

Re: NewRecord

для ComboBox посложней, пример:

var
    s: string;
    i: integer;
begin
    s := SQLExecute('SELECT grad.gradname FROM application LEFT OUTER JOIN grad ON grad.id=application.id_grad WHERE application.id='+IntToStr(Form1.TableGrid1.dbItemID) );
    i := frmApplication.ComboBox3.Items.IndexOf(s);
    if i<>-1 then frmApplication.ComboBox3.dbDefaultID := i;
Dmitry.