Clomosy | Forum : Projeye Otomatik Dahil Olma

Clomosy | Forum : Projeye Otomatik Dahil Olma https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 21 Aug 2026 01:39:13 +0000 Tue, 07 Jul 2026 10:22:19 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_topic_feed.asp?FID=119 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3679#3679 Yazar: Emr.Erkmn
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 07 Temmuz 2026 Saat 10:22

Ayrıca görselin uzantısının png veya jpeg formatın da olması gereklihttps://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">]]> Tue, 07 Jul 2026 10:22:19 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3679#3679 <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3674#3674 Yazar: vesile
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 07 Temmuz 2026 Saat 10:02

Tamamdır hocam, deniyorum.https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">]]> Tue, 07 Jul 2026 10:02:52 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3674#3674 <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3673#3673 Yazar: kayra12
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 07 Temmuz 2026 Saat 09:58

merhaba vesile kodun tam hali burada iyi çalışmalar var

LoginForm : TclForm;

MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;

ImgLogo : TclImage;

LblBaslik, LblAciklama : TclLabel;

EdtEmail, EdtSifre : TclEdit;

BtnGiris, BtnKayit : TclButton;

void GirisYap;

{

if (EdtEmail.Text == '')

ShowMessage('Lütfen e-posta adresinizi giriniz.');

else if (EdtSifre.Text == '')

ShowMessage('Lütfen şifrenizi giriniz.');

else

ShowMessage('Giriş kontrolü yapılacak.');

}

void KayitEkraninaGit;

{

ShowMessage('Kayıt ekranı açılacak.');

}

{

LoginForm = TclForm.Create(Self);

LoginForm.clSetCaption('Terzim');

LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);

MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');

MainPanel.Align = alClient;

HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');

HeaderPanel.Align = alTop;

HeaderPanel.Height = 260;

// ImgLogo sadece 1 kere tanımlanmalı

ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');

ImgLogo.Align = alTop;

ImgLogo.Height = 115;

// Projene eklediğin lokal görseli kullanıyoruz

LoginForm.SetImage(ImgLogo, 'https://i.hizliresim.com/nyujuzk.png');

LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');

LblBaslik.Align = alTop;

LblBaslik.Height = 60;

LblBaslik.StyledSettings = ssFamily;

LblBaslik.TextSettings.Font.Size = 34;

LblBaslik.TextSettings.HorzAlign = taCenter;

LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');

LblAciklama.Align = alTop;

LblAciklama.Height = 35;

LblAciklama.TextSettings.Font.Size = 17;

LblAciklama.TextSettings.HorzAlign = taCenter;

CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');

CardPanel.Align = alTop;

CardPanel.Height = 360;

CardPanel.Margins.Left = 25;

CardPanel.Margins.Right = 25;

CardPanel.Margins.Top = 25;

FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');

FormPanel.Align = alClient;

FormPanel.Margins.Left = 20;

FormPanel.Margins.Right = 20;

FormPanel.Margins.Top = 25;

FormPanel.Margins.Bottom = 20;

EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');

EdtEmail.Align = alTop;

EdtEmail.Height = 55;

EdtEmail.KeyboardType = vktEmailAddress;

EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');

EdtSifre.Align = alTop;

EdtSifre.Height = 55;

EdtSifre.Margins.Top = 12;

EdtSifre.Password = True; // Şifre karakterlerinin gizli görünmesini sağlar

BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');

BtnGiris.Align = alTop;

BtnGiris.Height = 55;

BtnGiris.Margins.Top = 25;

BtnGiris.TextSettings.Font.Size = 18;

BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');

BtnKayit.Align = alTop;

BtnKayit.Height = 55;

BtnKayit.Margins.Top = 15;

LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');

LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');

LoginForm.Run;

}

LoginForm.SetImage(

  ImgLogo,

  'https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn'

);Burada doğru anladıysam kod içerisinde görsel ekliyorsun onun yerine IDE de yer alan assest sekmesinden drive görseli yükleyip dosya konumunu sadece ekleyip çalıştırmayı dener misin?

< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous">]]> Tue, 07 Jul 2026 09:57:04 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3672#3672 <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3671#3671 Yazar: vesile
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 06 Temmuz 2026 Saat 18:10

Merhaba, https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">

Aynı hatayı tekrardan döndürüyor.

]]> Mon, 06 Jul 2026 18:10:51 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3671#3671 <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3670#3670 Yazar: MehmetOzcan
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 06 Temmuz 2026 Saat 18:00

Merhaba çalıstırıp deneyebilirmisiniz.https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">

var

LoginForm : TclForm;

MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;

ImgLogo : TclImage;

LblBaslik, LblAciklama : TclLabel;

EdtEmail, EdtSifre : TclEdit;

BtnGiris, BtnKayit : TclButton;

void GirisYap;

{

if (EdtEmail.Text == '')

ShowMessage('Lütfen e-posta adresinizi giriniz.');

else if (EdtSifre.Text == '')

ShowMessage('Lütfen şifrenizi giriniz.');

else

ShowMessage('Giriş kontrolü yapılacak.');

}

void KayitEkraninaGit;

{

ShowMessage('Kayıt ekranı açılacak.');

}

{

LoginForm = TclForm.Create(Self);

LoginForm.clSetCaption('Terzim');

LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);

MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');

MainPanel.Align = alClient;

HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');

HeaderPanel.Align = alTop;

HeaderPanel.Height = 260;

ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');

ImgLogo.Align = alTop;

ImgLogo.Height = 115;

LoginForm.SetImage(ImgLogo, 'https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn');

LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');

LblBaslik.Align = alTop;

LblBaslik.Height = 60;

LblBaslik.StyledSettings = ssFamily;

LblBaslik.TextSettings.Font.Size = 34;

LblBaslik.TextSettings.HorzAlign = taCenter;

LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');

LblAciklama.Align = alTop;

LblAciklama.Height = 35;

LblAciklama.TextSettings.Font.Size = 17;

LblAciklama.TextSettings.HorzAlign = taCenter;

CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');

CardPanel.Align = alTop;

CardPanel.Height = 360;

CardPanel.Margins.Left = 25;

CardPanel.Margins.Right = 25;

CardPanel.Margins.Top = 25;

FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');

FormPanel.Align = alClient;

FormPanel.Margins.Left = 20;

FormPanel.Margins.Right = 20;

FormPanel.Margins.Top = 25;

FormPanel.Margins.Bottom = 20;

EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');

EdtEmail.Align = alTop;

EdtEmail.Height = 55;

EdtEmail.KeyboardType = vktEmailAddress;

EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');

EdtSifre.Align = alTop;

EdtSifre.Height = 55;

EdtSifre.Margins.Top = 12;

BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');

BtnGiris.Align = alTop;

BtnGiris.Height = 55;

BtnGiris.Margins.Top = 25;

BtnGiris.TextSettings.Font.Size = 18;

BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');

BtnKayit.Align = alTop;

BtnKayit.Height = 55;

BtnKayit.Margins.Top = 15;

LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');

LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');

LoginForm.Run;

}

]]> Mon, 06 Jul 2026 18:00:42 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3670#3670 <![CDATA[Projeye Otomatik Dahil Olma : Drivedan çekilen görsel için kod hatası]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3668#3668 Yazar: vesile
Konu: Drivedan çekilen görsel için kod hatası
Gönderim Zamanı: 06 Temmuz 2026 Saat 17:45

var 
  LoginForm : TclForm;
  MainPanel, HeaderPanel, CardPanel, FormPanel : TclPanel;
  ImgLogo : TclImage;
  LblBaslik, LblAciklama : TclLabel;
  EdtEmail, EdtSifre : TclEdit;
  BtnGiris, BtnKayit : TclButton;

void GirisYap;
{
  if (EdtEmail.Text == '')
    ShowMessage('Lütfen e-posta adresinizi giriniz.');
  else if (EdtSifre.Text == '')
    ShowMessage('Lütfen şifrenizi giriniz.');
  else
    ShowMessage('Giriş kontrolü yapılacak.');
}

void KayitEkraninaGit;
{
  ShowMessage('Kayıt ekranı açılacak.');
}

{
  LoginForm = TclForm.Create(Self);
  LoginForm.clSetCaption('Terzim');
  LoginForm.SetFormColor('#F3F4F8', '#F3F4F8', clGVertical);

  MainPanel = LoginForm.AddNewPanel(LoginForm, 'MainPanel');
  MainPanel.Align = alClient;

  HeaderPanel = LoginForm.AddNewPanel(MainPanel, 'HeaderPanel');
  HeaderPanel.Align = alTop;
  HeaderPanel.Height = 260;

  ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
ImgLogo.Align = alTop;
ImgLogo.Height = 115;

LoginForm.SetImage(
  ImgLogo,
  'https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn'
);

  ImgLogo = LoginForm.AddNewImage(HeaderPanel, 'ImgLogo');
  ImgLogo.Align = alTop;
  ImgLogo.Height = 115;

  // Drive'dan gelen görseli terzimlogo.png adıyla kullanacağız.
  LoginForm.SetImage(ImgLogo, 'terzimlogo.png');

  LblBaslik = LoginForm.AddNewLabel(HeaderPanel, 'LblBaslik', 'TERZİM');
  LblBaslik.Align = alTop;
  LblBaslik.Height = 60;
  LblBaslik.StyledSettings = ssFamily;
  LblBaslik.TextSettings.Font.Size = 34;
  LblBaslik.TextSettings.HorzAlign = taCenter;

  LblAciklama = LoginForm.AddNewLabel(HeaderPanel, 'LblAciklama', 'Terzi hizmetlerine kolayca ulaş');
  LblAciklama.Align = alTop;
  LblAciklama.Height = 35;
  LblAciklama.TextSettings.Font.Size = 17;
  LblAciklama.TextSettings.HorzAlign = taCenter;

  CardPanel = LoginForm.AddNewPanel(MainPanel, 'CardPanel');
  CardPanel.Align = alTop;
  CardPanel.Height = 360;
  CardPanel.Margins.Left = 25;
  CardPanel.Margins.Right = 25;
  CardPanel.Margins.Top = 25;

  FormPanel = LoginForm.AddNewPanel(CardPanel, 'FormPanel');
  FormPanel.Align = alClient;
  FormPanel.Margins.Left = 20;
  FormPanel.Margins.Right = 20;
  FormPanel.Margins.Top = 25;
  FormPanel.Margins.Bottom = 20;

  EdtEmail = LoginForm.AddNewEdit(FormPanel, 'EdtEmail', 'E-posta adresiniz');
  EdtEmail.Align = alTop;
  EdtEmail.Height = 55;
  EdtEmail.KeyboardType = vktEmailAddress;

  EdtSifre = LoginForm.AddNewEdit(FormPanel, 'EdtSifre', 'Şifreniz');
  EdtSifre.Align = alTop;
  EdtSifre.Height = 55;
  EdtSifre.Margins.Top = 12;

  BtnGiris = LoginForm.AddNewButton(FormPanel, 'BtnGiris', 'Giriş Yap');
  BtnGiris.Align = alTop;
  BtnGiris.Height = 55;
  BtnGiris.Margins.Top = 25;
  BtnGiris.TextSettings.Font.Size = 18;

  BtnKayit = LoginForm.AddNewButton(FormPanel, 'BtnKayit', 'Hesap Oluştur');
  BtnKayit.Align = alTop;
  BtnKayit.Height = 55;
  BtnKayit.Margins.Top = 15;

  LoginForm.AddNewEvent(BtnGiris, tbeOnClick, 'GirisYap');
  LoginForm.AddNewEvent(BtnKayit, tbeOnClick, 'KayitEkraninaGit');

  LoginForm.Run;
}
RUNTIME ERROR
File library Main: https://drive.google.com/uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn Download failed after multiple attempts: Cannot create file "C:\Users\HP\AppData\Roaming\ClomosyLearn\Assets\Projects\CLOSTARTER\EE7F1630ED4\uc?export=view&id=1GlGa6PTruDLui7_6kl_YexHlWhQWYwZn". Dosya adı, dizin adı veya birim etiketi sözdizimi hatalı when evaluating instruction CallProc ($FFFFFFFF,$2,$13EA270,$0,'SetImage').
Stack content is: [Null,Null,Null,Null...].
Source position: 43,2
Position: 43, 2

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" 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">]]> Mon, 06 Jul 2026 17:45:59 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1590&PID=3668#3668 <![CDATA[Projeye Otomatik Dahil Olma : Unkown Host]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1049&PID=2100#2100 Yazar: Emr.Erkmn
Konu: Unkown Host
Gönderim Zamanı: 03 Temmuz 2025 Saat 16:46

Merhaba Turgut,
Personel seçimi yapıp devam et dediğim zaman uPersonnelForm birimi bende açılıyor. Sunucuya bağlı olmadığım için hata alıyorum sadece. uPersonnelForm içerisinde yer alan bileşenleri de geliyor. ]]> Thu, 03 Jul 2025 16:46:12 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1049&PID=2100#2100 <![CDATA[Projeye Otomatik Dahil Olma : Unkown Host]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1049&PID=2093#2093 Yazar: turgutkir
Konu: Unkown Host
Gönderim Zamanı: 03 Temmuz 2025 Saat 15:38

Personel seçimini yapıp "Devam Et" dediğim zaman buton seçili bir şekilde kalıyor devam edilmiyor.

Unknown host "TURGUT-KIR".

Socket Error Code: 0($0)

//------------------------------------------------------------------

// MainCode

//------------------------------------------------------------------

var

MainForm : TclForm;

lblTitle, lblDesc: TclLabel;

cmbRole : TclComboBox;

btnNext : TclButton;

void OpenPanel;

var

roleVal : String;

{

roleVal=LowerCase(cmbRole.Text);

if roleVal == 'personel'

Clomosy.RunUnit('uPersonnelForm')

else if

roleVal == 'yönetici'

Clomosy.RunUnit('uManagerForm')

else

ShowMessage('Lütfen önce rol seçin.');

}

{

MainForm=TclForm.Create(Self);

MainForm.clSetCaption('Rol Seçimi');

// Başlık

lblTitle=MainForm.AddNewLabel(MainForm,'lblTitle',

'Ziyaretçi Yönetim Sistemine Hoş Geldiniz');

lblTitle.Font.Size =18;

lblTitle.Align =alTop;

lblTitle.Margins.Top=24;

// Açıklama

lblDesc=MainForm.AddNewLabel(MainForm,'lblDesc',

'Lütfen rolünüzü seçin:');

lblDesc.Align =alTop;

lblDesc.Margins.Top=12;

// Rol seçimi

cmbRole=MainForm.AddNewComboBox(MainForm,'cmbRole');

cmbRole.AddItem('Personel','personel');

cmbRole.AddItem('Yönetici','yonetici');

cmbRole.Align =alTop;

cmbRole.Margins.Top=20;

cmbRole.Width =200;

cmbRole.ItemIndex =0;

// Devam butonu

btnNext=MainForm.AddNewButton(MainForm,'btnNext','Devam Et');

btnNext.Align =alTop;

btnNext.Margins.Top=32;

btnNext.Width =200;

btnNext.Height =40;

MainForm.AddNewEvent(btnNext, tbeOnClick, 'OpenPanel');

MainForm.Run;

}

//------------------------------------------------------------------

// Personel Formu

//------------------------------------------------------------------

var

FrmPer : TclForm;

edtCompany, edtLoc : TclEdit;

edtDate : TclEdit; // tarih metin kutusu

memoPurpose,

memoNotes : TclMemo;

chkSale : TclCheckBox;

btnSave : TclButton;

qInsert : TclSqlQuery;

LoggedUserID : Integer;

void SaveMeeting;

var

saleVal : String;

{

if edtCompany.Text == ''

{

ShowMessage('Firma / kişi adı boş olamaz!');

Exit;

}

if edtDate.Text == ''

{

ShowMessage('Tarih alanı boş olamaz!');

Exit;

}

saleVal=IfThen(chkSale.IsChecked,'1','0');

try

qInsert.SQL.Text=

'INSERT INTO Meetings ' +

'(UserID,CompanyName,MeetingDate,Location,Purpose,IsSale,Notes) VALUES (' +

IntToStr(LoggedUserID) + ',' +

QuotedStr(edtCompany.Text) + ',' +

QuotedStr(edtDate.Text) + ',' +

QuotedStr(edtLoc.Text) + ',' +

QuotedStr(memoPurpose.Text) + ',' +

saleVal + ',' +

QuotedStr(memoNotes.Text) + ')';

qInsert.ExecSQL;

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

edtCompany.Text ='';

edtLoc.Text ='';

edtDate.Text ='';

memoPurpose.Text ='';

memoNotes.Text ='';

chkSale.IsChecked=False;

except

ShowMessage('Hata: ' + LastExceptionMessage);

}

void CreateForm;

{

FrmPer=TclForm.Create(Self);

FrmPer.clSetCaption('Personel Paneli');

edtCompany =FrmPer.AddNewEdit(FrmPer,'edtCompany','Firma / Kişi');

edtDate =FrmPer.AddNewEdit(FrmPer,'edtDate','Tarih (yyyy-MM-dd hh:nn)');

edtLoc =FrmPer.AddNewEdit(FrmPer,'edtLoc','Yer');

memoPurpose=FrmPer.AddNewMemo(FrmPer,'memoPurpose','Amaç');

chkSale =FrmPer.AddNewCheckBox(FrmPer,'chkSale','Satış Gerçekleşti');

memoNotes =FrmPer.AddNewMemo(FrmPer,'memoNotes','Notlar');

btnSave=FrmPer.AddNewButton(FrmPer,'btnSave','Kaydet');

FrmPer.AddNewEvent(btnSave, tbeOnClick, 'SaveMeeting');

LoggedUserID=1; // örnek kullanıcı

// DB bağlantısı

qInsert=TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect(

'SQL Server',

'TURGUT-KIR\\ATIKER',

'sa',

'1',

'TURGUT25',

1433);

qInsert.Connection=Clomosy.DBSQLServerConnection;

FrmPer.Run;

}

CreateForm;

SaveMeeting;

]]> Thu, 03 Jul 2025 15:38:00 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1049&PID=2093#2093 <![CDATA[Projeye Otomatik Dahil Olma : Projeye otomatik dahil olma özelliği nasıl açılır?]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=492&PID=503#503 Yazar: ceren
Konu: Projeye otomatik dahil olma özelliği nasıl açılır?
Gönderim Zamanı: 08 Mayıs 2023 Saat 13:57

teşekkürler Smile

]]> Mon, 08 May 2023 13:57:55 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=492&PID=503#503