dbgrid

[mazhargemci]

merhaba arkadaşlar, hayırlı cumalar...

dbgrid üzerinden bilgi girişini nasıl kapatabilirim?
dbgridte seçili olan satırı edite nasıl aktarabilirim ? bir nevi düzenleme.

[brs]

"dbgrid üzerinden bilgi girişini nasıl kapatabilirim?" ne demek istediniz anlamadım

Kod: Tümünü seç

Var
  Veri : String;
begin
    With DBGrid1 do
      Veri := DataSource.DataSet.FieldByName( Columns[0].FieldName ).AsString;
    Edit1.Text:=Veri;
end;

[mazhargemci]

dbgrid aktif durumda klavyeden bilgi girişi yapılabiliyor ben pasif hale getirmek istiyorum.
ayrıca hücre olarak seçme değilde satırın tamamını seçmek istiyorum

[mazhargemci]

ilk hücreyi edit1 e aktarırken bir sıkıntı yok da 2.3... hücreleri aktarırken nedense bir hata veriyor

var
a:string;
begin
With DBGrid1 do
a := DataSource1.DataSet.FieldByName( Columns[0].FieldName ).AsString;
sedit1.Text:=a;
a := DataSource1.DataSet.FieldByName( Columns[1].FieldName ).AsString;
sedit2.Text:=a;
a := DataSource1.DataSet.FieldByName( Columns[2].FieldName ).AsString;
sedit3.Text:=a;
a := DataSource1.DataSet.FieldByName( Columns[3].FieldName ).AsString;
sedit4.Text:=a;

end;

[brs]

mazhargemci

Kod: Tümünü seç

var
a:string;
begin
 With DBGrid1 do
      a := DataSource1.DataSet.FieldByName( Columns[0].FieldName ).AsString;
      sedit1.Text:=a;
      a := DataSource1.DataSet.FieldByName( Columns[1].FieldName ).AsString;
      sedit2.Text:=a;
       a := DataSource1.DataSet.FieldByName( Columns[2].FieldName ).AsString;
      sedit3.Text:=a;
      a := DataSource1.DataSet.FieldByName( Columns[3].FieldName ).AsString;
      sedit4.Text:=a;

end;[/quote]

Selam, kodları (code) içine alınız...


Buradan dbgrid ile ilgili ayarlar yapabilirsiniz, size anlatırdım fakat sizin kurcalayın ki aklınızda kalsın...

[brs]

Birde hepsini a içine alamazsınız a,b,c: string; yapın

[xozcanx]

Grid'in Object inspector den ReadOnly özelliğini True yaparsan istediğin olur

[mazhargemci]

o kısmı hallettim teşekkürler.
dbgridten edite aktarımı nasıl yapacağız yukardaki kodları yazdım 1. hücreyi aktarıyorum edit1e fakat 2.3.. hücreleri aktaramıyorum.

[brs]

Birde hepsini a içine alamazsınız a,b,c: string; yapın

cevap...

[mazhargemci]

o şekilde de yaptım 2. hücrenin

Kod: Tümünü seç

 a := DataSource1.DataSet.FieldByName( Columns[0].FieldName ).AsString;

columns kısmında hataveriyor

[DCC Error] Unit1.pas(466): E2003 Undeclared identifier: 'Columns' şeklinde

[bulutsuzluk_35]

With DBGrid1 do satırından sonra begin yazın ve kodunuzun sonuna end yazın

[xozcanx]

Hocam Grid üzerinde seçili kaydın bilgisini Edit'te göstermek istiyorsanız şu şekilde kullanım yapabilirsiniz.

Kod: Tümünü seç

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var sGrid:TDataSet; A:Integer;
begin
  sGrid:=DBGrid1.DataSource.DataSet; // Aşağıda DBGrid1.DataSource.DataSet.FieldByName('ALAN1').AsString yazmamak için 
  							 // bunu kısmı sGrid Değişkenine atıyoruz.
  if sGrid.RecordCount>0 then
  Begin
    if (gdSelected in State) then
    Begin
       Edit1.Text    :=FieldByName('ALAN1').AsString;
       Edit2.Text    :=FieldByName('ALAN2').AsString;
    End;
  End;//
  //else
  //Begin
  //  Edit1.Clear;
  //  Edit2.Clear;
  //End;   Kayıt yok ise editleri sıfırlayabilirsiniz!
End;

Bu şekilde yapacağınız kullanım size klavye ile gezinirken de kayıtları editler üzerinde gösterilmesini sağlayacak.
Yapılan işlemde Griddeki veri var ise kodlarımız çalışır yoksa işlem yapmaz!

Kolay Gelsin.