Clomosy | Forum : veritabanı'nı göremiyorum

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;

}