Küçük bir proje üzerinde çalışıyorum kendimi geliştirmek için. stok takip programı gibi birşey.
çoğu yerde görüyorum satış yapan yerlerde kullanıcı satış yapacağı ürünleri okutuyor editlerde bilgileri görünüyor ve alttaki gride satır satır bunları ekliyor. bende böyle bir çalışma yapmak istedim. amacım bunun gibi grid içine satır satır okuttukça verilerin girilmesi ve sonunda alıcı almaya karar verdiğinde kaydet butonu ile bu satırların urun satış tablosuna yazılması olayını yapmak istiyorum.
sorunlarım çok tabiki öncelikle satır satır girme ile başladım ve takıldım. şöyle bir yol ile (elimdeki kitaptan faydalanarak) string grid içine satırlara giriş yaptım fakat ürün satışı birden fazla olabileceği için bir alt satıra geçişi yapamadım.
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
with stringgrid1 do
begin
for i:=1 to colcount -1 do
stringgrid1.Cells[0,0]:=edit1.Text;
stringgrid1.Cells[1,0]:=edit2.Text;
stringgrid1.Cells[2,0]:=edit3.Text;
stringgrid1.Cells[3,0]:=edit4.Text;
stringgrid1.Cells[4,0]:=edit5.Text;
end;
end;
teşekkür ve saygılarımla
kolay gelsin