selamlar
formumda veritabanına kayıt giren editler memolar textler comboboxlar felan var ben bunların hepsini nasıl temizleyebilirim yani içeriğini silebilirim temizle diye bir buton koycam ona basınca alanlara girilen herşey sıfırlanacak bunu nasıl yapabilrim tek tek tüm bileşenlere boşluk mu aktarmalıyım öylede çok zor olur bana bir yol gösterin
table1.refresh;
komutu ile denedim olmadı başka bir yolu varmı
alanları temizlemek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
- mehmet_turecan_cakmak
- Üye
- Mesajlar: 132
- Kayıt: 02 Tem 2003 01:08
- Konum: Afyon
- İletişim:
veritabanında yeni bir kayıt açtığın zaman hem nesnelerin içeriği temizlenir hemde yeni bir kayıt açılmış olur .
eger senin anlatmak istediğin bu değilse örneğin şu şekilde ise; bir butona tıkladığında tüm nesnelerin içeriği temizlensin diyorsan örnek olarak şunu yazabilirim:
dbedit1.text:='';
dbmemo1.text:='';
vb...
iyi çalışmalar kolay gelsin...
eger senin anlatmak istediğin bu değilse örneğin şu şekilde ise; bir butona tıkladığında tüm nesnelerin içeriği temizlensin diyorsan örnek olarak şunu yazabilirim:
dbedit1.text:='';
dbmemo1.text:='';
vb...
iyi çalışmalar kolay gelsin...
soyle bi kod isine yarar sanirim..
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if (Components[i] is TEdit) then
(Components[i] as TEdit).Clear
else
if (Components[i] is TMemo) then
(Components[i] as TMemo).Clear
else
if (components[i] is TCombobox) then
(Components[i] as TComboBox).Clear;
end;
end;
İnsanlar, insan sayısı kadar gruba ayrılırlar...
sorduğunuz sorunun cevabını en kısa yoldan mehmet_turecan_cakmak vermiş. fakat eksik olan birşey var. dbedit lere atama yapılmaz. dbedit veya dbmemo sadece tabloya bağlı olarak çalıştığından, sen zaten insert vaya append deyip yeni bir boş kayıt açtığında bütün alanlar boş gözükecektir. tablonun afterinsert eventına insertten sonra mesela tarih alanına bugünün tarihini varsayılan olarak ata diyebilirsin.
yeterli olmazsa tabloyu bağladığın datasource nesnesinin de onstatechange eventında
if Table1.State in [dsInsert] then ...
gibi işlemler yaptırman mümkün.
yazdıkça ufkun açılacak emin ol!
yeterli olmazsa tabloyu bağladığın datasource nesnesinin de onstatechange eventında
if Table1.State in [dsInsert] then ...
gibi işlemler yaptırman mümkün.
yazdıkça ufkun açılacak emin ol!