|
var OdemeForm: TclForm;
AnaPnl, HeaderPnl, FormPnl: TclProPanel;
BaslikLbl, AltBaslikLbl: TclProLabel;
UyeEdt, TutarEdt, TarihEdt, YontemEdt, AciklamaEdt: TclProEdit;
KaydetBtn, GeriBtn: TclProButton;
Rest: TclRest;
SupabaseUrl, SupabaseKey, RequestBody: String; SecilenUyeID: String; UyeRest: TclRest;
void PanelStili(APanel: TclProPanel; ArkaPlan: String; Kenar: String; Kose: Integer); { APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ArkaPlan); APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(Kenar); APanel.clProSettings.BorderWidth = 1; APanel.clProSettings.RoundWidth = Kose; APanel.clProSettings.RoundHeight = Kose; APanel.SetclProSettings(APanel.clProSettings); }
void LabelStili(ALbl: TclProLabel; Renk: String; Boyut: Integer; Kalin: Boolean); { ALbl.clProSettings.FontColor = clAlphaColor.clHexToColor(Renk); ALbl.clProSettings.FontSize = Boyut;
if (Kalin) { ALbl.clProSettings.TextSettings.Font.Style = [fsBold]; } else { ALbl.clProSettings.TextSettings.Font.Style = []; }
ALbl.SetclProSettings(ALbl.clProSettings); }
void EditStili(AEdit: TclProEdit); { AEdit.Height = 42; AEdit.clProSettings.RoundWidth = 10; AEdit.clProSettings.RoundHeight = 10; AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1'); AEdit.SetclProSettings(AEdit.clProSettings); }
void GeriDon; { OdemeForm.clHide; Clomosy.RunUnit('uDashboard'); }
void OdemeKaydet; { SecilenUyeID = Trim(UyeEdt.Text);
if (SecilenUyeID == '') { ShowMessage('Üye seçiniz.'); Exit; } if (UyeEdt.Text == '') { ShowMessage('Üye adı giriniz.'); Exit; } if (TutarEdt.Text == '') { ShowMessage('Tutar giriniz.'); Exit; }
RequestBody = '{' + '"uye_id":' + SecilenUyeID + ',' + '"tutar":' + TutarEdt.Text + ',' + '"odeme_tarihi":"' + TarihEdt.Text + '",' + '"odeme_turu":"' + YontemEdt.Text + '",' + '"aciklama":"' + AciklamaEdt.Text + '"' + '}';
Rest = TclRest.Create; Rest.Accept = 'application/json'; Rest.Method = rmPOST; Rest.BaseURL = SupabaseUrl + '/rest/v1/odemeler';
Rest.AddHeader('apikey', SupabaseKey); Rest.AddHeader('Authorization', 'Bearer ' + SupabaseKey); Rest.AddHeader('Prefer', 'return=representation'); Rest.AddBody(RequestBody, 'application/json');
Rest.Execute;
if (Rest.StatusCode >= 200) { if (Rest.StatusCode < 300) { ShowMessage('Ödeme başarıyla kaydedildi.');
UyeEdt.Text = ''; TutarEdt.Text = ''; TarihEdt.Text = ''; YontemEdt.Text = ''; AciklamaEdt.Text = ''; Exit; } }
ShowMessage('HTTP: ' + IntToStr(Rest.StatusCode) + #13#10 + Rest.Response); }
// ============================================================== // ANA FORM ÇALIŞMA BLOĞU // ============================================================== { SupabaseUrl = ' https://zttjqagkqzcgrlnxqarg.supabase.co" rel="nofollow - https://zttjqagkqzcgrlnxqarg.supabase.co '; SupabaseKey = 'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6Inp0dGpxYWdrcXpjZ3JsbnhxYXJnIiwicm9sZSI6ImFub24iLCJpYXQiOjE3ODQxMTg4MjYsImV4cCI6MjA5OTY5NDgyNn0.mpDYGhrn6F0-1do8QtJUAXh6DK6Zo25SSI7S4-OQmFs';
OdemeForm = TclForm.Create(Self); OdemeForm.SetFormColor('#F8FAFC', '#F8FAFC', clGVertical);
OdemeForm.FormWaiting.Visible = False; OdemeForm.BtnFormMenu.Visible = False; OdemeForm.BtnGoBack.Visible = False;
AnaPnl = OdemeForm.AddNewProPanel(OdemeForm, 'AnaPnl'); AnaPnl.Align = alClient; PanelStili(AnaPnl, '#F8FAFC', '#F8FAFC', 0);
HeaderPnl = OdemeForm.AddNewProPanel(AnaPnl, 'HeaderPnl'); HeaderPnl.Align = alTop; HeaderPnl.Height = 90; PanelStili(HeaderPnl, '#FFFFFF', '#E2E8F0', 0);
BaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'BaslikLbl', 'Ödeme Al'); BaslikLbl.Align = alTop; BaslikLbl.Height = 38; BaslikLbl.Margins.Left = 20; BaslikLbl.Margins.Top = 16; LabelStili(BaslikLbl, '#0F172A', 20, True);
AltBaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'AltBaslikLbl', 'Üye ödeme bilgilerini giriniz.'); AltBaslikLbl.Align = alTop; AltBaslikLbl.Height = 24; AltBaslikLbl.Margins.Left = 20; LabelStili(AltBaslikLbl, '#64748B', 10, False);
FormPnl = OdemeForm.AddNewProPanel(AnaPnl, 'FormPnl'); FormPnl.Align = alTop; FormPnl.Height = 360; FormPnl.Margins.Left = 40; FormPnl.Margins.Right = 40; FormPnl.Margins.Top = 20; PanelStili(FormPnl, '#FFFFFF', '#E2E8F0', 12);
// DÜZELTİLEN SATIR (Bileşen adı 'UyeSecEdt' yapıldı): UyeEdt = OdemeForm.AddNewProEdit(FormPnl, 'UyeSecEdt', 'Üye Adı'); UyeEdt.Align = alTop; EditStili(UyeEdt);
TutarEdt = OdemeForm.AddNewProEdit(FormPnl, 'TutarEdt', 'Tutar'); TutarEdt.Align = alTop; EditStili(TutarEdt);
TarihEdt = OdemeForm.AddNewProEdit(FormPnl, 'TarihEdt', 'Ödeme Tarihi'); TarihEdt.Align = alTop; EditStili(TarihEdt);
YontemEdt = OdemeForm.AddNewProEdit(FormPnl, 'YontemEdt', 'Ödeme Yöntemi'); YontemEdt.Align = alTop; EditStili(YontemEdt);
AciklamaEdt = OdemeForm.AddNewProEdit(FormPnl, 'AciklamaEdt', 'Açıklama'); AciklamaEdt.Align = alTop; EditStili(AciklamaEdt);
KaydetBtn = OdemeForm.AddNewProButton(FormPnl, 'KaydetBtn', 'Ödemeyi Kaydet'); KaydetBtn.Align = alTop; KaydetBtn.Height = 46; KaydetBtn.Margins.Top = 18; KaydetBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB'); KaydetBtn.clProSettings.FontColor = clAlphaColor.clWhite; KaydetBtn.clProSettings.RoundWidth = 10; KaydetBtn.clProSettings.RoundHeight = 10; KaydetBtn.SetclProSettings(KaydetBtn.clProSettings);
GeriBtn = OdemeForm.AddNewProButton(FormPnl, 'GeriBtn', 'Geri Dön'); GeriBtn.Align = alTop; GeriBtn.Height = 42;
OdemeForm.AddNewEvent(KaydetBtn, tbeOnClick, 'OdemeKaydet'); OdemeForm.AddNewEvent(GeriBtn, tbeOnClick, 'GeriDon');
OdemeForm.Run; } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">
|