Clomosy | Forum : kod hata

Clomosy | Forum : kod hata https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 29 Jun 2026 20:56:56 +0000 Mon, 29 Jun 2026 18:06:54 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1567 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[kod hata : var balanceLbl: TclProLabel; incomeLbl:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1567&PID=3621#3621 Yazar: Emr.Erkmn
Konu: 1567
Gönderim Zamanı: 29 Haziran 2026 Saat 18:06

var

balanceLbl: TclProLabel;

incomeLbl: TclProLabel;

expenseLbl: TclProLabel;

loginPanel: TclProPanel;

dashboardPanel: TclProPanel;

lblLogin: TclProLabel;

edtUser: TclProEdit;

edtPassword: TclProEdit;

btnLogin: TclProButton;

listData: TclStringList;

SecilenTur: String;

Form1: TclForm;

lblBaslik: TclLabel;

lblType: TclLabel;

btnIncome: TclProButton;

btnExpense: TclProButton;

lblAmount: TclLabel;

edtAmount: TclProEdit;

lblDescription: TclLabel;

edtDescription: TclProEdit;

lblDate: TclLabel;

dateEdit: TclProDateEdit;

btnSave: TclProButton;

lblLast: TclLabel;

listView: TclProListView;

void LoadTransactions;

var

loadQuery: TclJsonQuery;

{

try

loadQuery = Clomosy.DBCloudSQLSelectWith('SELECT Transaction_Type, Amount, Description FROM ftTransactions');

if (loadQuery.Found)

{

listView.clLoadProListViewDataFromDataset(loadQuery);

}

loadQuery.Free;

except

ShowMessage('Listeleme hatası: ' + LastExceptionMessage);

}

void btnLoginClick;

{

loginPanel.Visible = False;

dashboardPanel.Visible = True;

LoadTransactions;

}

void btnIncomeClick;

{

SecilenTur = 'Gelir';

ShowMessage('İşlem Türü: Gelir olarak seçildi.');

}

void btnExpenseClick;

{

SecilenTur = 'Gider';

ShowMessage('İşlem Türü: Gider olarak seçildi.');

}

void btnSaveClick;

var

clomosyQ1: TclJsonQuery;

{

if (SecilenTur == '')

{

ShowMessage('Önce Gelir veya Gider seçiniz.');

Exit;

}

try

clomosyQ1 = Clomosy.DBCloudQueryWith('ftTransactions', '', '1=1');

if (clomosyQ1.Found)

{

clomosyQ1.Insert;

clomosyQ1.FieldByName('Transaction_Type').AsString = SecilenTur;

clomosyQ1.FieldByName('Amount').AsString = edtAmount.Text;

clomosyQ1.FieldByName('Description').AsString = edtDescription.Text;

clomosyQ1.FieldByName('Transaction_Date').AsString = dateEdit.Text;

clomosyQ1.Post(True);

Clomosy.DBCloudPostJSON('ftTransactions', clomosyQ1.GetJSONString);

ShowMessage('Veri Bulut Veritabanına kaydedildi.');

LoadTransactions;

}

clomosyQ1.Free;

except

ShowMessage('Hata: ' + LastExceptionMessage);

}

{

Form1 = TclForm.Create(Self);

listData = Clomosy.StringListNew;

SecilenTur = '';

loginPanel = Form1.AddNewProPanel(Form1, 'loginPanel');

loginPanel.Align = alClient;

lblLogin = Form1.AddNewProLabel(loginPanel, 'lblLogin', 'SMARTTRACK');

lblLogin.Align = alTop;

lblLogin.Height = 70;

lblLogin.clProSettings.FontSize = 26;

lblLogin.clProSettings.FontHorzAlign = palCenter;

lblLogin.SetclProSettings(lblLogin.clProSettings);

edtUser = Form1.AddNewProEdit(loginPanel, 'edtUser', 'Kullanıcı Adı');

edtUser.Align = alTop;

edtUser.Height = 45;

edtPassword = Form1.AddNewProEdit(loginPanel, 'edtPassword', 'Şifre');

edtPassword.Align = alTop;

edtPassword.Height = 45;

edtPassword.Password = True;

btnLogin = Form1.AddNewProButton(loginPanel, 'btnLogin', 'Giriş Yap');

btnLogin.Align = alTop;

btnLogin.Height = 50;

Form1.AddNewEvent(btnLogin, tbeOnClick, 'btnLoginClick');

dashboardPanel = Form1.AddNewProPanel(Form1, 'dashboardPanel');

dashboardPanel.Align = alClient;

dashboardPanel.Visible = False;

lblBaslik = Form1.AddNewLabel(dashboardPanel, 'lblBaslik', 'Gelir - Gider Takip');

lblBaslik.Align = alTop;

lblBaslik.Height = 50;

lblBaslik.StyledSettings = ssFamily;

lblBaslik.TextSettings.Font.Size = 22;

balanceLbl = Form1.AddNewProLabel(dashboardPanel, 'balanceLbl', 'Bakiye: 0 TL');

balanceLbl.Align = alTop;

balanceLbl.Height = 40;

balanceLbl.clProSettings.FontSize = 20;

balanceLbl.SetclProSettings(balanceLbl.clProSettings);

incomeLbl = Form1.AddNewProLabel(dashboardPanel, 'incomeLbl', 'Toplam Gelir: 0 TL');

incomeLbl.Align = alTop;

incomeLbl.Height = 35;

incomeLbl.clProSettings.FontSize = 16;

incomeLbl.SetclProSettings(incomeLbl.clProSettings);

expenseLbl = Form1.AddNewProLabel(dashboardPanel, 'expenseLbl', 'Toplam Gider: 0 TL');

expenseLbl.Align = alTop;

expenseLbl.Height = 35;

expenseLbl.clProSettings.FontSize = 16;

expenseLbl.SetclProSettings(expenseLbl.clProSettings);

lblType = Form1.AddNewLabel(dashboardPanel, 'lblType', 'İşlem Türü');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(dashboardPanel, 'btnIncome', 'Gelir');

btnIncome.Align = alTop;

btnIncome.Height = 45;

Form1.AddNewEvent(btnIncome, tbeOnClick, 'btnIncomeClick');

btnExpense = Form1.AddNewProButton(dashboardPanel, 'btnExpense', 'Gider');

btnExpense.Align = alTop;

btnExpense.Height = 45;

Form1.AddNewEvent(btnExpense, tbeOnClick, 'btnExpenseClick');

lblAmount = Form1.AddNewLabel(dashboardPanel, 'lblAmount', 'Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(dashboardPanel, 'edtAmount', 'Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(dashboardPanel, 'lblDescription', 'Açıklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(dashboardPanel, 'edtDescription', 'Açıklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(dashboardPanel, 'lblDate', 'Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(dashboardPanel, 'dateEdit');

dateEdit.Align = alTop;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(dashboardPanel, 'btnSave', 'Kaydet');

btnSave.Align = alTop;

btnSave.Height = 50;

Form1.AddNewEvent(btnSave, tbeOnClick, 'btnSaveClick');

lblLast = Form1.AddNewLabel(dashboardPanel, 'lblLast', 'Son İşlemler');

lblLast.Align = alTop;

lblLast.Height = 30;

listView = Form1.AddNewProListView(dashboardPanel, 'listView');

listView.Align = alClient;

listView.clProSettings.ViewType = lvList;

listView.SetclProSettings(listView.clProSettings);

Form1.FormWaiting.Visible = False;

Form1.BtnFormMenu.Visible = False;

Form1.BtnGoBack.Visible = False;

loginPanel.Visible = True;

Form1.Run;

}

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, 29 Jun 2026 18:06:54 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1567&PID=3621#3621 <![CDATA[kod hata : var balanceLbl : TclProLabel;incomeLbl...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1567&PID=3619#3619 Yazar: smeye
Konu: 1567
Gönderim Zamanı: 29 Haziran 2026 Saat 17:17

var

balanceLbl : TclProLabel;

incomeLbl : TclProLabel;

expenseLbl : TclProLabel;

loginPanel : TclProPanel;

dashboardPanel : TclProPanel;

lblLogin : TclProLabel;

edtUser : TclProEdit;

edtPassword : TclProEdit;

btnLogin : TclProButton;

loadQuery : TCLJSONQuery;

clomosyQ1: TCLJSONQuery;

listData: TclStringList;

SecilenTur: String;

Form1: TclForm;

lblBaslik: TclLabel;

lblType: TclLabel;

btnIncome: TclProButton;

btnExpense: TclProButton;

lblAmount: TclLabel;

edtAmount: TclProEdit;

lblDescription: TclLabel;

edtDescription: TclProEdit;

lblDate: TclLabel;

dateEdit: TclProDateEdit;

btnSave: TclProButton;

lblLast: TclLabel;

listView: TclProListView;

void btnLoginClick;

{

loginPanel.Visible = False;

dashboardPanel.Visible = True;

balanceLbl = Form1.AddNewProLabel(dashboardPanel,'balanceLbl','Bakiye: 0 TL');

balanceLbl.Align = alTop;

balanceLbl.Height = 70;

balanceLbl.clProSettings.FontSize = 22;

balanceLbl.SetclProSettings(balanceLbl.clProSettings);

incomeLbl = Form1.AddNewProLabel(dashboardPanel,'incomeLbl','Toplam Gelir: 0 TL');

incomeLbl.Align = alTop;

incomeLbl.Height = 50;

incomeLbl.clProSettings.FontSize = 18;

incomeLbl.SetclProSettings(incomeLbl.clProSettings);

expenseLbl = Form1.AddNewProLabel(dashboardPanel,'expenseLbl','Toplam Gider: 0 TL');

expenseLbl.Align = alTop;

expenseLbl.Height = 50;

expenseLbl.clProSettings.FontSize = 18;

expenseLbl.SetclProSettings(expenseLbl.clProSettings);

}

void LoadTransactions;

var

loadQuery : TCLJSONQuery;

{

try

loadQuery = Clomosy.DBCloudSQLSelectWith(

'SELECT Transaction_Type, Amount, Description FROM ftTransactions'

);

if(loadQuery.Found)

{

listView.clLoadProListViewDataFromDataset(loadQuery);

}

except

ShowMessage(

'Listeleme hata: '+LastExceptionMessage

);

}

void btnIncomeClick;

{

SecilenTur = 'Gelir';

ShowMessage('Islem Turu: Gelir olarak secildi.');

}

void btnExpenseClick;

{

SecilenTur = 'Gider';

ShowMessage('Islem Turu: Gider olarak secildi.');

}

void btnSaveClick;

{

if (SecilenTur == '')

{

ShowMessage('Once Gelir veya Gider seciniz.');

Exit;

}

try

clomosyQ1 = Clomosy.DBCloudQueryWith('ftTransactions', '', '1=1');

if (clomosyQ1.Found)

{

clomosyQ1.Insert;

clomosyQ1.FieldByName('Transaction_Type').AsString = SecilenTur;

clomosyQ1.FieldByName('Amount').AsString = edtAmount.Text;

clomosyQ1.FieldByName('Description').AsString = edtDescription.Text;

clomosyQ1.FieldByName('Transaction_Date').AsString = dateEdit.Text;

clomosyQ1.Post(True);

Clomosy.DBCloudPostJSON('ftTransactions', clomosyQ1.GetJSONString);

ShowMessage('Veri Bulut Veritabanina kaydedildi.');

}

except

ShowMessage('Hata: ' + LastExceptionMessage);

}

{

Form1 = TclForm.Create(Self);

loginPanel = Form1.AddNewProPanel(Form1,'loginPanel');

loginPanel.Align = alClient;

lblLogin = Form1.AddNewProLabel(loginPanel,'lblLogin','SMARTTRACK');

lblLogin.Align = alTop;

lblLogin.Height = 70;

lblLogin.clProSettings.FontSize = 26;

lblLogin.clProSettings.FontHorzAlign = palCenter;

lblLogin.SetclProSettings(lblLogin.clProSettings);

edtUser = Form1.AddNewProEdit(loginPanel,'edtUser','Kullanıcı Adı');

edtUser.Align = alTop;

edtUser.Height = 45;

edtPassword = Form1.AddNewProEdit(loginPanel,'edtPassword','Şifre');

edtPassword.Align = alTop;

edtPassword.Height = 45;

btnLogin = Form1.AddNewProButton(loginPanel,'btnLogin','Giriş Yap');

btnLogin.Align = alTop;

btnLogin.Height = 50;

Form1.AddNewEvent(btnLogin,tbeOnClick,'btnLoginClick');

listData = Clomosy.StringListNew;

SecilenTur = '';

lblBaslik = Form1.AddNewLabel(Form1, 'lblBaslik', 'Gelir - Gider Takip');

lblBaslik.Align = alTop;

lblBaslik.Height = 50;

lblBaslik.StyledSettings = ssFamily;

lblBaslik.TextSettings.Font.Size = 22;

lblType = Form1.AddNewLabel(Form1, 'lblType', 'Islem Turu');

lblType.Align = alTop;

lblType.Height = 30;

btnIncome = Form1.AddNewProButton(dashboardPanel,'btnIncome','Gelir');

btnIncome.Align = alTop;

btnIncome.Height = 45;

Form1.AddNewEvent(btnIncome, tbeOnClick, 'btnIncomeClick');

btnExpense = Form1.AddNewProButton(Form1, 'btnExpense', 'Gider');

btnExpense.Align = alTop;

btnExpense.Height = 45;

Form1.AddNewEvent(btnExpense, tbeOnClick, 'btnExpenseClick');

lblAmount = Form1.AddNewLabel(Form1, 'lblAmount', 'Tutar');

lblAmount.Align = alTop;

lblAmount.Height = 25;

edtAmount = Form1.AddNewProEdit(dashboardPanel,'edtAmount','Tutar Giriniz');

edtAmount.Align = alTop;

edtAmount.Height = 45;

edtAmount.clTypeOfField = taFloat;

lblDescription = Form1.AddNewLabel(Form1, 'lblDescription', 'Aciklama');

lblDescription.Align = alTop;

lblDescription.Height = 25;

edtDescription = Form1.AddNewProEdit(dashboardPanel,'edtDescription','Açıklama Giriniz');

edtDescription.Align = alTop;

edtDescription.Height = 45;

lblDate = Form1.AddNewLabel(Form1, 'lblDate', 'Tarih');

lblDate.Align = alTop;

lblDate.Height = 25;

dateEdit = Form1.AddNewProDateEdit(dashboardPanel,'dateEdit');

dateEdit.Align = alTop;

dateEdit.Height = 45;

btnSave = Form1.AddNewProButton(dashboardPanel,'btnSave','Kaydet');

btnSave.Align = alTop;

btnSave.Height = 50;

Form1.AddNewEvent(btnSave, tbeOnClick, 'btnSaveClick');

lblLast = Form1.AddNewLabel(Form1, 'lblLast', 'Son Islemler');

lblLast.Align = alTop;

lblLast.Height = 30;

listView = Form1.AddNewProListView(dashboardPanel,'listView');

listView.Align = alClient;

listView.clProSettings.ViewType = lvList;

listView.SetclProSettings(listView.clProSettings);

loginPanel.Visible = True;

dashboardPanel.Visible = False;

Form1.Run;

}

kod hatası

RUNTIME ERROR

File library Main: Could not convert variant of type (Null) into type (Int64) when evaluating instruction CallProc ($FFFFFFFF,$3,$183A270,$0,"AddNewProButton").

Stack content is: [Null,Null,Null,Null...].

Source position: 155,72

Position: 155, 72

yardımcı olabilir misiniz

https://static.cloudflareinsights.com/beacon.min.js/v833ccba57c9e4d2798f2e76cebdd09a11778172276447" integrity="sha512-57MDmcccJXYtNnH+ZiBwzC4jb2rvgVCEokYN+L/nLlmO8rfYT/gIpW2A569iJ/3b+0UEasghjuZH/ma3wIs/EQ==" 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, 29 Jun 2026 17:17:22 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1567&PID=3619#3619