Sayfayı Yazdır | Pencereyi Kapat

Text hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1433
Tarih: 22 Haziran 2026 Saat 05:30
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Text hatası
Mesajı Yazan: DuCi03131
Konu: Text hatası
Mesaj Tarihi: 03 Nisan 2026 Saat 11:44
PROJEM İÇİN geliştirdiğim kodda 

void ListeyiGuncelle(Lst: TclListView; metin: String);
{
  Lst.Free;
  if (metin == '')
  {
    Lst.Visible = False;
  }
  else
  {
    Lst.Visible = True;
    for (i = 0 to IlSayisi - 1)
    {
      gelenAd = IlListesi;
      if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
      {
        Lst.Items.Add;
        Lst.Items.Item[Lst.Items.Count-1].Text = gelenAd;
      }
    }
    if (Lst.Items.Count == 0)
    {
      Lst.Visible = False;
    }
  }
} 

burası için aldığım hata Unit Main: Unknown member identifier: "Text".
Source position: 106,48  nasıl çözebilirim 
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 03 Nisan 2026 Saat 17:44
Merhaba Emin, 

void ListeyiGuncelle(Lst: TclListView; metin: String);
var
  i: Integer;
  gelenAd, jsonStr: String;
{
  if (metin == '')
  {
    Lst.Visible = False;
    Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
  }
  else
  {
    Lst.Visible = True;
    jsonStr = ''; 
    
    for (i = 0 to IlSayisi - 1)
    {
      gelenAd = IlListesi; 
      
      if (Pos(UpperCase(metin), UpperCase(gelenAd)) == 1)
      {
        if (jsonStr <> '')
        {
          jsonStr = jsonStr + ',';
        }
        
        jsonStr = jsonStr + '{"MAIN_TEXT":"' + gelenAd + '"}';
      }
    }
    
    if (jsonStr == '')
    {
      Lst.Visible = False;
      Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON('[]'));
    }
    else
    {
      jsonStr = '[' + jsonStr + ']';
      
      Lst.clLoadListViewDataFromDataset(Clomosy.ClDataSetFromJSON(jsonStr));
    }
  }
}

Test edip kodunu entegre eder misin?
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">

Mesajı Yazan: DuCi03131
Mesaj Tarihi: 03 Nisan 2026 Saat 21:08
Hocam kafayı yıcem orayı düzeltiyom başka yer hata veriyo baska yeri düzeltiyom baska yer hata veriyo 

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">
var
  MyForm: TclForm;
  PnlLogin: TclProPanel;
  PnlKayit: TclProPanel;
  PnlAna: TclProPanel;
  EdtKullanici: TclProEdit;
  EdtSifre: TclProEdit;
  EdtKayitKullanici: TclProEdit;
  EdtKayitSifre: TclProEdit;
  EdtKayitEmail: TclProEdit;
  BtnGiris: TclProButton;
  BtnKayitOl: TclProButton;
  BtnKaydet: TclProButton;
  BtnGeri: TclProButton;
  BtnRotaOlustur: TclProButton;
  BtnRotaGoster: TclProButton;
  BtnKayitliRotalar: TclProButton;
  LblLoginBaslik: TclProLabel;
  LblKayitBaslik: TclProLabel;
  LblMesaj: TclProLabel;
  LblNereden: TclProLabel;
  LblNereye: TclProLabel;
  LblDetay: TclProLabel;
  CmbNereden: TclComboBox;
  CmbNereye: TclComboBox;
  LstRotalar: TclListView;
  KullaniciAdi: String;
  DB: String;
  ad: String;
  sifre: String;
  email: String;
  varMi: Integer;
  IlListesi: array[0..80] of String;
  IlSayisi: Integer;
  i: Integer;
  benzinSayisi: Integer;
  otelSayisi: Integer;
  benzinListe: String;
  otelListe: String;

void Baglan;
{
  if (Clomosy.PlatformIsMobile)
    DB = Clomosy.AppFilesPath + 'rota.db3'
  else
    DB = Clomosy.AppFilesPath + 'rota.db3';
  Clomosy.DBSQLiteConnect(DB, '');
}

void TabloKontrol;
{
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS kullanicilar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, sifre TEXT, email TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS rotalar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, nereden TEXT, nereye TEXT, tarih TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void IlleriYukle;
{
  IlSayisi = 81;
  IlListesi[0] = 'Adana'; IlListesi[1] = 'Adıyaman'; IlListesi[2] = 'Afyonkarahisar'; IlListesi[3] = 'Ağrı';
  IlListesi[4] = 'Aksaray'; IlListesi[5] = 'Amasya'; IlListesi[6] = 'Ankara'; IlListesi[7] = 'Antalya';
  IlListesi[8] = 'Ardahan'; IlListesi[9] = 'Artvin'; IlListesi[10] = 'Aydın'; IlListesi[11] = 'Balıkesir';
  IlListesi[12] = 'Bartın'; IlListesi[13] = 'Batman'; IlListesi[14] = 'Bayburt'; IlListesi[15] = 'Bilecik';
  IlListesi[16] = 'Bingöl'; IlListesi[17] = 'Bitlis'; IlListesi[18] = 'Bolu'; IlListesi[19] = 'Burdur';
  IlListesi[20] = 'Bursa'; IlListesi[21] = 'Çanakkale'; IlListesi[22] = 'Çankırı'; IlListesi[23] = 'Çorum';
  IlListesi[24] = 'Denizli'; IlListesi[25] = 'Diyarbakır'; IlListesi[26] = 'Düzce'; IlListesi[27] = 'Edirne';
  IlListesi[28] = 'Elazığ'; IlListesi[29] = 'Erzincan'; IlListesi[30] = 'Erzurum'; IlListesi[31] = 'Eskişehir';
  IlListesi[32] = 'Gaziantep'; IlListesi[33] = 'Giresun'; IlListesi[34] = 'Gümüşhane'; IlListesi[35] = 'Hakkari';
  IlListesi[36] = 'Hatay'; IlListesi[37] = 'Iğdır'; IlListesi[38] = 'Isparta'; IlListesi[39] = 'İstanbul';
  IlListesi[40] = 'İzmir'; IlListesi[41] = 'Kahramanmaraş'; IlListesi[42] = 'Karabük'; IlListesi[43] = 'Karaman';
  IlListesi[44] = 'Kars'; IlListesi[45] = 'Kastamonu'; IlListesi[46] = 'Kayseri'; IlListesi[47] = 'Kırıkkale';
  IlListesi[48] = 'Kırklareli'; IlListesi[49] = 'Kırşehir'; IlListesi[50] = 'Kilis'; IlListesi[51] = 'Kocaeli';
  IlListesi[52] = 'Konya'; IlListesi[53] = 'Kütahya'; IlListesi[54] = 'Malatya'; IlListesi[55] = 'Manisa';
  IlListesi[56] = 'Mardin'; IlListesi[57] = 'Mersin'; IlListesi[58] = 'Muğla'; IlListesi[59] = 'Muş';
  IlListesi[60] = 'Nevşehir'; IlListesi[61] = 'Niğde'; IlListesi[62] = 'Ordu'; IlListesi[63] = 'Osmaniye';
  IlListesi[64] = 'Rize'; IlListesi[65] = 'Sakarya'; IlListesi[66] = 'Samsun'; IlListesi[67] = 'Siirt';
  IlListesi[68] = 'Sinop'; IlListesi[69] = 'Sivas'; IlListesi[70] = 'Şanlıurfa'; IlListesi[71] = 'Şırnak';
  IlListesi[72] = 'Tekirdağ'; IlListesi[73] = 'Tokat'; IlListesi[74] = 'Trabzon'; IlListesi[75] = 'Tunceli';
  IlListesi[76] = 'Uşak'; IlListesi[77] = 'Van'; IlListesi[78] = 'Yalova'; IlListesi[79] = 'Yozgat';
  IlListesi[80] = 'Zonguldak';
}

void KayitOl;
{
  PnlLogin.Visible = False;
  PnlKayit.Visible = True;
}

void KayitYap;
{
  ad = EdtKayitKullanici.Text;
  sifre = EdtKayitSifre.Text;
  email = EdtKayitEmail.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      ShowMessage('Bu kullanıcı adı zaten alınmış!');
    }
    else
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO kullanicilar (kullanici_adi, sifre, email) VALUES ("' + ad + '", "' + sifre + '", "' + email + '")';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Kayıt başarılı! Giriş yapabilirsiniz.');
      EdtKayitKullanici.Text = '';
      EdtKayitSifre.Text = '';
      EdtKayitEmail.Text = '';
      PnlKayit.Visible = False;
      PnlLogin.Visible = True;
    }
  }
}

void GirisYap;
{
  ad = EdtKullanici.Text;
  sifre = EdtSifre.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '" AND sifre = "' + sifre + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      KullaniciAdi = ad;
      ShowMessage('Hoş geldin ' + KullaniciAdi);
      PnlLogin.Visible = False;
      PnlAna.Visible = True;
    }
    else
    {
      ShowMessage('Kullanıcı adı veya şifre hatalı!');
    }
  }
}

void GeriDon;
{
  PnlKayit.Visible = False;
  PnlLogin.Visible = True;
}

void RotaOlustur;
{
  if (CmbNereden.Text == '' || CmbNereye.Text == '')
  {
    ShowMessage('Lütfen nereden ve nereyi seçiniz!');
  }
  else
  {
    benzinSayisi = 5 + Random(10);
    otelSayisi = 3 + Random(8);
    benzinListe = 'Shell, BP, Opet, Total, Petrol Ofisi';
    otelListe = 'Hilton, Sheraton, Ramada, Holiday Inn, Divan';

    LblDetay.Text = '🚗 ROTA: ' + CmbNereden.Text + ' → ' + CmbNereye.Text + '\n\n' +
                    '⛽ Benzin İstasyonları: ' + IntToStr(benzinSayisi) + ' adet\n' +
                    '   Örnek: ' + benzinListe + '\n\n' +
                    '🏨 Oteller: ' + IntToStr(otelSayisi) + ' adet\n' +
                    '   Örnek: ' + otelListe;
    LblDetay.Visible = True;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO rotalar (kullanici_adi, nereden, nereye, tarih) VALUES ("' + KullaniciAdi + '", "' + CmbNereden.Text + '", "' + CmbNereye.Text + '", "' + DateTimeToStr(Now) + '")';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
  }
}

void KayitliRotalariGoster;
{
  LstRotalar.Free;
  Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT nereden, nereye, tarih FROM rotalar WHERE kullanici_adi = "' + KullaniciAdi + '" ORDER BY id DESC';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  while (Clomosy.DBSQLiteQuery.Eof == False)
  {
    LstRotalar.Items.Add;
    LstRotalar.Items.Item[LstRotalar.Items.Count-1].Text = Clomosy.DBSQLiteQuery.FieldByName('nereden').AsString + ' → ' + Clomosy.DBSQLiteQuery.FieldByName('nereye').AsString;
    LstRotalar.Items.Item[LstRotalar.Items.Count-1].SubItems.Add(Clomosy.DBSQLiteQuery.FieldByName('tarih').AsString);
    Clomosy.DBSQLiteQuery.Next;
  }
  Clomosy.DBSQLiteQuery.Close;
  LstRotalar.Visible = True;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = True;
  BtnGeri.Visible = True;
}

void AnaMenuGoster;
{
  LstRotalar.Visible = False;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = False;
  BtnGeri.Visible = False;
  PnlAna.Visible = True;
}

{
  MyForm = TclForm.Create(Self);
  MyForm.SetFormBGImage(' https://images.clomosy.com/media/ThemeStyle5.png" rel="nofollow - https://images.clomosy.com/media/ThemeStyle5.png ');
  
  Baglan;
  TabloKontrol;
  IlleriYukle;
  
  // Login Paneli
  PnlLogin = MyForm.AddNewProPanel(MyForm, 'PnlLogin');
  PnlLogin.Align = alClient;
  
  LblLoginBaslik = MyForm.AddNewProLabel(PnlLogin, 'LblLoginBaslik', '🚗 ROTA PLANLAYICI 🏨');
  clComponent.SetupComponent(LblLoginBaslik, '{"Align":"top","Height":80,"MarginTop":60,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKullanici = MyForm.AddNewProEdit(PnlLogin, 'EdtKullanici', '');
  clComponent.SetupComponent(EdtKullanici, '{"Align":"top","Height":50,"MarginTop":40,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtSifre = MyForm.AddNewProEdit(PnlLogin, 'EdtSifre', '');
  clComponent.SetupComponent(EdtSifre, '{"Align":"top","Height":50,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  BtnGiris = MyForm.AddNewProButton(PnlLogin, 'BtnGiris', '🚀 GİRİŞ YAP');
  clComponent.SetupComponent(BtnGiris, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnGiris.OnClick = 'GirisYap';
  
  BtnKayitOl = MyForm.AddNewProButton(PnlLogin, 'BtnKayitOl', '📝 KAYIT OL');
  clComponent.SetupComponent(BtnKayitOl, '{"Align":"top","Height":55,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#3498db","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnKayitOl.OnClick = 'KayitOl';
  
  // Kayıt Paneli
  PnlKayit = MyForm.AddNewProPanel(MyForm, 'PnlKayit');
  PnlKayit.Align = alClient;
  PnlKayit.Visible = False;
  
  LblKayitBaslik = MyForm.AddNewProLabel(PnlKayit, 'LblKayitBaslik', '📝 YENİ ÜYE');
  clComponent.SetupComponent(LblKayitBaslik, '{"Align":"top","Height":80,"MarginTop":40,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKayitKullanici = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitKullanici', '');
  clComponent.SetupComponent(EdtKayitKullanici, '{"Align":"top","Height":50,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtKayitSifre = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitSifre', '');
  clComponent.SetupComponent(EdtKayitSifre, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  EdtKayitEmail = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitEmail', '');
  clComponent.SetupComponent(EdtKayitEmail, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"E-posta Adresiniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  BtnKaydet = MyForm.AddNewProButton(PnlKayit, 'BtnKaydet', '✅ KAYDET');
  clComponent.SetupComponent(BtnKaydet, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  BtnKaydet.OnClick = 'KayitYap';
  
  BtnGeri = MyForm.AddNewProButton(PnlKayit, 'BtnGeri', '◀ GERİ');
  clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":100,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  BtnGeri.OnClick = 'GeriDon';
  
  // Ana Menü
  PnlAna = MyForm.AddNewProPanel(MyForm, 'PnlAna');
  PnlAna.Align = alClient;
  PnlAna.Visible = False;
  
  LblNereden = MyForm.AddNewProLabel(PnlAna, 'LblNereden', 'Nereden');
  clComponent.SetupComponent(LblNereden, '{"Align":"top","Height":30,"MarginTop":20,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereden = MyForm.AddNewComboBox(PnlAna, 'CmbNereden');
  CmbNereden.Align = alTop;
  CmbNereden.Height = 45;
  CmbNereden.Margins.Top = 5;
  CmbNereden.Margins.Left = 40;
  CmbNereden.Margins.Right = 40;
  CmbNereden.AutoComplete = True;
  for (i = 0 to IlSayisi - 1) CmbNereden.Items.Add(IlListesi);
  
  LblNereye = MyForm.AddNewProLabel(PnlAna, 'LblNereye', 'Nereye');
  clComponent.SetupComponent(LblNereye, '{"Align":"top","Height":30,"MarginTop":10,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereye = MyForm.AddNewComboBox(PnlAna, 'CmbNereye');
  CmbNereye.Align = alTop;
  CmbNereye.Height = 45;
  CmbNereye.Margins.Top = 5;
  CmbNereye.Margins.Left = 40;
  CmbNereye.Margins.Right = 40;
  CmbNereye.AutoComplete = True;
  for (i = 0 to IlSayisi - 1) CmbNereye.Items.Add(IlListesi);
  
  BtnRotaOlustur = MyForm.AddNewProButton(PnlAna, 'BtnRotaOlustur', '🚀 ROTA OLUŞTUR');
  clComponent.SetupComponent(BtnRotaOlustur, '{"Align":"top","Height":55,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  BtnRotaOlustur.OnClick = 'RotaOlustur';
  
  BtnKayitliRotalar = MyForm.AddNewProButton(PnlAna, 'BtnKayitliRotalar', '📋 KAYITLI ROTALAR');
  clComponent.SetupComponent(BtnKayitliRotalar, '{"Align":"top","Height":55,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#2980b9","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  BtnKayitliRotalar.OnClick = 'KayitliRotalariGoster';
  
  LblDetay = MyForm.AddNewProLabel(PnlAna, 'LblDetay', '');
  clComponent.SetupComponent(LblDetay, '{"Align":"top","MarginTop":15,"MarginLeft":40,"MarginRight":40,"TextSize":14,"TextColor":"#ffffff","TextHorizontalAlign":"left"}');
  LblDetay.Visible = False;
  
  LstRotalar = MyForm.AddNewListView(PnlAna, 'LstRotalar');
  LstRotalar.Align = alTop;
  LstRotalar.Height = 400;
  LstRotalar.Margins.Top = 10;
  LstRotalar.Margins.Left = 20;
  LstRotalar.Margins.Right = 20;
  LstRotalar.Visible = False;
  LstRotalar.Columns.Add('Rota', 250);
  LstRotalar.Columns.Add('Tarih', 150);
  LstRotalar.ViewStyle = vsReport;
  
  BtnRotaGoster = MyForm.AddNewProButton(PnlAna, 'BtnRotaGoster', '🗺️ SEÇİLEN ROTAYI GÖSTER');
  clComponent.SetupComponent(BtnRotaGoster, '{"Align":"top","Height":50,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#e67e22","TextColor":"#ffffff","TextSize":14,"RoundHeight":10}');
  BtnRotaGoster.Visible = False;
  
  BtnGeri = MyForm.AddNewProButton(PnlAna, 'BtnGeri', '◀ ANA MENÜ');
  clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":120,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  BtnGeri.OnClick = 'AnaMenuGoster';
  BtnGeri.Visible = False;
  
  MyForm.Run;
}
lütfen hataları düzeltip atarmısınız

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 06 Nisan 2026 Saat 11:00
var
  MyForm: TclForm;
  PnlLogin: TclProPanel;
  PnlKayit: TclProPanel;
  PnlAna: TclProPanel;
  EdtKullanici: TclProEdit;
  EdtSifre: TclProEdit;
  EdtKayitKullanici: TclProEdit;
  EdtKayitSifre: TclProEdit;
  EdtKayitEmail: TclProEdit;
  BtnGiris: TclProButton;
  BtnKayitOl: TclProButton;
  BtnKaydet: TclProButton;
  BtnGeri: TclProButton;
  BtnRotaOlustur: TclProButton;
  BtnRotaGoster, BtnAnaGeri: TclProButton;
  BtnKayitliRotalar: TclProButton;
  LblLoginBaslik: TclProLabel;
  LblKayitBaslik: TclProLabel;
  LblMesaj: TclProLabel;
  LblNereden: TclProLabel;
  LblNereye: TclProLabel;
  LblDetay: TclProLabel;
  CmbNereden: TclComboBox;
  CmbNereye: TclComboBox;
  LstRotalar: TclListView;
  KullaniciAdi: String;
  DB: String;
  ad: String;
  sifre: String;
  email: String;
  varMi: Integer;
  IlListesi: array[0..80] of String;
  IlSayisi: Integer;
  i: Integer;
  benzinSayisi: Integer;
  otelSayisi: Integer;
  benzinListe: String;
  otelListe: String;

void Baglan;
{
  DB = Clomosy.AppFilesPath + 'rota.db3';
  Clomosy.DBSQLiteConnect(DB, '');
}

void TabloKontrol;
{
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS kullanicilar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, sifre TEXT, email TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
  Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS rotalar (id INTEGER PRIMARY KEY, kullanici_adi TEXT, nereden TEXT, nereye TEXT, tarih TEXT)';
  Clomosy.DBSQLiteQuery.OpenOrExecute;
}

void IlleriYukle;
{
  IlSayisi = 81;
  IlListesi[0] = 'Adana'; IlListesi[1] = 'Adıyaman'; IlListesi[2] = 'Afyonkarahisar'; IlListesi[3] = 'Ağrı';
  IlListesi[4] = 'Aksaray'; IlListesi[5] = 'Amasya'; IlListesi[6] = 'Ankara'; IlListesi[7] = 'Antalya';
  IlListesi[8] = 'Ardahan'; IlListesi[9] = 'Artvin'; IlListesi[10] = 'Aydın'; IlListesi[11] = 'Balıkesir';
  IlListesi[12] = 'Bartın'; IlListesi[13] = 'Batman'; IlListesi[14] = 'Bayburt'; IlListesi[15] = 'Bilecik';
  IlListesi[16] = 'Bingöl'; IlListesi[17] = 'Bitlis'; IlListesi[18] = 'Bolu'; IlListesi[19] = 'Burdur';
  IlListesi[20] = 'Bursa'; IlListesi[21] = 'Çanakkale'; IlListesi[22] = 'Çankırı'; IlListesi[23] = 'Çorum';
  IlListesi[24] = 'Denizli'; IlListesi[25] = 'Diyarbakır'; IlListesi[26] = 'Düzce'; IlListesi[27] = 'Edirne';
  IlListesi[28] = 'Elazığ'; IlListesi[29] = 'Erzincan'; IlListesi[30] = 'Erzurum'; IlListesi[31] = 'Eskişehir';
  IlListesi[32] = 'Gaziantep'; IlListesi[33] = 'Giresun'; IlListesi[34] = 'Gümüşhane'; IlListesi[35] = 'Hakkari';
  IlListesi[36] = 'Hatay'; IlListesi[37] = 'Iğdır'; IlListesi[38] = 'Isparta'; IlListesi[39] = 'İstanbul';
  IlListesi[40] = 'İzmir'; IlListesi[41] = 'Kahramanmaraş'; IlListesi[42] = 'Karabük'; IlListesi[43] = 'Karaman';
  IlListesi[44] = 'Kars'; IlListesi[45] = 'Kastamonu'; IlListesi[46] = 'Kayseri'; IlListesi[47] = 'Kırıkkale';
  IlListesi[48] = 'Kırklareli'; IlListesi[49] = 'Kırşehir'; IlListesi[50] = 'Kilis'; IlListesi[51] = 'Kocaeli';
  IlListesi[52] = 'Konya'; IlListesi[53] = 'Kütahya'; IlListesi[54] = 'Malatya'; IlListesi[55] = 'Manisa';
  IlListesi[56] = 'Mardin'; IlListesi[57] = 'Mersin'; IlListesi[58] = 'Muğla'; IlListesi[59] = 'Muş';
  IlListesi[60] = 'Nevşehir'; IlListesi[61] = 'Niğde'; IlListesi[62] = 'Ordu'; IlListesi[63] = 'Osmaniye';
  IlListesi[64] = 'Rize'; IlListesi[65] = 'Sakarya'; IlListesi[66] = 'Samsun'; IlListesi[67] = 'Siirt';
  IlListesi[68] = 'Sinop'; IlListesi[69] = 'Sivas'; IlListesi[70] = 'Şanlıurfa'; IlListesi[71] = 'Şırnak';
  IlListesi[72] = 'Tekirdağ'; IlListesi[73] = 'Tokat'; IlListesi[74] = 'Trabzon'; IlListesi[75] = 'Tunceli';
  IlListesi[76] = 'Uşak'; IlListesi[77] = 'Van'; IlListesi[78] = 'Yalova'; IlListesi[79] = 'Yozgat';
  IlListesi[80] = 'Zonguldak';
}

void KayitOl;
{
  PnlLogin.Visible = False;
  PnlKayit.Visible = True;
}

void KayitYap;
{
  ad = EdtKayitKullanici.Text;
  sifre = EdtKayitSifre.Text;
  email = EdtKayitEmail.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      ShowMessage('Bu kullanıcı adı zaten alınmış!');
    }
    else
    {
      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO kullanicilar (kullanici_adi, sifre, email) VALUES ("' + ad + '", "' + sifre + '", "' + email + '")';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Kayıt başarılı! Giriş yapabilirsiniz.');
      EdtKayitKullanici.Text = '';
      EdtKayitSifre.Text = '';
      EdtKayitEmail.Text = '';
      PnlKayit.Visible = False;
      PnlLogin.Visible = True;
    }
  }
}

void GirisYap;
{
  ad = EdtKullanici.Text;
  sifre = EdtSifre.Text;
  
  if (ad == '')
  {
    ShowMessage('Kullanıcı adı giriniz!');
  }
  else if (sifre == '')
  {
    ShowMessage('Şifre giriniz!');
  }
  else
  {
    Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT COUNT(*) as sayi FROM kullanicilar WHERE kullanici_adi = "' + ad + '" AND sifre = "' + sifre + '"';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    varMi = Clomosy.DBSQLiteQuery.FieldByName('sayi').AsInteger;
    Clomosy.DBSQLiteQuery.Close;
    
    if (varMi > 0)
    {
      KullaniciAdi = ad;
      ShowMessage('Hoş geldin ' + KullaniciAdi);
      PnlLogin.Visible = False;
      PnlAna.Visible = True;
    }
    else
    {
      ShowMessage('Kullanıcı adı veya şifre hatalı!');
    }
  }
}

void GeriDon;
{
  PnlKayit.Visible = False;
  PnlLogin.Visible = True;
}

void RotaOlustur;
{
  if ((CmbNereden.Text == '') || (CmbNereye.Text == ''))
  {
    ShowMessage('Lütfen nereden ve nereyi seçiniz!');
  }
  else
  {
    benzinSayisi = 5 + Random(10);
    otelSayisi = 3 + Random(8);
    benzinListe = 'Shell, BP, Opet, Total, Petrol Ofisi';
    otelListe = 'Hilton, Sheraton, Ramada, Holiday Inn, Divan';

    LblDetay.Text = '🚗 ROTA: ' + CmbNereden.Text + ' -> ' + CmbNereye.Text + #13#10 + #13#10 +
                    '⛽ Benzin İstasyonları: ' + IntToStr(benzinSayisi) + ' adet' + #13#10 +
                    '   Örnek: ' + benzinListe + #13#10 + #13#10 +
                    '🏨 Oteller: ' + IntToStr(otelSayisi) + ' adet' + #13#10 +
                    '   Örnek: ' + otelListe;
    LblDetay.Visible = True;

    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO rotalar (kullanici_adi, nereden, nereye, tarih) VALUES ("' + KullaniciAdi + '", "' + CmbNereden.Text + '", "' + CmbNereye.Text + '", "' + DateTimeToStr(Now) + '")';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
  }
}

void KayitliRotalariGoster;
var
  jsonStr: String;
{
  Clomosy.DBSQLiteQuery.Sql.Text = 'SELECT nereden as MAIN_TEXT, nereye as SUB_TEXT, tarih as SIDE_TEXT_BOTTOM FROM rotalar WHERE kullanici_adi = "' + KullaniciAdi + '" ORDER BY id DESC';
  Clomosy.DBSQLiteQuery.OpenOrExecute;

  LstRotalar.clLoadListViewDataFromDataset(Clomosy.DBSQLiteQuery);
  Clomosy.DBSQLiteQuery.Close;

  LstRotalar.Visible = True;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = True;
  BtnAnaGeri.Visible = True;
}

void AnaMenuGoster;
{
  LstRotalar.Visible = False;
  LblDetay.Visible = False;
  BtnRotaGoster.Visible = False;
  BtnAnaGeri.Visible = False; 
  PnlAna.Visible = True;
}

{
  MyForm = TclForm.Create(Self);
  MyForm.SetFormBGImage(' https://images.clomosy.com/media/ThemeStyle5.png" rel="nofollow - https://images.clomosy.com/media/ThemeStyle5.png ');
  
  Baglan;
  TabloKontrol;
  IlleriYukle;
  
  PnlLogin = MyForm.AddNewProPanel(MyForm, 'PnlLogin');
  PnlLogin.Align = alClient;
  
  LblLoginBaslik = MyForm.AddNewProLabel(PnlLogin, 'LblLoginBaslik', '🚗 ROTA PLANLAYICI 🏨');
  clComponent.SetupComponent(LblLoginBaslik, '{"Align":"top","Height":80,"MarginTop":60,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKullanici = MyForm.AddNewProEdit(PnlLogin, 'EdtKullanici', '');
  clComponent.SetupComponent(EdtKullanici, '{"Align":"top","Height":50,"MarginTop":40,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtSifre = MyForm.AddNewProEdit(PnlLogin, 'EdtSifre', '');
  clComponent.SetupComponent(EdtSifre, '{"Align":"top","Height":50,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  BtnGiris = MyForm.AddNewProButton(PnlLogin, 'BtnGiris', '🚀 GİRİŞ YAP');
  clComponent.SetupComponent(BtnGiris, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  MyForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');
  
  BtnKayitOl = MyForm.AddNewProButton(PnlLogin, 'BtnKayitOl', '📝 KAYIT OL');
  clComponent.SetupComponent(BtnKayitOl, '{"Align":"top","Height":55,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#3498db","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  MyForm.AddNewEvent(BtnKayitOl, tbeOnClick, 'KayitOl');
  
  PnlKayit = MyForm.AddNewProPanel(MyForm, 'PnlKayit');
  PnlKayit.Align = alClient;
  PnlKayit.Visible = False;
  
  LblKayitBaslik = MyForm.AddNewProLabel(PnlKayit, 'LblKayitBaslik', '📝 YENİ ÜYE');
  clComponent.SetupComponent(LblKayitBaslik, '{"Align":"top","Height":80,"MarginTop":40,"TextSize":28,"TextBold":"yes","TextColor":"#ffffff","TextHorizontalAlign":"center"}');
  
  EdtKayitKullanici = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitKullanici', '');
  clComponent.SetupComponent(EdtKayitKullanici, '{"Align":"top","Height":50,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Kullanıcı Adı Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  EdtKayitSifre = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitSifre', '');
  clComponent.SetupComponent(EdtKayitSifre, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"Şifre Giriniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10,"Password":true}');
  
  EdtKayitEmail = MyForm.AddNewProEdit(PnlKayit, 'EdtKayitEmail', '');
  clComponent.SetupComponent(EdtKayitEmail, '{"Align":"top","Height":50,"MarginTop":15,"MarginLeft":40,"MarginRight":40,"PlaceHolder":"E-posta Adresiniz","TextColor":"#000000","BackGroundColor":"#ffffff","RoundHeight":10}');
  
  BtnKaydet = MyForm.AddNewProButton(PnlKayit, 'BtnKaydet', '✅ KAYDET');
  clComponent.SetupComponent(BtnKaydet, '{"Align":"top","Height":55,"MarginTop":30,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":18,"RoundHeight":12}');
  MyForm.AddNewEvent(BtnKaydet, tbeOnClick, 'KayitYap');
  
  BtnGeri = MyForm.AddNewProButton(PnlKayit, 'BtnGeri', '◀ GERİ');
  clComponent.SetupComponent(BtnGeri, '{"Align":"bottom","Width":100,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  MyForm.AddNewEvent(BtnGeri, tbeOnClick, 'GeriDon');
  
  PnlAna = MyForm.AddNewProPanel(MyForm, 'PnlAna');
  PnlAna.Align = alClient;
  PnlAna.Visible = False;
  
  LblNereden = MyForm.AddNewProLabel(PnlAna, 'LblNereden', 'Nereden');
  clComponent.SetupComponent(LblNereden, '{"Align":"top","Height":30,"MarginTop":20,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereden = MyForm.AddNewComboBox(PnlAna, 'CmbNereden');
  CmbNereden.Align = alTop;
  CmbNereden.Height = 45;
  CmbNereden.Margins.Top = 5;
  CmbNereden.Margins.Left = 40;
  CmbNereden.Margins.Right = 40;
  for i = 0 to IlSayisi - 1
  { 
    CmbNereden.Items.Add(IlListesi); 
  }
  
  LblNereye = MyForm.AddNewProLabel(PnlAna, 'LblNereye', 'Nereye');
  clComponent.SetupComponent(LblNereye, '{"Align":"top","Height":30,"MarginTop":10,"MarginLeft":40,"TextSize":16,"TextBold":"yes","TextColor":"#ffffff"}');
  
  CmbNereye = MyForm.AddNewComboBox(PnlAna, 'CmbNereye');
  CmbNereye.Align = alTop;
  CmbNereye.Height = 45;
  CmbNereye.Margins.Top = 5;
  CmbNereye.Margins.Left = 40;
  CmbNereye.Margins.Right = 40;
  for i = 0 to IlSayisi - 1 
  {
    CmbNereye.Items.Add(IlListesi); 
  }
  
  BtnRotaOlustur = MyForm.AddNewProButton(PnlAna, 'BtnRotaOlustur', '🚀 ROTA OLUŞTUR');
  clComponent.SetupComponent(BtnRotaOlustur, '{"Align":"top","Height":55,"MarginTop":20,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#27ae60","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  MyForm.AddNewEvent(BtnRotaOlustur, tbeOnClick, 'RotaOlustur');
  
  BtnKayitliRotalar = MyForm.AddNewProButton(PnlAna, 'BtnKayitliRotalar', '📋 KAYITLI ROTALAR');
  clComponent.SetupComponent(BtnKayitliRotalar, '{"Align":"top","Height":55,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#2980b9","TextColor":"#ffffff","TextSize":16,"RoundHeight":12}');
  MyForm.AddNewEvent(BtnKayitliRotalar, tbeOnClick, 'KayitliRotalariGoster');
  
  LblDetay = MyForm.AddNewProLabel(PnlAna, 'LblDetay', '');
  clComponent.SetupComponent(LblDetay, '{"Align":"top","MarginTop":15,"MarginLeft":40,"MarginRight":40,"TextSize":14,"TextColor":"#ffffff","TextHorizontalAlign":"left"}');
  LblDetay.Visible = False;
  
  LstRotalar = MyForm.AddNewListView(PnlAna, 'LstRotalar');
  LstRotalar.Align = alTop;
  LstRotalar.Height = 400;
  LstRotalar.Margins.Top = 10;
  LstRotalar.Margins.Left = 20;
  LstRotalar.Margins.Right = 20;
  LstRotalar.Visible = False;
  
  BtnRotaGoster = MyForm.AddNewProButton(PnlAna, 'BtnRotaGoster', '🗺️ SEÇİLEN ROTAYI GÖSTER');
  clComponent.SetupComponent(BtnRotaGoster, '{"Align":"top","Height":50,"MarginTop":10,"MarginLeft":40,"MarginRight":40,"BackGroundColor":"#e67e22","TextColor":"#ffffff","TextSize":14,"RoundHeight":10}');
  BtnRotaGoster.Visible = False;
  
  BtnAnaGeri = MyForm.AddNewProButton(PnlAna, 'BtnAnaGeri', '◀ ANA MENÜ');
  clComponent.SetupComponent(BtnAnaGeri, '{"Align":"bottom","Width":120,"Height":50,"MarginBottom":20,"MarginLeft":20,"BackGroundColor":"#e67e22","TextColor":"#ffffff","RoundHeight":10}');
  MyForm.AddNewEvent(BtnAnaGeri, tbeOnClick, 'AnaMenuGoster');
  BtnAnaGeri.Visible = False;
  
  MyForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net