Unkown Host

   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;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
turgutkir Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Haziran 2025 Konum: ADANA Durum: Aktif Değil Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı turgutkir Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Unkown Host Gönderim Zamanı: 8 Saat 14 Dakika Önce 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;

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 104	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 7 Saat 6 Dakika Önce 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.