Konu : Özel Ekran İşlemleri

İşlem olarak, özel ekran tasarımına 4 Tane Button, 1 PageControl, 4 Adet TabSheet(Page) eklenmiştir. (Resim-1)

Her Button farklı bir raporu farklı bir sayfada çalışması için kodlanmıştır.

Ayrıca her Button PageControl’de sadece kendi raporunun olduğu sayfaların görünmesini sağlamaktadır.

Resim-1

Tablo Butonunun Click Olayı;

procedure BtnTabloClick(Sender: TObject);

begin

  GrdView.BtSQL.Text := 'SELECT * FROM TBLCARISB WHERE 1=1 ';

  GrdView.BtRun := True;

 GrdView.Open;             

  GrdView.SetWidthAllColumns;  

  PgeVisibleChanger('PgeTablo'); 

end;

Filtre ile View Butonunun Click Olayı;

procedure BtnFilterViewClick(Sender: TObject);

begin

  GrdFilterView.BtSQL.Text := 'SELECT * FROM PRG_VIEW_CARIHAREKET WHERE 1=1 AND TARIH BETWEEN ';

  if (BAS_TARIH.SqlText <> 'Null') Then GrdFilterView.BtSQL.Add(BAS_TARIH.SQLText)

  else GrdFilterView.BtSQL.Add(' TARIH');

  GrdFilterView.BtSQL.Add(' AND ');     

  if (BIT_TARIH.SqlText <> 'Null') Then GrdFilterView.BtSQL.Add(BIT_TARIH.SQLText)

  else GrdFilterView.BtSQL.Add(' TARIH');

  GrdFilterView.BtRun := True;                            

  GrdFilterView.Open;                                      

  GrdFilterView.SetWidthAllColumns;  

  PgeVisibleChanger('PgeFilterView');   

end; 

procedure BtnProcedureClick(Sender: TObject);

begin                               

  GrdProcedure.BtSQL.Text := 'EXEC RDznProc_FatSipTekTalep ' + QuotedSTR('18AF010000010001') + ',' + QuotedSTR('HR');

  GrdProcedure.BtRun := True;

  GrdProcedure.Open;             

  GrdProcedure.SetWidthAllColumns;  

  PgeVisibleChanger('PgeProcedure');

End;

Fonksiyon Butonunun Click Olayı;

procedure BtnFunctionClick(Sender: TObject);

begin              

  If (BAS_TARIH.SQLText = 'Null' ) OR (BIT_TARIH.SQLText = 'Null') Then

  Begin

    AppInfo.AppMes('Başlangıç ve Bitiş Tarihleri Boş Olamaz!');  

    Exit;

  End;

  GrdFunction.BtSQL.Text := 'SELECT * FROM dbo.PrgFn_TarihArasiYilAyList(' + BAS_TARIH.SQLText + ',' + BIT_TARIH.SQLText + ') WHERE 1=1';

  GrdFunction.BtRun := True;

  GrdFunction.Open;             

  GrdFunction.SetWidthAllColumns; 

  PgeVisibleChanger('PgeFunction');                                

end;

Sayfa görünürlüklerini ayarlayan PgeVisibleChanger prosedürünün içeriği;

procedure PgeVisibleChanger(Visibled: string);

var

i : int;

begin

  for i:=0 To PglSonuc.PageCount-1 Do

  Begin

    If PglSonuc.Pages.Name = Visibled Then