Clomosy | Forum : HATA https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Thu, 25 Jun 2026 17:20:22 +0000 Thu, 25 Jun 2026 14:16:01 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1558 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[HATA : Merhaba Mehmet,void DBBaglan;{...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1558&PID=3594#3594 Yazar: Emr.Erkmn
Konu: 1558
Gönderim Zamanı: 25 Haziran 2026 Saat 14:16

Merhaba Mehmet, 

void DBBaglan;
{
  if (Clomosy.PlatformIsMobile)
  {
    LDBPath = Clomosy.AppFilesPath + 'PristineTask.db3';
  }
  else
  {
    LDBPath = Clomosy.AppFilesPath + 'PristineTask.db3';
  }

  try
    Clomosy.DBSQLiteConnect(LDBPath, '');
  except
    ShowMessage('Veritabanı bağlantı hatası: ' + LastExceptionMessage);
  }
}

ilgili prosedürü günceller misin? 
Hata varsa tekrar yazar mısın?
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">]]> Thu, 25 Jun 2026 14:16:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1558&PID=3594#3594 <![CDATA[HATA : var LDBPath: String;void DBBaglan;{...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1558&PID=3593#3593 Yazar: MehmetOzcan
Konu: 1558
Gönderim Zamanı: 25 Haziran 2026 Saat 14:01

var
  LDBPath: String;

void DBBaglan;
{
  if (Clomosy.PlatformIsMobile)
  {
    LDBPath = Clomosy.AppFilesPath + 'PristineTask.db3';
  }
  else
  {
    LDBPath = 'C:\PristineTask\PristineTask.db3';
  }

  try
    Clomosy.DBSQLiteConnect(LDBPath, '');
  except
    ShowMessage('Veritabanı bağlantı hatası: ' + LastExceptionMessage);
  }
}

void TblKullanicilariOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblKullanicilar";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblKullanicilar (ID INTEGER PRIMARY KEY AUTOINCREMENT, AdSoyad TEXT NOT NULL, Eposta TEXT NOT NULL, Sifre TEXT NOT NULL, Rol TEXT NOT NULL)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblKullanicilar (AdSoyad, Eposta, Sifre, Rol) VALUES (''Müdür Ömer'', ''mudur@pristine.com'', ''1'', ''Yonetici'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblKullanicilar hatası: ' + LastExceptionMessage);
  }
}

void TblPersonelOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblPersonel";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblPersonel (ID INTEGER PRIMARY KEY AUTOINCREMENT, KullaniciID INTEGER NOT NULL, AdSoyad TEXT NOT NULL, Eposta TEXT NOT NULL, Sifre TEXT NOT NULL, Rol TEXT NOT NULL, Durum TEXT NOT NULL, GirisSaati TEXT, BugunkuGiris TEXT, BugunkuCikis TEXT)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblPersonel (KullaniciID, AdSoyad, Eposta, Sifre, Rol, Durum, GirisSaati, BugunkuGiris, BugunkuCikis) VALUES (2, ''Ayşe Kaya'', ''ayse@pristine.com'', ''2'', ''Temizlik Personeli'', ''Görevde'', ''08:00'', ''10:41'', ''-'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblPersonel (KullaniciID, AdSoyad, Eposta, Sifre, Rol, Durum, GirisSaati, BugunkuGiris, BugunkuCikis) VALUES (3, ''Mehmet Demir'', ''mehmet@pristine.com'', ''3'', ''Lobi Personeli'', ''Görevde'', ''08:00'', ''08:05'', ''-'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblPersonel (KullaniciID, AdSoyad, Eposta, Sifre, Rol, Durum, GirisSaati, BugunkuGiris, BugunkuCikis) VALUES (4, ''Fatma Şahin'', ''fatma@pristine.com'', ''4'', ''Kıdemli Personel'', ''Gecikti'', ''08:00'', ''10:15'', ''-'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblPersonel hatası: ' + LastExceptionMessage);
  }
}

void TblQRKodlarOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblQRKodlar";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblQRKodlar (ID INTEGER PRIMARY KEY AUTOINCREMENT, Lokasyon TEXT NOT NULL, QRKodu TEXT NOT NULL)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblQRKodlar (Lokasyon, QRKodu) VALUES (''2. Kat WC'', ''QR-2KAT-WC'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblQRKodlar (Lokasyon, QRKodu) VALUES (''Ana Giriş'', ''QR-ANA-GIRIS'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblQRKodlar (Lokasyon, QRKodu) VALUES (''Lobi WC'', ''QR-LOBI-WC'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblQRKodlar (Lokasyon, QRKodu) VALUES (''Oda 312'', ''QR-ODA-312'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblQRKodlar hatası: ' + LastExceptionMessage);
  }
}

void TblSabitGorevlerOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblSabitGorevler";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblSabitGorevler (ID INTEGER PRIMARY KEY AUTOINCREMENT, PersonelID INTEGER NOT NULL, Lokasyon TEXT NOT NULL, QRKodu TEXT NOT NULL, PlanlananSaat TEXT NOT NULL)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (1, ''2. Kat WC'', ''QR-2KAT-WC'', ''09:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (1, ''2. Kat WC'', ''QR-2KAT-WC'', ''14:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (2, ''Ana Giriş'', ''QR-ANA-GIRIS'', ''08:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (2, ''Ana Giriş'', ''QR-ANA-GIRIS'', ''13:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (3, ''2. Kat WC'', ''QR-2KAT-WC'', ''11:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (3, ''Ana Giriş'', ''QR-ANA-GIRIS'', ''16:00'')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblSabitGorevler hatası: ' + LastExceptionMessage);
  }
}

void TblGorevlerOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblGorevler";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblGorevler (ID INTEGER PRIMARY KEY AUTOINCREMENT, AtananPersonelID INTEGER NOT NULL, Lokasyon TEXT NOT NULL, Aciklama TEXT, QRKodu TEXT, PlanlananSaat TEXT, BaslangicSaati TEXT, BitisSaati TEXT, Durum TEXT NOT NULL, KanitFotoPath TEXT, DurumNotu TEXT, Tarih TEXT NOT NULL, AcilMi INTEGER DEFAULT 0)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblGorevler hatası: ' + LastExceptionMessage);
  }
}

void TblSikayetlerOlustur;
var
  LTabloVarMi: Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT name FROM sqlite_master WHERE type="table" AND name="TblSikayetler";';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    LTabloVarMi = not Clomosy.DBSQLiteQuery.Eof;

    if not (LTabloVarMi)
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE TblSikayetler (ID INTEGER PRIMARY KEY AUTOINCREMENT, Baslik TEXT NOT NULL, Aciklama TEXT NOT NULL, Tarih TEXT NOT NULL, Durum TEXT NOT NULL, AtananPersonelID INTEGER)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSikayetler (Baslik, Aciklama, Tarih, Durum, AtananPersonelID) VALUES (''Oda 312'', ''Banyo kiri giderilmemiş, lavabo etrafında temizlik eksikliği tespit edildi.'', ''22 Haz 14:20'', ''Açık'', 1)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSikayetler (Baslik, Aciklama, Tarih, Durum, AtananPersonelID) VALUES (''Lobi WC'', ''Temizlik vakti geçmiş, rutin kontrol çizelgesine göre müdahale yapılmamış.'', ''20 Haz 16:45'', ''Açık'', 2)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;

      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSikayetler (Baslik, Aciklama, Tarih, Durum, AtananPersonelID) VALUES (''Oda 415'', ''Çarşaflar değiştirilmemiş, havlu eksiği bulunmakta.'', ''18 Haz 09:15'', ''Çözüldü'', 1)';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
    }
  except
    ShowMessage('TblSikayetler hatası: ' + LastExceptionMessage);
  }
}

void GunlukGorevleriOlustur;
var
  LBugun: String;
  LVarMi: Boolean;
  LQry: TClSQLiteQuery;
  LQry2: TClSQLiteQuery;
{
  LBugun = FormatDateTime('yyyy-mm-dd', Now);

  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT ID FROM TblGorevler WHERE Tarih=' + QuotedStr(LBugun) + ' AND AcilMi=0 LIMIT 1'
    );
    LQry.OpenOrExecute;
    LVarMi = LQry.Found;
    LQry.Free;

    if not (LVarMi)
    {
      LQry2 = Clomosy.DBSQLiteQueryWith('SELECT * FROM TblSabitGorevler');
      LQry2.OpenOrExecute;

      while (not LQry2.Eof)
      {
        Clomosy.DBSQLiteQuery.Sql.Text =
          'INSERT INTO TblGorevler (AtananPersonelID, Lokasyon, Aciklama, QRKodu, PlanlananSaat, BaslangicSaati, BitisSaati, Durum, DurumNotu, Tarih, AcilMi) VALUES (' +
          IntToStr(LQry2.FieldByName('PersonelID').AsInteger) + ', ' +
          QuotedStr(LQry2.FieldByName('Lokasyon').AsString) + ', ' +
          QuotedStr('Sabit görev') + ', ' +
          QuotedStr(LQry2.FieldByName('QRKodu').AsString) + ', ' +
          QuotedStr(LQry2.FieldByName('PlanlananSaat').AsString) + ', ' +
          QuotedStr('-') + ', ' +
          QuotedStr('-') + ', ' +
          QuotedStr('Bekliyor') + ', ' +
          QuotedStr('-') + ', ' +
          QuotedStr(LBugun) + ', ' +
          '0)';
        Clomosy.DBSQLiteQuery.OpenOrExecute;
        LQry2.Next;
      }

      LQry2.Free;
    }
  except
    ShowMessage('Günlük görev oluşturma hatası: ' + LastExceptionMessage);
  }
}

void VeritabaniKur;
{
  DBBaglan;
  TblKullanicilariOlustur;
  TblPersonelOlustur;
  TblQRKodlarOlustur;
  TblSabitGorevlerOlustur;
  TblGorevlerOlustur;
  TblSikayetlerOlustur;
  GunlukGorevleriOlustur;
}
function PersonelDogrula(AEposta, ASifre: String): Integer;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT ID FROM TblPersonel WHERE Eposta=' + QuotedStr(AEposta) +
      ' AND Sifre=' + QuotedStr(ASifre)
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('ID').AsInteger;
    }
    else
    {
      Result = 0;
    }

    LQry.Free;
  except
    ShowMessage('Personel dogrulama hatasi: ' + LastExceptionMessage);
    Result = 0;
  }
}

function KullaniciDogrula(AEposta, ASifre: String): String;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT Rol FROM TblKullanicilar WHERE Eposta=' + QuotedStr(AEposta) +
      ' AND Sifre=' + QuotedStr(ASifre)
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Rol').AsString;
    }
    else
    {
      Result = '';
    }

    LQry.Free;
  except
    ShowMessage('Giriş doğrulama hatası: ' + LastExceptionMessage);
    Result = '';
  }
}

function PersonelListesiGetir: TClSQLiteQuery;
{
  try
    Result = Clomosy.DBSQLiteQueryWith('SELECT * FROM TblPersonel ORDER BY AdSoyad ASC');
    Result.OpenOrExecute;
  except
    ShowMessage('Personel listesi hatası: ' + LastExceptionMessage);
  }
}

function PersonelEkle(AAdSoyad, AEposta, ASifre, ARol: String): Boolean;
var
  LYeniID: Integer;
  LQry: TClSQLiteQuery;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'INSERT INTO TblPersonel (KullaniciID, AdSoyad, Eposta, Sifre, Rol, Durum, GirisSaati, BugunkuGiris, BugunkuCikis) VALUES (0, ' +
      QuotedStr(AAdSoyad) + ', ' +
      QuotedStr(AEposta) + ', ' +
      QuotedStr(ASifre) + ', ' +
      QuotedStr(ARol) + ', ' +
      QuotedStr('Cevrimdisi') + ', ' +
      QuotedStr('08:00') + ', ' +
      QuotedStr('-') + ', ' +
      QuotedStr('-') + ')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    // Yeni eklenen personelin ID'sini al
    LQry = Clomosy.DBSQLiteQueryWith('SELECT last_insert_rowid() AS YeniID');
    LQry.OpenOrExecute;
    LYeniID = LQry.FieldByName('YeniID').AsInteger;
    LQry.Free;

    // Sabit gorevleri otomatik ekle
    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''1. Kat Lavabo'', ''QR-1KAT-LAVABO'', ''08:30'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''2. Kat Lavabo'', ''QR-2KAT-LAVABO'', ''10:00'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''3. Kat Lavabo'', ''QR-3KAT-LAVABO'', ''14:00'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''1. Kat Koridor'', ''QR-1KAT-KORIDOR'', ''09:00'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''2. Kat Koridor'', ''QR-2KAT-KORIDOR'', ''11:00'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO TblSabitGorevler (PersonelID, Lokasyon, QRKodu, PlanlananSaat) VALUES (' + IntToStr(LYeniID) + ', ''3. Kat Koridor'', ''QR-3KAT-KORIDOR'', ''15:00'')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Result = True;
  except
    ShowMessage('Personel ekleme hatasi: ' + LastExceptionMessage);
    Result = False;
  }
}
function PersonelSil(APersonelID: Integer): Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text = 'DELETE FROM TblPersonel WHERE ID=' + IntToStr(APersonelID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'DELETE FROM TblSabitGorevler WHERE PersonelID=' + IntToStr(APersonelID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.Sql.Text = 'DELETE FROM TblGorevler WHERE AtananPersonelID=' + IntToStr(APersonelID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Result = True;
  except
    ShowMessage('Personel silme hatası: ' + LastExceptionMessage);
    Result = False;
  }
}

function PersonelGorevleriGetir(APersonelID: Integer): TClSQLiteQuery;
{
  try
    Result = Clomosy.DBSQLiteQueryWith(
      'SELECT * FROM TblGorevler WHERE AtananPersonelID=' +
      IntToStr(APersonelID) +
      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +
      ' ORDER BY PlanlananSaat ASC'
    );
    Result.OpenOrExecute;
  except
    ShowMessage('Görev listesi hatası: ' + LastExceptionMessage);
  }
}

function AcilGorevEkle(APersonelID: Integer; ALokasyon, AAciklama: String): Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'INSERT INTO TblGorevler (AtananPersonelID, Lokasyon, Aciklama, QRKodu, PlanlananSaat, BaslangicSaati, BitisSaati, Durum, DurumNotu, Tarih, AcilMi) VALUES (' +
      IntToStr(APersonelID) + ', ' +
      QuotedStr(ALokasyon) + ', ' +
      QuotedStr(AAciklama) + ', ' +
      QuotedStr('') + ', ' +
      QuotedStr(FormatDateTime('hh:nn', Now)) + ', ' +
      QuotedStr('-') + ', ' +
      QuotedStr('-') + ', ' +
      QuotedStr('Bekliyor') + ', ' +
      QuotedStr('-') + ', ' +
      QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) + ', ' +
      '1)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    Result = True;
  except
    ShowMessage('Acil görev ekleme hatası: ' + LastExceptionMessage);
    Result = False;
  }
}

function GorevBaslat(AGorevID: Integer): Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'UPDATE TblGorevler SET Durum=' + QuotedStr('DevamEdiyor') + ', ' +
      'BaslangicSaati=' + QuotedStr(FormatDateTime('hh:nn', Now)) +
      ' WHERE ID=' + IntToStr(AGorevID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    Result = True;
  except
    ShowMessage('Görev başlatma hatası: ' + LastExceptionMessage);
    Result = False;
  }
}

function GorevTamamla(AGorevID: Integer; ADurumNotu, AKanitFotoPath: String): Boolean;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text =
      'UPDATE TblGorevler SET Durum=' + QuotedStr('Tamamlandi') + ', ' +
      'BitisSaati=' + QuotedStr(FormatDateTime('hh:nn', Now)) + ', ' +
      'DurumNotu=' + QuotedStr(ADurumNotu) + ', ' +
      'KanitFotoPath=' + QuotedStr(AKanitFotoPath) +
      ' WHERE ID=' + IntToStr(AGorevID);
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    Result = True;
  except
    ShowMessage('Görev tamamlama hatası: ' + LastExceptionMessage);
    Result = False;
  }
}

function QRKoduDogrula(AQRKodu: String): String;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT Lokasyon FROM TblQRKodlar WHERE QRKodu=' + QuotedStr(AQRKodu)
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Lokasyon').AsString;
    }
    else
    {
      Result = '';
    }

    LQry.Free;
  except
    ShowMessage('QR doğrulama hatası: ' + LastExceptionMessage);
    Result = '';
  }
}

function SikayetListesiGetir: TClSQLiteQuery;
{
  try
    Result = Clomosy.DBSQLiteQueryWith('SELECT * FROM TblSikayetler ORDER BY ID DESC');
    Result.OpenOrExecute;
  except
    ShowMessage('Şikayet listesi hatası: ' + LastExceptionMessage);
  }
}

function AktifPersonelSayisi: Integer;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT COUNT(*) AS Sayi FROM TblPersonel WHERE Durum=' + QuotedStr('Görevde')
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Sayi').AsInteger;
    }
    else
    {
      Result = 0;
    }

    LQry.Free;
  except
    ShowMessage('Aktif personel sayısı hatası: ' + LastExceptionMessage);
    Result = 0;
  }
}

function AcikSikayetSayisi: Integer;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT COUNT(*) AS Sayi FROM TblSikayetler WHERE Durum=' + QuotedStr('Açık')
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Sayi').AsInteger;
    }
    else
    {
      Result = 0;
    }

    LQry.Free;
  except
    ShowMessage('Açık şikayet sayısı hatası: ' + LastExceptionMessage);
    Result = 0;
  }
}

function TamamlananGorevSayisi: Integer;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT COUNT(*) AS Sayi FROM TblGorevler WHERE Durum=' + QuotedStr('Tamamlandi') +
      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now))
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Sayi').AsInteger;
    }
    else
    {
      Result = 0;
    }

    LQry.Free;
  except
    ShowMessage('Tamamlanan görev sayısı hatası: ' + LastExceptionMessage);
    Result = 0;
  }
}

function PersonelAktifKonumGetir(APersonelID: Integer): String;
var
  LQry: TClSQLiteQuery;
{
  try
    LQry = Clomosy.DBSQLiteQueryWith(
      'SELECT Lokasyon FROM TblGorevler WHERE AtananPersonelID=' +
      IntToStr(APersonelID) +
      ' AND (Durum=' + QuotedStr('DevamEdiyor') +
      ' OR Durum=' + QuotedStr('Bekliyor') + ')' +
      ' AND Tarih=' + QuotedStr(FormatDateTime('yyyy-mm-dd', Now)) +
      ' ORDER BY PlanlananSaat ASC LIMIT 1'
    );
    LQry.OpenOrExecute;

    if (LQry.Found)
    {
      Result = LQry.FieldByName('Lokasyon').AsString;
    }
    else
    {
      Result = 'Görev Yok';
    }

    LQry.Free;
  except
    ShowMessage('Aktif konum hatası: ' + LastExceptionMessage);
    Result = '-';
  }
}

{
}
Veri tabanı dosyası belirtilen dosya yolunda olusmuyor . Yardımcı olabilirmisiniz
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">]]> Thu, 25 Jun 2026 14:01:34 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1558&PID=3593#3593