Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Sqle tablo oluşturup uyglamaya ekleme
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Sqle tablo oluşturup uyglamaya ekleme
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
kayra.55 Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Saat 5 Dakika Önce
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra.55 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Sqle tablo oluşturup uyglamaya ekleme
    Gönderim Zamanı: 16 Saat 58 Dakika Önce Saat 09:28
var
  Formum: TclForm;
  AdGiris, BoyGiris, KiloGiris: TclProEdit;
  SonucYazi, OneriYazi, HareketBilgiYazi, hareketBaslik, bolgeBaslik, baslikLabel: TclProLabel;
  HesaplaButton, resimlinkButton: TclProButton;
  AnaAlan, BilgiAlan, ButtonAlan, SonucAlani, OneriAlani, HareketAlani, BolgeAlan, TakvimAlani, bolgeButtonPanel: TclProPanel;
  HareketResim: TclProImage;
  
  KolButton, SirtButton, BacakButton : TclProButton;
  
  KOL_Btn, SIRT_Btn, BACAK_Btn: TclProButton;
  
  KolResim, SirtResim, BacakResim, setImage: TclProImage;
  TakvimEtiketi: TclProLabel;
  ad: String;
  boy, kilo, vki: Float;
  durum, secilenBolge: String;
  bugunTarihi: String;

void HesaplaButtonTikla
{
  if ((AdGiris.Text == '') || (BoyGiris.Text == '') || (KiloGiris.Text == '')) {
    ShowMessage('Lütfen tüm alanları doldurunuz.');
  } else {
    ad = AdGiris.Text;
    boy = StrToFloat(BoyGiris.Text) / 100;
    kilo = StrToFloat(KiloGiris.Text);
    vki = kilo / (boy * boy);
    vki = Round(vki * 10) / 10;

    if (vki < 18.5) {
      durum = 'Zayıf - Direnç antrenmanları yapabilirsiniz.';
    } else if (vki < 25) {
      durum = 'Normal - Haftada 3-4 gün kardiyo ve güç antrenmanı önerilir.';
    } else if (vki < 30) {
      durum = 'Fazla kilolu - Düzenli yürüyüş ve hafif kardiyo yapmalısınız.';
    } else {
      durum = 'Obez - Uzman kontrolünde düşük etkili egzersiz yapınız.';
    }

    SonucYazi.Text = 'Merhaba ' + ad + ', VKİ: ' + FloatToStr(vki);
    OneriYazi.Text = durum;
    HareketBilgiYazi.Text = '';

    bugunTarihi = DateToStr(Date());
    TakvimEtiketi.Text = 'Bugünkü kayıt: ' + bugunTarihi + ' | VKİ: ' + FloatToStr(vki);
  }
}

void KolButtonTikla
{
  secilenBolge = 'Kol';
  Clomosy.RunUnit ('uKOL');

}

void SirtButtonTikla
{
  secilenBolge = 'Sırt';
  Clomosy.RunUnit ('uSIRT');

}

void BacakButtonTikla
{
  Clomosy.RunUnit ('uBACAK');
  secilenBolge = 'Bacak';


}

{
  Formum = TclForm.Create(Self);
  Formum.SetFormColor('#f5f5f5', 'color2', clGNone);
  
  // Ana Alan - Mobile uyumlu spacing
  AnaAlan = Formum.AddNewProPanel(Formum, 'AnaAlan');
  AnaAlan.Align = alClient;
  AnaAlan.Margins.Top = 15;
  AnaAlan.Margins.Bottom = 20;
  AnaAlan.Margins.Left = 15;
  AnaAlan.Margins.Right = 15;

  // Bilgi Giriş Alanı - Daha büyük ve kullanıcı dostu
  BilgiAlan = Formum.AddNewProPanel(AnaAlan, 'BilgiAlan');
  BilgiAlan.Align = alTop;
  BilgiAlan.Height = 180;
  BilgiAlan.Margins.Bottom = 20;

  // Başlık
  baslikLabel = Formum.AddNewProLabel(BilgiAlan, 'baslikLabel', 'VKİ Hesaplayıcı');
  baslikLabel.Align = alTop;
  baslikLabel.Height = 40;
  baslikLabel.clProSettings.FontSize = 20;
  baslikLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  baslikLabel.clProSettings.FontHorzAlign = palCenter;
  baslikLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  baslikLabel.Margins.Bottom = 15;
  baslikLabel.SetclProSettings(baslikLabel.clProSettings);

  AdGiris = Formum.AddNewProEdit(BilgiAlan, 'AdGiris','Adınız');
  AdGiris.Align = alTop;
  AdGiris.Height = 35;
  AdGiris.Margins.Bottom = 10;
  AdGiris.clProSettings.FontSize = 16;
  AdGiris.SetclProSettings(AdGiris.clProSettings);

  BoyGiris = Formum.AddNewProEdit(BilgiAlan, 'BoyGiris','Boy (cm)');
  BoyGiris.Align = alTop;
  BoyGiris.clTypeOfField = taFloat;
  BoyGiris.Height = 35;
  BoyGiris.Margins.Bottom = 10;
  BoyGiris.clProSettings.FontSize = 16;
  BoyGiris.SetclProSettings(BoyGiris.clProSettings);

  KiloGiris = Formum.AddNewProEdit(BilgiAlan, 'KiloGiris','Kilo (kg)');
  KiloGiris.Align = alTop;
  KiloGiris.clTypeOfField = taFloat;
  KiloGiris.Height = 35;
  KiloGiris.Margins.Bottom = 10;
  KiloGiris.clProSettings.FontSize = 16;
  KiloGiris.SetclProSettings(KiloGiris.clProSettings);

  // Hesapla Butonu - Modern tasarım
  ButtonAlan = Formum.AddNewProPanel(AnaAlan, 'ButtonAlan');
  ButtonAlan.Align = alTop;
  ButtonAlan.Height = 60;
  ButtonAlan.Margins.Bottom = 30;

  HesaplaButton = Formum.AddNewProButton(ButtonAlan, 'HesaplaButton', 'VKİ Hesapla');
  HesaplaButton.Align = alCenter;
  HesaplaButton.Width = 200;
  HesaplaButton.Height = 50;
  HesaplaButton.clProSettings.FontSize = 16;
  HesaplaButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  HesaplaButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');
  HesaplaButton.clProSettings.IsRound = True;
  HesaplaButton.clProSettings.RoundHeight = 25;
  HesaplaButton.clProSettings.RoundWidth = 25;
  HesaplaButton.SetclProSettings(HesaplaButton.clProSettings);
  Formum.AddNewEvent(HesaplaButton, tbeOnClick, 'HesaplaButtonTikla');

  // Sonuç Alanı - Daha görsel
  SonucAlani = Formum.AddNewProPanel(AnaAlan, 'SonucAlani');
  SonucAlani.Align = alTop;
  SonucAlani.Height = 70;
  SonucAlani.Margins.Bottom = 15;

  SonucYazi = Formum.AddNewProLabel(SonucAlani, 'SonucYazi', '');
  SonucYazi.Align = alClient;
  SonucYazi.clProSettings.FontSize = 22;
  SonucYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  SonucYazi.clProSettings.FontHorzAlign = palCenter;
  SonucYazi.clProSettings.TextSettings.Font.Style = [fsBold];
  SonucYazi.Margins.Left = 15;
  SonucYazi.Margins.Right = 15;
  SonucYazi.SetclProSettings(SonucYazi.clProSettings);

  // Öneri Alanı
  OneriAlani = Formum.AddNewProPanel(AnaAlan, 'OneriAlani');
  OneriAlani.Align = alTop;
  OneriAlani.Height = 80;
  OneriAlani.Margins.Bottom = 30;

  OneriYazi = Formum.AddNewProLabel(OneriAlani, 'OneriYazi', '');
  OneriYazi.Align = alClient;
  OneriYazi.clProSettings.WordWrap = True;
  OneriYazi.clProSettings.FontSize = 15;
  OneriYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  OneriYazi.clProSettings.FontHorzAlign = palCenter;
  OneriYazi.Margins.Left = 15;
  OneriYazi.Margins.Right = 15;
  OneriYazi.SetclProSettings(OneriYazi.clProSettings);

  // Takvim Alanı
  TakvimAlani = Formum.AddNewProPanel(AnaAlan, 'TakvimAlani');
  TakvimAlani.Align = alTop;
  TakvimAlani.Height = 60;
  TakvimAlani.Margins.Bottom = 20;

  TakvimEtiketi = Formum.AddNewProLabel(TakvimAlani, 'TakvimEtiketi', 'Bugünkü kayıt: -');
  TakvimEtiketi.Align = alClient;
  TakvimEtiketi.clProSettings.FontSize = 13;
  TakvimEtiketi.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  TakvimEtiketi.clProSettings.FontHorzAlign = palCenter;
  TakvimEtiketi.clProSettings.TextSettings.Font.Style = [fsBold];
  TakvimEtiketi.Margins.Left = 15;
  TakvimEtiketi.Margins.Right = 15;
  TakvimEtiketi.SetclProSettings(TakvimEtiketi.clProSettings);

  // Bölge Seçim Alanı - Modern ProButton'lar ile
  BolgeAlan = Formum.AddNewProPanel(AnaAlan, 'BolgeAlan');
  BolgeAlan.Align = alTop;
  BolgeAlan.Height = 120;
  BolgeAlan.Margins.Bottom = 30;

  // Bölge başlığı
  bolgeBaslik = Formum.AddNewProLabel(BolgeAlan, 'bolgeBaslik', 'Antrenman Bölgesi Seçin');
  bolgeBaslik.Align = alTop;
  bolgeBaslik.Height = 30;
  bolgeBaslik.clProSettings.FontSize = 16;
  bolgeBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');
  bolgeBaslik.clProSettings.FontHorzAlign = palCenter;
  bolgeBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  bolgeBaslik.Margins.Bottom = 10;
  bolgeBaslik.SetclProSettings(bolgeBaslik.clProSettings);

  // Bölge butonları - Horizontal düzen
  bolgeButtonPanel = Formum.AddNewProPanel(BolgeAlan, 'bolgeButtonPanel');
  bolgeButtonPanel.Align = alClient;
  bolgeButtonPanel.Margins.Left = 20;
  bolgeButtonPanel.Margins.Right = 20;

  // Kol Butonu
  KOL_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'KOL_Btn', '');
  KOL_Btn.Align = alLeft;
  KOL_Btn.Width = 80;
  KOL_Btn.Height = 70;
  KOL_Btn.Margins.Right = 15;
  KOL_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#e74c3c');
  KOL_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  KOL_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  KOL_Btn.clProSettings.RoundHeight = 12;
  KOL_Btn.clProSettings.RoundWidth = 12;
  KOL_Btn.clProSettings.BorderWidth = 2;
  KOL_Btn.SetclProSettings(KOL_Btn.clProSettings);
  Formum.SetImage(KOL_Btn, 'https://r.resimlink.com/xLAKF5tZ.jpg');
  Formum.AddNewEvent(KOL_Btn, tbeOnClick, 'KolButtonTikla');

  // Sırt Butonu
  SIRT_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'SIRT_Btn', '');
  SIRT_Btn.Align = alLeft;
  SIRT_Btn.Width = 80;
  SIRT_Btn.Height = 70;
  SIRT_Btn.Margins.Right = 15;
  SIRT_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#3498db');
  SIRT_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  SIRT_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  SIRT_Btn.clProSettings.RoundHeight = 12;
  SIRT_Btn.clProSettings.RoundWidth = 12;
  SIRT_Btn.clProSettings.BorderWidth = 2;
  SIRT_Btn.SetclProSettings(SIRT_Btn.clProSettings);
  Formum.SetImage(SIRT_Btn, 'https://r.resimlink.com/mH6DWJEr.jpg');
  Formum.AddNewEvent(SIRT_Btn, tbeOnClick, 'SirtButtonTikla');

  // Bacak Butonu
  BACAK_Btn = Formum.AddNewProButton(bolgeButtonPanel, 'BACAK_Btn', '');
  BACAK_Btn.Align = alLeft;
  BACAK_Btn.Width = 80;
  BACAK_Btn.Height = 70;
  BACAK_Btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#27ae60');
  BACAK_Btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');
  BACAK_Btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
  BACAK_Btn.clProSettings.RoundHeight = 12;
  BACAK_Btn.clProSettings.RoundWidth = 12;
  BACAK_Btn.clProSettings.BorderWidth = 2;
  BACAK_Btn.SetclProSettings(BACAK_Btn.clProSettings);
  Formum.SetImage(BACAK_Btn, 'https://r.resimlink.com/rAgk5.png');
  Formum.AddNewEvent(BACAK_Btn, tbeOnClick, 'BacakButtonTikla');

  // Hareket Alanı - Scrollable
  HareketAlani = Formum.AddNewProPanel(AnaAlan, 'HareketAlani');
  HareketAlani.Align = alClient;
  HareketAlani.Margins.Top = 10;
  HareketAlani.Margins.Bottom = 10;
  

  // Hareket başlığı
  hareketBaslik = Formum.AddNewProLabel(HareketAlani, 'hareketBaslik', 'Antrenman Hareketleri');
  hareketBaslik.Align = alTop;
  hareketBaslik.Height = 35;
  hareketBaslik.clProSettings.FontSize = 16;
  hareketBaslik.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  hareketBaslik.clProSettings.FontHorzAlign = palCenter;
  hareketBaslik.clProSettings.TextSettings.Font.Style = [fsBold];
  hareketBaslik.Margins.Bottom = 15;
  hareketBaslik.Margins.Left = 15;
  hareketBaslik.SetclProSettings(hareketBaslik.clProSettings);

  

  // Hareket bilgi alanı
  HareketBilgiYazi = Formum.AddNewProLabel(HareketAlani, 'HareketBilgiYazi', '');
  HareketBilgiYazi.Align = alTop;
  HareketBilgiYazi.Height = 80;
  HareketBilgiYazi.clProSettings.WordWrap = True;
  HareketBilgiYazi.clProSettings.FontSize = 14;
  HareketBilgiYazi.clProSettings.FontColor = clAlphaColor.clHexToColor('#2c3e50');
  HareketBilgiYazi.clProSettings.FontHorzAlign = palCenter;
  HareketBilgiYazi.Margins.Left = 15;
  HareketBilgiYazi.Margins.Right = 15;
  HareketBilgiYazi.Margins.Bottom = 15;
  HareketBilgiYazi.SetclProSettings(HareketBilgiYazi.clProSettings);




  Formum.Run;
}  SQL den bir tablo oluşturup entegre etmeye çalıştım ama başarılı olamadım şimdiden yardımlarınız için çok teşekkürler 
https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 422 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 16 Saat 47 Dakika Önce Saat 09:39
Merhaba Kayra, 
Öncelikle SQL ile bağlantı kurman gerekiyor 
Clomosy.DBSQLServerConnect('SQL
Server','CloData','testClo','123456','DBClo',1433); şeklinde 
https://www.docs.clomosy.com/SQL_Server_Queries incelediğin de daha iyi anlayacağını düşünüyorum.
İyi çalışmalar.

https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,033 Saniyede Yüklendi.