var
loginForm: TclStyleForm;
TCEdit, IsimEdit: TclEdit;
GirisButon : TclButton;
GirisekraniUnit : TclUnit
CekQeury : TclSqlQuery;
void Verigetir;
{
try
Clomosy.CekQuery.Sql.Text = 'INSERT INTO Doktortakip1 (Tc, Isim) VALUES ('+QuotedStr(TCEdit.Text)+', '+QuotedStr(IsimEdit.Text)+')';
Clomosy.CekQuery.ExecSql;
ShowMessage('Veri ekleme başarılı');
except
ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);
}
/*void GoToGirisekraniUnit;
{
GirisekraniUnit = TclUnit.Create;
GirisekraniUnit.UnitName = 'GirisekraniUnit';
GirisekraniUnit.CallerForm = loginForm;
GirisekraniUnit.Run;
}
*/
{
loginForm = TclStyleForm.Create(Self);
// Kullanıcı adı Edit oluşturma ve ayarları
TCEdit = loginForm.AddNewEdit(loginForm, 'TCEdit', 'TC');
TCEdit.Align = alTop;
TCEdit.Height = 40;
TCEdit.Margins.Top = 50;
TCEdit.Margins.Left = 20;
TCEdit.Margins.Right = 20;
// Şifre Edit oluşturma ve ayarları
IsimEdit = loginForm.AddNewEdit(loginForm, 'IsimEdit', 'Isim');
IsimEdit.Align = alTop;
IsimEdit.Height = 40;
IsimEdit.Margins.Top = 10;
IsimEdit.Margins.Left = 20;
IsimEdit.Margins.Right = 20;
// Giriş Butonu oluşturma ve ayarları
GirisButon = loginForm.AddNewButton(loginForm, 'GirisButon', 'Giris');
GirisButon.Align = alTop;
GirisButon.Height = 40;
GirisButon.Margins.Top = 20;
GirisButon.Margins.Left = 20;
GirisButon.Margins.Right = 20;
loginForm.AddNewEvent(GirisButon, tbeOnClick, 'GoToGirisekraniUnit');
loginForm.AddNewEvent(GirisButon,tbeOnClick,'Verigetir');
CekQeury = TclSqlQuery.Create(nil);
Clomosy.CekQeuryConnect('SQL Server', '172.16.222.111', 'sa', '159951ysf', 'Doktortakip', 50000);
CekQeury.Connection = Clomosy.CekQeuryConnection;
loginForm.Run;
}
2 Eventi kabul etmiyor ya da bir hatam varmı kodlarda
Event
Topic Seçenekleri
