Jump to content

UniterYazilim

uniGUI Subscriber
  • Posts

    19
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

UniterYazilim's Achievements

Newbie

Newbie (1/4)

1

Reputation

  1. Merhaba, "TUniDBGrid" sayfa numaralarında geçiş yaparken ayrı ayrı her sayfanın dip toplamı yapılırken sayfa ilerledikçe bir önceki sayfanın dip toplamı ile toplanarak ilerlemesi,geri gelindiğinde çıkarılması ve direkt sayfa numarası yazıldığında o sayfaya kadar olan değerlerin toplamını gösterme işlemini yapmak istiyoruz. Bunu yapmak mümkün müdür? Kullanıcılardan bu konuyla ilgili ciddi talep gelmektedir.
  2. Bilgisayarımdan DevExpress'i kaldırıp projeden de "dxGDIPlusClasses" yazan yerleri sildim ve resimleri yeniden projeye ekledim. Bunun haricinde iki alan adı kullandığımız için config dosyasının içerisindeki dosya yolunda diğer projenin dosya yolu kayıtlı kaldığından da yapılan değişiklikler sitede gözükmüyordu. Config dosyasındaki dosya yolunu da düzeltince sorun çözüldü.Teşekkürler..
  3. Merhaba; Projemi release (DLL) olarak derlediğimde local'de login sayfamda bulunan image nesnesi (resim) gözüküyor ama bunu sunucuya taşıdığımda resim (arka plan resmi) görünmüyor , sunucuda DLL olduğu dizindeki yere aşağıdaki klasörleri koymama rağmen resim gözükmüyor. not: proje içerisindeki resimlerde gözükmemekte bunları release ettiğimde nasıl klasörlere inculude edebilirim. Dosyalar: cache, files, log,temp bu klasörler mevcut.
  4. Hi, Sorry I'm use devexpress TdxMemData. I attached again and I used TFDMemTable component in this project Thanks. UniDBGridExample.zip
  5. Hi, Do I have trouble using "UniSession.AddJS" too much? Thank you for your help.
  6. procedure TframeRapor1.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid); begin if (isCalculateCopyGroup) then begin isCalculateCopyGroup := false; // dbgrid loading mode hang when this below code working // UniSession.SendResponse('console.log(''1'');'); // no problem this below code working // UniSession.AddJS('console.log(''1'');'); end; end; What is the different? why dbgrid loading mode hang when use UniSession.SendResponse? thanks.
  7. Hi, Sample is attached. Operation: 1. Choose the LookUpComboBox record 2. Select records on dbgrid when doing step 1 3. Press the Calculate button { Calculate button actions: DBUpdate, Refresh Grid, Selected Row (selected record in step 2) } procedure TMainForm.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid); begin if (isCalculateCopyGroup) then begin isCalculateCopyGroup := false; // dbgrid loading mode hang when this code working. // GetSelectRecordDbGridByICMReportUserSymbolID // (dmMain.dsetGetICMUserSymbolCopyGroupValue.Value); end; end; Thanks. UniDBGridExample.zip
  8. Hi, // I click this button. procedure TframeRapor1.btnKopyalaCopyGroupClick(Sender: TObject); begin try // DB Update Process CopyGroupCalculate(MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value); // Refresh the grid with DB GetICMReportMaster(UniMainModule.UserID.ToString, String(MainDataModule.dsetAccountAccount.Value)); isCalculateCopyGroup := true; except on E: Exception do ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message); end; end; procedure TframeRapor1.CopyGroupCalculate(ICMUserSymbolCopyGroupValue: string); begin MainDataModule.dsetGeneral.Close; MainDataModule.dsetGeneral.SQL.Clear; MainDataModule.dsetGeneral.SQL.Add ('EXEC spSetICMReportCalculateCopyGroup @ICMReportUserSymbolIDs = :ICMReportUserSymbolIDs'); MainDataModule.dsetGeneral.ParamByName('ICMReportUserSymbolIDs').Value := MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value; MainDataModule.dsetGeneral.Execute; MainDataModule.dsetGeneral.Close; end; procedure TframeRapor1.GetICMReportMaster(UserID: string; Account: string); var isCorrectSymbol: Boolean; ICMReportMasterRecNo: Integer; begin try if (NOT MainDataModule.dsetGetICMReportMaster.IsEmpty) then begin ICMReportMasterRecNo := MainDataModule.dsetGetICMReportMaster.RecNo; end; dbGridGetICMReportMaster.BeginUpdate; MainDataModule.dsetGetICMReportMaster.Active := false; MainDataModule.dsetGetICMReportMaster.SQL.Clear; MainDataModule.dsetGetICMReportMaster.SQL.Add ('EXEC spGetICMReportMaster @UserID = :UserID, @Account = :Account'); MainDataModule.dsetGetICMReportMaster.ParamByName('UserID').Value := UniMainModule.UserID; MainDataModule.dsetGetICMReportMaster.ParamByName('Account').Value := MainDataModule.dsetAccountAccount.Value; MainDataModule.dsetGetICMReportMaster.Active := true; dbGridGetICMReportMaster.EndUpdate; selectedSymbol := ''; selectedSide := ''; MainDataModule.dsetGetICMReportMaster.RecNo := ICMReportMasterRecNo; dbGridShow(TGrid.GetICMReportMaster); except on E: Exception do ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message); end; end; // OnAfterLoad procedure TframeRapor1.dbGridGetICMReportMasterAfterLoad(Sender: TUniDBGrid); begin if (isCalculateCopyGroup) then begin isCalculateCopyGroup := false; GetSelectRecordDbGridByICMReportUserSymbolID (MainDataModule.dsetGetICMUserSymbolCopyGroupValue.Value, 10); end; end; // Select DBGrid Row and Get Selected Row Info procedure TframeRapor1.GetSelectRecordDbGridByICMReportUserSymbolID (ICMReportUserSymbolIDs: string; setTime: Integer); var I: Integer; currentRecNo: Integer; List: TStrings; _RecNo: Integer; JScript: string; rowInfo: string; begin if NOT MainDataModule.dsetGetICMUserSymbolCopyGroupValue.IsNull then begin dbGridGetICMReportMaster.BeginUpdate; List := TStringList.Create; ICMReportUserSymbolIDToRecNos := FindICMReportUserSymbolIDToRec (ICMReportUserSymbolIDs); JScript := CONCAT('setTimeout(function(){ console.log("setTime"); },', setTime.ToString, ');'); JScript := CONCAT(JScript, 'setTimeout(function(){ ', dbGridGetICMReportMaster.JSName, '.getSelectionModel().deselectAll()}, 50);'); with MainDataModule.dsetGetICMReportMaster do begin ExtractStrings([','], [], PChar(ICMReportUserSymbolIDToRecNos), List); for I := 0 to List.count - 1 do begin _RecNo := StrToInt(List[I]); if (I = (List.count - 1)) then begin rowInfo := CONCAT(rowInfo, GetGridInfoWithRecNo(_RecNo)); end else begin rowInfo := CONCAT(rowInfo, GetGridInfoWithRecNo(_RecNo), #13#10); end; if (_RecNo > 0) then begin _RecNo := _RecNo - 1; end; JScript := CONCAT(JScript, 'setTimeout(function(){ ', dbGridGetICMReportMaster.JSName, '.getSelectionModel().select(', dbGridGetICMReportMaster.JSName, '.getStore().data.indexOfKey(', IntToStr(_RecNo) + '), true)}, 50);'); end; memoClipboard.Lines.Clear; memoClipboard.Lines.Add(rowInfo); UniSession.SendResponse(JScript); // UniSession.AddJS(JScript); FreeAndNil(List); end; dbGridGetICMReportMaster.EndUpdate; end; end; // Get Row Info function TframeRapor1.GetGridInfoWithRecNo(RecordNo: Integer): string; var size: Integer; Symbol: string; Side: Char; Quantity: string; Price: string; str: string; currentRecNo: Integer; begin try if NOT MainDataModule.dsetGetICMReportMaster.IsEmpty then begin if (MainDataModule.dsetGetICMReportMaster.RecordCount > 0) then begin dbGridGetICMReportMaster.BeginUpdate; with MainDataModule.dsetGetICMReportMaster do begin currentRecNo := RecNo; RecNo := RecordNo; if (Trim(FindField('SideKey').AsString) = '1') then begin Side := '+'; end else begin Side := '-'; end; if (NOT FindField('Symbol').IsNull) then Symbol := FindField('Symbol').AsString; if (NOT FindField('QtyDiff').IsNull) then Quantity := FindField('QtyDiff').AsString; if (NOT FindField('AvgPxDiff').IsNull) then Price := FindField('AvgPxDiff').AsString; size := 0; if (Length(Symbol) > size) then size := Length(Symbol); if (Length(Quantity) > size) then size := Length(Quantity); if (Length(Price) > size) then size := Length(Price); size := size * 2; str := format(CONCAT('%s', SetSpace(size - Length(Symbol)), '%s', SetSpace(size - Length(Side)), '%s', SetSpace(size - Length(Quantity)), '%s'), [Symbol, Side, Quantity, Price]); str := str.Replace('.E', ''); RecNo := currentRecNo; end; dbGridGetICMReportMaster.EndUpdate; end; end; finally Result := str; end; end; When I run with the above code the grid gets stuck in Loading mode! what an I doing wrong? Thank you for your help. Best regards.
  9. Hi, Thanks for your help @Sherzod. I can solve the UniDBGrid -> OnAfterLoad event by basing a condition for this example. But there are other similar situations. How can I build the callback structure for such cases?
  10. Hi All, I use UniDateTimepicker Kind = tUniTime. I want to change default content (09:00,09:05,:09:10 ..... 19:00) But I don't find anywhere! how do I solve my problem. Than you. Best Regards.
  11. http://unigui.com/doc/online_help/generate_a_self-signed_certifi.htm I applied the steps in this link. Do I have to do anything else?
  12. no, How to install self-signed certificate? and what self-signed certificate ? I have cert.pem, key.pem root.pem I have no other certificates....
  13. @Hayri ASLAN Arkadaşımız bu özelliği türeterek güzel bir örnek uygulama yapmıştır buradan erişebilirsiniz kendisine tekrardan teşekkür ederim. @Farshad Mohajeri bey bu özelliği varsayılan olarak unigui eklerseniz çok sevinirim.
×
×
  • Create New...