Konu : Özel Ekran İşlemleri

İşlem olarak, özel ekran tasarımına 4 Tane Button, 1PageControl, 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 raporununolduğ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 TBLCARISBWHERE 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_CARIHAREKETWHERE 1=1 AND TARIH BETWEEN ';

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

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

  GrdFilterView.BtSQL.Add(' AND');     

  if (BIT_TARIH.SqlText <> 'Null') ThenGrdFilterView.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 := 'EXECRDznProc_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 * FROMdbo.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 PgeVisibleChangerprosedü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

      Begin

       PglSonuc.Pages.TabVisible := True

      End

    Else

      Begin    

        PglSonuc.Pages.TabVisible:= False;

     End;               

  End;    

end;