Bir tablodan rastgele seçilen (çoklu) kayıtlara zarf yazdırm

[ikutluay]

Merhaba

günlük olarak gitmesi gereken 69-70 tane zarf baskımız var. ben bunları programımdan yaptırıyorum ama sekreter rahata iyice alıştığından tek tek yapmak istemedi. seçili kayıtları o sırayla yazsın ben sadece zarf koyayım diyor.

Alternatiflerim şunlar. bir alan eklerim boolean sekreter o alana tık koyar sırayla burası true ise yaz derim ama her seferinde bu alanaı temizlemem gerekir.

Bir list boxa kayıtların numaralarını eklerim ordan alır sırayla işlerim...

burdan başka basitçe siz ne önerirsiniz.

Saygılar

[vkamadan]

Merhaba,
Eğer hali hazırdaki TDBGridi kullanarak kayıtları gösteriyorsanız, MultiSelect özelliğini TRUE yapın ve gridin TBookmarkList tipindeki SelectedRows özelliğinden yararlanarak seçilen kayıtlara bir döngüyle konumlanın, sonrada yazdırın, daha pratik bir yol olabilir.
Kolay gelsin.

[Battosai]

Sekreter yüzünden iyi bir iş çıkarcan gibi:) Her şey ihtiyaçtan oluyor zaten. vkamadan fikri güzel deneyebilirsin.Ama Zaten tablo ve Query kullanıyorsan istediğin kayıtları sorgulattıktan sonra yada filtreledikten sonra yazdır diyecem ama çözümü başka türlü olsun istiyorsun anlaşılan. vkamadan dediği yöntem iyi kullanabilirsen...Aslında en kolay ve mantıklısı .Sana bir kod yazıyorum işine yarayabilir...

// DBgrid'ten seçilen kayıtların istenilen alanının değerini yazar.Kendine göre ayarlarsın artık....

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then
  begin
  ListBox1.Clear;
    with DBGrid1.DataSource.DataSet do
    begin
      for i := 0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));
        ListBox1.Items.Add(ADOTable1.Fields[0].AsString);
      end;
    end;
  end
end;

[ikutluay]

Merhaba,
Eğer hali hazırdaki TDBGridi kullanarak kayıtları gösteriyorsanız, MultiSelect özelliğini TRUE yapın ve gridin TBookmarkList tipindeki SelectedRows özelliğinden yararlanarak seçilen kayıtlara bir döngüyle konumlanın, sonrada yazdırın, daha pratik bir yol olabilir.
Kolay gelsin.

merhaba

kayıt seçebilmek için ctrl tuşu basılı olmalı değilmi. ? kayıtları aşağı yukarı oynatırken kız bunu yapamaz. bilgisayar bilgisi çok iyi değil.

[vkamadan]

Merhaba,
Evet bu yöntem için CTRL ye basılı tutması gerekir, ozaman sizin bahsettiğiniz ayırıcı alan ekleme ve değerini değiştirme yöntemini yada , tıklanan kayıdı memtablo ya atıp memtablodaki kayıtları yazdırma gibi yöntemler kullanabilirsiniz bu sizin işin maliyeti size artacak ama düşük seviye bilgisayar kullanıcısına daha net görünecektir.