kayıt çağırma

[pentiumkivanc]

selam
şöyle bişey yapmak istiyorum: bildiğimiz dbedite benzeyecek ama yanıdaki butona tıklayınca yada herhangibi kısayol tuşuna bastığımda yeni bi pencere açıp herhangibir veritabanından istediğim kaydın istediğim alanındaki veriyi bu editin içine yazacak. bu istediğimi nasıl yapabilirim?

[bobasturk]

merhaba,

soruyu bu şekil anlamış isem,

dbedit yanına koyduğun butona tıklayınca ibquery yi çalıştırıp sonucu açılacak olan yeni pencere içindeki gridde gösterir kodun sonunda ise dbedit1:=istediğin alan bilgisi şeklinde olur sanırım.

kolay gelsin

[lazio]

ben şöle bir yapı kullanıyorum, basitleştirmiş olduğum hali...

Kod: Tümünü seç

// açılan menu
..............
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function f_MusteriSec : Integer;

var
  frmMusteriSec : TfrmMusteriSec;
  xResult : Integer;
implementation

{$R *.dfm}

function f_MusteriSec : Integer;
begin
  if frmMusteriSec = nil then
  begin
    xResult := 0;
    frmMusteriSec := TfrmMusteriSec.Create(Application);
    frmMusteriSec.WindowState := wsNormal;
    frmMusteriSec.ShowModal;
  end
  else
    frmMusteriSec.BringToFront;
  Result := xResult;
end;

procedure TfrmMusteriSec.btnOkClick(Sender : TObject);
begin
  Close;
end;

procedure TfrmMusteriSec.FormClose(Sender : TObject; var Action : TCloseAction);
begin
  xResult := qryMusteriSecMUSTERI_ADI.asString;
  Action := caFree;
  frmMusteriSec := nil;
end;
........

Kod: Tümünü seç

// kullanımı
....
uses musterisec;
....
procedure TfrmMusteri.btnMusteriSecClick(Sender : TObject);
begin
  Edit1.Text := f_MusteriSec;
end;
.....