var

  PersonelKayit: Tclform;

  PersonelScroll: TCLVertScrollBox;

  

  // Paneller

  pnlPersUst, pnlPersOrta, pnlPersAlt, pnlPerAktiflik, pnlPerAdres, pnlPersButton, pnlPersListe: TclProPanel;

  

  // Üst Panel Bileşenleri

  lblAd, lblSoyad, lblTCKN, lblDogumTarihi, lblTelefon, lblEposta: TClProLabel;

  txtAd, txtSoyad, txtTCKN, txtDogumTarihi, txtTelefon, txtEposta: TclProEdit;

  

  // Orta Panel Bileşenleri

  lblAdres: TClProLabel;

  txtAdres: TCLMemo;

  lblPozisyon, lblMaas, lblAktif: TClProLabel;

  cmbPozisyon: TClProComboBox;

  txtMaas: TclProEdit;

  chkAktif: TClProCheckBox;

  

  // Button Panel

  btnTemizle, btnKaydet, btnGuncelle, btnSil: TClProButton;

  

  // Liste Panel

  lblPersonelListesi: TClProLabel;

  ListViewPersonel: TClProListView;

  btnListeyiYenile: TClProButton;

  // Veritabanı ve diğer değişkenler

  Qry: TClSQLiteQuery;

  database, password: String;

  seciliPersonelID: Integer;

// Veritabanı bağlantısı ve tablo oluşturma

void VeritabaniBaglantisi;

{

  database = Clomosy.AppFilesPath + '"C:\Users\emre\Desktop\CloPersonel\otelyonetimimobil.db3"';

  password = '';

  try

    Clomosy.DBSQLiteConnect(database, password);

    Clomosy.DBSQLiteQuery.SQL.Text = 'CREATE TABLE IF NOT EXISTS Personel('+

      'PersonelID INTEGER PRIMARY KEY AUTOINCREMENT,'+

      'Ad TEXT,'+

      'Soyad TEXT,'+

      'TCKN TEXT,'+

      'DogumTarihi TEXT,'+

      'Telefon TEXT,'+

      'Eposta TEXT,'+

      'Adres TEXT,'+

      'PozisyonID INTEGER,'+

      'PozisyonAdi TEXT,'+

      'Maas REAL,'+

      'AktifMi INTEGER);';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

  except

    ShowMessage('Veritabanı hatası: ' + LastExceptionMessage);

  }

}

// Formu temizleme

void Temizle;

{

  txtAd.Text = '';

  txtSoyad.Text = '';

  txtTCKN.Text = '';

  txtDogumTarihi.Text = 'GG/AA/YYYY';

  txtTelefon.Text = '';

  txtEposta.Text = '';

  txtAdres.Text = '';

  cmbPozisyon.ItemIndex = -1;

  txtMaas.Text = '';

  chkAktif.Checked = False;

  seciliPersonelID = 0;

}

// Pozisyon adından ID alma

// Veri kaydetme

void VeriKaydet;

{

  /*

  if (txtAd.Text = '') or (txtSoyad.Text = '') or (txtTCKN.Text = '') or (cmbPozisyon.ItemIndex = -1) then

  begin

    ShowMessage('Zorunlu alanları doldurunuz! (Ad, Soyad, TCKN, Pozisyon)');

    Exit;

  }

  

  */

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'INSERT INTO Personel (Ad, Soyad, TCKN, DogumTarihi, Telefon, Eposta, Adres, PozisyonID, PozisyonAdi, Maas, AktifMi) VALUES ('+

      QuotedStr(txtAd.Text) + ',' +

      QuotedStr(txtSoyad.Text) + ',' +

      QuotedStr(txtTCKN.Text) + ',' +

      QuotedStr(txtDogumTarihi.Text) + ',' +

      QuotedStr(txtTelefon.Text) + ',' +

      QuotedStr(txtEposta.Text) + ',' +

      QuotedStr(txtAdres.Text) + ',' +

      //IntToStr(PozisyonIDAl(cmbPozisyon.Items[cmbPozisyon.ItemIndex])) + ',' +

      QuotedStr(cmbPozisyon.Items[cmbPozisyon.ItemIndex]) + ',' +

      txtMaas.Text + ',' +

      //IntToStr(Integer(chkAktif.Checked)) + ')';

    

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Personel başarıyla kaydedildi!');

    Temizle;

    //ListeyiYenile;

  except

    ShowMessage('Kayıt hatası: ' + LastExceptionMessage);

  }

}

/*

// Veri güncelleme

void VeriGuncelle;

{

  

  

  if seciliPersonelID = 0 then

  begin

    ShowMessage('Önce bir personel seçiniz!');

    Exit;

  end

  

  try

    Clomosy.DBSQLiteQuery.SQL.Text = 'UPDATE Personel SET '+

      'Ad = ' + QuotedStr(txtAd.Text) + ',' +

      'Soyad = ' + QuotedStr(txtSoyad.Text) + ',' +

      'TCKN = ' + QuotedStr(txtTCKN.Text) + ',' +

      'DogumTarihi = ' + QuotedStr(txtDogumTarihi.Text) + ',' +

      'Telefon = ' + QuotedStr(txtTelefon.Text) + ',' +

      'Eposta = ' + QuotedStr(txtEposta.Text) + ',' +

      'Adres = ' + QuotedStr(txtAdres.Text) + ',' +

      //'PozisyonID = ' + IntToStr(PozisyonIDAl(cmbPozisyon.Items[cmbPozisyon.ItemIndex])) + ',' +

      'PozisyonAdi = ' + QuotedStr(cmbPozisyon.Items[cmbPozisyon.ItemIndex]) + ',' +

      'Maas = ' + txtMaas.Text + ',' +

      //'AktifMi = ' + IntToStr(Integer(chkAktif.Checked)) +

      ' WHERE PersonelID = ' + IntToStr(seciliPersonelID);

    

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Personel başarıyla güncellendi!');

    Temizle;

    //ListeyiYenile;

  except

    ShowMessage('Güncelleme hatası: ' + LastExceptionMessage);

  }

}

// Veri silme

void VeriSil;

{

  

  /*

  if seciliPersonelID = 0 then

  begin

    ShowMessage('Önce bir personel seçiniz!');

    Exit;

  end

  

  

  if Clomosy.AppQuestion('Bu personeli silmek istediğinize emin misiniz?', 'Uyarı') then

  begin

    try

      Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM Personel WHERE PersonelID = ' + IntToStr(seciliPersonelID);

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      ShowMessage('Personel başarıyla silindi!');

      Temizle;

      ListeyiYenile;

    except

      ShowMessage('Silme hatası: ' + LastExceptionMessage);

    }

  }

  

}

/* Listeyi yenileme

void ListeyiYenile;

{

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT PersonelID, Ad || '' '' || Soyad as AdSoyad, TCKN, Telefon, PozisyonAdi FROM Personel ORDER BY Ad, Soyad');

    Qry.OpenOrExecute;

    ListViewPersonel.clLoadListViewDataFromDataset(Qry);

  except

    ShowMessage('Listeleme hatası: ' + LastExceptionMessage);

  }

}

void ListeElemanSecildi;//(TClComponent Sender)

{

  

  if ListViewPersonel.ItemIndex <> -1 then

  begin

    seciliPersonelID = Qry.FieldByName('PersonelID').AsInteger;

    

    try

      Clomosy.DBSQLiteQuery.SQL.Text = 'SELECT * FROM Personel WHERE PersonelID = ' + IntToStr(seciliPersonelID);

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      

      if not Clomosy.DBSQLiteQuery.EOF then

      begin

        txtAd.Text = Clomosy.DBSQLiteQuery.FieldByName('Ad').AsString;

        txtSoyad.Text = Clomosy.DBSQLiteQuery.FieldByName('Soyad').AsString;

        txtTCKN.Text = Clomosy.DBSQLiteQuery.FieldByName('TCKN').AsString;

        txtDogumTarihi.Text = Clomosy.DBSQLiteQuery.FieldByName('DogumTarihi').AsString;

        txtTelefon.Text = Clomosy.DBSQLiteQuery.FieldByName('Telefon').AsString;

        txtEposta.Text = Clomosy.DBSQLiteQuery.FieldByName('Eposta').AsString;

        txtAdres.Text = Clomosy.DBSQLiteQuery.FieldByName('Adres').AsString;

        

        // Pozisyon seçimi

        for i := 0 to cmbPozisyon.Items.Count-1 do

        begin

          if cmbPozisyon.Items = Clomosy.DBSQLiteQuery.FieldByName('PozisyonAdi').AsString then