void RegisterBtnClick;

{

  try

  {

    /*if (Trim(UsernameEdit.Text) == '') || (Trim(PasswordEdit.Text) == '') || (Trim(PasswordAgainEdit.Text) == '') {

      ShowMessage('Lütfen kullanıcı adı ve şifre alanlarını doldurun.');

      Exit;

    }*/

    if PasswordEdit.Text <> PasswordAgainEdit.Text {

      ShowMessage('Şifreler uyuşmuyor!');

      Exit;

    }

   //Veri tabanı bağlantısı

   Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanininismi.db', '');

    Clomosy.DBSQLiteQuery.SQL.Text =

      'CREATE TABLE IF NOT EXISTS Users (' +

      'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' +

      'Username TEXT UNIQUE, Password TEXT)';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.SQL.Text =

      'SELECT * FROM Users WHERE Username = ' + QuotedStr(UsernameEdit.Text);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if Clomosy.DBSQLiteQuery.RecordCount > 0 {

      ShowMessage('Bu kullanıcı adı zaten kayıtlı!');

      Exit;

    }

    Clomosy.DBSQLiteQuery.SQL.Text =

      'INSERT INTO Users (Username, Password) VALUES (' +

      QuotedStr(UsernameEdit.Text) + ',' +

      QuotedStr(PasswordEdit.Text) + ')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kayıt başarılı!');

    Clomosy.RunUnit('ULogin');

  }

  except

    ShowMessage('Hata oluştu: ' + LastExceptionMessage);

  }

}

var 

  RegisterForm: TclForm;

  UsernameEdit, PasswordEdit, PasswordAgainEdit: TclProEdit;

  RegisterBtn, BackToLoginBtn: TclProButton;

  MainPanel: TclProPanel;

  TitleLbl: TclProLabel;

void BackToLoginBtnClick;

{

  Clomosy.RunUnit('ULogin');

}

void RegisterBtnClick;

{

  try

  {

    /*if (Trim(UsernameEdit.Text) == '') || (Trim(PasswordEdit.Text) == '') || (Trim(PasswordAgainEdit.Text) == '') {

      ShowMessage('Lütfen kullanıcı adı ve şifre alanlarını doldurun.');

      Exit;

    }*/

    if PasswordEdit.Text <> PasswordAgainEdit.Text {

      ShowMessage('Şifreler uyuşmuyor!');

      Exit;

    }

    Clomosy.DBSQLiteQuery.SQL.Text =

      'CREATE TABLE IF NOT EXISTS Users (' +

      'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' +

      'Username TEXT UNIQUE, Password TEXT)';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    Clomosy.DBSQLiteQuery.SQL.Text =

      'SELECT * FROM Users WHERE Username = ' + QuotedStr(UsernameEdit.Text);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if Clomosy.DBSQLiteQuery.RecordCount > 0 {

      ShowMessage('Bu kullanıcı adı zaten kayıtlı!');

      Exit;

    }

    Clomosy.DBSQLiteQuery.SQL.Text =

      'INSERT INTO Users (Username, Password) VALUES (' +

      QuotedStr(UsernameEdit.Text) + ',' +

      QuotedStr(PasswordEdit.Text) + ')';

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    ShowMessage('Kayıt başarılı!');

    Clomosy.RunUnit('ULogin');

  }

  except

    ShowMessage('Hata oluştu: ' + LastExceptionMessage);

  }

}

{

  RegisterForm = TclForm.Create(Self);

  

  MainPanel = RegisterForm.AddNewProPanel(RegisterForm, 'MainPanel');

  MainPanel.Align = alClient;

  

  TitleLbl = RegisterForm.AddNewProLabel(MainPanel, 'TitleLbl', 'Kayıt Ol');

  TitleLbl.Align = alTop;

  TitleLbl.Height = 30;

  TitleLbl.Margins.Top = 30;

  TitleLbl.clProSettings.FontSize = 30;

  TitleLbl.SetclProSettings(TitleLbl.clProSettings);

  

  UsernameEdit = RegisterForm.AddNewProEdit(MainPanel, 'UsernameEdit', 'Kullanıcı Adı');

  UsernameEdit.Align = alTop;

  UsernameEdit.Margins.Top = 25;

  

  PasswordEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordEdit', 'Şifre');

  PasswordEdit.Align = alTop;

  PasswordEdit.Margins.Top = 20;

  PasswordEdit.Password = True;

  PasswordAgainEdit = RegisterForm.AddNewProEdit(MainPanel, 'PasswordAgainEdit', 'Şifre Tekrar');

  PasswordAgainEdit.Align = alTop;

  PasswordAgainEdit.Margins.Top = 20;

  PasswordAgainEdit.Password = True;

  

  RegisterBtn = RegisterForm.AddNewProButton(MainPanel, 'RegisterBtn', 'Kayıt Ol');

  RegisterBtn.Align = alTop;

  RegisterBtn.Margins.Top = 30;

  RegisterForm.AddNewEvent(RegisterBtn, tbeOnClick, 'RegisterBtnClick');

  

  BackToLoginBtn = RegisterForm.AddNewProButton(MainPanel, 'BackToLoginBtn', 'Girişe Dön');

  BackToLoginBtn.Align = alTop;

  BackToLoginBtn.Margins.Top = 10;

  

  RegisterForm.AddNewEvent(BackToLoginBtn, tbeOnClick, 'BackToLoginBtnClick');

  RegisterForm.Run;

  

  

}