Clomosy | Forum : Projeye Otomatik Dahil Olma

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;