Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Kod Hata
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Kod Hata
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
MehmetOzcan Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 23 Haziran 2026
Durum: Aktif Değil
Puanlar: 12 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı MehmetOzcan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Kod Hata
    Gönderim Zamanı: 3 Saat 18 Dakika Önce Saat 11:22
Syntax error hatası alıyorum. yardımcı olabilirmisiniz.



uses udatalib;

var
  AnaForm: TCLForm;
  OlcekliYerlesim: TclScaledLayout;
  
  ArkaPlanPnl: TclProPanel;
  UstBeyazAlanPnl: TclProPanel;
  UstBaslikPnl: TclProPanel;
  OzetKapsayiciPnl: TclProPanel;
  
  IseBaslaKapsayiciPnl: TclProPanel;
  
  BaslaBtnPnl: TclProPanel;
  BtnIseBasla: TclProButton;
  
  MesaiDurumPnl: TclProPanel;
  DurumIkonDisPnl: TclProPanel;
  DurumIkonImg: TclProImage;
  DurumMetinPnl: TclProPanel;
  LblDurumBaslik: TclProLabel;
  MesaiPillPnl: TclProPanel;
  LblMesaiSaat: TclProLabel;
  LblGirisSaat: TclProLabel;
  BtnCikisYap: TclProButton;

  MesaiBittiPnl: TclProPanel;
  BittiIkonDisPnl: TclProPanel;
  BittiIkonImg: TclProImage;
  BittiMetinAnaPnl: TclProPanel;
  BittiUstMetinPnl: TclProPanel;
  LblBittiBaslik: TclProLabel;
  BittiPillPnl: TclProPanel;
  LblBittiMesaiSaat: TclProLabel;
  LblBittiGirisCikis: TclProLabel;

  AltMenuPnl: TclProPanel;
  IcerikKaydirici: TclVertScrollBox;
  
  TarihLbi: TclProLabel;
  SelamlamaLbi: TclProLabel;
  ZilIkon: TclProImage;
  BtnYeniGunTest: TclProButton;
  
  BekliyorKartPnl: TclProPanel;
  BekleyenSayiLbi: TclProLabel;
  BekleyenYaziLbi: TclProLabel;
  
  TamamlananKartPnl: TclProPanel;
  TamamlananSayiLbi: TclProLabel;
  TamamlananYaziLbi: TclProLabel;
  
  NavPnlGorevler: TclProPanel;
  NavPnlGecmis: TclProPanel;
  NavPnlProfil: TclProPanel;
  NavBtnGorevler: TclProButton;
  NavBtnGecmis: TclProButton;
  NavBtnProfil: TclProButton;
  GorevlerCizgiPnl: TclProPanel;

  GGirisSaati: String;
  GMesaiSaati: String;
  GZamanindaMi: Boolean;
  GPersonelID: Integer;
  GPersonelAd: String;

  QrAnaPnl: TclProPanel;
  QrUstMenuPnl: TclProPanel;
  QrKapatLbi: TclProLabel;
  QrBaslikKapsayiciPnl: TclProPanel;
  QrBaslikLbi: TclProLabel;
  QrLokasyonLbi: TclProLabel;
  QrKartPnl: TclProPanel;
  QrKameraCercevePnl: TclProPanel;
  QrKameraIkonImg: TclProImage;
  QrKameraAktifLbi: TclProLabel;
  QrKodaYoneltLbi: TclProLabel;
  QrAltBilgi1Lbi: TclProLabel;
  QrAltBilgi2Lbi: TclProLabel;
  BtnQrKoduOku: TclProButton;
  EdtGizliQrSonuc: TclProEdit;

  GSeciliGorevID: Integer;
  LQryAd: TClSQLiteQuery;

void OnMenuTikla;
{
  ShowMessage('Menuye tiklandi: ' + TclProButton(AnaForm.clSender).clTagStr);
}

void OzetKartlariniGuncelle;
var
  LQry: TClSQLiteQuery;
  LBekliyor: Integer;
  LTamamlanan: Integer;
{
  LBekliyor = 0;
  LTamamlanan = 0;

  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT COUNT(*) AS Sayi FROM TblGorevler WHERE AtananPersonelID=' +
      IntToStr(GPersonelID) +
      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +
      ' AND Durum=' + QuotedStr('Bekliyor')
    );
    LQry.OpenOrExecute;
    if (LQry.Found)
    {
      LBekliyor = LQry.FieldByName('Sayi').AsInteger;
    }
    LQry.Free;

    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT COUNT(*) AS Sayi FROM TblGorevler WHERE AtananPersonelID=' +
      IntToStr(GPersonelID) +
      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +
      ' AND Durum=' + QuotedStr('Tamamlandi')
    );
    LQry.OpenOrExecute;
    if (LQry.Found)
    {
      LTamamlanan = LQry.FieldByName('Sayi').AsInteger;
    }
    LQry.Free;

    BekleyenSayiLbi.Text = IntToStr(LBekliyor);
    TamamlananSayiLbi.Text = IntToStr(LTamamlanan);
  except
    ShowMessage('Ozet guncelleme hatasi: ' + LastExceptionMessage);
  }
}

void OnQrModalKapatClick;
{
  QrAnaPnl.Visible = False;
}

void OnQrKamerayiAc;
{
  AnaForm.CallBarcodeReader(EdtGizliQrSonuc);
}

void OnQrSonucAlindi;
var
  LQrKodu: String;
  LLokasyon: String;
  LQry: TClSQLiteQuery;
{
  LQrKodu = EdtGizliQrSonuc.Text;

  if (LQrKodu <> '')
  {
    try
      LQry = Clomosy.DBSQLiteQueryWith(
        'SELECT Lokasyon FROM TblQRKodlar WHERE QRKodu=' + QuotedStr(LQrKodu)
      );
      LQry.OpenOrExecute;

      if (LQry.Found)
      {
        LLokasyon = LQry.FieldByName('Lokasyon').AsString;
        LQry.Free;

        if (LLokasyon == QrLokasyonLbi.Text)
        {
          GorevBaslat(GSeciliGorevID);
          ShowMessage('Gorev baslatildi: ' + LLokasyon);
          OzetKartlariniGuncelle;
          QrAnaPnl.Visible = False;
          EdtGizliQrSonuc.Text = '';
        }
        else
        {
          ShowMessage('Yanlis QR kodu! Beklenen: ' + QrLokasyonLbi.Text);
          EdtGizliQrSonuc.Text = '';
        }
      }
      else
      {
        LQry.Free;
        ShowMessage('Bu QR kodu sistemde tanimli degil!');
        EdtGizliQrSonuc.Text = '';
      }
    except
      ShowMessage('QR dogrulama hatasi: ' + LastExceptionMessage);
    }
  }
}

void OnQrOkutClick;
var
  TiklananBtn: TclProButton;
  LTag: String;
  LAyrac: Integer;
  LGorevIDStr: String;
{
  TiklananBtn = TclProButton(AnaForm.clSender);
  LTag = TiklananBtn.clTagStr;
  LAyrac = Pos('|', LTag);
  QrLokasyonLbi.Text = Copy(LTag, 1, LAyrac - 1);
  LGorevIDStr = Copy(LTag, LAyrac + 1, Length(LTag));
  GSeciliGorevID = StrToIntDef(LGorevIDStr, 0);
  QrAnaPnl.Visible = True;
  AnaForm.CallBarcodeReader(EdtGizliQrSonuc);
}

void OnIseBaslaClick;
var
  LSimdikiSaat: String;
  LQry: TClSQLiteQuery;
  LAyrac1: Integer;
  LAyrac2: Integer;
  LSimdiSaat: Integer;
  LSimdiDakika: Integer;
  LGirisSaat: Integer;
  LGirisDakika: Integer;
  LSimdiToplamDakika: Integer;
  LGirisToplamDakika: Integer;
{
  LSimdikiSaat = FormatDateTime('hh:nn', Now);

  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT GirisSaati FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      GMesaiSaati = LQry.FieldByName('GirisSaati').AsString;
    }
    LQry.Free;

    GGirisSaati = LSimdikiSaat;
    GZamanindaMi = False;

    LAyrac1 = Pos(':', LSimdikiSaat);
    LSimdiSaat = StrToIntDef(Copy(LSimdikiSaat, 1, LAyrac1 - 1), 0);
    LSimdiDakika = StrToIntDef(Copy(LSimdikiSaat, LAyrac1 + 1, Length(LSimdikiSaat)), 0);
    LSimdiToplamDakika = (LSimdiSaat * 60) + LSimdiDakika;

    LAyrac2 = Pos(':', GMesaiSaati);
    LGirisSaat = StrToIntDef(Copy(GMesaiSaati, 1, LAyrac2 - 1), 0);
    LGirisDakika = StrToIntDef(Copy(GMesaiSaati, LAyrac2 + 1, Length(GMesaiSaati)), 0);
    LGirisToplamDakika = (LGirisSaat * 60) + LGirisDakika;

    if (LSimdiToplamDakika <= LGirisToplamDakika)
    {
      GZamanindaMi = True;
    }

    Clomosy.DBSQLiteQuery.Sql.Text =
      'UPDATE TblPersonel SET BugunkuGiris=' + QuotedStr(LSimdikiSaat) +
      ', Durum=' + QuotedStr('Gorevde') +
      ' WHERE ID=' + IntToStr(GPersonelID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if (not GZamanindaMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text =
        'UPDATE TblPersonel SET Durum=' + QuotedStr('Gecikti') +
        ' WHERE ID=' + IntToStr(GPersonelID);
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }

    LblGirisSaat.Text = 'Giris: ' + GGirisSaati;
    LblMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    if (GZamanindaMi)
    {
      MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');
      MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');
      DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
      MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
      LblDurumBaslik.Text = 'Hos Geldiniz';
      LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');
    }
    else
    {
      MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');
      MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');
      DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
      MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
      LblDurumBaslik.Text = 'Gec Geldi';
      LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');
    }

    MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);
    DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);
    MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);
    LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

    BaslaBtnPnl.Visible = False;
    MesaiBittiPnl.Visible = False;
    MesaiDurumPnl.Visible = True;

  except
    ShowMessage('Ise baslama hatasi: ' + LastExceptionMessage);
  }
}

void OnCikisYapClick;
var
  LCikisSaati: String;
{
  LCikisSaati = FormatDateTime('hh:nn', Now);

  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'UPDATE TblPersonel SET BugunkuCikis=' + QuotedStr(LCikisSaati) +
      ' WHERE ID=' + IntToStr(GPersonelID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    LblBittiGirisCikis.Text = 'Giris: ' + GGirisSaati + ' - Cikis: ' + LCikisSaati;
    LblBittiMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    if (GZamanindaMi)
    {
      MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');
      MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');
      BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
      BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
      LblBittiBaslik.Text = 'Gule Gule';
      LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');
    }
    else
    {
      MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');
      MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');
      BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
      BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
      LblBittiBaslik.Text = 'Gule Gule';
      LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');
    }

    MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);
    BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);
    BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);
    LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

    BaslaBtnPnl.Visible = False;
    MesaiDurumPnl.Visible = False;
    MesaiBittiPnl.Visible = True;

  except
    ShowMessage('Cikis hatasi: ' + LastExceptionMessage);
  }
}

void OnYeniGunClick;
{
  MesaiDurumPnl.Visible = False;
  MesaiBittiPnl.Visible = False;
  BaslaBtnPnl.Visible = True;
  ShowMessage('Sistem yeni gune sifirlandı.');
}

void GorevSatiriOlustur(AParent: TclVertScrollBox; AIsim, ABaslik, ASaat, AIconUrl, AGorevID: String);
var
  SatirPnl: TclProPanel;
  IkonDisPnl: TclProPanel;
  IkonImg: TclProImage;
  BilgiPnl: TclProPanel;
  BaslikLbi: TclProLabel;
  SaatLbi: TclProLabel;
  BtnQrOkut: TclProButton;
{
  SatirPnl = AnaForm.AddNewProPanel(AParent, AIsim);
  SatirPnl.Align = alTop;
  SatirPnl.Height = 85;
  SatirPnl.Margins.Top = 10;
  SatirPnl.Margins.Left = 15;
  SatirPnl.Margins.Right = 15;
  SatirPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');
  SatirPnl.clProSettings.RoundHeight = 15;
  SatirPnl.clProSettings.RoundWidth = 15;
  SatirPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');
  SatirPnl.clProSettings.BorderWidth = 1;
  SatirPnl.SetclProSettings(SatirPnl.clProSettings);

  IkonDisPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'IkonDis');
  IkonDisPnl.Align = alLeft;
  IkonDisPnl.Width = 50;
  IkonDisPnl.Margins.Left = 15;
  IkonDisPnl.Margins.Top = 17;
  IkonDisPnl.Margins.Bottom = 17;
  IkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');
  IkonDisPnl.clProSettings.RoundHeight = 15;
  IkonDisPnl.clProSettings.RoundWidth = 15;
  IkonDisPnl.SetclProSettings(IkonDisPnl.clProSettings);

  IkonImg = AnaForm.AddNewProImage(IkonDisPnl, AIsim + 'IkonImg');
  IkonImg.Align = alClient;
  IkonImg.Margins.Left = 10;
  IkonImg.Margins.Right = 10;
  IkonImg.Margins.Top = 10;
  IkonImg.Margins.Bottom = 10;
  AnaForm.SetImage(IkonImg, AIconUrl);

  BtnQrOkut = AnaForm.AddNewProButton(SatirPnl, AIsim + 'BtnQr', 'QR OKUT');
  BtnQrOkut.Align = alRight;
  BtnQrOkut.Width = 95;
  BtnQrOkut.Margins.Right = 15;
  BtnQrOkut.Margins.Top = 22;
  BtnQrOkut.Margins.Bottom = 22;
  BtnQrOkut.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');
  BtnQrOkut.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');
  BtnQrOkut.clProSettings.FontSize = 11;
  BtnQrOkut.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnQrOkut.clTagStr = ABaslik + '|' + AGorevID;
  BtnQrOkut.clProSettings.RoundHeight = 10;
  BtnQrOkut.clProSettings.RoundWidth = 10;
  BtnQrOkut.SetclProSettings(BtnQrOkut.clProSettings);
  AnaForm.AddNewEvent(BtnQrOkut, tbeOnClick, 'OnQrOkutClick');

  BilgiPnl = AnaForm.AddNewProPanel(SatirPnl, AIsim + 'BilgiPnl');
  BilgiPnl.Align = alClient;
  BilgiPnl.Margins.Left = 15;
  BilgiPnl.Margins.Top = 20;
  BilgiPnl.clProSettings.IsTransparent = True;
  BilgiPnl.SetclProSettings(BilgiPnl.clProSettings);

  BaslikLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Baslik', ABaslik);
  BaslikLbi.Align = alTop;
  BaslikLbi.Height = 20;
  BaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  BaslikLbi.clProSettings.FontSize = 13;
  BaslikLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  BaslikLbi.SetclProSettings(BaslikLbi.clProSettings);

  SaatLbi = AnaForm.AddNewProLabel(BilgiPnl, AIsim + 'Saat', ASaat);
  SaatLbi.Align = alTop;
  SaatLbi.Height = 18;
  SaatLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');
  SaatLbi.clProSettings.FontSize = 11;
  SaatLbi.SetclProSettings(SaatLbi.clProSettings);
}

void GorevListesiniDoldur;
var
  LQry: TClSQLiteQuery;
  LIsim: String;
  LSayac: Integer;
  LIkonUrl: String;
{
  try
    LQry = PersonelGorevleriGetir(GPersonelID);
    LSayac = 1;

    while (not LQry.Eof)
    {
      LIsim = 'Gorev' + IntToStr(LSayac);

      if (LQry.FieldByName('Durum').AsString == 'Tamamlandi')
      {
      }
      else
      {
      }

      GorevSatiriOlustur(
        IcerikKaydirici,
        LIsim,
        LQry.FieldByName('Lokasyon').AsString,
        LQry.FieldByName('PlanlananSaat').AsString,
        LIkonUrl,
        IntToStr(LQry.FieldByName('ID').AsInteger)
      );

      LSayac = LSayac + 1;
      LQry.Next;
    }

    LQry.Free;
  except
    ShowMessage('Gorev listesi yuklenemedi: ' + LastExceptionMessage);
  }
}

void EkraniKur;
{
  ArkaPlanPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'ArkaPlanPnl');
  ArkaPlanPnl.Align = alClient;
  ArkaPlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');
  ArkaPlanPnl.SetclProSettings(ArkaPlanPnl.clProSettings);

  UstBeyazAlanPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'UstBeyazAlanPnl');
  UstBeyazAlanPnl.Align = alTop;
  UstBeyazAlanPnl.Height = 270;
  UstBeyazAlanPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');
  UstBeyazAlanPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');
  UstBeyazAlanPnl.clProSettings.BorderWidth = 1;
  UstBeyazAlanPnl.SetclProSettings(UstBeyazAlanPnl.clProSettings);

  UstBaslikPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'UstBaslikPnl');
  UstBaslikPnl.Align = alTop;
  UstBaslikPnl.Height = 70;
  UstBaslikPnl.clProSettings.IsTransparent = True;
  UstBaslikPnl.SetclProSettings(UstBaslikPnl.clProSettings);

  ZilIkon = AnaForm.AddNewProImage(UstBaslikPnl, 'ZilIkon');
  ZilIkon.Align = alRight;
  ZilIkon.Width = 25;
  ZilIkon.Margins.Right = 20;
  ZilIkon.Margins.Top = 20;
  ZilIkon.Margins.Bottom = 25;

  BtnYeniGunTest = AnaForm.AddNewProButton(UstBaslikPnl, 'BtnYeniGunTest', 'Yeni Gun');
  BtnYeniGunTest.Align = alRight;
  BtnYeniGunTest.Width = 75;
  BtnYeniGunTest.Margins.Right = 10;
  BtnYeniGunTest.Margins.Top = 20;
  BtnYeniGunTest.Margins.Bottom = 20;
  BtnYeniGunTest.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');
  BtnYeniGunTest.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');
  BtnYeniGunTest.clProSettings.FontSize = 10;
  BtnYeniGunTest.clProSettings.RoundHeight = 8;
  BtnYeniGunTest.clProSettings.RoundWidth = 8;
  BtnYeniGunTest.SetclProSettings(BtnYeniGunTest.clProSettings);
  AnaForm.AddNewEvent(BtnYeniGunTest, tbeOnClick, 'OnYeniGunClick');

  TarihLbi = AnaForm.AddNewProLabel(UstBaslikPnl, 'TarihLbi', FormatDateTime('dd mmmm yyyy, dddd', Now));
  TarihLbi.Align = alTop;
  TarihLbi.Height = 20;
  TarihLbi.Margins.Left = 20;
  TarihLbi.Margins.Top = 15;
  TarihLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');
  TarihLbi.clProSettings.FontSize = 10;
  TarihLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  TarihLbi.SetclProSettings(TarihLbi.clProSettings);

  SelamlamaLbi = AnaForm.AddNewProLabel(UstBaslikPnl, 'SelamlamaLbi', 'Kolay Gelsin, ' + GPersonelAd);
  SelamlamaLbi.Align = alTop;
  SelamlamaLbi.Height = 25;
  SelamlamaLbi.Margins.Left = 20;
  SelamlamaLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  SelamlamaLbi.clProSettings.FontSize = 18;
  SelamlamaLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  SelamlamaLbi.SetclProSettings(SelamlamaLbi.clProSettings);

  OzetKapsayiciPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'OzetKapsayiciPnl');
  OzetKapsayiciPnl.Align = alTop;
  OzetKapsayiciPnl.Height = 85;
  OzetKapsayiciPnl.Margins.Top = 5;
  OzetKapsayiciPnl.clProSettings.IsTransparent = True;
  OzetKapsayiciPnl.SetclProSettings(OzetKapsayiciPnl.clProSettings);

  BekliyorKartPnl = AnaForm.AddNewProPanel(OzetKapsayiciPnl, 'BekliyorKartPnl');
  BekliyorKartPnl.Align = alLeft;
  BekliyorKartPnl.Width = Trunc((OlcekliYerlesim.Width / 2) - 25);
  BekliyorKartPnl.Margins.Left = 20;
  BekliyorKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F1F5F9');
  BekliyorKartPnl.clProSettings.RoundHeight = 15;
  BekliyorKartPnl.clProSettings.RoundWidth = 15;
  BekliyorKartPnl.SetclProSettings(BekliyorKartPnl.clProSettings);

  BekleyenSayiLbi = AnaForm.AddNewProLabel(BekliyorKartPnl, 'BekleyenSayiLbi', '0');
  BekleyenSayiLbi.Align = alTop;
  BekleyenSayiLbi.Height = 40;
  BekleyenSayiLbi.Margins.Top = 10;
  BekleyenSayiLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  BekleyenSayiLbi.clProSettings.FontSize = 24;
  BekleyenSayiLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  BekleyenSayiLbi.clProSettings.FontHorzAlign = palcenter;
  BekleyenSayiLbi.SetclProSettings(BekleyenSayiLbi.clProSettings);

  BekleyenYaziLbi = AnaForm.AddNewProLabel(BekliyorKartPnl, 'BekleyenYaziLbi', 'Bekliyor');
  BekleyenYaziLbi.Align = alTop;
  BekleyenYaziLbi.Height = 20;
  BekleyenYaziLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');
  BekleyenYaziLbi.clProSettings.FontSize = 11;
  BekleyenYaziLbi.clProSettings.FontHorzAlign = palcenter;
  BekleyenYaziLbi.SetclProSettings(BekleyenYaziLbi.clProSettings);

  TamamlananKartPnl = AnaForm.AddNewProPanel(OzetKapsayiciPnl, 'TamamlananKartPnl');
  TamamlananKartPnl.Align = alRight;
  TamamlananKartPnl.Width = Trunc((OlcekliYerlesim.Width / 2) - 25);
  TamamlananKartPnl.Margins.Right = 20;
  TamamlananKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');
  TamamlananKartPnl.clProSettings.RoundHeight = 15;
  TamamlananKartPnl.clProSettings.RoundWidth = 15;
  TamamlananKartPnl.SetclProSettings(TamamlananKartPnl.clProSettings);

  TamamlananSayiLbi = AnaForm.AddNewProLabel(TamamlananKartPnl, 'TamamlananSayiLbi', '0');
  TamamlananSayiLbi.Align = alTop;
  TamamlananSayiLbi.Height = 40;
  TamamlananSayiLbi.Margins.Top = 10;
  TamamlananSayiLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#059669');
  TamamlananSayiLbi.clProSettings.FontSize = 24;
  TamamlananSayiLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  TamamlananSayiLbi.clProSettings.FontHorzAlign = palcenter;
  TamamlananSayiLbi.SetclProSettings(TamamlananSayiLbi.clProSettings);

  TamamlananYaziLbi = AnaForm.AddNewProLabel(TamamlananKartPnl, 'TamamlananYaziLbi', 'Tamamlandi');
  TamamlananYaziLbi.Align = alTop;
  TamamlananYaziLbi.Height = 20;
  TamamlananYaziLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#059669');
  TamamlananYaziLbi.clProSettings.FontSize = 11;
  TamamlananYaziLbi.clProSettings.FontHorzAlign = palcenter;
  TamamlananYaziLbi.SetclProSettings(TamamlananYaziLbi.clProSettings);

  IseBaslaKapsayiciPnl = AnaForm.AddNewProPanel(UstBeyazAlanPnl, 'IseBaslaKapsayiciPnl');
  IseBaslaKapsayiciPnl.Align = alTop;
  IseBaslaKapsayiciPnl.Height = 90;
  IseBaslaKapsayiciPnl.clProSettings.IsTransparent = True;
  IseBaslaKapsayiciPnl.SetclProSettings(IseBaslaKapsayiciPnl.clProSettings);

  BaslaBtnPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'BaslaBtnPnl');
  BaslaBtnPnl.Align = alClient;
  BaslaBtnPnl.clProSettings.IsTransparent = True;
  BaslaBtnPnl.SetclProSettings(BaslaBtnPnl.clProSettings);

  BtnIseBasla = AnaForm.AddNewProButton(BaslaBtnPnl, 'BtnIseBasla', 'ISE BASLA');
  BtnIseBasla.Align = alClient;
  BtnIseBasla.Margins.Left = 20;
  BtnIseBasla.Margins.Right = 20;
  BtnIseBasla.Margins.Top = 15;
  BtnIseBasla.Margins.Bottom = 15;
  BtnIseBasla.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');
  BtnIseBasla.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');
  BtnIseBasla.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnIseBasla.clProSettings.RoundHeight = 15;
  BtnIseBasla.clProSettings.RoundWidth = 15;
  BtnIseBasla.SetclProSettings(BtnIseBasla.clProSettings);
  AnaForm.AddNewEvent(BtnIseBasla, tbeOnClick, 'OnIseBaslaClick');

  MesaiDurumPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'MesaiDurumPnl');
  MesaiDurumPnl.Align = alClient;
  MesaiDurumPnl.Visible = False;
  MesaiDurumPnl.Margins.Left = 20;
  MesaiDurumPnl.Margins.Right = 20;
  MesaiDurumPnl.Margins.Top = 10;
  MesaiDurumPnl.Margins.Bottom = 10;
  MesaiDurumPnl.clProSettings.BorderWidth = 1;
  MesaiDurumPnl.clProSettings.RoundHeight = 25;
  MesaiDurumPnl.clProSettings.RoundWidth = 25;
  MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);

  DurumIkonDisPnl = AnaForm.AddNewProPanel(MesaiDurumPnl, 'DurumIkonDisPnl');
  DurumIkonDisPnl.Align = alLeft;
  DurumIkonDisPnl.Width = 45;
  DurumIkonDisPnl.Margins.Left = 15;
  DurumIkonDisPnl.Margins.Top = 12;
  DurumIkonDisPnl.Margins.Bottom = 12;
  DurumIkonDisPnl.clProSettings.RoundHeight = 15;
  DurumIkonDisPnl.clProSettings.RoundWidth = 15;
  DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);

  DurumIkonImg = AnaForm.AddNewProImage(DurumIkonDisPnl, 'DurumIkonImg');
  DurumIkonImg.Align = alClient;
  DurumIkonImg.Margins.Left = 10;
  DurumIkonImg.Margins.Right = 10;
  DurumIkonImg.Margins.Top = 10;
  DurumIkonImg.Margins.Bottom = 10;
  AnaForm.SetImage(DurumIkonImg, 'https://cdn-icons-png.flaticon.com/128/223/223408.png');

  DurumMetinPnl = AnaForm.AddNewProPanel(MesaiDurumPnl, 'DurumMetinPnl');
  DurumMetinPnl.Align = alLeft;
  DurumMetinPnl.Width = 120;
  DurumMetinPnl.Margins.Left = 10;
  DurumMetinPnl.clProSettings.IsTransparent = True;
  DurumMetinPnl.SetclProSettings(DurumMetinPnl.clProSettings);

  LblDurumBaslik = AnaForm.AddNewProLabel(DurumMetinPnl, 'LblDurumBaslik', 'Gec Geldi');
  LblDurumBaslik.Align = alTop;
  LblDurumBaslik.Height = 20;
  LblDurumBaslik.Margins.Top = 10;
  LblDurumBaslik.clProSettings.FontSize = 13;
  LblDurumBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

  MesaiPillPnl = AnaForm.AddNewProPanel(DurumMetinPnl, 'MesaiPillPnl');
  MesaiPillPnl.Align = alTop;
  MesaiPillPnl.Height = 18;
  MesaiPillPnl.Width = 90;
  MesaiPillPnl.clProSettings.RoundHeight = 8;
  MesaiPillPnl.clProSettings.RoundWidth = 8;
  MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);

  LblMesaiSaat = AnaForm.AddNewProLabel(MesaiPillPnl, 'LblMesaiSaat', 'Mesai: 08:00');
  LblMesaiSaat.Align = alClient;
  LblMesaiSaat.clProSettings.FontColor = clalphacolor.clWhite;
  LblMesaiSaat.clProSettings.FontSize = 10;
  LblMesaiSaat.clProSettings.FontHorzAlign = palcenter;
  LblMesaiSaat.SetclProSettings(LblMesaiSaat.clProSettings);

  LblGirisSaat = AnaForm.AddNewProLabel(DurumMetinPnl, 'LblGirisSaat', 'Giris: --');
  LblGirisSaat.Align = alTop;
  LblGirisSaat.Height = 15;
  LblGirisSaat.Margins.Top = 2;
  LblGirisSaat.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');
  LblGirisSaat.clProSettings.FontSize = 10;
  LblGirisSaat.SetclProSettings(LblGirisSaat.clProSettings);

  BtnCikisYap = AnaForm.AddNewProButton(MesaiDurumPnl, 'BtnCikisYap', 'Cikis');
  BtnCikisYap.Align = alRight;
  BtnCikisYap.Width = 70;
  BtnCikisYap.Margins.Right = 15;
  BtnCikisYap.Margins.Top = 18;
  BtnCikisYap.Margins.Bottom = 18;
  BtnCikisYap.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');
  BtnCikisYap.clProSettings.FontColor = clalphacolor.clWhite;
  BtnCikisYap.clProSettings.FontSize = 11;
  BtnCikisYap.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnCikisYap.clProSettings.RoundHeight = 15;
  BtnCikisYap.clProSettings.RoundWidth = 15;
  BtnCikisYap.SetclProSettings(BtnCikisYap.clProSettings);
  AnaForm.AddNewEvent(BtnCikisYap, tbeOnClick, 'OnCikisYapClick');

  MesaiBittiPnl = AnaForm.AddNewProPanel(IseBaslaKapsayiciPnl, 'MesaiBittiPnl');
  MesaiBittiPnl.Align = alClient;
  MesaiBittiPnl.Visible = False;
  MesaiBittiPnl.Margins.Left = 20;
  MesaiBittiPnl.Margins.Right = 20;
  MesaiBittiPnl.Margins.Top = 10;
  MesaiBittiPnl.Margins.Bottom = 10;
  MesaiBittiPnl.clProSettings.BorderWidth = 1;
  MesaiBittiPnl.clProSettings.RoundHeight = 25;
  MesaiBittiPnl.clProSettings.RoundWidth = 25;
  MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);

  BittiIkonDisPnl = AnaForm.AddNewProPanel(MesaiBittiPnl, 'BittiIkonDisPnl');
  BittiIkonDisPnl.Align = alLeft;
  BittiIkonDisPnl.Width = 45;
  BittiIkonDisPnl.Margins.Left = 15;
  BittiIkonDisPnl.Margins.Top = 12;
  BittiIkonDisPnl.Margins.Bottom = 12;
  BittiIkonDisPnl.clProSettings.RoundHeight = 15;
  BittiIkonDisPnl.clProSettings.RoundWidth = 15;
  BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);

  BittiIkonImg = AnaForm.AddNewProImage(BittiIkonDisPnl, 'BittiIkonImg');
  BittiIkonImg.Align = alClient;
  BittiIkonImg.Margins.Left = 10;
  BittiIkonImg.Margins.Right = 10;
  BittiIkonImg.Margins.Top = 10;
  BittiIkonImg.Margins.Bottom = 10;
  AnaForm.SetImage(BittiIkonImg, 'https://cdn-icons-png.flaticon.com/128/223/223408.png');

  BittiMetinAnaPnl = AnaForm.AddNewProPanel(MesaiBittiPnl, 'BittiMetinAnaPnl');
  BittiMetinAnaPnl.Align = alClient;
  BittiMetinAnaPnl.Margins.Left = 10;
  BittiMetinAnaPnl.Margins.Top = 15;
  BittiMetinAnaPnl.clProSettings.IsTransparent = True;
  BittiMetinAnaPnl.SetclProSettings(BittiMetinAnaPnl.clProSettings);

  BittiUstMetinPnl = AnaForm.AddNewProPanel(BittiMetinAnaPnl, 'BittiUstMetinPnl');
  BittiUstMetinPnl.Align = alTop;
  BittiUstMetinPnl.Height = 20;
  BittiUstMetinPnl.clProSettings.IsTransparent = True;
  BittiUstMetinPnl.SetclProSettings(BittiUstMetinPnl.clProSettings);

  LblBittiBaslik = AnaForm.AddNewProLabel(BittiUstMetinPnl, 'LblBittiBaslik', 'Gule Gule');
  LblBittiBaslik.Align = alLeft;
  LblBittiBaslik.Width = 85;
  LblBittiBaslik.clProSettings.FontSize = 13;
  LblBittiBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

  BittiPillPnl = AnaForm.AddNewProPanel(BittiUstMetinPnl, 'BittiPillPnl');
  BittiPillPnl.Align = alLeft;
  BittiPillPnl.Width = 80;
  BittiPillPnl.clProSettings.RoundHeight = 8;
  BittiPillPnl.clProSettings.RoundWidth = 8;
  BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);

  LblBittiMesaiSaat = AnaForm.AddNewProLabel(BittiPillPnl, 'LblBittiMesaiSaat', 'Mesai: 08:00');
  LblBittiMesaiSaat.Align = alClient;
  LblBittiMesaiSaat.clProSettings.FontColor = clalphacolor.clWhite;
  LblBittiMesaiSaat.clProSettings.FontSize = 10;
  LblBittiMesaiSaat.clProSettings.FontHorzAlign = palcenter;
  LblBittiMesaiSaat.SetclProSettings(LblBittiMesaiSaat.clProSettings);

  LblBittiGirisCikis = AnaForm.AddNewProLabel(BittiMetinAnaPnl, 'LblBittiGirisCikis', 'Giris: -- - Cikis: --');
  LblBittiGirisCikis.Align = alTop;
  LblBittiGirisCikis.Height = 15;
  LblBittiGirisCikis.Margins.Top = 5;
  LblBittiGirisCikis.clProSettings.FontColor = clalphacolor.clHexToColor('#475569');
  LblBittiGirisCikis.clProSettings.FontSize = 11;
  LblBittiGirisCikis.SetclProSettings(LblBittiGirisCikis.clProSettings);

  AltMenuPnl = AnaForm.AddNewProPanel(ArkaPlanPnl, 'AltMenuPnl');
  AltMenuPnl.Align = alBottom;
  AltMenuPnl.Height = 65;
  AltMenuPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');
  AltMenuPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');
  AltMenuPnl.clProSettings.BorderWidth = 1;
  AltMenuPnl.SetclProSettings(AltMenuPnl.clProSettings);

  NavPnlGorevler = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlGorevler');
  NavPnlGorevler.Align = alLeft;
  NavPnlGorevler.Width = AltMenuPnl.Width / 3;
  NavBtnGorevler = AnaForm.AddNewProButton(NavPnlGorevler, 'NavBtnGorevler', 'Gorevler');
  NavBtnGorevler.Align = alClient;
  NavBtnGorevler.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  NavBtnGorevler.clProSettings.TextSettings.Font.Style = [fsBold];
  NavBtnGorevler.clProSettings.FontHorzAlign = palcenter;
  NavBtnGorevler.clTagStr = 'Gorevler';
  NavBtnGorevler.SetclProSettings(NavBtnGorevler.clProSettings);
  AnaForm.AddNewEvent(NavBtnGorevler, tbeOnClick, 'OnMenuTikla');

  GorevlerCizgiPnl = AnaForm.AddNewProPanel(NavPnlGorevler, 'GorevlerCizgiPnl');
  GorevlerCizgiPnl.Align = alBottom;
  GorevlerCizgiPnl.Height = 3;
  GorevlerCizgiPnl.Margins.Left = 30;
  GorevlerCizgiPnl.Margins.Right = 30;
  GorevlerCizgiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');
  GorevlerCizgiPnl.SetclProSettings(GorevlerCizgiPnl.clProSettings);

  NavPnlGecmis = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlGecmis');
  NavPnlGecmis.Align = alLeft;
  NavPnlGecmis.Width = AltMenuPnl.Width / 3;
  NavBtnGecmis = AnaForm.AddNewProButton(NavPnlGecmis, 'NavBtnGecmis', 'Gecmis');
  NavBtnGecmis.Align = alClient;
  NavBtnGecmis.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');
  NavBtnGecmis.clProSettings.FontHorzAlign = palcenter;
  NavBtnGecmis.clTagStr = 'Gecmis';
  NavBtnGecmis.SetclProSettings(NavBtnGecmis.clProSettings);
  AnaForm.AddNewEvent(NavBtnGecmis, tbeOnClick, 'OnMenuTikla');

  NavPnlProfil = AnaForm.AddNewProPanel(AltMenuPnl, 'NavPnlProfil');
  NavPnlProfil.Align = alLeft;
  NavPnlProfil.Width = AltMenuPnl.Width / 3;
  NavBtnProfil = AnaForm.AddNewProButton(NavPnlProfil, 'NavBtnProfil', 'Profil');
  NavBtnProfil.Align = alClient;
  NavBtnProfil.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');
  NavBtnProfil.clProSettings.FontHorzAlign = palcenter;
  NavBtnProfil.clTagStr = 'Profil';
  NavBtnProfil.SetclProSettings(NavBtnProfil.clProSettings);
  AnaForm.AddNewEvent(NavBtnProfil, tbeOnClick, 'OnMenuTikla');

  IcerikKaydirici = AnaForm.AddNewVertScrollBox(ArkaPlanPnl, 'IcerikKaydirici');
  IcerikKaydirici.Align = alClient;
  IcerikKaydirici.Margins.Bottom = 10;
  IcerikKaydirici.Margins.Top = 10;

  GorevListesiniDoldur;

  QrAnaPnl = AnaForm.AddNewProPanel(OlcekliYerlesim, 'QrAnaPnl');
  QrAnaPnl.Align = alClient;
  QrAnaPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F4F6F9');
  QrAnaPnl.SetclProSettings(QrAnaPnl.clProSettings);
  QrAnaPnl.Visible = False;

  QrUstMenuPnl = AnaForm.AddNewProPanel(QrAnaPnl, 'QrUstMenuPnl');
  QrUstMenuPnl.Align = alTop;
  QrUstMenuPnl.Height = 70;
  QrUstMenuPnl.clProSettings.IsTransparent = True;
  QrUstMenuPnl.SetclProSettings(QrUstMenuPnl.clProSettings);

  QrKapatLbi = AnaForm.AddNewProLabel(QrUstMenuPnl, 'QrKapatLbi', 'X');
  QrKapatLbi.Align = alLeft;
  QrKapatLbi.Width = 50;
  QrKapatLbi.Margins.Top = 15;
  QrKapatLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  QrKapatLbi.clProSettings.FontSize = 20;
  QrKapatLbi.clProSettings.FontHorzAlign = palcenter;
  QrKapatLbi.SetclProSettings(QrKapatLbi.clProSettings);
  QrKapatLbi.HitTest = True;
  AnaForm.AddNewEvent(QrKapatLbi, tbeOnClick, 'OnQrModalKapatClick');

  QrBaslikKapsayiciPnl = AnaForm.AddNewProPanel(QrUstMenuPnl, 'QrBaslikKapsayiciPnl');
  QrBaslikKapsayiciPnl.Align = alClient;
  QrBaslikKapsayiciPnl.Margins.Top = 15;
  QrBaslikKapsayiciPnl.clProSettings.IsTransparent = True;
  QrBaslikKapsayiciPnl.SetclProSettings(QrBaslikKapsayiciPnl.clProSettings);

  QrBaslikLbi = AnaForm.AddNewProLabel(QrBaslikKapsayiciPnl, 'QrBaslikLbi', 'QR Dogrulama');
  QrBaslikLbi.Align = alTop;
  QrBaslikLbi.Height = 22;
  QrBaslikLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  QrBaslikLbi.clProSettings.FontSize = 16;
  QrBaslikLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  QrBaslikLbi.SetclProSettings(QrBaslikLbi.clProSettings);

  QrLokasyonLbi = AnaForm.AddNewProLabel(QrBaslikKapsayiciPnl, 'QrLokasyonLbi', 'Lokasyon Secilmedi');
  QrLokasyonLbi.Align = alTop;
  QrLokasyonLbi.Height = 20;
  QrLokasyonLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');
  QrLokasyonLbi.clProSettings.FontSize = 12;
  QrLokasyonLbi.SetclProSettings(QrLokasyonLbi.clProSettings);

  QrKartPnl = AnaForm.AddNewProPanel(QrAnaPnl, 'QrKartPnl');
  QrKartPnl.Align = alTop;
  QrKartPnl.Height = 320;
  QrKartPnl.Margins.Left = 20;
  QrKartPnl.Margins.Right = 20;
  QrKartPnl.Margins.Top = 20;
  QrKartPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FFFFFF');
  QrKartPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#E2E8F0');
  QrKartPnl.clProSettings.BorderWidth = 1;
  QrKartPnl.clProSettings.RoundHeight = 15;
  QrKartPnl.clProSettings.RoundWidth = 15;
  QrKartPnl.SetclProSettings(QrKartPnl.clProSettings);

  QrKameraCercevePnl = AnaForm.AddNewProPanel(QrKartPnl, 'QrKameraCercevePnl');
  QrKameraCercevePnl.Align = alTop;
  QrKameraCercevePnl.Height = 210;
  QrKameraCercevePnl.Margins.Left = 25;
  QrKameraCercevePnl.Margins.Right = 25;
  QrKameraCercevePnl.Margins.Top = 25;
  QrKameraCercevePnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#F8FAFC');
  QrKameraCercevePnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#CBD5E1');
  QrKameraCercevePnl.clProSettings.BorderWidth = 2;
  QrKameraCercevePnl.clProSettings.RoundHeight = 20;
  QrKameraCercevePnl.clProSettings.RoundWidth = 20;
  QrKameraCercevePnl.SetclProSettings(QrKameraCercevePnl.clProSettings);
  QrKameraCercevePnl.HitTest = True;
  AnaForm.AddNewEvent(QrKameraCercevePnl, tbeOnClick, 'OnQrKamerayiAc');

  QrKameraIkonImg = AnaForm.AddNewProImage(QrKameraCercevePnl, 'QrKameraIkonImg');
  QrKameraIkonImg.Align = alClient;
  QrKameraIkonImg.Margins.Left = 60;
  QrKameraIkonImg.Margins.Right = 60;
  QrKameraIkonImg.Margins.Top = 30;
  QrKameraIkonImg.Margins.Bottom = 60;
  AnaForm.SetImage(QrKameraIkonImg, 'https://cdn-icons-png.flaticon.com/128/3074/3074768.png');
  QrKameraIkonImg.HitTest = False;

  QrKodaYoneltLbi = AnaForm.AddNewProLabel(QrKameraCercevePnl, 'QrKodaYoneltLbi', 'Buraya dokunun');
  QrKodaYoneltLbi.Align = alBottom;
  QrKodaYoneltLbi.Height = 25;
  QrKodaYoneltLbi.Margins.Bottom = 15;
  QrKodaYoneltLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#94A3B8');
  QrKodaYoneltLbi.clProSettings.FontSize = 12;
  QrKodaYoneltLbi.clProSettings.FontHorzAlign = palcenter;
  QrKodaYoneltLbi.SetclProSettings(QrKodaYoneltLbi.clProSettings);
  QrKodaYoneltLbi.HitTest = False;

  QrKameraAktifLbi = AnaForm.AddNewProLabel(QrKameraCercevePnl, 'QrKameraAktifLbi', 'Kamerayi Ac');
  QrKameraAktifLbi.Align = alBottom;
  QrKameraAktifLbi.Height = 20;
  QrKameraAktifLbi.clProSettings.FontColor = clalphacolor.clHexToColor('#0F172A');
  QrKameraAktifLbi.clProSettings.FontSize = 13;
  QrKameraAktifLbi.clProSettings.TextSettings.Font.Style = [fsBold];
  QrKameraAktifLbi.clProSettings.FontHorzAlign = palcenter;
  QrKameraAktifLbi.SetclProSettings(QrKameraAktifLbi.clProSettings);
  QrKameraAktifLbi.HitTest = False;

  QrAltBilgi1Lbi = AnaForm.AddNewProLabel(QrKartPnl, 'QrAltBilgi1Lbi', 'Odadaki QR kodu okutun');
  QrAltBilgi1Lbi.Align = alTop;
  QrAltBilgi1Lbi.Height = 20;
  QrAltBilgi1Lbi.Margins.Top = 20;
  QrAltBilgi1Lbi.clProSettings.FontColor = clalphacolor.clHexToColor('#64748B');
  QrAltBilgi1Lbi.clProSettings.FontSize = 12;
  QrAltBilgi1Lbi.clProSettings.FontHorzAlign = palcenter;
  QrAltBilgi1Lbi.SetclProSettings(QrAltBilgi1Lbi.clProSettings);

  QrAltBilgi2Lbi = AnaForm.AddNewProLabel(QrKartPnl, 'QrAltBilgi2Lbi', 'Galeriden fotograf secilemez');
  QrAltBilgi2Lbi.Align = alTop;
  QrAltBilgi2Lbi.Height = 20;
  QrAltBilgi2Lbi.Margins.Top = 5;
  QrAltBilgi2Lbi.clProSettings.FontColor = clalphacolor.clHexToColor('#DC2626');
  QrAltBilgi2Lbi.clProSettings.FontSize = 11;
  QrAltBilgi2Lbi.clProSettings.TextSettings.Font.Style = [fsBold];
  QrAltBilgi2Lbi.clProSettings.FontHorzAlign = palcenter;
  QrAltBilgi2Lbi.SetclProSettings(QrAltBilgi2Lbi.clProSettings);

  BtnQrKoduOku = AnaForm.AddNewProButton(QrAnaPnl, 'BtnQrKoduOku', 'QR KODU OKU');
  BtnQrKoduOku.Align = alTop;
  BtnQrKoduOku.Height = 55;
  BtnQrKoduOku.Margins.Left = 20;
  BtnQrKoduOku.Margins.Right = 20;
  BtnQrKoduOku.Margins.Top = 20;
  BtnQrKoduOku.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#0F172A');
  BtnQrKoduOku.clProSettings.FontColor = clalphacolor.clHexToColor('#FFFFFF');
  BtnQrKoduOku.clProSettings.FontSize = 13;
  BtnQrKoduOku.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnQrKoduOku.clProSettings.RoundHeight = 15;
  BtnQrKoduOku.clProSettings.RoundWidth = 15;
  BtnQrKoduOku.SetclProSettings(BtnQrKoduOku.clProSettings);
  AnaForm.AddNewEvent(BtnQrKoduOku, tbeOnClick, 'OnQrKamerayiAc');

  EdtGizliQrSonuc = AnaForm.AddNewProEdit(QrAnaPnl, 'EdtGizliQrSonuc', '');
  EdtGizliQrSonuc.Visible = False;
  AnaForm.AddNewEvent(EdtGizliQrSonuc, tbeOnChange, 'OnQrSonucAlindi');
}

{
  AnaForm = TCLForm.Create(Self);

  OlcekliYerlesim = AnaForm.AddNewScaledLayout(AnaForm, 'OlcekliYerlesim');
  OlcekliYerlesim.Align = alClient;
  OlcekliYerlesim.OriginalHeight = 750;
  OlcekliYerlesim.OriginalWidth = 350;
  OlcekliYerlesim.Margins.Top = -50;

  GPersonelID = StrToIntDef(Clomosy.GlobalVariableString, 0);

  LQryAd = Clomosy.DBSQLiteQueryWith(
    'SELECT AdSoyad, GirisSaati, BugunkuGiris, BugunkuCikis, Durum FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)
  );
  LQryAd.OpenOrExecute;

  if (LQryAd.Found)
  {
    GPersonelAd = LQryAd.FieldByName('AdSoyad').AsString;
    GMesaiSaati = LQryAd.FieldByName('GirisSaati').AsString;
    GGirisSaati = LQryAd.FieldByName('BugunkuGiris').AsString;
  }
  else
  {
    GPersonelAd = 'Personel';
    GMesaiSaati = '08:00';
    GGirisSaati = '-';
  }

  LQryAd.Free;

  GSeciliGorevID = 0;
  GZamanindaMi = False;

  EkraniKur;
  OzetKartlariniGuncelle;

  // Uygulama acilinca DB'den durumu kontrol et
  if (GGirisSaati <> '-')
  {
    // Personel bugun ise basladi
    var LAyrac1: Integer;
    var LAyrac2: Integer;
    var LSimdiSaat: Integer;
    var LSimdiDakika: Integer;
    var LGirisSaat: Integer;
    var LGirisDakika: Integer;
    var LSimdiToplamDakika: Integer;
    var LGirisToplamDakika: Integer;

    LAyrac1 = Pos(':', GGirisSaati);
    LSimdiSaat = StrToIntDef(Copy(GGirisSaati, 1, LAyrac1 - 1), 0);
    LSimdiDakika = StrToIntDef(Copy(GGirisSaati, LAyrac1 + 1, Length(GGirisSaati)), 0);
    LSimdiToplamDakika = (LSimdiSaat * 60) + LSimdiDakika;

    LAyrac2 = Pos(':', GMesaiSaati);
    LGirisSaat = StrToIntDef(Copy(GMesaiSaati, 1, LAyrac2 - 1), 0);
    LGirisDakika = StrToIntDef(Copy(GMesaiSaati, LAyrac2 + 1, Length(GMesaiSaati)), 0);
    LGirisToplamDakika = (LGirisSaat * 60) + LGirisDakika;

    if (LSimdiToplamDakika <= LGirisToplamDakika)
    {
      GZamanindaMi = True;
    }

    LblGirisSaat.Text = 'Giris: ' + GGirisSaati;
    LblMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

    // BugunkuCikis doluysa mesai bitti paneli goster
    var LQryCikis: TClSQLiteQuery;
    LQryCikis = Clomosy.DBSQLiteQueryWith(
      'SELECT BugunkuCikis FROM TblPersonel WHERE ID=' + IntToStr(GPersonelID)
    );
    LQryCikis.OpenOrExecute;

    if (LQryCikis.Found)
    {
      if (LQryCikis.FieldByName('BugunkuCikis').AsString <> '-')
      {
        // Cikis yapmis — MesaiBittiPnl goster
        var LCikisSaati: String;
        LCikisSaati = LQryCikis.FieldByName('BugunkuCikis').AsString;

        if (GZamanindaMi)
        {
          MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');
          MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');
          BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
          BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
          LblBittiBaslik.Text = 'Gule Gule';
          LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');
        }
        else
        {
          MesaiBittiPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');
          MesaiBittiPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');
          BittiIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
          BittiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
          LblBittiBaslik.Text = 'Gule Gule';
          LblBittiBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');
        }

        LblBittiGirisCikis.Text = 'Giris: ' + GGirisSaati + ' - Cikis: ' + LCikisSaati;
        LblBittiMesaiSaat.Text = 'Mesai: ' + GMesaiSaati;

        MesaiBittiPnl.SetclProSettings(MesaiBittiPnl.clProSettings);
        BittiIkonDisPnl.SetclProSettings(BittiIkonDisPnl.clProSettings);
        BittiPillPnl.SetclProSettings(BittiPillPnl.clProSettings);
        LblBittiBaslik.SetclProSettings(LblBittiBaslik.clProSettings);

        BaslaBtnPnl.Visible = False;
        MesaiDurumPnl.Visible = False;
        MesaiBittiPnl.Visible = True;
      }
      else
      {
        // Cikis yapmamis — MesaiDurumPnl goster
        if (GZamanindaMi)
        {
          MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#D1FAE5');
          MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#10B981');
          DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
          MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#10B981');
          LblDurumBaslik.Text = 'Hos Geldiniz';
          LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#065F46');
        }
        else
        {
          MesaiDurumPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#FEE2E2');
          MesaiDurumPnl.clProSettings.BorderColor = clalphacolor.clHexToColor('#B91C1C');
          DurumIkonDisPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
          MesaiPillPnl.clProSettings.BackgroundColor = clalphacolor.clHexToColor('#B91C1C');
          LblDurumBaslik.Text = 'Gec Geldi';
          LblDurumBaslik.clProSettings.FontColor = clalphacolor.clHexToColor('#991B1B');
        }

        MesaiDurumPnl.SetclProSettings(MesaiDurumPnl.clProSettings);
        DurumIkonDisPnl.SetclProSettings(DurumIkonDisPnl.clProSettings);
        MesaiPillPnl.SetclProSettings(MesaiPillPnl.clProSettings);
        LblDurumBaslik.SetclProSettings(LblDurumBaslik.clProSettings);

        BaslaBtnPnl.Visible = False;
        MesaiBittiPnl.Visible = False;
        MesaiDurumPnl.Visible = True;
      }
    }

    LQryCikis.Free;
  }

  AnaForm.FormWaiting.Visible = False;
  AnaForm.BtnFormMenu.Visible = False;
  AnaForm.BtnGoBack.Visible = False;

  AnaForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 927 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 3 Saat 12 Dakika Önce Saat 11:28
Merhaba Mehmet,

1022. satır da global olan değişkenleri tanımlanmışsın
    // Personel bugun ise basladi
    var LAyrac1: Integer;
    var LAyrac2: Integer;
    var LSimdiSaat: Integer;
    var LSimdiDakika: Integer;
    var LGirisSaat: Integer;
    var LGirisDakika: Integer;
    var LSimdiToplamDakika: Integer;
    var LGirisToplamDakika: Integer;

bunları tek bir var altına kod satırının en başında değişkenleri tanımlaman gerekiyor
https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,063 Saniyede Yüklendi.