Topic: NewRecord
Здравеите,имам нужда от помощ
възможно ли е при натискане на бутон Form1.Button "new record 2" във frmApplication.Edit1.text = jkhkhjgvkvg
Благодаря
My Visual Database → Russian → NewRecord
Здравеите,имам нужда от помощ
възможно ли е при натискане на бутон Form1.Button "new record 2" във frmApplication.Edit1.text = jkhkhjgvkvg
Благодаря
Приветствую,
можно так
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;
Здравейте,при 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;
для 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;
My Visual Database → Russian → NewRecord
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi