|
| Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
RUNTIME ERROR |
Yanıt Yaz 
|
Sayfa 12> |
| Yazar | |
john1 
Yeni Üye 
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
 Mesaj Seçenekleri
 Teşekkürler(0)
 Alıntı Cevapla
 Konu: RUNTIME ERRORGönderim Zamanı: 18 Saat 19 Dakika Önce Saat 11:57 |
|
RUNTIME ERROR File library Main: Unit uHR: Syntax error. Source position: 1,2 when evaluating instruction CallProc ($FFFFFFFF,$0,$72D094E0,$6D,"Run"). Stack content is: [-5476376661869721616,-5476376666970276608,-5476376666970316432,-5476376661869705136...]. Source position: 264,15 Position: 264, 15 aldigim hata bu. kodun baslangici; var subForm : TclForm; currentUser : String; 1,2 de neden hata aldigimi anlamiyorum (`var` etrafinda herhangi bir gorunmez karakter yoktur). 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">
|
|
|
urlt
|
|
 |
|
|
Emr.Erkmn
Moderatör 
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 986 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 18 Saat 16 Dakika Önce Saat 12:00 |
|
Merhaba Hamza
Gelen hata uHR birimin de 264. satırda geliyor orayı kontrol edebilir misinhttps://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">< defer="" ="https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" -cf-beacon=""version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"_timing":"name":"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true,"location_startswith":null" crossorigin="anonymous"> Düzenleyen Emr.Erkmn - 18 Saat 16 Dakika Önce Saat 12:00 |
|
|
|
|
john1
Yeni Üye
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 17 Saat 53 Dakika Önce Saat 12:23 |
|
pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll'); uHR uniti 264.satir bu ama uHR unitini ana kodun icinde bir unit olarak calistiriyorum ana kodun 264.satirinda; myUnit.Run; kodu var. acaba ana kod 264 e gelince uHR unitine gitmeye calisiyor da uHR basta(1,2) mi cokuyor cunku uHR unitinin 264.satirinda ( subForm : TclForm; ve pnlPayroll : TClProPanel; degisken tanimlamalarini var blogunda yaptim ve subForm = TclForm.Create(Self); ile formu onceden olusturdum.) bir problem bulamadim .isterseniz kodu kapsamli bir sekilde paylasabilirim |
|
|
urlt
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 986 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 17 Saat 13 Dakika Önce Saat 13:03 |
|
Kodu paylaşabilir misin?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">
|
|
|
|
|
john1
Yeni Üye
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 16 Saat 60 Dakika Önce Saat 13:16 |
|
var subForm : TclForm; currentUser : String; pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel; scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox; navBar : TclHorzScrollBox; lblHRMainTitle, lblHRSub : TClProLabel; btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton; pnlSum1, pnlSum2 : TClProPanel; lblSum1, lblSum2 : TClProLabel; wbHRCharts : TclWebBrowser; lblRecruitTitle, lblRecruitSub : TClProLabel; memRecruit : TclMemo; btnRecruitAction, btnRecruitBack : TClProButton; lblTrainTitle, lblTrainSub : TClProLabel; memTrain : TclMemo; btnTrainAction, btnTrainBack : TClProButton; lblPerfTitle, lblPerfSub : TClProLabel; memPerf : TclMemo; btnPerfAction, btnPerfBack : TClProButton; lblPayTitle, lblPaySub : TClProLabel; memPay : TclMemo; btnPayAction, btnPayBack : TClProButton; lblCultTitle, lblCultSub : TClProLabel; memCult : TclMemo; btnCultAction, btnCultBack : TClProButton; void HideAllPanels; { pnlHRMain.Visible = False; pnlRecruit.Visible = False; pnlTraining.Visible = False; pnlPerf.Visible = False; pnlPayroll.Visible = False; pnlCulture.Visible = False; } void GoToMain; { HideAllPanels; pnlHRMain.Visible = True; } void GoToLogout; { subForm.clHide; } void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; } void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; } void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; } void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; } void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; } void GoToAdminUnit; var adminUnit : TclUnit; { adminUnit = TclUnit.Create; adminUnit.UnitName = 'uAdmin'; adminUnit.CallerForm = subForm; adminUnit.Run; } void OnMockAction; { ShowMessage('Islem basariyla kaydedildi.'); } void CreateHRChartsHTML; var html : TclStringList; htmlPath : String; { htmlPath = Clomosy.AppFilesPath + 'hr_charts.html'; html = Clomosy.StringListNew; try html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">'); html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>'); html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>'); html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>'); html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>'); html.Add('<h3>Yillik Personel Devir Orani</h3>'); html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>'); html.Add('<script>'); html.Add('Chart.defaults.color = "#ecf0f1";'); html.Add('new Chart(document.getElementById("pieChart"), {'); html.Add(' type: "doughnut",'); html.Add(' data: {'); html.Add(' labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],'); html.Add(' datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }'); html.Add('});'); html.Add('new Chart(document.getElementById("barChart"), {'); html.Add(' type: "bar",'); html.Add(' data: {'); html.Add(' labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],'); html.Add(' datasets: ['); html.Add(' { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },'); html.Add(' { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }'); html.Add(' ]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }'); html.Add('});'); html.Add('</script></body></html>'); html.SaveToFile(htmlPath, 0); finally html.Free; end } { currentUser = Clomosy.GlobalVariableString; subForm = TclForm.Create(Self); subForm.SetFormColor('#100e17', '', clGNone); CreateHRChartsHTML; pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain'); clComponent.SetupComponent(pnlHRMain, '{"Align": "Client", "BackgroundColor": "#100e17"}'); navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar'); navBar.Align = alBottom; navBar.Height = 70; btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim'); clComponent.SetupComponent(btnGoRecruit, '{"Align": "Left", "Width": 80, "MarginLeft": 10, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel'); btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim'); clComponent.SetupComponent(btnGoTraining, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#f39c12", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel'); btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans'); clComponent.SetupComponent(btnGoPerf, '{"Align": "Left", "Width": 90, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel'); btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim'); clComponent.SetupComponent(btnGoPayroll, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel'); btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler'); clComponent.SetupComponent(btnGoCulture, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel'); btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici'); clComponent.SetupComponent(btnGoAdmin, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#34495e", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit'); btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis'); clComponent.SetupComponent(btnGoLogout, '{"Align": "Left", "Width": 80, "MarginRight": 10, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#e74c3c", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout'); scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain'); scrollMain.Align = alClient; lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI'); clComponent.SetupComponent(lblHRMainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#ffffff", "TextSize": 20, "TextBold": "yes", "TextHorizontalAlign": "center", "WordWrap": "yes"}'); lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri'); clComponent.SetupComponent(lblHRSub, '{"Align": "Top", "MarginTop": 5, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#95a5a6", "TextSize": 13, "TextHorizontalAlign": "center", "WordWrap": "yes"}'); pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1'); clComponent.SetupComponent(pnlSum1, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#2980b9", "RoundWidth": 8, "RoundHeight": 8}'); lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142'); clComponent.SetupComponent(lblSum1, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}'); pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2'); clComponent.SetupComponent(pnlSum2, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#e74c3c", "RoundWidth": 8, "RoundHeight": 8}'); lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2'); clComponent.SetupComponent(lblSum2, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}'); wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts'); wbHRCharts.Align = alTop; wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10; wbHRCharts.Height = 600; wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html'); pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit'); clComponent.SetupComponent(pnlRecruit, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlRecruit.Visible = False; scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit'); scrollRecruit.Align = alClient; lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON'); clComponent.SetupComponent(lblRecruitTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#3498db", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi'); clComponent.SetupComponent(lblRecruitSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', ''); clComponent.SetupComponent(memRecruit, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20; memRecruit.Height = 120; memRecruit.ReadOnly = True; memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)'); memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)'); memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi'); btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur'); clComponent.SetupComponent(btnRecruitAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction'); btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don'); clComponent.SetupComponent(btnRecruitBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain'); pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining'); clComponent.SetupComponent(pnlTraining, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlTraining.Visible = False; scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining'); scrollTraining.Align = alClient; lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME'); clComponent.SetupComponent(lblTrainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#f39c12", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu'); clComponent.SetupComponent(lblTrainSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', ''); clComponent.SetupComponent(memTrain, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20; memTrain.Height = 120; memTrain.ReadOnly = True; memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi'); memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi'); memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85'); btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla'); clComponent.SetupComponent(btnTrainAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#d35400", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction'); btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don'); clComponent.SetupComponent(btnTrainBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain'); pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf'); clComponent.SetupComponent(pnlPerf, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlPerf.Visible = False; scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf'); scrollPerf.Align = alClient; lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI'); clComponent.SetupComponent(lblPerfTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#9b59b6", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi'); clComponent.SetupComponent(lblPerfSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', ''); clComponent.SetupComponent(memPerf, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20; memPerf.Height = 120; memPerf.ReadOnly = True; memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92'); memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88'); memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.'); btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi'); clComponent.SetupComponent(btnPerfAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction'); btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don'); clComponent.SetupComponent(btnPerfBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain'); pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll'); clComponent.SetupComponent(pnlPayroll, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlPayroll.Visible = False; scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll'); scrollPayroll.Align = alClient; lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI'); clComponent.SetupComponent(lblPayTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#2ecc71", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri'); clComponent.SetupComponent(lblPaySub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', ''); clComponent.SetupComponent(memPay, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20; memPay.Height = 120; memPay.ReadOnly = True; memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI'); memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR'); memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE'); btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet'); clComponent.SetupComponent(btnPayAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction'); btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don'); clComponent.SetupComponent(btnPayBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain'); pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture'); clComponent.SetupComponent(pnlCulture, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlCulture.Visible = False; scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture'); scrollCulture.Align = alClient; lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI'); clComponent.SetupComponent(lblCultTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#e74c3c", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler'); clComponent.SetupComponent(lblCultSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memCult = subForm.AddNewMemo(scrollCulture, 'memCult', ''); clComponent.SetupComponent(memCult, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20; memCult.Height = 150; memCult.ReadOnly = True; memCult.Lines.Add('GUNCEL SIKAYETLER'); memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)'); memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)'); btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al'); clComponent.SetupComponent(btnCultAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction'); btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don'); clComponent.SetupComponent(btnCultBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain'); subForm.Run; } uHR codu full 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">
|
|
|
urlt
|
|
|
|
|
john1
Yeni Üye
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 16 Saat 49 Dakika Önce Saat 13:27 |
|
burada bahsettigimiz degisken tanimlamalarini ve form olusturmanin yapildigindan emin olmak icin uHR kodunu kontrol eder misin kod; var subForm : TclForm; currentUser : String; pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel; scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox; navBar : TclHorzScrollBox; lblHRMainTitle, lblHRSub : TClProLabel; btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton; pnlSum1, pnlSum2 : TClProPanel; lblSum1, lblSum2 : TClProLabel; wbHRCharts : TclWebBrowser; lblRecruitTitle, lblRecruitSub : TClProLabel; memRecruit : TclMemo; btnRecruitAction, btnRecruitBack : TClProButton; lblTrainTitle, lblTrainSub : TClProLabel; memTrain : TclMemo; btnTrainAction, btnTrainBack : TClProButton; lblPerfTitle, lblPerfSub : TClProLabel; memPerf : TclMemo; btnPerfAction, btnPerfBack : TClProButton; lblPayTitle, lblPaySub : TClProLabel; memPay : TclMemo; btnPayAction, btnPayBack : TClProButton; lblCultTitle, lblCultSub : TClProLabel; memCult : TclMemo; btnCultAction, btnCultBack : TClProButton; void HideAllPanels; { pnlHRMain.Visible = False; pnlRecruit.Visible = False; pnlTraining.Visible = False; pnlPerf.Visible = False; pnlPayroll.Visible = False; pnlCulture.Visible = False; } void GoToMain; { HideAllPanels; pnlHRMain.Visible = True; } void GoToLogout; { subForm.clHide; } void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; } void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; } void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; } void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; } void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; } void GoToAdminUnit; var adminUnit : TclUnit; { adminUnit = TclUnit.Create; adminUnit.UnitName = 'uAdmin'; adminUnit.CallerForm = subForm; adminUnit.Run; } void OnMockAction; { ShowMessage('Islem basariyla kaydedildi.'); } void CreateHRChartsHTML; var html : TclStringList; htmlPath : String; { htmlPath = Clomosy.AppFilesPath + 'hr_charts.html'; html = Clomosy.StringListNew; try html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">'); html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>'); html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>'); html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>'); html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>'); html.Add('<h3>Yillik Personel Devir Orani</h3>'); html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>'); html.Add('<script>'); html.Add('Chart.defaults.color = "#ecf0f1";'); html.Add('new Chart(document.getElementById("pieChart"), {'); html.Add(' type: "doughnut",'); html.Add(' data: {'); html.Add(' labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],'); html.Add(' datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }'); html.Add('});'); html.Add('new Chart(document.getElementById("barChart"), {'); html.Add(' type: "bar",'); html.Add(' data: {'); html.Add(' labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],'); html.Add(' datasets: ['); html.Add(' { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },'); html.Add(' { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }'); html.Add(' ]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }'); html.Add('});'); html.Add('</script></body></html>'); html.SaveToFile(htmlPath, 0); finally html.Free; end } { currentUser = Clomosy.GlobalVariableString; subForm = TclForm.Create(Self); subForm.SetFormColor('#100e17', '', clGNone); CreateHRChartsHTML; pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain'); clComponent.SetupComponent(pnlHRMain, '{"Align": "Client", "BackgroundColor": "#100e17"}'); navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar'); navBar.Align = alBottom; navBar.Height = 70; btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim'); clComponent.SetupComponent(btnGoRecruit, '{"Align": "Left", "Width": 80, "MarginLeft": 10, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel'); btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim'); clComponent.SetupComponent(btnGoTraining, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#f39c12", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel'); btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans'); clComponent.SetupComponent(btnGoPerf, '{"Align": "Left", "Width": 90, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel'); btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim'); clComponent.SetupComponent(btnGoPayroll, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel'); btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler'); clComponent.SetupComponent(btnGoCulture, '{"Align": "Left", "Width": 100, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel'); btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici'); clComponent.SetupComponent(btnGoAdmin, '{"Align": "Left", "Width": 80, "MarginRight": 5, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#34495e", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit'); btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis'); clComponent.SetupComponent(btnGoLogout, '{"Align": "Left", "Width": 80, "MarginRight": 10, "MarginTop": 10, "MarginBottom": 15, "BackgroundColor": "#e74c3c", "TextColor": "#ffffff", "TextSize": 13, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout'); scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain'); scrollMain.Align = alClient; lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI'); clComponent.SetupComponent(lblHRMainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#ffffff", "TextSize": 20, "TextBold": "yes", "TextHorizontalAlign": "center", "WordWrap": "yes"}'); lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri'); clComponent.SetupComponent(lblHRSub, '{"Align": "Top", "MarginTop": 5, "MarginLeft": 20, "MarginRight": 20, "Height": 40, "TextColor": "#95a5a6", "TextSize": 13, "TextHorizontalAlign": "center", "WordWrap": "yes"}'); pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1'); clComponent.SetupComponent(pnlSum1, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#2980b9", "RoundWidth": 8, "RoundHeight": 8}'); lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142'); clComponent.SetupComponent(lblSum1, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}'); pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2'); clComponent.SetupComponent(pnlSum2, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 50, "BackgroundColor": "#e74c3c", "RoundWidth": 8, "RoundHeight": 8}'); lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2'); clComponent.SetupComponent(lblSum2, '{"Align": "Client", "MarginLeft": 15, "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "TextVerticalAlign": "center"}'); wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts'); wbHRCharts.Align = alTop; wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10; wbHRCharts.Height = 600; wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html'); pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit'); clComponent.SetupComponent(pnlRecruit, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlRecruit.Visible = False; scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit'); scrollRecruit.Align = alClient; lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON'); clComponent.SetupComponent(lblRecruitTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#3498db", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi'); clComponent.SetupComponent(lblRecruitSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', ''); clComponent.SetupComponent(memRecruit, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20; memRecruit.Height = 120; memRecruit.ReadOnly = True; memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)'); memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)'); memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi'); btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur'); clComponent.SetupComponent(btnRecruitAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#2980b9", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction'); btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don'); clComponent.SetupComponent(btnRecruitBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain'); pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining'); clComponent.SetupComponent(pnlTraining, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlTraining.Visible = False; scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining'); scrollTraining.Align = alClient; lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME'); clComponent.SetupComponent(lblTrainTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#f39c12", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu'); clComponent.SetupComponent(lblTrainSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', ''); clComponent.SetupComponent(memTrain, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20; memTrain.Height = 120; memTrain.ReadOnly = True; memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi'); memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi'); memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85'); btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla'); clComponent.SetupComponent(btnTrainAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#d35400", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction'); btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don'); clComponent.SetupComponent(btnTrainBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain'); pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf'); clComponent.SetupComponent(pnlPerf, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlPerf.Visible = False; scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf'); scrollPerf.Align = alClient; lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI'); clComponent.SetupComponent(lblPerfTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#9b59b6", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi'); clComponent.SetupComponent(lblPerfSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', ''); clComponent.SetupComponent(memPerf, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20; memPerf.Height = 120; memPerf.ReadOnly = True; memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92'); memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88'); memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.'); btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi'); clComponent.SetupComponent(btnPerfAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#8e44ad", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction'); btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don'); clComponent.SetupComponent(btnPerfBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain'); pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll'); clComponent.SetupComponent(pnlPayroll, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlPayroll.Visible = False; scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll'); scrollPayroll.Align = alClient; lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI'); clComponent.SetupComponent(lblPayTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#2ecc71", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri'); clComponent.SetupComponent(lblPaySub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', ''); clComponent.SetupComponent(memPay, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20; memPay.Height = 120; memPay.ReadOnly = True; memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI'); memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR'); memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE'); btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet'); clComponent.SetupComponent(btnPayAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#27ae60", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction'); btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don'); clComponent.SetupComponent(btnPayBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain'); pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture'); clComponent.SetupComponent(pnlCulture, '{"Align": "Client", "BackgroundColor": "#100e17"}'); pnlCulture.Visible = False; scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture'); scrollCulture.Align = alClient; lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI'); clComponent.SetupComponent(lblCultTitle, '{"Align": "Top", "MarginTop": 25, "MarginLeft": 20, "MarginRight": 20, "Height": 35, "TextColor": "#e74c3c", "TextSize": 18, "TextBold": "yes", "TextHorizontalAlign": "center"}'); lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler'); clComponent.SetupComponent(lblCultSub, '{"Align": "Top", "MarginTop": 10, "MarginLeft": 20, "MarginRight": 20, "Height": 20, "TextColor": "#f1c40f", "TextSize": 14, "TextBold": "yes"}'); memCult = subForm.AddNewMemo(scrollCulture, 'memCult', ''); clComponent.SetupComponent(memCult, '{"BackgroundColor": "#2c3e50", "TextColor": "#ecf0f1"}'); memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20; memCult.Height = 150; memCult.ReadOnly = True; memCult.Lines.Add('GUNCEL SIKAYETLER'); memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)'); memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)'); btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al'); clComponent.SetupComponent(btnCultAction, '{"Align": "Top", "MarginTop": 15, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#c0392b", "TextColor": "#ffffff", "TextSize": 14, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction'); btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don'); clComponent.SetupComponent(btnCultBack, '{"Align": "Top", "MarginTop": 20, "MarginLeft": 20, "MarginRight": 20, "Height": 45, "BackgroundColor": "#7f8c8d", "TextColor": "#ffffff", "TextSize": 15, "TextBold": "yes", "RoundWidth": 8, "RoundHeight": 8}'); subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain'); subForm.Run; } onceki paylastigim kod yalis kod hocam 264 hatasi aldigim bu kod |
|
|
urlt
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 986 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 16 Saat 44 Dakika Önce Saat 13:32 |
|
var subForm : TclForm; currentUser : String; pnlHRMain, pnlRecruit, pnlTraining, pnlPerf, pnlPayroll, pnlCulture : TClProPanel; scrollMain, scrollRecruit, scrollTraining, scrollPerf, scrollPayroll, scrollCulture : TclVertScrollBox; navBar : TclHorzScrollBox; lblHRMainTitle, lblHRSub : TClProLabel; btnGoRecruit, btnGoTraining, btnGoPerf, btnGoPayroll, btnGoCulture, btnGoAdmin, btnGoLogout : TClProButton; pnlSum1, pnlSum2 : TClProPanel; lblSum1, lblSum2 : TClProLabel; wbHRCharts : TclWebBrowser; lblRecruitTitle, lblRecruitSub : TClProLabel; memRecruit : TclMemo; btnRecruitAction, btnRecruitBack : TClProButton; lblTrainTitle, lblTrainSub : TClProLabel; memTrain : TclMemo; btnTrainAction, btnTrainBack : TClProButton; lblPerfTitle, lblPerfSub : TClProLabel; memPerf : TclMemo; btnPerfAction, btnPerfBack : TClProButton; lblPayTitle, lblPaySub : TClProLabel; memPay : TclMemo; btnPayAction, btnPayBack : TClProButton; lblCultTitle, lblCultSub : TClProLabel; memCult : TclMemo; btnCultAction, btnCultBack : TClProButton; void HideAllPanels; { pnlHRMain.Visible = False; pnlRecruit.Visible = False; pnlTraining.Visible = False; pnlPerf.Visible = False; pnlPayroll.Visible = False; pnlCulture.Visible = False; } void GoToMain; { HideAllPanels; pnlHRMain.Visible = True; } void GoToLogout; { subForm.clHide; } void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; } void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; } void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; } void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; } void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; } void GoToAdminUnit; var adminUnit : TclUnit; { adminUnit = TclUnit.Create; adminUnit.UnitName = 'uAdmin'; adminUnit.CallerForm = subForm; adminUnit.Run; } void OnMockAction; { ShowMessage('Islem basariyla kaydedildi.'); } void CreateHRChartsHTML; var html : TclStringList; htmlPath : String; { htmlPath = Clomosy.AppFilesPath + 'hr_charts.html'; html = Clomosy.StringListNew; try html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">'); html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>'); html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>'); html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>'); html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>'); html.Add('<h3>Yillik Personel Devir Orani</h3>'); html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>'); html.Add('<script>'); html.Add('Chart.defaults.color = "#ecf0f1";'); html.Add('new Chart(document.getElementById("pieChart"), {'); html.Add(' type: "doughnut",'); html.Add(' data: {'); html.Add(' labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],'); html.Add(' datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }'); html.Add('});'); html.Add('new Chart(document.getElementById("barChart"), {'); html.Add(' type: "bar",'); html.Add(' data: {'); html.Add(' labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],'); html.Add(' datasets: ['); html.Add(' { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },'); html.Add(' { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }'); html.Add(' ]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }'); html.Add('});'); html.Add('</script></body></html>'); html.SaveToFile(htmlPath, 0); finally html.Free; } } { currentUser = Clomosy.GlobalVariableString; subForm = TclForm.Create(Self); subForm.SetFormColor('#100E17', '#100E17', clGVertical); CreateHRChartsHTML; pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain'); pnlHRMain.Align = alClient; pnlHRMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlHRMain.SetClProSettings(pnlHRMain.clProSettings); navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar'); navBar.Align = alBottom; navBar.Height = 70; btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim'); btnGoRecruit.Align = alLeft; btnGoRecruit.Width = 80; btnGoRecruit.Margins.Left = 10; btnGoRecruit.Margins.Right = 5; btnGoRecruit.Margins.Top = 10; btnGoRecruit.Margins.Bottom = 15; btnGoRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9'); btnGoRecruit.clProSettings.FontColor = clAlphaColor.clWhite; btnGoRecruit.clProSettings.FontSize = 13; btnGoRecruit.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoRecruit.clProSettings.IsRound = True; btnGoRecruit.clProSettings.RoundWidth = 8; btnGoRecruit.clProSettings.RoundHeight = 8; btnGoRecruit.SetClProSettings(btnGoRecruit.clProSettings); subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel'); btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim'); btnGoTraining.Align = alLeft; btnGoTraining.Width = 80; btnGoTraining.Margins.Right = 5; btnGoTraining.Margins.Top = 10; btnGoTraining.Margins.Bottom = 15; btnGoTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F39C12'); btnGoTraining.clProSettings.FontColor = clAlphaColor.clWhite; btnGoTraining.clProSettings.FontSize = 13; btnGoTraining.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoTraining.clProSettings.IsRound = True; btnGoTraining.clProSettings.RoundWidth = 8; btnGoTraining.clProSettings.RoundHeight = 8; btnGoTraining.SetClProSettings(btnGoTraining.clProSettings); subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel'); btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans'); btnGoPerf.Align = alLeft; btnGoPerf.Width = 90; btnGoPerf.Margins.Right = 5; btnGoPerf.Margins.Top = 10; btnGoPerf.Margins.Bottom = 15; btnGoPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); btnGoPerf.clProSettings.FontColor = clAlphaColor.clWhite; btnGoPerf.clProSettings.FontSize = 13; btnGoPerf.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoPerf.clProSettings.IsRound = True; btnGoPerf.clProSettings.RoundWidth = 8; btnGoPerf.clProSettings.RoundHeight = 8; btnGoPerf.SetClProSettings(btnGoPerf.clProSettings); subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel'); btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim'); btnGoPayroll.Align = alLeft; btnGoPayroll.Width = 100; btnGoPayroll.Margins.Right = 5; btnGoPayroll.Margins.Top = 10; btnGoPayroll.Margins.Bottom = 15; btnGoPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27AE60'); btnGoPayroll.clProSettings.FontColor = clAlphaColor.clWhite; btnGoPayroll.clProSettings.FontSize = 13; btnGoPayroll.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoPayroll.clProSettings.IsRound = True; btnGoPayroll.clProSettings.RoundWidth = 8; btnGoPayroll.clProSettings.RoundHeight = 8; btnGoPayroll.SetClProSettings(btnGoPayroll.clProSettings); subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel'); btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler'); btnGoCulture.Align = alLeft; btnGoCulture.Width = 100; btnGoCulture.Margins.Right = 5; btnGoCulture.Margins.Top = 10; btnGoCulture.Margins.Bottom = 15; btnGoCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B'); btnGoCulture.clProSettings.FontColor = clAlphaColor.clWhite; btnGoCulture.clProSettings.FontSize = 13; btnGoCulture.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoCulture.clProSettings.IsRound = True; btnGoCulture.clProSettings.RoundWidth = 8; btnGoCulture.clProSettings.RoundHeight = 8; btnGoCulture.SetClProSettings(btnGoCulture.clProSettings); subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel'); btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici'); btnGoAdmin.Align = alLeft; btnGoAdmin.Width = 80; btnGoAdmin.Margins.Right = 5; btnGoAdmin.Margins.Top = 10; btnGoAdmin.Margins.Bottom = 15; btnGoAdmin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495E'); btnGoAdmin.clProSettings.FontColor = clAlphaColor.clWhite; btnGoAdmin.clProSettings.FontSize = 13; btnGoAdmin.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoAdmin.clProSettings.IsRound = True; btnGoAdmin.clProSettings.RoundWidth = 8; btnGoAdmin.clProSettings.RoundHeight = 8; btnGoAdmin.SetClProSettings(btnGoAdmin.clProSettings); subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit'); btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis'); btnGoLogout.Align = alLeft; btnGoLogout.Width = 80; btnGoLogout.Margins.Right = 10; btnGoLogout.Margins.Top = 10; btnGoLogout.Margins.Bottom = 15; btnGoLogout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); btnGoLogout.clProSettings.FontColor = clAlphaColor.clWhite; btnGoLogout.clProSettings.FontSize = 13; btnGoLogout.clProSettings.TextSettings.Font.Style = [fsBold]; btnGoLogout.clProSettings.IsRound = True; btnGoLogout.clProSettings.RoundWidth = 8; btnGoLogout.clProSettings.RoundHeight = 8; btnGoLogout.SetClProSettings(btnGoLogout.clProSettings); subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout'); scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain'); scrollMain.Align = alClient; lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI'); lblHRMainTitle.Align = alTop; lblHRMainTitle.Margins.Top = 25; lblHRMainTitle.Margins.Left = 20; lblHRMainTitle.Margins.Right = 20; lblHRMainTitle.Height = 40; lblHRMainTitle.clProSettings.FontColor = clAlphaColor.clWhite; lblHRMainTitle.clProSettings.FontSize = 20; lblHRMainTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblHRMainTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblHRMainTitle.clProSettings.WordWrap = True; lblHRMainTitle.SetClProSettings(lblHRMainTitle.clProSettings); lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri'); lblHRSub.Align = alTop; lblHRSub.Margins.Top = 5; lblHRSub.Margins.Left = 20; lblHRSub.Margins.Right = 20; lblHRSub.Height = 40; lblHRSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#95A5A6'); lblHRSub.clProSettings.FontSize = 13; lblHRSub.clProSettings.TextSettings.HorzAlign = palCenter; lblHRSub.clProSettings.WordWrap = True; lblHRSub.SetClProSettings(lblHRSub.clProSettings); pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1'); pnlSum1.Align = alTop; pnlSum1.Margins.Top = 15; pnlSum1.Margins.Left = 20; pnlSum1.Margins.Right = 20; pnlSum1.Height = 50; pnlSum1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9'); pnlSum1.clProSettings.IsRound = True; pnlSum1.clProSettings.RoundWidth = 8; pnlSum1.clProSettings.RoundHeight = 8; pnlSum1.SetClProSettings(pnlSum1.clProSettings); lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142'); lblSum1.Align = alClient; lblSum1.Margins.Left = 15; lblSum1.clProSettings.FontColor = clAlphaColor.clWhite; lblSum1.clProSettings.FontSize = 14; lblSum1.clProSettings.TextSettings.Font.Style = [fsBold]; lblSum1.clProSettings.TextSettings.VertAlign = palCenter; lblSum1.SetClProSettings(lblSum1.clProSettings); pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2'); pnlSum2.Align = alTop; pnlSum2.Margins.Top = 10; pnlSum2.Margins.Left = 20; pnlSum2.Margins.Right = 20; pnlSum2.Height = 50; pnlSum2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#E74C3C'); pnlSum2.clProSettings.IsRound = True; pnlSum2.clProSettings.RoundWidth = 8; pnlSum2.clProSettings.RoundHeight = 8; pnlSum2.SetClProSettings(pnlSum2.clProSettings); lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2'); lblSum2.Align = alClient; lblSum2.Margins.Left = 15; lblSum2.clProSettings.FontColor = clAlphaColor.clWhite; lblSum2.clProSettings.FontSize = 14; lblSum2.clProSettings.TextSettings.Font.Style = [fsBold]; lblSum2.clProSettings.TextSettings.VertAlign = palCenter; lblSum2.SetClProSettings(lblSum2.clProSettings); wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts'); wbHRCharts.Align = alTop; wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10; wbHRCharts.Height = 600; wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html'); pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit'); pnlRecruit.Align = alClient; pnlRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlRecruit.SetClProSettings(pnlRecruit.clProSettings); pnlRecruit.Visible = False; scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit'); scrollRecruit.Align = alClient; lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON'); lblRecruitTitle.Align = alTop; lblRecruitTitle.Margins.Top = 25; lblRecruitTitle.Margins.Left = 20; lblRecruitTitle.Margins.Right = 20; lblRecruitTitle.Height = 35; lblRecruitTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#3498DB'); lblRecruitTitle.clProSettings.FontSize = 18; lblRecruitTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblRecruitTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblRecruitTitle.SetClProSettings(lblRecruitTitle.clProSettings); lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi'); lblRecruitSub.Align = alTop; lblRecruitSub.Margins.Top = 10; lblRecruitSub.Margins.Left = 20; lblRecruitSub.Margins.Right = 20; lblRecruitSub.Height = 20; lblRecruitSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F'); lblRecruitSub.clProSettings.FontSize = 14; lblRecruitSub.clProSettings.TextSettings.Font.Style = [fsBold]; lblRecruitSub.SetClProSettings(lblRecruitSub.clProSettings); memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', ''); memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20; memRecruit.Height = 120; memRecruit.ReadOnly = True; memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)'); memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)'); memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi'); btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur'); btnRecruitAction.Align = alTop; btnRecruitAction.Margins.Top = 15; btnRecruitAction.Margins.Left = 20; btnRecruitAction.Margins.Right = 20; btnRecruitAction.Height = 45; btnRecruitAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980B9'); btnRecruitAction.clProSettings.FontColor = clAlphaColor.clWhite; btnRecruitAction.clProSettings.FontSize = 14; btnRecruitAction.clProSettings.TextSettings.Font.Style = [fsBold]; btnRecruitAction.clProSettings.IsRound = True; btnRecruitAction.clProSettings.RoundWidth = 8; btnRecruitAction.clProSettings.RoundHeight = 8; btnRecruitAction.SetClProSettings(btnRecruitAction.clProSettings); subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction'); btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don'); btnRecruitBack.Align = alTop; btnRecruitBack.Margins.Top = 20; btnRecruitBack.Margins.Left = 20; btnRecruitBack.Margins.Right = 20; btnRecruitBack.Height = 45; btnRecruitBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D'); btnRecruitBack.clProSettings.FontColor = clAlphaColor.clWhite; btnRecruitBack.clProSettings.FontSize = 15; btnRecruitBack.clProSettings.TextSettings.Font.Style = [fsBold]; btnRecruitBack.clProSettings.IsRound = True; btnRecruitBack.clProSettings.RoundWidth = 8; btnRecruitBack.clProSettings.RoundHeight = 8; btnRecruitBack.SetClProSettings(btnRecruitBack.clProSettings); subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain'); pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining'); pnlTraining.Align = alClient; pnlTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlTraining.SetClProSettings(pnlTraining.clProSettings); pnlTraining.Visible = False; scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining'); scrollTraining.Align = alClient; lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME'); lblTrainTitle.Align = alTop; lblTrainTitle.Margins.Top = 25; lblTrainTitle.Margins.Left = 20; lblTrainTitle.Margins.Right = 20; lblTrainTitle.Height = 35; lblTrainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#F39C12'); lblTrainTitle.clProSettings.FontSize = 18; lblTrainTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblTrainTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblTrainTitle.SetClProSettings(lblTrainTitle.clProSettings); lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu'); lblTrainSub.Align = alTop; lblTrainSub.Margins.Top = 10; lblTrainSub.Margins.Left = 20; lblTrainSub.Margins.Right = 20; lblTrainSub.Height = 20; lblTrainSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F'); lblTrainSub.clProSettings.FontSize = 14; lblTrainSub.clProSettings.TextSettings.Font.Style = [fsBold]; lblTrainSub.SetClProSettings(lblTrainSub.clProSettings); memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', ''); memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20; memTrain.Height = 120; memTrain.ReadOnly = True; memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi'); memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi'); memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85'); btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla'); btnTrainAction.Align = alTop; btnTrainAction.Margins.Top = 15; btnTrainAction.Margins.Left = 20; btnTrainAction.Margins.Right = 20; btnTrainAction.Height = 45; btnTrainAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#D35400'); btnTrainAction.clProSettings.FontColor = clAlphaColor.clWhite; btnTrainAction.clProSettings.FontSize = 14; btnTrainAction.clProSettings.TextSettings.Font.Style = [fsBold]; btnTrainAction.clProSettings.IsRound = True; btnTrainAction.clProSettings.RoundWidth = 8; btnTrainAction.clProSettings.RoundHeight = 8; btnTrainAction.SetClProSettings(btnTrainAction.clProSettings); subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction'); btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don'); btnTrainBack.Align = alTop; btnTrainBack.Margins.Top = 20; btnTrainBack.Margins.Left = 20; btnTrainBack.Margins.Right = 20; btnTrainBack.Height = 45; btnTrainBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D'); btnTrainBack.clProSettings.FontColor = clAlphaColor.clWhite; btnTrainBack.clProSettings.FontSize = 15; btnTrainBack.clProSettings.TextSettings.Font.Style = [fsBold]; btnTrainBack.clProSettings.IsRound = True; btnTrainBack.clProSettings.RoundWidth = 8; btnTrainBack.clProSettings.RoundHeight = 8; btnTrainBack.SetClProSettings(btnTrainBack.clProSettings); subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain'); pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf'); pnlPerf.Align = alClient; pnlPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlPerf.SetClProSettings(pnlPerf.clProSettings); pnlPerf.Visible = False; scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf'); scrollPerf.Align = alClient; lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI'); lblPerfTitle.Align = alTop; lblPerfTitle.Margins.Top = 25; lblPerfTitle.Margins.Left = 20; lblPerfTitle.Margins.Right = 20; lblPerfTitle.Height = 35; lblPerfTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#9B59B6'); lblPerfTitle.clProSettings.FontSize = 18; lblPerfTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblPerfTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblPerfTitle.SetClProSettings(lblPerfTitle.clProSettings); lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi'); lblPerfSub.Align = alTop; lblPerfSub.Margins.Top = 10; lblPerfSub.Margins.Left = 20; lblPerfSub.Margins.Right = 20; lblPerfSub.Height = 20; lblPerfSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F'); lblPerfSub.clProSettings.FontSize = 14; lblPerfSub.clProSettings.TextSettings.Font.Style = [fsBold]; lblPerfSub.SetClProSettings(lblPerfSub.clProSettings); memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', ''); memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20; memPerf.Height = 120; memPerf.ReadOnly = True; memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92'); memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88'); memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.'); btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi'); btnPerfAction.Align = alTop; btnPerfAction.Margins.Top = 15; btnPerfAction.Margins.Left = 20; btnPerfAction.Margins.Right = 20; btnPerfAction.Height = 45; btnPerfAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8E44AD'); btnPerfAction.clProSettings.FontColor = clAlphaColor.clWhite; btnPerfAction.clProSettings.FontSize = 14; btnPerfAction.clProSettings.TextSettings.Font.Style = [fsBold]; btnPerfAction.clProSettings.IsRound = True; btnPerfAction.clProSettings.RoundWidth = 8; btnPerfAction.clProSettings.RoundHeight = 8; btnPerfAction.SetClProSettings(btnPerfAction.clProSettings); subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction'); btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don'); btnPerfBack.Align = alTop; btnPerfBack.Margins.Top = 20; btnPerfBack.Margins.Left = 20; btnPerfBack.Margins.Right = 20; btnPerfBack.Height = 45; btnPerfBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D'); btnPerfBack.clProSettings.FontColor = clAlphaColor.clWhite; btnPerfBack.clProSettings.FontSize = 15; btnPerfBack.clProSettings.TextSettings.Font.Style = [fsBold]; btnPerfBack.clProSettings.IsRound = True; btnPerfBack.clProSettings.RoundWidth = 8; btnPerfBack.clProSettings.RoundHeight = 8; btnPerfBack.SetClProSettings(btnPerfBack.clProSettings); subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain'); pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll'); pnlPayroll.Align = alClient; pnlPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlPayroll.SetClProSettings(pnlPayroll.clProSettings); pnlPayroll.Visible = False; scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll'); scrollPayroll.Align = alClient; lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI'); lblPayTitle.Align = alTop; lblPayTitle.Margins.Top = 25; lblPayTitle.Margins.Left = 20; lblPayTitle.Margins.Right = 20; lblPayTitle.Height = 35; lblPayTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ECC71'); lblPayTitle.clProSettings.FontSize = 18; lblPayTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblPayTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblPayTitle.SetClProSettings(lblPayTitle.clProSettings); lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri'); lblPaySub.Align = alTop; lblPaySub.Margins.Top = 10; lblPaySub.Margins.Left = 20; lblPaySub.Margins.Right = 20; lblPaySub.Height = 20; lblPaySub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F'); lblPaySub.clProSettings.FontSize = 14; lblPaySub.clProSettings.TextSettings.Font.Style = [fsBold]; lblPaySub.SetClProSettings(lblPaySub.clProSettings); memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', ''); memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20; memPay.Height = 120; memPay.ReadOnly = True; memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI'); memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR'); memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE'); btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet'); btnPayAction.Align = alTop; btnPayAction.Margins.Top = 15; btnPayAction.Margins.Left = 20; btnPayAction.Margins.Right = 20; btnPayAction.Height = 45; btnPayAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27AE60'); btnPayAction.clProSettings.FontColor = clAlphaColor.clWhite; btnPayAction.clProSettings.FontSize = 14; btnPayAction.clProSettings.TextSettings.Font.Style = [fsBold]; btnPayAction.clProSettings.IsRound = True; btnPayAction.clProSettings.RoundWidth = 8; btnPayAction.clProSettings.RoundHeight = 8; btnPayAction.SetClProSettings(btnPayAction.clProSettings); subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction'); btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don'); btnPayBack.Align = alTop; btnPayBack.Margins.Top = 20; btnPayBack.Margins.Left = 20; btnPayBack.Margins.Right = 20; btnPayBack.Height = 45; btnPayBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D'); btnPayBack.clProSettings.FontColor = clAlphaColor.clWhite; btnPayBack.clProSettings.FontSize = 15; btnPayBack.clProSettings.TextSettings.Font.Style = [fsBold]; btnPayBack.clProSettings.IsRound = True; btnPayBack.clProSettings.RoundWidth = 8; btnPayBack.clProSettings.RoundHeight = 8; btnPayBack.SetClProSettings(btnPayBack.clProSettings); subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain'); pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture'); pnlCulture.Align = alClient; pnlCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100E17'); pnlCulture.SetClProSettings(pnlCulture.clProSettings); pnlCulture.Visible = False; scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture'); scrollCulture.Align = alClient; lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI'); lblCultTitle.Align = alTop; lblCultTitle.Margins.Top = 25; lblCultTitle.Margins.Left = 20; lblCultTitle.Margins.Right = 20; lblCultTitle.Height = 35; lblCultTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#E74C3C'); lblCultTitle.clProSettings.FontSize = 18; lblCultTitle.clProSettings.TextSettings.Font.Style = [fsBold]; lblCultTitle.clProSettings.TextSettings.HorzAlign = palCenter; lblCultTitle.SetClProSettings(lblCultTitle.clProSettings); lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler'); lblCultSub.Align = alTop; lblCultSub.Margins.Top = 10; lblCultSub.Margins.Left = 20; lblCultSub.Margins.Right = 20; lblCultSub.Height = 20; lblCultSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#F1C40F'); lblCultSub.clProSettings.FontSize = 14; lblCultSub.clProSettings.TextSettings.Font.Style = [fsBold]; lblCultSub.SetClProSettings(lblCultSub.clProSettings); memCult = subForm.AddNewMemo(scrollCulture, 'memCult', ''); memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20; memCult.Height = 150; memCult.ReadOnly = True; memCult.Lines.Add('GUNCEL SIKAYETLER'); memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)'); memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)'); btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al'); btnCultAction.Align = alTop; btnCultAction.Margins.Top = 15; btnCultAction.Margins.Left = 20; btnCultAction.Margins.Right = 20; btnCultAction.Height = 45; btnCultAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#C0392B'); btnCultAction.clProSettings.FontColor = clAlphaColor.clWhite; btnCultAction.clProSettings.FontSize = 14; btnCultAction.clProSettings.TextSettings.Font.Style = [fsBold]; btnCultAction.clProSettings.IsRound = True; btnCultAction.clProSettings.RoundWidth = 8; btnCultAction.clProSettings.RoundHeight = 8; btnCultAction.SetClProSettings(btnCultAction.clProSettings); subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction'); btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don'); btnCultBack.Align = alTop; btnCultBack.Margins.Top = 20; btnCultBack.Margins.Left = 20; btnCultBack.Margins.Right = 20; btnCultBack.Height = 45; btnCultBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7F8C8D'); btnCultBack.clProSettings.FontColor = clAlphaColor.clWhite; btnCultBack.clProSettings.FontSize = 15; btnCultBack.clProSettings.TextSettings.Font.Style = [fsBold]; btnCultBack.clProSettings.IsRound = True; btnCultBack.clProSettings.RoundWidth = 8; btnCultBack.clProSettings.RoundHeight = 8; btnCultBack.SetClProSettings(btnCultBack.clProSettings); subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain'); subForm.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">
|
|
|
|
|
Emr.Erkmn
Moderatör
Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 986 |
Mesaj Seçenekleri
Yanıt Yaz
Alıntı Emr.Erkmn
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
Teşekkürler(1)
Alıntı Cevapla
Gönderim Zamanı: 16 Saat 42 Dakika Önce Saat 13:34 |
|
Hamza öncelikle senden istediğim setupcombenet yazsıyla yazmaman. Bunu yerin clProsettings ile bileşenlere özellik atmanı istiyorum
gelen hatanın sebebi ise kapanış olarak end yazması bunun yerne süslü parantezleri kullan 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"> |
|
|
|
|
john1
Yeni Üye
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 15 Saat 24 Dakika Önce Saat 14:52 |
|
var subForm : TclForm; currentUser : String; pnlHRMain, pnlRecruit : TClProPanel; pnlTraining, pnlPerf : TClProPanel; pnlPayroll, pnlCulture : TClProPanel; scrollMain, scrollRecruit : TclVertScrollBox; scrollTraining, scrollPerf : TclVertScrollBox; scrollPayroll, scrollCulture : TclVertScrollBox; navBar : TclHorzScrollBox; lblHRMainTitle, lblHRSub : TClProLabel; btnGoRecruit, btnGoTraining : TClProButton; btnGoPerf, btnGoPayroll : TClProButton; btnGoCulture, btnGoAdmin : TClProButton; btnGoLogout : TClProButton; pnlSum1, pnlSum2 : TClProPanel; lblSum1, lblSum2 : TClProLabel; wbHRCharts : TclWebBrowser; lblRecruitTitle, lblRecruitSub : TClProLabel; memRecruit : TclMemo; btnRecruitAction, btnRecruitBack : TClProButton; lblTrainTitle, lblTrainSub : TClProLabel; memTrain : TclMemo; btnTrainAction, btnTrainBack : TClProButton; lblPerfTitle, lblPerfSub : TClProLabel; memPerf : TclMemo; btnPerfAction, btnPerfBack : TClProButton; lblPayTitle, lblPaySub : TClProLabel; memPay : TclMemo; btnPayAction, btnPayBack : TClProButton; lblCultTitle, lblCultSub : TClProLabel; memCult : TclMemo; btnCultAction, btnCultBack : TClProButton; adminUnit : TclUnit; html : TclStringList; htmlPath : String; void HideAllPanels; { pnlHRMain.Visible = False; pnlRecruit.Visible = False; pnlTraining.Visible = False; pnlPerf.Visible = False; pnlPayroll.Visible = False; pnlCulture.Visible = False; } void GoToMain; { HideAllPanels; pnlHRMain.Visible = True; } void GoToLogout; { subForm.clHide; } void ShowRecruitPanel; { HideAllPanels; pnlRecruit.Visible = True; } void ShowTrainingPanel; { HideAllPanels; pnlTraining.Visible = True; } void ShowPerfPanel; { HideAllPanels; pnlPerf.Visible = True; } void ShowPayrollPanel; { HideAllPanels; pnlPayroll.Visible = True; } void ShowCulturePanel; { HideAllPanels; pnlCulture.Visible = True; } void GoToAdminUnit; { adminUnit = TclUnit.Create; adminUnit.UnitName = 'uAdmin'; adminUnit.CallerForm = subForm; adminUnit.Run; } void OnMockAction; { ShowMessage('Islem basariyla kaydedildi.'); } void CreateHRChartsHTML; { htmlPath = Clomosy.AppFilesPath + 'hr_charts.html'; html = Clomosy.StringListNew; html.Add('<!DOCTYPE html><html><head><meta charset="utf-8"><meta name="viewport" content="width=device-width,initial-scale=1">'); html.Add('<script src="https://cdn.jsdelivr.net/npm/chart.js"></script>'); html.Add('<style>body{margin:0;padding:15px;background-color:#100e17;color:#fff;font-family:sans-serif;} .chart-container{position:relative;height:220px;width:100%;margin-bottom:30px;} h3{text-align:center;font-size:15px;color:#f39c12;margin-bottom:10px;font-weight:bold;}</style></head><body>'); html.Add('<h3>Departmanlara Gore Calisan Dagilimi</h3>'); html.Add('<div class="chart-container"><canvas id="pieChart"></canvas></div>'); html.Add('<h3>Yillik Personel Devir Orani</h3>'); html.Add('<div class="chart-container"><canvas id="barChart"></canvas></div>'); html.Add('<script>'); html.Add('Chart.defaults.color = "#ecf0f1";'); html.Add('new Chart(document.getElementById("pieChart"), {'); html.Add(' type: "doughnut",'); html.Add(' data: {'); html.Add(' labels: ["Saha Satis", "Depo/Lojistik", "Muhasebe", "Yonetim/IK"],'); html.Add(' datasets: [{ data: [45, 30, 15, 10], backgroundColor: ["#2980b9", "#f1c40f", "#8e44ad", "#e74c3c"], borderWidth: 0, hoverOffset: 4 }]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "bottom" } } }'); html.Add('});'); html.Add('new Chart(document.getElementById("barChart"), {'); html.Add(' type: "bar",'); html.Add(' data: {'); html.Add(' labels: ["Oca", "Sub", "Mar", "Nis", "May", "Haz"],'); html.Add(' datasets: ['); html.Add(' { label: "Ise Alinan", data: [5, 2, 8, 3, 4, 6], backgroundColor: "#27ae60", borderRadius: 4 },'); html.Add(' { label: "Isten Ayrilan", data: [2, 1, 3, 1, 2, 4], backgroundColor: "#c0392b", borderRadius: 4 }'); html.Add(' ]'); html.Add(' },'); html.Add(' options: { responsive: true, maintainAspectRatio: false, plugins: { legend: { position: "top" } } }'); html.Add('});'); html.Add('</script></body></html>'); html.SaveToFile(htmlPath, 0); html.Free; } { currentUser = Clomosy.GlobalVariableString; subForm = TclForm.Create(Self); subForm.SetFormColor('#100e17', '', clGNone); CreateHRChartsHTML; pnlHRMain = subForm.AddNewProPanel(subForm, 'pnlHRMain'); pnlHRMain.Align = alClient; pnlHRMain.clProSettings.IsFill = True; pnlHRMain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlHRMain.SetclProSettings(pnlHRMain.clProSettings); navBar = subForm.AddNewHorzScrollBox(pnlHRMain, 'navBar'); navBar.Align = alBottom; navBar.Height = 70; btnGoRecruit = subForm.AddNewProButton(navBar, 'btnGoRecruit', 'Ise Alim'); btnGoRecruit.Align = alLeft; btnGoRecruit.Width = 80; btnGoRecruit.Margins.Left = 10; btnGoRecruit.Margins.Right = 5; btnGoRecruit.Margins.Top = 10; btnGoRecruit.Margins.Bottom = 15; btnGoRecruit.clProSettings.IsFill = True; btnGoRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9'); btnGoRecruit.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoRecruit.clProSettings.FontSize = 13; btnGoRecruit.clProSettings.IsRound = True; btnGoRecruit.clProSettings.RoundWidth = 8; btnGoRecruit.clProSettings.RoundHeight = 8; btnGoRecruit.SetclProSettings(btnGoRecruit.clProSettings); subForm.AddNewEvent(btnGoRecruit, tbeOnClick, 'ShowRecruitPanel'); btnGoTraining = subForm.AddNewProButton(navBar, 'btnGoTraining', 'Egitim'); btnGoTraining.Align = alLeft; btnGoTraining.Width = 80; btnGoTraining.Margins.Right = 5; btnGoTraining.Margins.Top = 10; btnGoTraining.Margins.Bottom = 15; btnGoTraining.clProSettings.IsFill = True; btnGoTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#f39c12'); btnGoTraining.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoTraining.clProSettings.FontSize = 13; btnGoTraining.clProSettings.IsRound = True; btnGoTraining.clProSettings.RoundWidth = 8; btnGoTraining.clProSettings.RoundHeight = 8; btnGoTraining.SetclProSettings(btnGoTraining.clProSettings); subForm.AddNewEvent(btnGoTraining, tbeOnClick, 'ShowTrainingPanel'); btnGoPerf = subForm.AddNewProButton(navBar, 'btnGoPerf', 'Performans'); btnGoPerf.Align = alLeft; btnGoPerf.Width = 90; btnGoPerf.Margins.Right = 5; btnGoPerf.Margins.Top = 10; btnGoPerf.Margins.Bottom = 15; btnGoPerf.clProSettings.IsFill = True; btnGoPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8e44ad'); btnGoPerf.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoPerf.clProSettings.FontSize = 13; btnGoPerf.clProSettings.IsRound = True; btnGoPerf.clProSettings.RoundWidth = 8; btnGoPerf.clProSettings.RoundHeight = 8; btnGoPerf.SetclProSettings(btnGoPerf.clProSettings); subForm.AddNewEvent(btnGoPerf, tbeOnClick, 'ShowPerfPanel'); btnGoPayroll = subForm.AddNewProButton(navBar, 'btnGoPayroll', 'Maas/Prim'); btnGoPayroll.Align = alLeft; btnGoPayroll.Width = 100; btnGoPayroll.Margins.Right = 5; btnGoPayroll.Margins.Top = 10; btnGoPayroll.Margins.Bottom = 15; btnGoPayroll.clProSettings.IsFill = True; btnGoPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60'); btnGoPayroll.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoPayroll.clProSettings.FontSize = 13; btnGoPayroll.clProSettings.IsRound = True; btnGoPayroll.clProSettings.RoundWidth = 8; btnGoPayroll.clProSettings.RoundHeight = 8; btnGoPayroll.SetclProSettings(btnGoPayroll.clProSettings); subForm.AddNewEvent(btnGoPayroll, tbeOnClick, 'ShowPayrollPanel'); btnGoCulture = subForm.AddNewProButton(navBar, 'btnGoCulture', 'Sikayetler'); btnGoCulture.Align = alLeft; btnGoCulture.Width = 100; btnGoCulture.Margins.Right = 5; btnGoCulture.Margins.Top = 10; btnGoCulture.Margins.Bottom = 15; btnGoCulture.clProSettings.IsFill = True; btnGoCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b'); btnGoCulture.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoCulture.clProSettings.FontSize = 13; btnGoCulture.clProSettings.IsRound = True; btnGoCulture.clProSettings.RoundWidth = 8; btnGoCulture.clProSettings.RoundHeight = 8; btnGoCulture.SetclProSettings(btnGoCulture.clProSettings); subForm.AddNewEvent(btnGoCulture, tbeOnClick, 'ShowCulturePanel'); btnGoAdmin = subForm.AddNewProButton(navBar, 'btnGoAdmin', 'Yonetici'); btnGoAdmin.Align = alLeft; btnGoAdmin.Width = 80; btnGoAdmin.Margins.Right = 5; btnGoAdmin.Margins.Top = 10; btnGoAdmin.Margins.Bottom = 15; btnGoAdmin.clProSettings.IsFill = True; btnGoAdmin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495e'); btnGoAdmin.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoAdmin.clProSettings.FontSize = 13; btnGoAdmin.clProSettings.IsRound = True; btnGoAdmin.clProSettings.RoundWidth = 8; btnGoAdmin.clProSettings.RoundHeight = 8; btnGoAdmin.SetclProSettings(btnGoAdmin.clProSettings); subForm.AddNewEvent(btnGoAdmin, tbeOnClick, 'GoToAdminUnit'); btnGoLogout = subForm.AddNewProButton(navBar, 'btnGoLogout', 'Cikis'); btnGoLogout.Align = alLeft; btnGoLogout.Width = 80; btnGoLogout.Margins.Right = 10; btnGoLogout.Margins.Top = 10; btnGoLogout.Margins.Bottom = 15; btnGoLogout.clProSettings.IsFill = True; btnGoLogout.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e74c3c'); btnGoLogout.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoLogout.clProSettings.FontSize = 13; btnGoLogout.clProSettings.IsRound = True; btnGoLogout.clProSettings.RoundWidth = 8; btnGoLogout.clProSettings.RoundHeight = 8; btnGoLogout.SetclProSettings(btnGoLogout.clProSettings); subForm.AddNewEvent(btnGoLogout, tbeOnClick, 'GoToLogout'); scrollMain = subForm.AddNewVertScrollBox(pnlHRMain, 'scrollMain'); scrollMain.Align = alClient; lblHRMainTitle = subForm.AddNewProLabel(scrollMain, 'lblHRMainTitle', 'INSAN KAYNAKLARI MERKEZI'); lblHRMainTitle.Align = alTop; lblHRMainTitle.Margins.Top = 25; lblHRMainTitle.Margins.Left = 20; lblHRMainTitle.Margins.Right = 20; lblHRMainTitle.Height = 40; lblHRMainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblHRMainTitle.clProSettings.FontSize = 20; lblHRMainTitle.SetclProSettings(lblHRMainTitle.clProSettings); lblHRSub = subForm.AddNewProLabel(scrollMain, 'lblHRSub', 'Oryantasyon, egitim, performans ve maas surecleri'); lblHRSub.Align = alTop; lblHRSub.Margins.Top = 5; lblHRSub.Margins.Left = 20; lblHRSub.Margins.Right = 20; lblHRSub.Height = 40; lblHRSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblHRSub.clProSettings.FontSize = 13; lblHRSub.SetclProSettings(lblHRSub.clProSettings); pnlSum1 = subForm.AddNewProPanel(scrollMain, 'pnlSum1'); pnlSum1.Align = alTop; pnlSum1.Margins.Top = 15; pnlSum1.Margins.Left = 20; pnlSum1.Margins.Right = 20; pnlSum1.Height = 50; pnlSum1.clProSettings.IsFill = True; pnlSum1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9'); pnlSum1.clProSettings.IsRound = True; pnlSum1.clProSettings.RoundWidth = 8; pnlSum1.clProSettings.RoundHeight = 8; pnlSum1.SetclProSettings(pnlSum1.clProSettings); lblSum1 = subForm.AddNewProLabel(pnlSum1, 'lblSum1', 'Aktif Calisan Sayisi: 142'); lblSum1.Align = alClient; lblSum1.Margins.Left = 15; lblSum1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblSum1.clProSettings.FontSize = 14; lblSum1.SetclProSettings(lblSum1.clProSettings); pnlSum2 = subForm.AddNewProPanel(scrollMain, 'pnlSum2'); pnlSum2.Align = alTop; pnlSum2.Margins.Top = 10; pnlSum2.Margins.Left = 20; pnlSum2.Margins.Right = 20; pnlSum2.Height = 50; pnlSum2.clProSettings.IsFill = True; pnlSum2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#e74c3c'); pnlSum2.clProSettings.IsRound = True; pnlSum2.clProSettings.RoundWidth = 8; pnlSum2.clProSettings.RoundHeight = 8; pnlSum2.SetclProSettings(pnlSum2.clProSettings); lblSum2 = subForm.AddNewProLabel(pnlSum2, 'lblSum2', 'Bekleyen Sikayet / Bildirim: 2'); lblSum2.Align = alClient; lblSum2.Margins.Left = 15; lblSum2.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblSum2.clProSettings.FontSize = 14; lblSum2.SetclProSettings(lblSum2.clProSettings); wbHRCharts = subForm.AddNewWebBrowser(scrollMain, 'wbHRCharts'); wbHRCharts.Align = alTop; wbHRCharts.Margins.Top = 20; wbHRCharts.Margins.Left = 10; wbHRCharts.Margins.Right = 10; wbHRCharts.Height = 600; wbHRCharts.Navigate('file://' + Clomosy.AppFilesPath + 'hr_charts.html'); pnlRecruit = subForm.AddNewProPanel(subForm, 'pnlRecruit'); pnlRecruit.Align = alClient; pnlRecruit.clProSettings.IsFill = True; pnlRecruit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlRecruit.SetclProSettings(pnlRecruit.clProSettings); pnlRecruit.Visible = False; scrollRecruit = subForm.AddNewVertScrollBox(pnlRecruit, 'scrollRecruit'); scrollRecruit.Align = alClient; lblRecruitTitle = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitTitle', 'ISE ALIM VE ORYANTASYON'); lblRecruitTitle.Align = alTop; lblRecruitTitle.Margins.Top = 25; lblRecruitTitle.Margins.Left = 20; lblRecruitTitle.Margins.Right = 20; lblRecruitTitle.Height = 35; lblRecruitTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#3498db'); lblRecruitTitle.clProSettings.FontSize = 18; lblRecruitTitle.SetclProSettings(lblRecruitTitle.clProSettings); lblRecruitSub = subForm.AddNewProLabel(scrollRecruit, 'lblRecruitSub', 'Acik Pozisyonlar ve Uyum Sureci Takibi'); lblRecruitSub.Align = alTop; lblRecruitSub.Margins.Top = 10; lblRecruitSub.Margins.Left = 20; lblRecruitSub.Margins.Right = 20; lblRecruitSub.Height = 20; lblRecruitSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblRecruitSub.clProSettings.FontSize = 14; lblRecruitSub.SetclProSettings(lblRecruitSub.clProSettings); memRecruit = subForm.AddNewMemo(scrollRecruit, 'memRecruit', ''); memRecruit.Align = alTop; memRecruit.Margins.Top = 5; memRecruit.Margins.Left = 20; memRecruit.Margins.Right = 20; memRecruit.Height = 120; memRecruit.ReadOnly = True; memRecruit.Lines.Add('[ACIK POZISYON] Bolge Satis Muduru (2 Kisi)'); memRecruit.Lines.Add('[Mulakati] Ayse Yilmaz - IK Mulakati (Bugun 14:00)'); memRecruit.Lines.Add('[Oryantasyon] Mehmet Kaya - 2. Gun Saha Egitimi'); btnRecruitAction = subForm.AddNewProButton(scrollRecruit, 'btnRecruitAction', 'Yeni Ilan Olustur'); btnRecruitAction.Align = alTop; btnRecruitAction.Margins.Top = 15; btnRecruitAction.Margins.Left = 20; btnRecruitAction.Margins.Right = 20; btnRecruitAction.Height = 45; btnRecruitAction.clProSettings.IsFill = True; btnRecruitAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9'); btnRecruitAction.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRecruitAction.clProSettings.FontSize = 14; btnRecruitAction.clProSettings.IsRound = True; btnRecruitAction.clProSettings.RoundWidth = 8; btnRecruitAction.clProSettings.RoundHeight = 8; btnRecruitAction.SetclProSettings(btnRecruitAction.clProSettings); subForm.AddNewEvent(btnRecruitAction, tbeOnClick, 'OnMockAction'); btnRecruitBack = subForm.AddNewProButton(scrollRecruit, 'btnRecruitBack', 'Geri Don'); btnRecruitBack.Align = alTop; btnRecruitBack.Margins.Top = 20; btnRecruitBack.Margins.Left = 20; btnRecruitBack.Margins.Right = 20; btnRecruitBack.Height = 45; btnRecruitBack.clProSettings.IsFill = True; btnRecruitBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnRecruitBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRecruitBack.clProSettings.FontSize = 15; btnRecruitBack.clProSettings.IsRound = True; btnRecruitBack.clProSettings.RoundWidth = 8; btnRecruitBack.clProSettings.RoundHeight = 8; btnRecruitBack.SetclProSettings(btnRecruitBack.clProSettings); subForm.AddNewEvent(btnRecruitBack, tbeOnClick, 'GoToMain'); pnlTraining = subForm.AddNewProPanel(subForm, 'pnlTraining'); pnlTraining.Align = alClient; pnlTraining.clProSettings.IsFill = True; pnlTraining.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlTraining.SetclProSettings(pnlTraining.clProSettings); pnlTraining.Visible = False; scrollTraining = subForm.AddNewVertScrollBox(pnlTraining, 'scrollTraining'); scrollTraining.Align = alClient; lblTrainTitle = subForm.AddNewProLabel(scrollTraining, 'lblTrainTitle', 'EGITIM VE GELISTIRME'); lblTrainTitle.Align = alTop; lblTrainTitle.Margins.Top = 25; lblTrainTitle.Margins.Left = 20; lblTrainTitle.Margins.Right = 20; lblTrainTitle.Height = 35; lblTrainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#f39c12'); lblTrainTitle.clProSettings.FontSize = 18; lblTrainTitle.SetclProSettings(lblTrainTitle.clProSettings); lblTrainSub = subForm.AddNewProLabel(scrollTraining, 'lblTrainSub', 'Planlanan Egitimler ve Katilim Durumu'); lblTrainSub.Align = alTop; lblTrainSub.Margins.Top = 10; lblTrainSub.Margins.Left = 20; lblTrainSub.Margins.Right = 20; lblTrainSub.Height = 20; lblTrainSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblTrainSub.clProSettings.FontSize = 14; lblTrainSub.SetclProSettings(lblTrainSub.clProSettings); memTrain = subForm.AddNewMemo(scrollTraining, 'memTrain', ''); memTrain.Align = alTop; memTrain.Margins.Top = 5; memTrain.Margins.Left = 20; memTrain.Margins.Right = 20; memTrain.Height = 120; memTrain.ReadOnly = True; memTrain.Lines.Add('- Satis Teknikleri 101 (25 Temmuz) | Katilim: 20 Kisi'); memTrain.Lines.Add('- Ileri Seviye Excel (1 Agustos) | Katilim: 15 Kisi'); memTrain.Lines.Add('- Sirket Ici Egitim Tamamlanma Orani: %85'); btnTrainAction = subForm.AddNewProButton(scrollTraining, 'btnTrainAction', 'Yeni Egitim Planla'); btnTrainAction.Align = alTop; btnTrainAction.Margins.Top = 15; btnTrainAction.Margins.Left = 20; btnTrainAction.Margins.Right = 20; btnTrainAction.Height = 45; btnTrainAction.clProSettings.IsFill = True; btnTrainAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#d35400'); btnTrainAction.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnTrainAction.clProSettings.FontSize = 14; btnTrainAction.clProSettings.IsRound = True; btnTrainAction.clProSettings.RoundWidth = 8; btnTrainAction.clProSettings.RoundHeight = 8; btnTrainAction.SetclProSettings(btnTrainAction.clProSettings); subForm.AddNewEvent(btnTrainAction, tbeOnClick, 'OnMockAction'); btnTrainBack = subForm.AddNewProButton(scrollTraining, 'btnTrainBack', 'Geri Don'); btnTrainBack.Align = alTop; btnTrainBack.Margins.Top = 20; btnTrainBack.Margins.Left = 20; btnTrainBack.Margins.Right = 20; btnTrainBack.Height = 45; btnTrainBack.clProSettings.IsFill = True; btnTrainBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnTrainBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnTrainBack.clProSettings.FontSize = 15; btnTrainBack.clProSettings.IsRound = True; btnTrainBack.clProSettings.RoundWidth = 8; btnTrainBack.clProSettings.RoundHeight = 8; btnTrainBack.SetclProSettings(btnTrainBack.clProSettings); subForm.AddNewEvent(btnTrainBack, tbeOnClick, 'GoToMain'); pnlPerf = subForm.AddNewProPanel(subForm, 'pnlPerf'); pnlPerf.Align = alClient; pnlPerf.clProSettings.IsFill = True; pnlPerf.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlPerf.SetclProSettings(pnlPerf.clProSettings); pnlPerf.Visible = False; scrollPerf = subForm.AddNewVertScrollBox(pnlPerf, 'scrollPerf'); scrollPerf.Align = alClient; lblPerfTitle = subForm.AddNewProLabel(scrollPerf, 'lblPerfTitle', 'PERFORMANS YONETIMI'); lblPerfTitle.Align = alTop; lblPerfTitle.Margins.Top = 25; lblPerfTitle.Margins.Left = 20; lblPerfTitle.Margins.Right = 20; lblPerfTitle.Height = 35; lblPerfTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#9b59b6'); lblPerfTitle.clProSettings.FontSize = 18; lblPerfTitle.SetclProSettings(lblPerfTitle.clProSettings); lblPerfSub = subForm.AddNewProLabel(scrollPerf, 'lblPerfSub', 'Hedef Gerceklesme ve Terfi Analizi'); lblPerfSub.Align = alTop; lblPerfSub.Margins.Top = 10; lblPerfSub.Margins.Left = 20; lblPerfSub.Margins.Right = 20; lblPerfSub.Height = 20; lblPerfSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblPerfSub.clProSettings.FontSize = 14; lblPerfSub.SetclProSettings(lblPerfSub.clProSettings); memPerf = subForm.AddNewMemo(scrollPerf, 'memPerf', ''); memPerf.Align = alTop; memPerf.Margins.Top = 5; memPerf.Margins.Left = 20; memPerf.Margins.Right = 20; memPerf.Height = 120; memPerf.ReadOnly = True; memPerf.Lines.Add('Saha Satis Ekibi Hedef Gerceklesme Orani: %92'); memPerf.Lines.Add('Lojistik Ekibi Verimlilik Orani: %88'); memPerf.Lines.Add('[DIKKAT] 3 personel terfi degerlendirmesinde.'); btnPerfAction = subForm.AddNewProButton(scrollPerf, 'btnPerfAction', 'Donem Sonu Degerlendirmesi'); btnPerfAction.Align = alTop; btnPerfAction.Margins.Top = 15; btnPerfAction.Margins.Left = 20; btnPerfAction.Margins.Right = 20; btnPerfAction.Height = 45; btnPerfAction.clProSettings.IsFill = True; btnPerfAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#8e44ad'); btnPerfAction.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnPerfAction.clProSettings.FontSize = 14; btnPerfAction.clProSettings.IsRound = True; btnPerfAction.clProSettings.RoundWidth = 8; btnPerfAction.clProSettings.RoundHeight = 8; btnPerfAction.SetclProSettings(btnPerfAction.clProSettings); subForm.AddNewEvent(btnPerfAction, tbeOnClick, 'OnMockAction'); btnPerfBack = subForm.AddNewProButton(scrollPerf, 'btnPerfBack', 'Geri Don'); btnPerfBack.Align = alTop; btnPerfBack.Margins.Top = 20; btnPerfBack.Margins.Left = 20; btnPerfBack.Margins.Right = 20; btnPerfBack.Height = 45; btnPerfBack.clProSettings.IsFill = True; btnPerfBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnPerfBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnPerfBack.clProSettings.FontSize = 15; btnPerfBack.clProSettings.IsRound = True; btnPerfBack.clProSettings.RoundWidth = 8; btnPerfBack.clProSettings.RoundHeight = 8; btnPerfBack.SetclProSettings(btnPerfBack.clProSettings); subForm.AddNewEvent(btnPerfBack, tbeOnClick, 'GoToMain'); pnlPayroll = subForm.AddNewProPanel(subForm, 'pnlPayroll'); pnlPayroll.Align = alClient; pnlPayroll.clProSettings.IsFill = True; pnlPayroll.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlPayroll.SetclProSettings(pnlPayroll.clProSettings); pnlPayroll.Visible = False; scrollPayroll = subForm.AddNewVertScrollBox(pnlPayroll, 'scrollPayroll'); scrollPayroll.Align = alClient; lblPayTitle = subForm.AddNewProLabel(scrollPayroll, 'lblPayTitle', 'MAAS VE PRIM YONETIMI'); lblPayTitle.Align = alTop; lblPayTitle.Margins.Top = 25; lblPayTitle.Margins.Left = 20; lblPayTitle.Margins.Right = 20; lblPayTitle.Height = 35; lblPayTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#2ecc71'); lblPayTitle.clProSettings.FontSize = 18; lblPayTitle.SetclProSettings(lblPayTitle.clProSettings); lblPaySub = subForm.AddNewProLabel(scrollPayroll, 'lblPaySub', 'Aylik Odemeler ve Sigorta Islemleri'); lblPaySub.Align = alTop; lblPaySub.Margins.Top = 10; lblPaySub.Margins.Left = 20; lblPaySub.Margins.Right = 20; lblPaySub.Height = 20; lblPaySub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblPaySub.clProSettings.FontSize = 14; lblPaySub.SetclProSettings(lblPaySub.clProSettings); memPay = subForm.AddNewMemo(scrollPayroll, 'memPay', ''); memPay.Align = alTop; memPay.Margins.Top = 5; memPay.Margins.Left = 20; memPay.Margins.Right = 20; memPay.Height = 120; memPay.ReadOnly = True; memPay.Lines.Add('- Agustos Donemi Maas Hesaplamalari: ONAYLANDI'); memPay.Lines.Add('- Saha Ekibi Prim Dagitimi: ONAY BEKLIYOR'); memPay.Lines.Add('- Multinet / Arac Yakit Karti Yuklemeleri: BEKLEMEDE'); btnPayAction = subForm.AddNewProButton(scrollPayroll, 'btnPayAction', 'Odemeleri Finansa Ilet'); btnPayAction.Align = alTop; btnPayAction.Margins.Top = 15; btnPayAction.Margins.Left = 20; btnPayAction.Margins.Right = 20; btnPayAction.Height = 45; btnPayAction.clProSettings.IsFill = True; btnPayAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60'); btnPayAction.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnPayAction.clProSettings.FontSize = 14; btnPayAction.clProSettings.IsRound = True; btnPayAction.clProSettings.RoundWidth = 8; btnPayAction.clProSettings.RoundHeight = 8; btnPayAction.SetclProSettings(btnPayAction.clProSettings); subForm.AddNewEvent(btnPayAction, tbeOnClick, 'OnMockAction'); btnPayBack = subForm.AddNewProButton(scrollPayroll, 'btnPayBack', 'Geri Don'); btnPayBack.Align = alTop; btnPayBack.Margins.Top = 20; btnPayBack.Margins.Left = 20; btnPayBack.Margins.Right = 20; btnPayBack.Height = 45; btnPayBack.clProSettings.IsFill = True; btnPayBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnPayBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnPayBack.clProSettings.FontSize = 15; btnPayBack.clProSettings.IsRound = True; btnPayBack.clProSettings.RoundWidth = 8; btnPayBack.clProSettings.RoundHeight = 8; btnPayBack.SetclProSettings(btnPayBack.clProSettings); subForm.AddNewEvent(btnPayBack, tbeOnClick, 'GoToMain'); pnlCulture = subForm.AddNewProPanel(subForm, 'pnlCulture'); pnlCulture.Align = alClient; pnlCulture.clProSettings.IsFill = True; pnlCulture.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlCulture.SetclProSettings(pnlCulture.clProSettings); pnlCulture.Visible = False; scrollCulture = subForm.AddNewVertScrollBox(pnlCulture, 'scrollCulture'); scrollCulture.Align = alClient; lblCultTitle = subForm.AddNewProLabel(scrollCulture, 'lblCultTitle', 'SIKAYET VE BILDIRIM MERKEZI'); lblCultTitle.Align = alTop; lblCultTitle.Margins.Top = 25; lblCultTitle.Margins.Left = 20; lblCultTitle.Margins.Right = 20; lblCultTitle.Height = 35; lblCultTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c'); lblCultTitle.clProSettings.FontSize = 18; lblCultTitle.SetclProSettings(lblCultTitle.clProSettings); lblCultSub = subForm.AddNewProLabel(scrollCulture, 'lblCultSub', 'Personelden Gelen Bildirimler'); lblCultSub.Align = alTop; lblCultSub.Margins.Top = 10; lblCultSub.Margins.Left = 20; lblCultSub.Margins.Right = 20; lblCultSub.Height = 20; lblCultSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblCultSub.clProSettings.FontSize = 14; lblCultSub.SetclProSettings(lblCultSub.clProSettings); memCult = subForm.AddNewMemo(scrollCulture, 'memCult', ''); memCult.Align = alTop; memCult.Margins.Top = 5; memCult.Margins.Left = 20; memCult.Margins.Right = 20; memCult.Height = 150; memCult.ReadOnly = True; memCult.Lines.Add('GUNCEL SIKAYETLER'); memCult.Lines.Add('1. Yemekhane kalitesi son gunlerde dustu (Gonderen: Saha Ekibi)'); memCult.Lines.Add('2. Mobbing bildirimi: Isimsiz (ACIL INCELEME GEREKIYOR)'); btnCultAction = subForm.AddNewProButton(scrollCulture, 'btnCultAction', 'Sikayetleri Incelemeye Al'); btnCultAction.Align = alTop; btnCultAction.Margins.Top = 15; btnCultAction.Margins.Left = 20; btnCultAction.Margins.Right = 20; btnCultAction.Height = 45; btnCultAction.clProSettings.IsFill = True; btnCultAction.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b'); btnCultAction.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnCultAction.clProSettings.FontSize = 14; btnCultAction.clProSettings.IsRound = True; btnCultAction.clProSettings.RoundWidth = 8; btnCultAction.clProSettings.RoundHeight = 8; btnCultAction.SetclProSettings(btnCultAction.clProSettings); subForm.AddNewEvent(btnCultAction, tbeOnClick, 'OnMockAction'); btnCultBack = subForm.AddNewProButton(scrollCulture, 'btnCultBack', 'Geri Don'); btnCultBack.Align = alTop; btnCultBack.Margins.Top = 20; btnCultBack.Margins.Left = 20; btnCultBack.Margins.Right = 20; btnCultBack.Height = 45; btnCultBack.clProSettings.IsFill = True; btnCultBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnCultBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnCultBack.clProSettings.FontSize = 15; btnCultBack.clProSettings.IsRound = True; btnCultBack.clProSettings.RoundWidth = 8; btnCultBack.clProSettings.RoundHeight = 8; btnCultBack.SetclProSettings(btnCultBack.clProSettings); subForm.AddNewEvent(btnCultBack, tbeOnClick, 'GoToMain'); subForm.Run; } belirttiginiz sekilde duzeltilmis kod ama satir 264 farkli olmasina ragmen aldigim hata hala ayni hata kodu; RUNTIME ERROR File library Main: Unit uHR: Syntax error. Source position: 1,2 when evaluating instruction CallProc ($FFFFFFFF,$0,$733034E0,$6D,"Run"). Stack content is: [-5476376661869708432,-5476376666970291280,-5476376666970331104,-5476376661869688656...]. Source position: 264,15 Position: 264, 15 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">
|
|
|
urlt
|
|
|
|
|
john1
Yeni Üye
Kayıt Tarihi: 18 Saat 36 Dakika Önce Konum: turkey Durum: Aktif Değil Puanlar: 7 |
Mesaj Seçenekleri
Teşekkürler(0)
Alıntı Cevapla
Gönderim Zamanı: 14 Saat 27 Dakika Önce Saat 15:49 |
|
var salesForm : TclForm; myUnit : TclUnit; pnlRoleSelection, pnlLogin, pnlRegister, pnlComplain : TClProPanel; scrollRole, scrollLogin, scrollRegister, scrollComplain : TclVertScrollBox; selectedRole, currentUser : String; imgLogo : TClImage; lblRoleTitle, lblRoleSub, lblLoginTitle, lblUsername, lblPassword, lblDepot, lblRegisterTitle, lblRegUser, lblRegPass, lblRegEmail, lblRegPhone, lblComplainTitle, lblComplainName, lblComplainText : TClProLabel; btnAdminRole, btnSalesRole, btnCustomerRole, btnWarehouseRole, btnInspectorRole, btnFinanceRole, btnLogisticsRole, btnHRRole, btnGoComplain, btnShowPass, btnForgotPass, btnLogin, btnGoToRegister, btnLoginBack, btnRegisterSubmit, btnRegisterBack, btnComplainSubmit, btnComplainCancel : TClProButton; edtUsername, edtPassword, edtRegUser, edtRegPass, edtRegEmail, edtRegPhone, edtComplainName : TClProEdit; lytPassword : TclLayout; cmbDepot : TClComboBox; chkRememberMe : TClCheckBox; memComplainText : TclMemo; void ShowScreen(screenName: String); { pnlRoleSelection.Visible = False; pnlLogin.Visible = False; pnlRegister.Visible = False; pnlComplain.Visible = False; if (screenName == 'RoleSelection') pnlRoleSelection.Visible = True; else if (screenName == 'Login') pnlLogin.Visible = True; else if (screenName == 'Register') pnlRegister.Visible = True; else if (screenName == 'Complain') pnlComplain.Visible = True; } void TogglePassword; { if (edtPassword.Password) { edtPassword.Password = False; btnShowPass.Caption = 'Gizle'; } else { edtPassword.Password = True; btnShowPass.Caption = 'Goster'; } } void OnForgotPassword; { ShowMessage('Sifrenizi sifirlamak icin lutfen sistem yoneticinizle iletisime geciniz.'); } void CheckRememberMe; var lines : TclStringList; remUser : String; remRole : String; { if (clFileExists('remember.txt', Clomosy.AppFilesPath)) { lines = Clomosy.StringListNew; lines.LoadFromFile(Clomosy.AppFilesPath + 'remember.txt', 0); if (lines.Count >= 2) { remUser = Clomosy.StringListItemString(lines, 0); remRole = Clomosy.StringListItemString(lines, 1); if (selectedRole == remRole) { edtUsername.Text = remUser; chkRememberMe.IsChecked = True; } else { edtUsername.Text = ''; chkRememberMe.IsChecked = False; } } lines.Free; } else { edtUsername.Text = ''; chkRememberMe.IsChecked = False; } } void ShowLoginScreen; { lblLoginTitle.Text = selectedRole + ' Girisi'; edtPassword.Text = ''; edtPassword.Password = True; btnShowPass.Caption = 'Goster'; if (selectedRole == 'Musteri') btnGoToRegister.Visible = True; else btnGoToRegister.Visible = False; if (selectedRole == 'Depo ve Stok Sorumlusu') { lblDepot.Visible = True; cmbDepot.Visible = True; } else { lblDepot.Visible = False; cmbDepot.Visible = False; } CheckRememberMe; ShowScreen('Login'); } void OnRoleSelectAdmin; { selectedRole = 'Yonetici (Admin)'; ShowLoginScreen; } void OnRoleSelectSales; { selectedRole = 'Saha Satis Temsilcisi'; ShowLoginScreen; } void OnRoleSelectCustomer; { selectedRole = 'Musteri'; ShowLoginScreen; } void OnRoleSelectWarehouse; { selectedRole = 'Depo ve Stok Sorumlusu'; ShowLoginScreen; } void OnRoleSelectInspector; { selectedRole = 'Saha Satis Mufettisi'; ShowLoginScreen; } void OnRoleSelectFinance; { selectedRole = 'Muhasebe ve Finans Uzmani'; ShowLoginScreen; } void OnRoleSelectLogistics; { selectedRole = 'Lojistik Yoneticisi'; ShowLoginScreen; } void OnRoleSelectHR; { selectedRole = 'Insan Kaynaklari Uzmani'; ShowLoginScreen; } void GoToRegister; { ShowScreen('Register'); } void GoToRoleSelection; { ShowScreen('RoleSelection'); } void GoToLogin; { ShowLoginScreen; } void GoToComplain; { ShowScreen('Complain'); } void DoSubmitComplain; { if (memComplainText.Text == '') { ShowMessage('Lutfen iletmek istediginiz mesajinizi yaziniz!'); exit; } ShowMessage('Tesekkurler. Mesajiniz Insan Kaynaklari departmanina iletilmistir.'); edtComplainName.Text = ''; memComplainText.Text = ''; ShowScreen('RoleSelection'); } Function IsUserExists(uName: String): Boolean; var lines : TclStringList; i : Integer; line : String; usr : String; found : Boolean; { found = False; lines = Clomosy.StringListNew; if (clFileExists('sales_users.txt', Clomosy.AppFilesPath)) { lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0); for (i = 0 to lines.Count - 1) { line = Clomosy.StringListItemString(lines, i); usr = clGetStringTo(line, ';'); if (usr == uName) { found = True; break; } } } lines.Free; Result = found; } Function ValidateUser(user, pass, role: String): Boolean; var lines : TclStringList; i : Integer; line : String; rest : String; uN : String; uP : String; uR : String; found : Boolean; { found = False; lines = Clomosy.StringListNew; if (clFileExists('sales_users.txt', Clomosy.AppFilesPath)) { lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0); for (i = 0 to lines.Count - 1) { line = Clomosy.StringListItemString(lines, i); uN = clGetStringTo(line, ';'); rest = clGetStringAfter(line, ';'); uP = clGetStringTo(rest, ';'); uR = clGetStringAfter(rest, ';'); if ((uN == user) && (uP == pass) && (uR == role)) { found = True; break; } } } else { if ((user == 'lura') && (pass == 'heumrage123') && (role == 'Yonetici (Admin)')) found = True; } lines.Free; Result = found; } void InitUserFile; var lines : TclStringList; { if (not clFileExists('sales_users.txt', Clomosy.AppFilesPath)) { lines = Clomosy.StringListNew; lines.Add('lura;heumrage123;Yonetici (Admin)'); lines.Add('satis;1234;Saha Satis Temsilcisi'); lines.Add('mufettis;1234;Saha Satis Mufettisi'); lines.Add('depo;1234;Depo ve Stok Sorumlusu'); lines.Add('muhasebe;1234;Muhasebe ve Finans Uzmani'); lines.Add('lojistik;1234;Lojistik Yoneticisi'); lines.Add('ik;1234;Insan Kaynaklari Uzmani'); lines.SaveToFile(Clomosy.AppFilesPath + 'sales_users.txt', 0); lines.Free; } } void DoLogin; var uName : String; uPass : String; lines : TclStringList; { uName = edtUsername.Text; uPass = edtPassword.Text; if ((uName == '') || (uPass == '')) { ShowMessage('Lutfen kullanici adi ve sifre giriniz!'); exit; } if (selectedRole == 'Depo ve Stok Sorumlusu') { if (cmbDepot.Text == '') { ShowMessage('Lutfen gorevli oldugunuz depoyu seciniz!'); exit; } } if (ValidateUser(uName, uPass, selectedRole)) { currentUser = uName; Clomosy.GlobalVariableString = currentUser; lines = Clomosy.StringListNew; if (chkRememberMe.IsChecked) { lines.Add(uName); lines.Add(selectedRole); } else { lines.Add(''); lines.Add(''); } lines.SaveToFile(Clomosy.AppFilesPath + 'remember.txt', 0); lines.Free; ShowMessage('Giris Basarili! Hos geldiniz.'); if (selectedRole == 'Yonetici (Admin)') myUnit.UnitName = 'uAdmin'; else if (selectedRole == 'Saha Satis Temsilcisi') myUnit.UnitName = 'uSales'; else if (selectedRole == 'Musteri') myUnit.UnitName = 'uCustomer'; else if (selectedRole == 'Lojistik Yoneticisi') myUnit.UnitName = 'uLogistics'; else if (selectedRole == 'Depo ve Stok Sorumlusu') myUnit.UnitName = 'uWarehouse'; else if (selectedRole == 'Saha Satis Mufettisi') myUnit.UnitName = 'uInspector'; else if (selectedRole == 'Muhasebe ve Finans Uzmani') myUnit.UnitName = 'uFinance'; else if (selectedRole == 'Insan Kaynaklari Uzmani') myUnit.UnitName = 'uHR'; myUnit.CallerForm = salesForm; myUnit.Run; } else ShowMessage('Hatali kullanici adi veya sifre!'); } void DoRegister; var uName : String; uPass : String; uEmail : String; lineText : String; lines : TclStringList; { uName = edtRegUser.Text; uPass = edtRegPass.Text; uEmail = edtRegEmail.Text; if ((uName == '') || (uPass == '')) { ShowMessage('Kullanici adi ve Sifre bos birakilamaz!'); exit; } if (Length(uPass) < 6) { ShowMessage('Sifreniz en az 6 karakter olmalidir!'); exit; } if (IsUserExists(uName)) { ShowMessage('Bu kullanici adi alinmis! Lutfen farkli seciniz.'); exit; } lines = Clomosy.StringListNew; if (clFileExists('sales_users.txt', Clomosy.AppFilesPath)) lines.LoadFromFile(Clomosy.AppFilesPath + 'sales_users.txt', 0); lineText = uName + ';' + uPass + ';Musteri'; lines.Add(lineText); lines.SaveToFile(Clomosy.AppFilesPath + 'sales_users.txt', 0); lines.Free; ShowMessage('Hesap olusturuldu! Simdi giris yapabilirsiniz.'); ShowLoginScreen; } void SetupRoleScreen; { pnlRoleSelection = salesForm.AddNewProPanel(salesForm, 'pnlRoleSelection'); pnlRoleSelection.Align = alClient; pnlRoleSelection.clProSettings.IsFill = True; pnlRoleSelection.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlRoleSelection.SetclProSettings(pnlRoleSelection.clProSettings); scrollRole = salesForm.AddNewVertScrollBox(pnlRoleSelection, 'scrollRole'); scrollRole.Align = alClient; imgLogo = salesForm.AddNewImage(scrollRole, 'imgLogo'); imgLogo.Align = alTop; imgLogo.Height = 100; imgLogo.Margins.Top = 30; clComponent.SetupComponent(imgLogo, '{"ImgUrl":"https://clomosy.com/demos/food_logo.png", "ImgFit":"yes"}'); lblRoleTitle = salesForm.AddNewProLabel(scrollRole, 'lblRoleTitle', 'SUT & YOGURT A.S.'); lblRoleTitle.Align = alTop; lblRoleTitle.Margins.Top = 15; lblRoleTitle.Margins.Left = 20; lblRoleTitle.Margins.Right = 20; lblRoleTitle.Height = 35; lblRoleTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblRoleTitle.clProSettings.FontSize = 24; lblRoleTitle.SetclProSettings(lblRoleTitle.clProSettings); lblRoleSub = salesForm.AddNewProLabel(scrollRole, 'lblRoleSub', 'Giris yapmak icin rolunuzu seciniz:'); lblRoleSub.Align = alTop; lblRoleSub.Margins.Top = 8; lblRoleSub.Margins.Left = 20; lblRoleSub.Margins.Right = 20; lblRoleSub.Height = 22; lblRoleSub.clProSettings.FontColor = clAlphaColor.clHexToColor('#8b858f'); lblRoleSub.clProSettings.FontSize = 14; lblRoleSub.SetclProSettings(lblRoleSub.clProSettings); btnAdminRole = salesForm.AddNewProButton(scrollRole, 'btnAdminRole', 'Yonetici (Admin)'); btnAdminRole.Align = alTop; btnAdminRole.Margins.Top = 20; btnAdminRole.Margins.Left = 20; btnAdminRole.Margins.Right = 20; btnAdminRole.Height = 45; btnAdminRole.clProSettings.IsFill = True; btnAdminRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5a3d5c'); btnAdminRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnAdminRole.clProSettings.FontSize = 15; btnAdminRole.clProSettings.IsRound = True; btnAdminRole.clProSettings.RoundWidth = 8; btnAdminRole.clProSettings.RoundHeight = 8; btnAdminRole.SetclProSettings(btnAdminRole.clProSettings); salesForm.AddNewEvent(btnAdminRole, tbeOnClick, 'OnRoleSelectAdmin'); btnSalesRole = salesForm.AddNewProButton(scrollRole, 'btnSalesRole', 'Saha Satis Temsilcisi'); btnSalesRole.Align = alTop; btnSalesRole.Margins.Top = 10; btnSalesRole.Margins.Left = 20; btnSalesRole.Margins.Right = 20; btnSalesRole.Height = 45; btnSalesRole.clProSettings.IsFill = True; btnSalesRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3f5c8a'); btnSalesRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnSalesRole.clProSettings.FontSize = 15; btnSalesRole.clProSettings.IsRound = True; btnSalesRole.clProSettings.RoundWidth = 8; btnSalesRole.clProSettings.RoundHeight = 8; btnSalesRole.SetclProSettings(btnSalesRole.clProSettings); salesForm.AddNewEvent(btnSalesRole, tbeOnClick, 'OnRoleSelectSales'); btnCustomerRole = salesForm.AddNewProButton(scrollRole, 'btnCustomerRole', 'Musteri'); btnCustomerRole.Align = alTop; btnCustomerRole.Margins.Top = 10; btnCustomerRole.Margins.Left = 20; btnCustomerRole.Margins.Right = 20; btnCustomerRole.Height = 45; btnCustomerRole.clProSettings.IsFill = True; btnCustomerRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#3c7a5c'); btnCustomerRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnCustomerRole.clProSettings.FontSize = 15; btnCustomerRole.clProSettings.IsRound = True; btnCustomerRole.clProSettings.RoundWidth = 8; btnCustomerRole.clProSettings.RoundHeight = 8; btnCustomerRole.SetclProSettings(btnCustomerRole.clProSettings); salesForm.AddNewEvent(btnCustomerRole, tbeOnClick, 'OnRoleSelectCustomer'); btnWarehouseRole = salesForm.AddNewProButton(scrollRole, 'btnWarehouseRole', 'Depo ve Stok Sorumlusu'); btnWarehouseRole.Align = alTop; btnWarehouseRole.Margins.Top = 10; btnWarehouseRole.Margins.Left = 20; btnWarehouseRole.Margins.Right = 20; btnWarehouseRole.Height = 45; btnWarehouseRole.clProSettings.IsFill = True; btnWarehouseRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); btnWarehouseRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnWarehouseRole.clProSettings.FontSize = 15; btnWarehouseRole.clProSettings.IsRound = True; btnWarehouseRole.clProSettings.RoundWidth = 8; btnWarehouseRole.clProSettings.RoundHeight = 8; btnWarehouseRole.SetclProSettings(btnWarehouseRole.clProSettings); salesForm.AddNewEvent(btnWarehouseRole, tbeOnClick, 'OnRoleSelectWarehouse'); btnInspectorRole = salesForm.AddNewProButton(scrollRole, 'btnInspectorRole', 'Saha Satis Mufettisi'); btnInspectorRole.Align = alTop; btnInspectorRole.Margins.Top = 10; btnInspectorRole.Margins.Left = 20; btnInspectorRole.Margins.Right = 20; btnInspectorRole.Height = 45; btnInspectorRole.clProSettings.IsFill = True; btnInspectorRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); btnInspectorRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnInspectorRole.clProSettings.FontSize = 15; btnInspectorRole.clProSettings.IsRound = True; btnInspectorRole.clProSettings.RoundWidth = 8; btnInspectorRole.clProSettings.RoundHeight = 8; btnInspectorRole.SetclProSettings(btnInspectorRole.clProSettings); salesForm.AddNewEvent(btnInspectorRole, tbeOnClick, 'OnRoleSelectInspector'); btnFinanceRole = salesForm.AddNewProButton(scrollRole, 'btnFinanceRole', 'Muhasebe ve Finans Uzmani'); btnFinanceRole.Align = alTop; btnFinanceRole.Margins.Top = 10; btnFinanceRole.Margins.Left = 20; btnFinanceRole.Margins.Right = 20; btnFinanceRole.Height = 45; btnFinanceRole.clProSettings.IsFill = True; btnFinanceRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); btnFinanceRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnFinanceRole.clProSettings.FontSize = 15; btnFinanceRole.clProSettings.IsRound = True; btnFinanceRole.clProSettings.RoundWidth = 8; btnFinanceRole.clProSettings.RoundHeight = 8; btnFinanceRole.SetclProSettings(btnFinanceRole.clProSettings); salesForm.AddNewEvent(btnFinanceRole, tbeOnClick, 'OnRoleSelectFinance'); btnLogisticsRole = salesForm.AddNewProButton(scrollRole, 'btnLogisticsRole', 'Lojistik Yoneticisi'); btnLogisticsRole.Align = alTop; btnLogisticsRole.Margins.Top = 10; btnLogisticsRole.Margins.Left = 20; btnLogisticsRole.Margins.Right = 20; btnLogisticsRole.Height = 45; btnLogisticsRole.clProSettings.IsFill = True; btnLogisticsRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); btnLogisticsRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLogisticsRole.clProSettings.FontSize = 15; btnLogisticsRole.clProSettings.IsRound = True; btnLogisticsRole.clProSettings.RoundWidth = 8; btnLogisticsRole.clProSettings.RoundHeight = 8; btnLogisticsRole.SetclProSettings(btnLogisticsRole.clProSettings); salesForm.AddNewEvent(btnLogisticsRole, tbeOnClick, 'OnRoleSelectLogistics'); btnHRRole = salesForm.AddNewProButton(scrollRole, 'btnHRRole', 'Insan Kaynaklari Uzmani'); btnHRRole.Align = alTop; btnHRRole.Margins.Top = 10; btnHRRole.Margins.Left = 20; btnHRRole.Margins.Right = 20; btnHRRole.Height = 45; btnHRRole.clProSettings.IsFill = True; btnHRRole.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); btnHRRole.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnHRRole.clProSettings.FontSize = 15; btnHRRole.clProSettings.IsRound = True; btnHRRole.clProSettings.RoundWidth = 8; btnHRRole.clProSettings.RoundHeight = 8; btnHRRole.SetclProSettings(btnHRRole.clProSettings); salesForm.AddNewEvent(btnHRRole, tbeOnClick, 'OnRoleSelectHR'); btnGoComplain = salesForm.AddNewProButton(scrollRole, 'btnGoComplain', 'Sikayet Bildir (Gizli)'); btnGoComplain.Align = alTop; btnGoComplain.Margins.Top = 25; btnGoComplain.Margins.Left = 20; btnGoComplain.Margins.Right = 20; btnGoComplain.Margins.Bottom = 30; btnGoComplain.Height = 45; btnGoComplain.clProSettings.IsFill = True; btnGoComplain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#c0392b'); btnGoComplain.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoComplain.clProSettings.FontSize = 15; btnGoComplain.clProSettings.IsRound = True; btnGoComplain.clProSettings.RoundWidth = 8; btnGoComplain.clProSettings.RoundHeight = 8; btnGoComplain.SetclProSettings(btnGoComplain.clProSettings); salesForm.AddNewEvent(btnGoComplain, tbeOnClick, 'GoToComplain'); } void SetupComplainScreen; { pnlComplain = salesForm.AddNewProPanel(salesForm, 'pnlComplain'); pnlComplain.Align = alClient; pnlComplain.clProSettings.IsFill = True; pnlComplain.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlComplain.SetclProSettings(pnlComplain.clProSettings); pnlComplain.Visible = False; scrollComplain = salesForm.AddNewVertScrollBox(pnlComplain, 'scrollComplain'); scrollComplain.Align = alClient; lblComplainTitle = salesForm.AddNewProLabel(scrollComplain, 'lblComplainTitle', 'Insan Kaynaklarina Bildir'); lblComplainTitle.Align = alTop; lblComplainTitle.Margins.Top = 40; lblComplainTitle.Margins.Left = 20; lblComplainTitle.Margins.Right = 20; lblComplainTitle.Height = 35; lblComplainTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c'); lblComplainTitle.clProSettings.FontSize = 20; lblComplainTitle.SetclProSettings(lblComplainTitle.clProSettings); lblComplainName = salesForm.AddNewProLabel(scrollComplain, 'lblComplainName', 'Ad Soyad (Istege Bagli)'); lblComplainName.Align = alTop; lblComplainName.Margins.Top = 20; lblComplainName.Margins.Left = 20; lblComplainName.Margins.Right = 20; lblComplainName.Height = 20; lblComplainName.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblComplainName.clProSettings.FontSize = 13; lblComplainName.SetclProSettings(lblComplainName.clProSettings); edtComplainName = salesForm.AddNewProEdit(scrollComplain, 'edtComplainName', ''); edtComplainName.Align = alTop; edtComplainName.Margins.Top = 5; edtComplainName.Margins.Left = 20; edtComplainName.Margins.Right = 20; edtComplainName.Height = 40; edtComplainName.clProSettings.IsFill = True; edtComplainName.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtComplainName.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtComplainName.clProSettings.FontSize = 14; edtComplainName.clProSettings.IsRound = True; edtComplainName.clProSettings.RoundWidth = 8; edtComplainName.clProSettings.RoundHeight = 8; edtComplainName.SetclProSettings(edtComplainName.clProSettings); lblComplainText = salesForm.AddNewProLabel(scrollComplain, 'lblComplainText', 'Sikayet veya Oneri'); lblComplainText.Align = alTop; lblComplainText.Margins.Top = 15; lblComplainText.Margins.Left = 20; lblComplainText.Margins.Right = 20; lblComplainText.Height = 20; lblComplainText.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblComplainText.clProSettings.FontSize = 13; lblComplainText.SetclProSettings(lblComplainText.clProSettings); memComplainText = salesForm.AddNewMemo(scrollComplain, 'memComplainText', ''); memComplainText.Align = alTop; memComplainText.Margins.Top = 5; memComplainText.Margins.Left = 20; memComplainText.Margins.Right = 20; memComplainText.Height = 150; clComponent.SetupComponent(memComplainText, '{"BackgroundColor": "#1c1c2e", "TextColor": "#ffffff"}'); btnComplainSubmit = salesForm.AddNewProButton(scrollComplain, 'btnComplainSubmit', 'Gonder'); btnComplainSubmit.Align = alTop; btnComplainSubmit.Margins.Top = 20; btnComplainSubmit.Margins.Left = 20; btnComplainSubmit.Margins.Right = 20; btnComplainSubmit.Height = 45; btnComplainSubmit.clProSettings.IsFill = True; btnComplainSubmit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60'); btnComplainSubmit.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnComplainSubmit.clProSettings.FontSize = 15; btnComplainSubmit.clProSettings.IsRound = True; btnComplainSubmit.clProSettings.RoundWidth = 8; btnComplainSubmit.clProSettings.RoundHeight = 8; btnComplainSubmit.SetclProSettings(btnComplainSubmit.clProSettings); salesForm.AddNewEvent(btnComplainSubmit, tbeOnClick, 'DoSubmitComplain'); btnComplainCancel = salesForm.AddNewProButton(scrollComplain, 'btnComplainCancel', 'Iptal Et'); btnComplainCancel.Align = alTop; btnComplainCancel.Margins.Top = 10; btnComplainCancel.Margins.Left = 20; btnComplainCancel.Margins.Right = 20; btnComplainCancel.Height = 45; btnComplainCancel.clProSettings.IsFill = True; btnComplainCancel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnComplainCancel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnComplainCancel.clProSettings.FontSize = 15; btnComplainCancel.clProSettings.IsRound = True; btnComplainCancel.clProSettings.RoundWidth = 8; btnComplainCancel.clProSettings.RoundHeight = 8; btnComplainCancel.SetclProSettings(btnComplainCancel.clProSettings); salesForm.AddNewEvent(btnComplainCancel, tbeOnClick, 'GoToRoleSelection'); } void SetupLoginScreenUI; { pnlLogin = salesForm.AddNewProPanel(salesForm, 'pnlLogin'); pnlLogin.Align = alClient; pnlLogin.clProSettings.IsFill = True; pnlLogin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlLogin.SetclProSettings(pnlLogin.clProSettings); pnlLogin.Visible = False; scrollLogin = salesForm.AddNewVertScrollBox(pnlLogin, 'scrollLogin'); scrollLogin.Align = alClient; lblLoginTitle = salesForm.AddNewProLabel(scrollLogin, 'lblLoginTitle', 'Giris Yap'); lblLoginTitle.Align = alTop; lblLoginTitle.Margins.Top = 40; lblLoginTitle.Margins.Left = 20; lblLoginTitle.Margins.Right = 20; lblLoginTitle.Height = 35; lblLoginTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblLoginTitle.clProSettings.FontSize = 20; lblLoginTitle.SetclProSettings(lblLoginTitle.clProSettings); lblUsername = salesForm.AddNewProLabel(scrollLogin, 'lblUsername', 'Kullanici Adi'); lblUsername.Align = alTop; lblUsername.Margins.Top = 25; lblUsername.Margins.Left = 20; lblUsername.Margins.Right = 20; lblUsername.Height = 20; lblUsername.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblUsername.clProSettings.FontSize = 14; lblUsername.SetclProSettings(lblUsername.clProSettings); edtUsername = salesForm.AddNewProEdit(scrollLogin, 'edtUsername', ''); edtUsername.Align = alTop; edtUsername.Margins.Top = 5; edtUsername.Margins.Left = 20; edtUsername.Margins.Right = 20; edtUsername.Height = 40; edtUsername.clProSettings.IsFill = True; edtUsername.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtUsername.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtUsername.clProSettings.FontSize = 16; edtUsername.clProSettings.IsRound = True; edtUsername.clProSettings.RoundWidth = 8; edtUsername.clProSettings.RoundHeight = 8; edtUsername.SetclProSettings(edtUsername.clProSettings); lblPassword = salesForm.AddNewProLabel(scrollLogin, 'lblPassword', 'Sifre'); lblPassword.Align = alTop; lblPassword.Margins.Top = 15; lblPassword.Margins.Left = 20; lblPassword.Margins.Right = 20; lblPassword.Height = 20; lblPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblPassword.clProSettings.FontSize = 14; lblPassword.SetclProSettings(lblPassword.clProSettings); lytPassword = salesForm.AddNewLayout(scrollLogin, 'lytPassword'); lytPassword.Align = alTop; lytPassword.Height = 40; lytPassword.Margins.Top = 5; lytPassword.Margins.Left = 20; lytPassword.Margins.Right = 20; edtPassword = salesForm.AddNewProEdit(lytPassword, 'edtPassword', ''); edtPassword.Align = alClient; edtPassword.clProSettings.IsFill = True; edtPassword.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtPassword.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtPassword.clProSettings.FontSize = 16; edtPassword.clProSettings.IsRound = True; edtPassword.clProSettings.RoundWidth = 8; edtPassword.clProSettings.RoundHeight = 8; edtPassword.SetclProSettings(edtPassword.clProSettings); edtPassword.Password = True; btnShowPass = salesForm.AddNewProButton(lytPassword, 'btnShowPass', 'Goster'); btnShowPass.Align = alRight; btnShowPass.Width = 70; btnShowPass.Margins.Left = 10; btnShowPass.clProSettings.IsFill = True; btnShowPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#34495e'); btnShowPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnShowPass.clProSettings.FontSize = 12; btnShowPass.clProSettings.IsRound = True; btnShowPass.clProSettings.RoundWidth = 8; btnShowPass.clProSettings.RoundHeight = 8; btnShowPass.SetclProSettings(btnShowPass.clProSettings); salesForm.AddNewEvent(btnShowPass, tbeOnClick, 'TogglePassword'); lblDepot = salesForm.AddNewProLabel(scrollLogin, 'lblDepot', 'Depo Secimi'); lblDepot.Align = alTop; lblDepot.Margins.Top = 20; lblDepot.Margins.Left = 20; lblDepot.Margins.Right = 20; lblDepot.Height = 20; lblDepot.clProSettings.FontColor = clAlphaColor.clHexToColor('#f1c40f'); lblDepot.clProSettings.FontSize = 14; lblDepot.SetclProSettings(lblDepot.clProSettings); lblDepot.Visible = False; cmbDepot = salesForm.AddNewComboBox(scrollLogin, 'cmbDepot'); cmbDepot.Align = alTop; cmbDepot.Margins.Top = 5; cmbDepot.Margins.Left = 20; cmbDepot.Margins.Right = 20; cmbDepot.Height = 40; cmbDepot.AddItem('Ana Merkez Depo (Gebze)', 'D1'); cmbDepot.AddItem('Avrupa Yakasi Deposu', 'D2'); cmbDepot.AddItem('Anadolu Yakasi Deposu', 'D3'); cmbDepot.Visible = False; chkRememberMe = salesForm.AddNewCheckBox(scrollLogin, 'chkRememberMe', ' Beni Hatirla'); chkRememberMe.Align = alTop; chkRememberMe.Margins.Top = 20; chkRememberMe.Margins.Left = 25; chkRememberMe.Height = 25; btnForgotPass = salesForm.AddNewProButton(scrollLogin, 'btnForgotPass', 'Sifremi Unuttum?'); btnForgotPass.Align = alTop; btnForgotPass.Margins.Top = 5; btnForgotPass.Margins.Left = 20; btnForgotPass.Margins.Right = 20; btnForgotPass.Height = 30; btnForgotPass.clProSettings.IsFill = True; btnForgotPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); btnForgotPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#e74c3c'); btnForgotPass.clProSettings.FontSize = 13; btnForgotPass.SetclProSettings(btnForgotPass.clProSettings); salesForm.AddNewEvent(btnForgotPass, tbeOnClick, 'OnForgotPassword'); btnLogin = salesForm.AddNewProButton(scrollLogin, 'btnLogin', 'Giris Yap'); btnLogin.Align = alTop; btnLogin.Margins.Top = 15; btnLogin.Margins.Left = 20; btnLogin.Margins.Right = 20; btnLogin.Height = 45; btnLogin.clProSettings.IsFill = True; btnLogin.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60'); btnLogin.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLogin.clProSettings.FontSize = 15; btnLogin.clProSettings.IsRound = True; btnLogin.clProSettings.RoundWidth = 8; btnLogin.clProSettings.RoundHeight = 8; btnLogin.SetclProSettings(btnLogin.clProSettings); salesForm.AddNewEvent(btnLogin, tbeOnClick, 'DoLogin'); btnGoToRegister = salesForm.AddNewProButton(scrollLogin, 'btnGoToRegister', 'Musteri Kaydi Olustur'); btnGoToRegister.Align = alTop; btnGoToRegister.Margins.Top = 10; btnGoToRegister.Margins.Left = 20; btnGoToRegister.Margins.Right = 20; btnGoToRegister.Height = 45; btnGoToRegister.clProSettings.IsFill = True; btnGoToRegister.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2980b9'); btnGoToRegister.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnGoToRegister.clProSettings.FontSize = 15; btnGoToRegister.clProSettings.IsRound = True; btnGoToRegister.clProSettings.RoundWidth = 8; btnGoToRegister.clProSettings.RoundHeight = 8; btnGoToRegister.SetclProSettings(btnGoToRegister.clProSettings); salesForm.AddNewEvent(btnGoToRegister, tbeOnClick, 'GoToRegister'); btnLoginBack = salesForm.AddNewProButton(scrollLogin, 'btnLoginBack', 'Geri Don'); btnLoginBack.Align = alTop; btnLoginBack.Margins.Top = 10; btnLoginBack.Margins.Left = 20; btnLoginBack.Margins.Right = 20; btnLoginBack.Height = 45; btnLoginBack.clProSettings.IsFill = True; btnLoginBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnLoginBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnLoginBack.clProSettings.FontSize = 15; btnLoginBack.clProSettings.IsRound = True; btnLoginBack.clProSettings.RoundWidth = 8; btnLoginBack.clProSettings.RoundHeight = 8; btnLoginBack.SetclProSettings(btnLoginBack.clProSettings); salesForm.AddNewEvent(btnLoginBack, tbeOnClick, 'GoToRoleSelection'); } void SetupRegisterScreen; { pnlRegister = salesForm.AddNewProPanel(salesForm, 'pnlRegister'); pnlRegister.Align = alClient; pnlRegister.clProSettings.IsFill = True; pnlRegister.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#100e17'); pnlRegister.SetclProSettings(pnlRegister.clProSettings); pnlRegister.Visible = False; scrollRegister = salesForm.AddNewVertScrollBox(pnlRegister, 'scrollRegister'); scrollRegister.Align = alClient; lblRegisterTitle = salesForm.AddNewProLabel(scrollRegister, 'lblRegisterTitle', 'Musteri Kayit Formu'); lblRegisterTitle.Align = alTop; lblRegisterTitle.Margins.Top = 40; lblRegisterTitle.Margins.Left = 20; lblRegisterTitle.Margins.Right = 20; lblRegisterTitle.Height = 35; lblRegisterTitle.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); lblRegisterTitle.clProSettings.FontSize = 20; lblRegisterTitle.SetclProSettings(lblRegisterTitle.clProSettings); lblRegUser = salesForm.AddNewProLabel(scrollRegister, 'lblRegUser', 'Kullanici Adi'); lblRegUser.Align = alTop; lblRegUser.Margins.Top = 20; lblRegUser.Margins.Left = 20; lblRegUser.Margins.Right = 20; lblRegUser.Height = 20; lblRegUser.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegUser.clProSettings.FontSize = 14; lblRegUser.SetclProSettings(lblRegUser.clProSettings); edtRegUser = salesForm.AddNewProEdit(scrollRegister, 'edtRegUser', ''); edtRegUser.Align = alTop; edtRegUser.Margins.Top = 5; edtRegUser.Margins.Left = 20; edtRegUser.Margins.Right = 20; edtRegUser.Height = 40; edtRegUser.clProSettings.IsFill = True; edtRegUser.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtRegUser.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegUser.clProSettings.FontSize = 16; edtRegUser.clProSettings.IsRound = True; edtRegUser.clProSettings.RoundWidth = 8; edtRegUser.clProSettings.RoundHeight = 8; edtRegUser.SetclProSettings(edtRegUser.clProSettings); lblRegPass = salesForm.AddNewProLabel(scrollRegister, 'lblRegPass', 'Sifre'); lblRegPass.Align = alTop; lblRegPass.Margins.Top = 12; lblRegPass.Margins.Left = 20; lblRegPass.Margins.Right = 20; lblRegPass.Height = 20; lblRegPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegPass.clProSettings.FontSize = 14; lblRegPass.SetclProSettings(lblRegPass.clProSettings); edtRegPass = salesForm.AddNewProEdit(scrollRegister, 'edtRegPass', ''); edtRegPass.Align = alTop; edtRegPass.Margins.Top = 5; edtRegPass.Margins.Left = 20; edtRegPass.Margins.Right = 20; edtRegPass.Height = 40; edtRegPass.clProSettings.IsFill = True; edtRegPass.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtRegPass.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegPass.clProSettings.FontSize = 16; edtRegPass.clProSettings.IsRound = True; edtRegPass.clProSettings.RoundWidth = 8; edtRegPass.clProSettings.RoundHeight = 8; edtRegPass.SetclProSettings(edtRegPass.clProSettings); edtRegPass.Password = True; lblRegEmail = salesForm.AddNewProLabel(scrollRegister, 'lblRegEmail', 'E-Posta'); lblRegEmail.Align = alTop; lblRegEmail.Margins.Top = 12; lblRegEmail.Margins.Left = 20; lblRegEmail.Margins.Right = 20; lblRegEmail.Height = 20; lblRegEmail.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegEmail.clProSettings.FontSize = 14; lblRegEmail.SetclProSettings(lblRegEmail.clProSettings); edtRegEmail = salesForm.AddNewProEdit(scrollRegister, 'edtRegEmail', ''); edtRegEmail.Align = alTop; edtRegEmail.Margins.Top = 5; edtRegEmail.Margins.Left = 20; edtRegEmail.Margins.Right = 20; edtRegEmail.Height = 40; edtRegEmail.clProSettings.IsFill = True; edtRegEmail.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtRegEmail.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegEmail.clProSettings.FontSize = 16; edtRegEmail.clProSettings.IsRound = True; edtRegEmail.clProSettings.RoundWidth = 8; edtRegEmail.clProSettings.RoundHeight = 8; edtRegEmail.SetclProSettings(edtRegEmail.clProSettings); edtRegEmail.KeyboardType = vktEmailAddress; lblRegPhone = salesForm.AddNewProLabel(scrollRegister, 'lblRegPhone', 'Telefon'); lblRegPhone.Align = alTop; lblRegPhone.Margins.Top = 12; lblRegPhone.Margins.Left = 20; lblRegPhone.Margins.Right = 20; lblRegPhone.Height = 20; lblRegPhone.clProSettings.FontColor = clAlphaColor.clHexToColor('#95a5a6'); lblRegPhone.clProSettings.FontSize = 14; lblRegPhone.SetclProSettings(lblRegPhone.clProSettings); edtRegPhone = salesForm.AddNewProEdit(scrollRegister, 'edtRegPhone', ''); edtRegPhone.Align = alTop; edtRegPhone.Margins.Top = 5; edtRegPhone.Margins.Left = 20; edtRegPhone.Margins.Right = 20; edtRegPhone.Height = 40; edtRegPhone.clProSettings.IsFill = True; edtRegPhone.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1c1c2e'); edtRegPhone.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); edtRegPhone.clProSettings.FontSize = 16; edtRegPhone.clProSettings.IsRound = True; edtRegPhone.clProSettings.RoundWidth = 8; edtRegPhone.clProSettings.RoundHeight = 8; edtRegPhone.SetclProSettings(edtRegPhone.clProSettings); edtRegPhone.KeyboardType = vktPhonePad; btnRegisterSubmit = salesForm.AddNewProButton(scrollRegister, 'btnRegisterSubmit', 'Kaydet'); btnRegisterSubmit.Align = alTop; btnRegisterSubmit.Margins.Top = 20; btnRegisterSubmit.Margins.Left = 20; btnRegisterSubmit.Margins.Right = 20; btnRegisterSubmit.Height = 45; btnRegisterSubmit.clProSettings.IsFill = True; btnRegisterSubmit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#27ae60'); btnRegisterSubmit.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRegisterSubmit.clProSettings.FontSize = 15; btnRegisterSubmit.clProSettings.IsRound = True; btnRegisterSubmit.clProSettings.RoundWidth = 8; btnRegisterSubmit.clProSettings.RoundHeight = 8; btnRegisterSubmit.SetclProSettings(btnRegisterSubmit.clProSettings); salesForm.AddNewEvent(btnRegisterSubmit, tbeOnClick, 'DoRegister'); btnRegisterBack = salesForm.AddNewProButton(scrollRegister, 'btnRegisterBack', 'Geri Don'); btnRegisterBack.Align = alTop; btnRegisterBack.Margins.Top = 10; btnRegisterBack.Margins.Left = 20; btnRegisterBack.Margins.Right = 20; btnRegisterBack.Height = 45; btnRegisterBack.clProSettings.IsFill = True; btnRegisterBack.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#7f8c8d'); btnRegisterBack.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); btnRegisterBack.clProSettings.FontSize = 15; btnRegisterBack.clProSettings.IsRound = True; btnRegisterBack.clProSettings.RoundWidth = 8; btnRegisterBack.clProSettings.RoundHeight = 8; btnRegisterBack.SetclProSettings(btnRegisterBack.clProSettings); salesForm.AddNewEvent(btnRegisterBack, tbeOnClick, 'GoToRoleSelection'); } { salesForm = TclForm.Create(Self); salesForm.SetFormColor('#100e17', '', clGNone); myUnit = TclUnit.Create; InitUserFile; SetupRoleScreen; SetupComplainScreen; SetupLoginScreenUI; SetupRegisterScreen; ShowScreen('RoleSelection'); salesForm.Run; } ana kod 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">
|
|
|
urlt
|
|
|
|
|
Yanıt Yaz
|
Sayfa 12> |
| Tweet |
| Forum Atla | Forum İzinleri Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |
Topic Seçenekleri