hallo albi!
mit einem ungebundenen
db-feld funktioniert es auch mit einem table, nur mit einem gebundenen
hab ich es auch noch nicht hinbekommen.
zb im OnExitEvent des edit-feldes, in welchem plautzer die wohnungsnummer einträgt
Delphi-Quellcode:
{$SCHNELL_MAL_ZUSAMMENGETIPPT_UND_KURZ_GETESTET}
procedure TForm1.Edit1Exit(Sender: TObject);
var
aID: LongInt;
Code: integer;
begin
if Edit1.Text = '' then
Exit;
val(Edit1.Text,aID,Code);
if Code > 0 then begin
ShowMessage('die wohnungsnummer ist nicht numerisch');
Edit1.Clear;
Edit1.SetFocus;
Exit
end;
if Table1.Locate('ID',aID,[]) then begin
ShowMessage(Format('die wohnungsnummer %5d ' + #13#10
+ 'ist bereits angelegt',[aID]));
Edit1.SetFocus
end else begin
if not (Table1.State in [dsInsert, dsEdit]) then
Table1.Append;
Table1.FieldByName('ID').asInteger:= aID
end
end;
nur muss er dann beim scrollen in der tabelle bzw beim suchen das editfeld selbst
mit daten aus dem feld 'ID' versorgen, denn es ist ja nicht mehr gebunden
@plautzer:
dbtext3.Caption := Format('%8.2f', [bru_su])+' €';
hier reicht aber ein normales textfeld vollkommen aus, bzw ich würde ein masked editfeld verwenden um mir die formatierung des strings zu ersparen
mfg, stefan