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;