Özelekran da SQL Function(Scalar) Nasıl Çağırılır ? 

Dönen değer nasıl alınır?

Adım 1: Form üzerinde değeri almak ve sonucugörsel olarak görmek üzere iki adet TBtEdit yerleştirilir.

var        

  QryFunction :  TBtQuery;

begin                 

  QryFunction := TBtQuery.create(nil);

 Try                                                

    with QryFunction do

    begin

      SQL.BeginUpdate; 

      SQL.Text := 'SELECTdbo.PrgFn_StokKoduRecIDBul(' + STOK_KODU.SQLText + ') AS RESULT';

      SQL.EndUpdate;

      DisableControls;

     Open;                                                                              

      IfFieldByName('RESULT').AsInteger > 0 then SONUC.Text :=FieldByName('RESULT').AsString;   

    end;                                       

  Finally QryFunction.Free; End;

end;

Tanım: Özel Ekranda Com Port Desteği

Bulunduğuprogram: 1-AtikSE

Modül İşlemTanımı: Bilgisayarda bağlıolan terazi vb. com port üzerinden haberleşen cihazlar için Özel Ekrandabağlantı kurma ve gelen verileri okumaya olanak sağlar.

Örneğin faturadatartılı ürünlere terazi desteği için kullanılabilir.

ADIM-1

Ekran Tipi Özel Tasarım olan özel ekran oluşturulur.

Tool Palette üzerinden ihtiyacımız olan nesnelerdoğrultusunda özel ekran tasarımı sağlanır.

Resim-1

ADIM-2

Var

//Tipi TVaComm olan Portdeğişkeni tanımlanır.

PORT:TVaComm;

//Create butonu clickolayında bağlantı oluşturulur ve Terazinin tanımlanması gereken değerleritanımlanır.

//Bağlı olan terazinin budeğerleri Aygıt Yönetici > Bağlantı Noktaları menü yolundan öğrenilebilir.                                                                                                            

procedure CREATEClick(Sender: TObject);

begin

//PORT değişkeni için comport bağlantısı oluşturulur.

PORT:=TVaComm.Create(nil);

//Terazinin Baudrate yanitanımlanan seri portun bir saniyede maksimum taşıyabileceği bit değeridir.

PORT.Baudrate:=BR9600;

//Terazinin bağlı olduğu portnumarasıdır.                              

 PORT.PortNum:=3;                                              

//Bağlantı aktif edilir.

PORT.Open;

end;

//Read butonu click olayındateraziden değer okunması sağlanır.          

procedure READClick(Sender: TObject);

begin       

               //PORT değişkeni üzerinden okunan değer Terazieditine yazdırılır.                          

 TERAZI_DEGER.Text:=PORT.ReadText();               

end;                                    

//Destroy butonu clickolayında teraziyle olan bağlantı kesilir ve PORT değişkeni free komutuyla tekrarbağlantı kurmaya hazır hale getirilir.               

procedure DESTROYClick(Sender: TObject);

begin

PORT.Close;

PORT.Free;                

end;    

CariyeÖzel Uyarı Tanımlama ve Program İçerisinde Destekleme;

Öncelikle cariye özel uyarıların tanımlanacağı bir özelekran hazırlanmalıdır.

Ekranda seçilen cariye ait, durumu aktif / pasif olarak açıklamalargirilecektir.

Bu girilen açıklamalardan aktif olanlarını yan yanabirleştirerek istenilen ekranda aktif kodlama aracılığıyla uyarı mesajı olarakkullanıcıya gösterebilirsiniz.

Örnek olarak;

Aşağıdaki resimdeki gibi özel ekran tasarımı yapıyoruz. (Resim1)

 Sonrasında kasa işlem hareketlerinde cariye tahsil veyatediye işlemi yaparken carinin hakkında tanımlı bir mesaj varsa cariseçildikten sonra mesaj verecek aktif kodlamayı yazıyoruz. (Resim 2)

TabloScripti;

CREATE TABLE ZZ_TBLCARIUYARITANIM(

      REC_NO int IDENTITY(1,1) NOT FOR REPLICATION NOT NULL,

      REC_DATE smalldatetime,

      REC_USERNAME varchar(50),

      REC_USERID int,

      REC_UPDATE smalldatetime,

      REC_UPUSERNAME varchar(50),

      REC_UPUSERID int,

      REC_CHANGED varchar(1),

      REC_LOCKED varchar(1),

      REC_VERSION varchar(50),

      CARI_KODU AyoDBKod NOT NULL,

      DURUM varchar(5) NOT NULL,

      ACIKLAMA varchar(5000) NOT NULL,

CONSTRAINTZZ_PK_TBLCARIUYARITANIM PRIMARY KEY CLUSTERED

(

      REC_NO

))

GO

AktifKodlama;

CMBK_KODU.OnExit

IF CMBK_KODU.TEXT='' THEN EXIT;

IF (BELGE_TIPI.BTDATATEXT=1) OR (BELGE_TIPI.BTDATATEXT=2)THEN

BEGIN

    AppQuery.Close;

    AppQuery.SQL.Text:='SELECTISNULL(STUFF((SELECT '+QuotedStr('-/ ')+'+ ACIKLAMA+'+QuotedStr(' ')+' FROMZZ_TBLCARIUYARITANIM WHERE ISNULL(DURUM,'+QuotedStr('')+')='+QuotedStr('A')+'AND CARI_KODU='+QuotedStr(CMBK_KODU.TEXT)+' FOR XML PATH('+QuotedStr('')+'),TYPE).value('+QuotedStr('.')+','+QuotedStr('VARCHAR(MAX)')+'),1,2,'+QuotedStr('')+'),'+QuotedStr('')+')';  

    AppQuery.Open;

    If (AppQuery.Found) and(AppQuery.Fields[0].AsString<>'') Then

    Begin

      AppInfo.AppMes(AppQuery.Fields[0].AsString);

      AppQuery.Next;                                                            

    End;       

    AppQuery.Close;

Grid ile Sabit-Hareket Tarzında Rapor Hazırlama

Ekran üzerine iki tane grid ekliyoruz. Birinci gride stoklistesini çekiyoruz. Bu işlemi formun create olayında yapıyoruz.

procedure RptStokHareketCreate(Sender: TObject);

begin

  with GrdSabit do

  begin

      Close;                

      BtRun := True;

      BtSQL.Text := 'SELECTSTOK_KODU,STOK_ADI FROM TBLSTOKSB';

     Open;                 

      SetWidthAllColumns;

      FirstUpCaption;     

  end;                        

end;

Sabit gridi dolduktan sonra seçmiş olduğumuz stoğun hareketlerinigrdhareket gridimize çekiyoruz.

procedure GrdSabitDblClick(Sender: TObject);

begin

  with GrdHareket do

  begin

      Close;

      BtRun :=True;                                             

      BtSQL.Text := 'SELECTCARI_KODU,CARI_ADI,BELGE_NO,BELGE_ADI,TARIH,GCMIK,OLCU_BR FROMPRG_VIEW_STOKHAREKET WHERE STOK_KODU=' +QuotedStr(GrdSabit.GetValueByName('STOK_KODU')); //QuotedStr stringi tırnakiçerisine almaya yarar.

     Open;                 

      SetWidthAllColumns;

      FirstUpCaption;

  end;  

end;

Tanım: Özel Ekran ve Aktif Kodlamada Ses Dosyası Desteği

Desteklenen Sürüm : 8.1.1.4393

Gerekli BtScript.dll Sürümü:  8.1.1.438

Özel Ekran ya da Sistem Ekranlarında yapılan işlem türünegöre farklı ses dosyaları ile uyarı verilmesi istenebilir.

Bunun Aktif Kodlama ya da Özel Ekranda ilgili alana;

1-) AppInfo.AppSystemExec('BEEP','');   

2-) AppInfo.AppSystemExec('PLAYSOUND','CLOSE01.wav');    

3-) AppInfo.AppSystemExec('PLAYSOUND','D:\AtikerYazilim\Sounds\WAIT02.wav'); 

1.       Kısımuyarı vermek için standart bildirim sesidir.

2.       Kısımsistemle aynı klasör içinde bulunan ses dosyalarını çalar.

3.       Kısımistenilen herhangi bir klasör içindeki ses dosyalarını çalar.

Özel Ekranda Grid Kolon Genişliği 

Adım1 :

Grid’in BtSQL cümlesi yazılır, BtRun ileçalıştırılır.

function GetColumnIndex(Grd:TBtMyGrid;Name:String):Integer;

begin       

 try

  result := TBtMyGrid(Grd).FindColumn(Name).Index;

 Except result := -1;end;       

end;

procedure Form2Show(Sender: TObject);

Var Ind : Integer;

begin            

 Ind := GetColumnIndex(BtMyGrid1,'CARI_ADI');

if Ind <> -1 then                                            

    BtMyGrid1.GetColumn(Ind).Width :=70;                

end;

Özelekran ile Excel’den aktarım nasıl yapılır?

Adım1 : BtPanel nesnesi Tool Palatte’den seçilerekform üzerine bırakılır.

Adım2 : Panel içerisine SQL Tablosundaki Fieldisimleriyle Bt nesneleri oluşturulur. Ve bir adet Bitekbt  veMyGrid Form üzerine bırakılır. Nesnelerin panel ile bağlantıları yapılır. 

Bitekbtiçin post kodları yazılır ve Control Panel ve Control Grid özellikleri seçilir.

Adım3 : Grid’in Controlpanel’i seçilir. (Gridkullanılmayan formlar için parametreye nil verilerek işleme devam edilebilir)

Adım4 : Ekran üzerine Excel’den aktarımın tetikleneceğinesne koyulur ve Click olayına kodlar yazılır.

NOT : Excel’den aktarım yapılır iken seçilenBitekbt’nin post olayı çalışacaktır.

Excel’den Aktarım İçin Örnek Kod :

AppInfo.AppGetDataFromExcel(Self,GrdStokTip,PnlTest,btnKayit,'TBLSTOKTIP','G');

Parametreler

Aktarım Yapılacak Aktif Form

Aktarım Yapılacak Mygrid

Aktarım Yapılacak BtPanel

Post İşlemlerinin Çalışacağı Panel Üzerindeki BitekBtButton.

Aktarım Yapılacak Tablo

Grid ya da Form Üzerinden Yapılacağını Belirten Parametre[G,F];

İşlem :   Mobil Platform İçin Özel EkranDesteği

Bulunduğu program: 1-Atikse

Uygulama Tanım: Atikse de yapılan özel ekranlar mobilplatformda kullanılabilmektedir.

Kullanım : AtikSE Özel Ekran tasarımı açılır .

Ekran isimleri ve grubu belirlendikten sonra;

Ekran tipi : Standart olmalıdır.

Menüye eklensin mi , Çağırma şekli , Grid yeri , Mobileeklensin mi  alanları seçilir.

Veri Kaynağı bölümünde veri tabanımıza daha öncedenhazırlamış olduğumuz  tablomuzu  mevcut tablo  liste  combo’sundan çağırırız ve ileri butonuna basılır.

Resim- 1

Açılan Ekranda Saha İsimleri Örnekteki gibidoldurulur.(RESİM 2) Saha ismi combobox’da  oluşturmuş olduğumuztablomuzdaki field isimleri gelir.

Doldurulan alanlar üzerinde  değişiklik yapılmakistenildiği zaman çift tıklanarak  daha önce belirlenen özelliklergörüntülenir istenirse gerekli değişiklikler yapılabilir

Resim-2

Resim-3

Resim -4

Resim- 5

Resim-6

Resim-7

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;