Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - 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.

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: 9 		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: HATA
    Gönderim Zamanı: 7 Saat 38 Dakika Önce 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'', ''[email protected]'', ''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'', ''[email protected]'', ''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'', ''[email protected]'', ''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'', ''[email protected]'', ''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">
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: 925 		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ı: 7 Saat 23 Dakika Önce 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">
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,055 Saniyede Yüklendi.