|
var testCombo : TClComboBox; MyForm : TclForm; QMemList:TclJSonQuery; QrAppType:Integer; //0:qrgenerator 1:Yonetici 2:Normal User //YÖNETİCİ EKRANI mainPnl : TclProPanel; timeContainer : TclLayout; CaptionLbl,timeCaptionLbl,timeLbl : TClProLabel; QRGen : TClQRCodeGenerator; //KULLANICI EKRANI descriptionLbl : TClProLabel; BtnReadQrCode:TclProButton; ReadQrEdt : TclEdit; GetTimer: TClTimer; yoneticiTakip : Integer; clQuery:TCLJSONQuery; qryStr:String; //WIN EKRANI refreshBtn : TClProButton; refreshLyt : TclLayout; memberListView : TClProListView; memberDesignerPanel : TClProListViewDesignerPanel; memberName,memberValueDate : TClProLabel; jsonStr:string; void PostJSON; var clomosyQ1:TCLJSONQuery; qryTestStr : String; clQueryTest : TCLJSONQuery; { try qryTestStr='SELECT TOP 1 * FROM PrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max)) =''T2KJE3BJR3'' ORDER BY Rec_Date DESC '; clQueryTest = Clomosy.DBCloudSQLSelectWith(qryTestStr); ShowMessage(clQueryTest.GetJSONString); except ShowMessage('İnternet bağlantınızı kontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } void ComboSelected; var SelectedValue : Integer; { if (testCombo.ItemIndex == -1) { ShowMessage('Proje listesinde üye yok!'); } else { if (testCombo.GetValueIndex(testCombo.ItemIndex) == '00') { ShowMessage('Lütfen bir ad seçiniz.'); } } } void addComboBox; { try QMemList = TCLJSONQuery.Create(nil); QMemList = Clomosy.DBCloudQueryWith(ftMembers,'','ISNULL(PMembers.Rec_Deleted,0)=0'); testCombo.AddItem('Adınızı Seçiniz..','00'); with QMemList do { if (Found) { First; while (not EOF) { testCombo.AddItem(FieldByName('Member_Name').AsString,FieldByName('Member_GUID').AsString); MyForm.AddNewEvent(testCombo,tbeOnChange,'ComboSelected'); Next; } } } except ShowMessage('İnternet bağlantınızı kontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } void BtnNewQrCodeClick; { QRGen.Text = FormatDateTime('hhnn', Now); timeLbl.Text = FormatDateTime('hh', Now)+ ':' +FormatDateTime('nn', Now); } void SaveRecordThread; { if (ReadQrEdt.Text == FormatDateTime('hhnn', Now)) { if (yoneticiTakip == 1){ if (testCombo.GetValueIndex(testCombo.ItemIndex) == '00'){ ShowMessage('Lütfen bir kullanıcı seçiniz.'); }else{ ShowMessage('Yönetici hesabı : kayıt gerçekleşti.'); qryStr='SELECT TOP 1 * FROM PrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max)) ='+QuotedStr(testCombo.GetValueIndex(testCombo.ItemIndex))+' ORDER BY Rec_Date DESC '; // TOP => İLK KAYIT GELİYOR ORDER BY Rec_Date DESC LIMIT 1 try clQuery = Clomosy.DBCloudSQLSelectWith(qryStr); with clQuery do { if (Found) { Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_GUID":"'+FieldByName('Thread_GUID').AsString+'","Thread_Value_Str":"'+testCombo.Items[testCombo.ItemIndex]+'|'+FormatDateTime('yyyy-mm-dd/hh:nn', Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"}]'); //,"Member_Name":"'+testCombo.Items[testCombo.ItemIndex]+'","Thread_Member_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecUpMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'" }else{ Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_Value_Str":"'+testCombo.Items[testCombo.ItemIndex]+'|'+FormatDateTime('yyyy-mm-dd/hh:nn', Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'"}]'); //,"Member_Name":"'+testCombo.Items[testCombo.ItemIndex]+'","Thread_Member_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'","Thread_RecUpMember_GUID":"'+testCombo.GetValueIndex(testCombo.ItemIndex)+'" } } except ShowMessage('İnternet bağlantınızı kontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); } } }else{ Clomosy.DBCloudPostJSON(ftThreads,'[{"Thread_Value_Str":"'+Clomosy.AppUserDisplayName+'|'+FormatDateTime('yyyy-mm-dd/hh:nn', Now)+'","Thread_Quantity":1,"Thread_Value_Text":"'+Clomosy.AppUserGUID+'"}]'); //Thread_Member_GUID BtnReadQrCode.Text ='Okutuldu...'; descriptionLbl.Text = 'Qr kod okutma işlemi başarılı. Windows ekranına giriş saatiniz eklenmiştir.'; clComponent.SetupComponent(descriptionLbl,'{"TextColor":"#12b021"}'); BtnReadQrCode.Enabled = False; } } else ShowMessage('Yanlış! Lütfen, tekrar deneyiniz..'); } void BtnReadQrCodeClick; { MyForm.CallBarcodeReaderWithScript(ReadQrEdt,'SaveRecordThread');//runs script after read qr code } void timerShow; { BtnNewQrCodeClick; } void adminScreen; { QRGen= MyForm.AddNewQRCodeGenerator(mainPnl,'QRGen','Merhaba Dünya'); QRGen.Height = 200; QRGen.Width = 200; QRGen.Align = alCenter; QRGen.Visible = False; timeContainer = MyForm.AddNewLayout(mainPnl,'timeContainer'); timeContainer.Align=AlTop; timeContainer.Height = 50; timeContainer.Margins.Left = 20; timeContainer.Margins.Top = 50; timeCaptionLbl = MyForm.AddNewProLabel(timeContainer,'timeCaptionLbl','SAAT > '); clComponent.SetupComponent(timeCaptionLbl,'{"Align" : "MostLeft","Width" :90,"TextColor":"#90646D", "TextSize":26,"TextVerticalAlign":"center","TextHorizontalAlign":"left","TextBold":"yes"}'); timeLbl = MyForm.AddNewProLabel(timeContainer,'timeLbl','--:--'); clComponent.SetupComponent(timeLbl,'{"Align" : "Left","Width" :90,"TextColor":"#90646D","MarginLeft":15, "TextSize":26,"TextVerticalAlign":"center","TextHorizontalAlign":"left","TextBold":"yes"}'); if (Clomosy.AppUserGUID == 'E517JC367S') //QR KOD ÜRETİLECEK ALANIN BULUNDUĞU YÖNETİCİ EKRANI { testCombo = MyForm.AddNewComboBox(mainPnl,'testCombo'); testCombo.Align = alTop; testCombo.Width = 150; testCombo.Margins.Top=10; testCombo.Margins.Left =50; testCombo.Margins.Right =50; addComboBox; yoneticiTakip = 1; BtnReadQrCode.Visible = True; }else QRGen.Visible = True; BtnNewQrCodeClick; GetTimer.Enabled = True; MyForm.AddNewEvent(GetTimer,tbeOnTimer,'timerShow'); } void usersScrenn; { descriptionLbl = MyForm.AddNewProLabel(mainPnl,'descriptionLbl','QR Kod tarama için aşağıdaki butona basmalısınız. Ardından qr kodu taratın...'); clComponent.SetupComponent(descriptionLbl,'{"Align" : "Top","MarginTop":50,"MarginLeft":20,"MarginRight":20,"Height":10,"TextColor":"#3B599C","TextSize":18,"TextVerticalAlign":"center", "TextHorizontalAlign":"center","AutoSize":"Vertical","BackgroundColor":"null"}'); BtnReadQrCode.Visible = True; } void refreshMemberTable; var qryPlayersData:TCLJSONQuery; { try qryPlayersData = TCLJSONQuery.Create(nil); qryPlayersData = Clomosy.ClDataSetFromJSON(jsonStr); with qryPlayersData do { memberListView.clLoadProListViewDataFromDataset(qryPlayersData); } except ShowMessage('İnternet bağlantınızı kontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' refreshMemberTable Exception Message: '+LastExceptionMessage); } } void AddDataToListview; var membersListQuery: TClJSONQuery; qryTestStr,originalDateString,formattedDateString: String; clQueryTest: TCLJSONQuery; isFirstRecord: Boolean; originalDate: TclDateTime; list:TclStringList; str, membernameTxt,memberTimeTxt:String; { jsonStr = ''; jsonStr = '['; isFirstRecord = True; try membersListQuery = Clomosy.DBCloudQueryWith(ftMembers, '', 'ISNULL(PMembers.Rec_Deleted,0)=0'); try with membersListQuery do { First; while (not Eof) { qryTestStr = 'SELECT TOP 1 Thread_Value_Str as memberName, Thread_VAT_Value as memberValueDate FROM PrgView_tblProjectThreads where CAST(Thread_Value_Text AS nvarchar(max)) =' + QuotedStr(FieldByName('Member_GUID').AsString) + ' ORDER BY Rec_Date DESC '; clQueryTest = Clomosy.DBCloudSQLSelectWith(qryTestStr); try with clQueryTest do { if (Found) { // İlk kayıt için virgül eklenmemesi için kontrol if (not isFirstRecord) jsonStr = jsonStr + ','; str = FieldByName('memberName').AsString; list = Clomosy.StringListNew; List.StrictDelimiter =True; List.Delimiter = '|'; List.DelimitedText = str; membernameTxt = Clomosy.StringListItemString(List,0); memberTimeTxt = Clomosy.StringListItemString(List,1); jsonStr = jsonStr + '{"memberName":"' + membernameTxt + '","memberValueDate":"' +memberTimeTxt+ '"}'; //DateTimeToStr(FormatDateTime('yyyy-mm-dd hh:nn',StrToDateTime(FieldByName('memberValueDate').AsString))) isFirstRecord = False; str = ''; List.Free; } } finally clQueryTest.Close; clQueryTest.Free; } Next; } } except ShowMessage('İnternet bağlantınızı kontrol ediniz...' + #13 + 'Exception Class: '+LastExceptionClassName+' AddDataToListview Exception Message: '+LastExceptionMessage); } finally membersListQuery.Close; membersListQuery.Free; } jsonStr = jsonStr +']'; refreshMemberTable; } void CreateMembersNameAndDate; { memberName = MyForm.AddNewProLabel(memberDesignerPanel,'memberName','test'); clComponent.SetupComponent(memberName,'{"MarginTop":10,"MarginLeft":10,"MarginBottom":10,"TextSize":18,"Width":60,"Align":"MostLeft"}'); memberDesignerPanel.AddPanelObject(memberName,clCaption); memberName.Properties.AutoSize = True; memberValueDate = MyForm.AddNewProLabel(memberDesignerPanel,'memberValueDate','test'); clComponent.SetupComponent(memberValueDate,'{"MarginTop":10,"MarginLeft":10,"MarginRight":10,"MarginBottom":10 ,"TextSize":18, "TextVerticalAlign":"center", "TextHorizontalAlign":"center","Height":20,"Align" : "MostRight","Width":60}'); memberDesignerPanel.AddPanelObject(memberValueDate,clText); memberValueDate.Properties.AutoSize = True; } void CreateDesignerPanel; { memberDesignerPanel = MyForm.AddNewProListViewDesignerPanel(memberListView,'memberDesignerPanel'); clComponent.SetupComponent(memberDesignerPanel,'{"Align":"Top","Height":70,"BackgroundColor":"#f5f1e9","BorderColor":"#3B599C","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}'); memberListView.SetDesignerPanel(memberDesignerPanel); } void CreateListView; { memberListView = MyForm.AddNewProListView(mainPnl,'memberListView'); memberListView.Properties.ItemSpace = 10; clComponent.SetupComponent(memberListView,'{"Height" : 150,"Align":"Client","MarginBottom":20,"MarginTop":20,"MarginRight":20,"MarginLeft":20, "ListType":"Cart","ItemColumnCount" : 1,"ItemHeight" : 60,"ItemWidth":150, "BorderColor":"#3B599C", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5,"BackgroundColor":"null"}'); memberListView.ListType = 'vertical'; } void mainListView; { CreateListView; CreateDesignerPanel; CreateMembersNameAndDate; AddDataToListview; } void mainScreen; { refreshLyt = MyForm.AddNewLayout(mainPnl,'refreshLyt'); refreshLyt.Align=ALTop; refreshLyt.Height = 40; refreshLyt.Margins.Top = 2; refreshBtn = MyForm.AddNewProButton(refreshLyt,'refreshBtn',''); clComponent.SetupComponent(refreshBtn,'{"Align" : "Center","Height":'+IntToStr(refreshLyt.Height)+',"Width" :'+IntToStr(refreshLyt.Width)+'}'); MyForm.SetImage(refreshBtn,' https://clomosy.com/educa/refresh.png" rel="nofollow - https://clomosy.com/educa/refresh.png '); MyForm.AddNewEvent(refreshBtn,tbeOnClick,'AddDataToListview'); mainListView; } { if (Clomosy.PlatformIsMobile) QrAppType = 2;//0:qrgenerator 1:Yonetici 2:Normal User if(Not Clomosy.PlatformIsMobile) //win üzeirinde açılı olan kullanıcı members listesini görsün QrAppType = 1;//0:qrgenerator 1:Yonetici 2:Normal User if (Clomosy.AppUserProfile== 1 ) QrAppType=0; yoneticiTakip = 0; MyForm = TclForm.Create(Self); MyForm.SetFormBGImage(' https://clomosy.com/demos/bg4.jpg" rel="nofollow - https://clomosy.com/demos/bg4.jpg '); GetTimer = MyForm.AddNewTimer(MyForm,'GetTimer',1000); mainPnl=MyForm.AddNewProPanel(MyForm,'mainPnl'); clComponent.SetupComponent(mainPnl,'{"Align" : "Client","BackgroundColor":"null"}'); CaptionLbl = MyForm.AddNewProLabel(mainPnl,'CaptionLbl','QR PDKS UYGULAMASI'); clComponent.SetupComponent(CaptionLbl,'{"Align" : "MostTop","MarginTop":30,"Height":40, "TextColor":"#3B599C","TextSize":30,"TextVerticalAlign":"center","TextHorizontalAlign":"center","TextBold":"yes","AutoSize":"Horizontal"}'); BtnReadQrCode = MyForm.AddNewProButton(mainPnl,'BtnReadQrCode',''); clComponent.SetupComponent(BtnReadQrCode,'{"caption":"QRKod Oku","Align" : "Bottom","MarginLeft" :'+IntToStr(mainPnl.Width/4)+',"MarginRight" :'+IntToStr(mainPnl.Width/4)+', "MarginBottom":20,"TextColor":"#3B599C","TextSize":25, "Height":70,"BackgroundColor":"#d1daf0","RoundHeight":15,"RoundWidth":15,"BorderColor":"#3B599C","BorderWidth":3}'); MyForm.AddNewEvent(BtnReadQrCode,tbeOnClick,'BtnReadQrCodeClick'); BtnReadQrCode.Visible = False; ReadQrEdt = MyForm.AddNewEdit(mainPnl,'ReadQrEdt','Barkod Okutunuz...'); ReadQrEdt.Align = alBottom; ReadQrEdt.ReadOnly = True; ReadQrEdt.Visible = False; if (QrAppType== 0 )//QRGenerator ise { adminScreen; } if (QrAppType== 1 ) //WINDOWS mainScreen; if(QrAppType==2)//QRReader ise Normal User { usersScrenn; } if (Clomosy.PlatformIsMobile) MyForm.Run; else MyForm.RunModal; } Ana koda yazınca bu kodu çalışıyor ancak unit olarak çağırınca CallBarcodeReaderWithScript kısmı hata veriyor
|