|
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" rel="nofollow - 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">
|