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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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;
}