veritabanı'nı göremiyorum


   //'yeni' adında veritabanı açtım, sqllitestudio da içine veri ekledim daha sonra bunu //clomosy nin masaüstü uygulamasında çalıştırınca veriyi gösteriyor ama telefonda öyle  // bir  tablo bulunamadı diyor
var

anaForm: TclForm;

kullaniciAdEdit,passwordEdit : TclProEdit;

loginImg,passwordImg,showPasswordImg : TCLImage;

girisYap,showPassword : TClProButton;

database,sifre: String;

Qry : TclSQLiteQuery;

testListview : TCLListView;


void setEdit;
{
 kullaniciAdEdit=anaForm.AddNewProEdit(anaForm, 'kullaniciAdEdit', 'Kullanıcı Adınız ');
 passwordEdit   =anaForm.AddNewProEdit(anaForm, 'passwordEdit', 'Şifreniz ');
 

 //-------------------password label-----------------------
 clComponent.SetupComponent(passwordEdit,'{
 "Align" : "Center",
 "MarginBottom" : 50,
 "Width" : 250,
 "Height" : 50,
 "RoundHeight" : 10,
 "RoundWidth" : 10,
 "MarginLeft" : 0,
 "TextVerticalAlign":"Center"
 }');
 passwordEdit.MaxLength=15;
 passwordEdit.TextSettings.Font.Size = 15; 
 passwordEdit.Password = True;
 
 
 //--------------kullanıcı adı label--------------------
 clComponent.SetupComponent(kullaniciAdEdit,'{
 "Align" : "Center",
 "MarginBottom" : 185,
 "Width" : 250,
 "Height" : 50,
 "RoundHeight" : 10,
 "RoundWidth" : 10,
 "MarginLeft" : 0,
 "TextVerticalAlign":"Center"
 }');
 kullaniciAdEdit.MaxLength=15;
 kullaniciAdEdit.TextSettings.Font.Size = 15; 
}

void setImage;
{

 //-----------kullanıcıAdı img--------
 loginImg=anaForm.AddNewImage(kullaniciAdEdit,'loginImg');
 loginImg.Align=alLeft;
 loginImg.Margins.Left=5;
 loginImg.Margins.Top=5;
 loginImg.Margins.Bottom=5;
 loginImg.Width=25;
 
 anaForm.SetImage(loginImg,'https://static.vecteezy.com/system/resources/thumbnails/007/033/146/small_2x/profile-icon-login-head-icon-vector.jpg');
 
 
 // -----------password img---------
 passwordImg=anaForm.AddNewImage(passwordEdit,'passwordImg');
 passwordImg.Align=alLeft;
 passwordImg.Margins.Left=5;
 passwordImg.Margins.Top=5;
 passwordImg.Margins.Bottom=5;
 passwordImg.Width=25;
 anaForm.SetImage(passwordImg,'https://w7.pngwing.com/pngs/469/644/png-transparent-computer-icons-password-login-user-privacy-miscellaneous-christianity-rectangle-thumbnail.png');

}


void btn
{
  
  girisYap = anaForm.AddNewProButton(anaForm, 'girisYap', 'Giriş Yap');
  
  clComponent.SetupComponent(girisYap,'{
 "Align" : "Center",
 "MarginBottom" : -100,
 "Width" : 250,
 "Height" : 50,
 "RoundHeight" : 10,
 "RoundWidth" : 10,
 "MarginLeft" : 0,
 "TextVerticalAlign":"Center",
 "TextSize":20,
 "BackgroundColor":"#007539",
 "TextColor":"#ffffff",
 "BorderColor":"#1d3428",
 "BorderWidth":2,
 "TextBold":"yes"
 }');
 

 showPassword = anaForm.AddNewProButton(anaForm, 'showPassword', '');
  
 clComponent.SetupComponent(showPassword,'{
 "Align" : "Center",
 "MarginBottom" : 50,
 "Width" : 50,
 "Height" : 50,
 "RoundHeight" : 10,
 "RoundWidth" : 10,
 "MarginLeft" : 310,
 "BorderColor":"#1d3428",
 "BorderWidth":2,
 "TextVerticalAlign":"Center"
 }');
 
 
  // -------------- şifreyi göstermek için kullanılan button-------
  showPasswordImg=anaForm.AddNewImage(showPassword,'showPasswordImg');
  anaForm.SetImage(showPasswordImg,'https://cdn-icons-png.flaticon.com/512/6684/6684701.png');
  
  
}


void showBtn;
{
  if(passwordEdit.Password==True)
  {
    passwordEdit.Password=False;
  }
  else
  passwordEdit.Password=true;
  
}


void getData;
{
  try
    Qry = Clomosy.DBSQLiteQueryWith('SELECT AD as MAIN_TEXT, SifreDB as SUB_TEXT FROM Login');
    Qry.OpenOrExecute;
    testListview.clLoadListViewDataFromDataset(Qry);
  except
  
    ShowMessage('EXCEPT class' +  LastExceptionClassName + 'Exception Message: '+ LastExceptionMessage);
  }  
}

void insertToDataBase;
{
  try
    Clomosy.DBSQLiteQuery.Sql.Text='INSERT INTO Login (AD,SifreDB) VALUES (' +QuotedStr(kullaniciAdEdit.Text)+ ','+ QuotedStr(passwordEdit)+')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('veri ekleme basarılı');
    getData;
  except
    ShowMessage('EXCEPT class' +  LastExceptionClassName + 'Exception Message: '+ LastExceptionMessage);
  }
}  


{

  anaForm=TclForm.Create(Self);  
  anaForm.SetFormBGImage('https://cdn.wallpapersafari.com/80/94/AC21PJ.jpg');
  
  testListview=anaForm.AddNewListView(anaForm,'testListview');
  testListview.Align = alTop;
  
  
  database = Clomosy.AppFilesPath + 'yeni.db';
  sifre = '';
  Clomosy.DBSQLiteConnect(database,sifre);
  
  
  setEdit;
  setImage;
  btn;
  
  anaForm.AddNewEvent(showPasswordImg,tbeOnClick,'showBtn');
  anaForm.AddNewEvent(showPassword,tbeOnClick,'showBtn');
  
  insertToDataBase;
  getData;
  
  anaForm.AddNewEvent(girisYap,tbeOnClick,'insertToDataBase')
 
  
  anaForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kenan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 01 Temmuz 2025 Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı kenan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: veritabanı'nı göremiyorum Gönderim Zamanı: 6 Saat 57 Dakika Önce Saat 17:36
	//'yeni' adında veritabanı açtım, sqllitestudio da içine veri ekledim daha sonra bunu //clomosy nin masaüstü uygulamasında çalıştırınca veriyi gösteriyor ama telefonda öyle // bir tablo bulunamadı diyor var anaForm: TclForm; kullaniciAdEdit,passwordEdit : TclProEdit; loginImg,passwordImg,showPasswordImg : TCLImage; girisYap,showPassword : TClProButton; database,sifre: String; Qry : TclSQLiteQuery; testListview : TCLListView; void setEdit; { kullaniciAdEdit=anaForm.AddNewProEdit(anaForm, 'kullaniciAdEdit', 'Kullanıcı Adınız '); passwordEdit =anaForm.AddNewProEdit(anaForm, 'passwordEdit', 'Şifreniz '); //-------------------password label----------------------- clComponent.SetupComponent(passwordEdit,'{ "Align" : "Center", "MarginBottom" : 50, "Width" : 250, "Height" : 50, "RoundHeight" : 10, "RoundWidth" : 10, "MarginLeft" : 0, "TextVerticalAlign":"Center" }'); passwordEdit.MaxLength=15; passwordEdit.TextSettings.Font.Size = 15; passwordEdit.Password = True; //--------------kullanıcı adı label-------------------- clComponent.SetupComponent(kullaniciAdEdit,'{ "Align" : "Center", "MarginBottom" : 185, "Width" : 250, "Height" : 50, "RoundHeight" : 10, "RoundWidth" : 10, "MarginLeft" : 0, "TextVerticalAlign":"Center" }'); kullaniciAdEdit.MaxLength=15; kullaniciAdEdit.TextSettings.Font.Size = 15; } void setImage; { //-----------kullanıcıAdı img-------- loginImg=anaForm.AddNewImage(kullaniciAdEdit,'loginImg'); loginImg.Align=alLeft; loginImg.Margins.Left=5; loginImg.Margins.Top=5; loginImg.Margins.Bottom=5; loginImg.Width=25; anaForm.SetImage(loginImg,'https://static.vecteezy.com/system/resources/thumbnails/007/033/146/small_2x/profile-icon-login-head-icon-vector.jpg'); // -----------password img--------- passwordImg=anaForm.AddNewImage(passwordEdit,'passwordImg'); passwordImg.Align=alLeft; passwordImg.Margins.Left=5; passwordImg.Margins.Top=5; passwordImg.Margins.Bottom=5; passwordImg.Width=25; anaForm.SetImage(passwordImg,'https://w7.pngwing.com/pngs/469/644/png-transparent-computer-icons-password-login-user-privacy-miscellaneous-christianity-rectangle-thumbnail.png'); } void btn { girisYap = anaForm.AddNewProButton(anaForm, 'girisYap', 'Giriş Yap'); clComponent.SetupComponent(girisYap,'{ "Align" : "Center", "MarginBottom" : -100, "Width" : 250, "Height" : 50, "RoundHeight" : 10, "RoundWidth" : 10, "MarginLeft" : 0, "TextVerticalAlign":"Center", "TextSize":20, "BackgroundColor":"#007539", "TextColor":"#ffffff", "BorderColor":"#1d3428", "BorderWidth":2, "TextBold":"yes" }'); showPassword = anaForm.AddNewProButton(anaForm, 'showPassword', ''); clComponent.SetupComponent(showPassword,'{ "Align" : "Center", "MarginBottom" : 50, "Width" : 50, "Height" : 50, "RoundHeight" : 10, "RoundWidth" : 10, "MarginLeft" : 310, "BorderColor":"#1d3428", "BorderWidth":2, "TextVerticalAlign":"Center" }'); // -------------- şifreyi göstermek için kullanılan button------- showPasswordImg=anaForm.AddNewImage(showPassword,'showPasswordImg'); anaForm.SetImage(showPasswordImg,'https://cdn-icons-png.flaticon.com/512/6684/6684701.png'); } void showBtn; { if(passwordEdit.Password==True) { passwordEdit.Password=False; } else passwordEdit.Password=true; } void getData; { try Qry = Clomosy.DBSQLiteQueryWith('SELECT AD as MAIN_TEXT, SifreDB as SUB_TEXT FROM Login'); Qry.OpenOrExecute; testListview.clLoadListViewDataFromDataset(Qry); except ShowMessage('EXCEPT class' + LastExceptionClassName + 'Exception Message: '+ LastExceptionMessage); } } void insertToDataBase; { try Clomosy.DBSQLiteQuery.Sql.Text='INSERT INTO Login (AD,SifreDB) VALUES (' +QuotedStr(kullaniciAdEdit.Text)+ ','+ QuotedStr(passwordEdit)+')'; Clomosy.DBSQLiteQuery.OpenOrExecute; ShowMessage('veri ekleme basarılı'); getData; except ShowMessage('EXCEPT class' + LastExceptionClassName + 'Exception Message: '+ LastExceptionMessage); } } { anaForm=TclForm.Create(Self); anaForm.SetFormBGImage('https://cdn.wallpapersafari.com/80/94/AC21PJ.jpg'); testListview=anaForm.AddNewListView(anaForm,'testListview'); testListview.Align = alTop; database = Clomosy.AppFilesPath + 'yeni.db'; sifre = ''; Clomosy.DBSQLiteConnect(database,sifre); setEdit; setImage; btn; anaForm.AddNewEvent(showPasswordImg,tbeOnClick,'showBtn'); anaForm.AddNewEvent(showPassword,tbeOnClick,'showBtn'); insertToDataBase; getData; anaForm.AddNewEvent(girisYap,tbeOnClick,'insertToDataBase') anaForm.Run; }

BilalCndn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Forum Yöneticisi Kayıt Tarihi: 09 Ekim 2023 Durum: Aktif Değil Puanlar: 159	Mesaj Seçenekleri Yanıt Yaz Alıntı BilalCndn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 6 Saat 46 Dakika Önce Saat 17:47
	Merhaba Kenan, Bilgisayar üzerinde oluşturmuş olduğun Sqlite veritabanı dosyasına telefondan erişememen gayet normal bir durum. Sqlite dosya tabanlı çalışan bir veritabanı sistemi olduğu için erişebilmek için dosyaya ihtiyaç duyarsın. Çözüm olarak veritabanını farklı bir uygulamadan oluşturmak yerine Clomosy içerisinden oluşturmanı tavsiye ederim. Bu şekilde kod çalıştığında veritabanı dosyasını oluşturabileceğin için projeye dahil olan her cihaz ekstra dosyaya ihtiyaç duymadan veritabanı kullanabilir. Fakat bir cihazda yazdığın veriyi farklı bir cihazda göremeyeceğin bilgisi ile yazmalısın. https://www.docs.clomosy.com/index.php?title=Local_Database_Queries Konu ile ilgili bu dokümanı incelemeni tavsiye ederim. İyi çalışmalar dilerim.
	Bilal Candan Atiker Yazılım Veri İşlem A.Ş. Software and Artificial Intelligence Development Specialist [email protected]