Jump to content

muttalip65

uniGUI Subscriber
  • Posts

    31
  • Joined

  • Last visited

Everything posted by muttalip65

  1. During the design, we can connect to the sybase database with the adoconnect object. But when we compile and run the program, we can't connect.
  2. We cannot connect from Unigui form to sybase database via ODBC. But we are connecting from desktop software. The unigui version we are using is 1508. How can we solve this problem? Thanks in advance for your answers.
  3. bütün formlar Loginform,mainform,others
  4. Tasarladığımız formun browserda en üstte ve yatay olarak ortada görünmesi için ne yapabiliriz. (bütün formlar Loginform,mainform,others )
  5. Form un BorderStyle ını "bsNone" yaptım bir şey değişmedi.
  6. UniServerModule.MainFormDisplayMode:=mfPage; Denedim olmadı.
  7. MainForm'un border'larını kaldırmak istiyorum.Formun başlığıda dahil. Aşağıdaki işlemle formun üç tarafının border'ını kaldırdım. Fakat formun Title kısmı kalkmadı. function window.afterrender(sender, eOpts) { Ext.get (sender.id) .el.setStyle ("padding", 0); Ext.get (sender.id) .el.setStyle ("border-width", 0); Ext.get (sender.id) .el.setStyle ("- webkit-border-radius", 0); Ext.get (sender.id) .el.setStyle ("- moz-border-radius", 0); Ext.get (sender.id) .el.setStyle ("border-radius", 0); }
  8. yetki 1 ya da 2 ise UniForm1 görüntüleniyor. Fakat yetki 3 olduğunda UniForm11 görüntülenemiyor hata veriyor. Yetki=3 de UniForm11 yerine UniForm1 i koyup denediğimde yine hata alıyorum. Hata kodunu ekteki dosyaya koydum. Sorun ne olabilir acaba. Çalışan Unigui versiyonu 1.10.0.1461. if yetki in [1,2] then // admin ve birim yöneticisi begin sorguAyarla; siteSayac(1); // siteye giriş yapıldı UniForm1.Parent:=MainForm; UniForm1.Show(); // admin ve birim yöneticisi end; if yetki=3 then // teknik eleman ise begin sorguAyarla; siteSayac(1); // siteye giriş yapıldı UniForm11.Parent:=MainForm; UniForm11.Show(); // TEKNİK ELEMAN end;
  9. Unigui 1.0.0.1424 versiyonunda çalışan programım 1.10.0.1458 versiyonunda çalışmıyor. Kullanıcı ve şifre girildikten sonra ekran bomboş oluyor. Bu soruna nasıl bir çözüm önerirsiniz. Unigui 1.0.0.1424 versiyonunda çalışan kodlar aşağıdaki gibidir: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uniGUITypes, uniGUIAbstractClasses, uniGUIClasses, uniGUIForm, Vcl.Menus, uniMainMenu, uniGUIBaseClasses, uniButton, uniBitBtn, uniSpeedButton, Vcl.Imaging.GIFImg, uniImage, uniGUImJSForm, unimPanel, uniPanel, uniLabel, Vcl.Imaging.jpeg, uniImageList, uniTreeView,uniGUIFrame, Vcl.Imaging.pngimage, uniDBComboBox, uniDBLookupComboBox, uniMultiItem, uniComboBox, uniEdit, uniBasicGrid, uniDBGrid, uniTimer, uniThreadTimer, UniColorButton,UniGUIJSUtils; type TUniForm1 = class(TUniForm) UniPanel1: TUniPanel; UniContainerPanel1: TUniContainerPanel; imAccueil: TUniImage; UniContainerPanel2: TUniContainerPanel; UniTreeView1: TUniTreeView; UniNativeImageList1: TUniNativeImageList; UniLabel18: TUniLabel; UniPanel3: TUniPanel; UniImage1: TUniImage; UniPanel2: TUniPanel; UniImage2: TUniImage; UniTimer1: TUniTimer; UniPanel4: TUniPanel; UniLabel3: TUniLabel; UniLabel9: TUniLabel; UniLabel2: TUniLabel; UniLabel1: TUniLabel; procedure UniFormCreate(Sender: TObject); procedure UniFormDestroy(Sender: TObject); procedure UniTreeView1Click(Sender: TObject); procedure UniColorButton10Click(Sender: TObject); procedure UniTimer1Timer(Sender: TObject); private { Private declarations } //************************** F_Current:TUniFrame; L_Classe:TStrings; //************************** // yeni bir cursor yaratma bmpMask : TBitmap; bmpColor : TBitmap; iconInfo : TIconInfo; procedure Prepare_MyClass_UniFrame; procedure Close_MyApplication; procedure BakTalepSay; public { Public declarations } yenitalep:boolean; end; function UniForm1: TUniForm1; implementation {$R *.dfm} uses uniGUIVars, MainModule, unit2, Unit12, uniGUIApplication; function UniForm1: TUniForm1; begin Result := TUniForm1(UniMainModule.GetFormInstance(TUniForm1)); end; procedure TUniForm1.UniColorButton10Click(Sender: TObject); begin Close_MyApplication; end; procedure TUniForm1.UniFormCreate(Sender: TObject); var talepsay:integer; jpegStream: TMemoryStream; begin UniLoginForm12.TrimAppMemorySize; yenitalep:=false; Prepare_MyClass_UniFrame; UniLoginForm12.Hide; //Caption:=Caption+' Kullanıcı: ' + UniLoginForm12.useradsoy; UniLabel3.Caption:='Hoşgeldin '+UniLoginForm12.useradsoy; try begin dm.veritabani_ac; BakTalepSay; jpegStream:=dm.ResimAl(UniLoginForm12.kurum_sicil_no); jpegStream.Position:=0; try UniImage2.Picture.Graphic:=nil; UniImage2.Picture.Graphic:=TJpegImage.Create; UniImage2.Picture.Graphic.LoadFromStream(JpegStream); //Read Jpeg finally jpegStream.Free; end; end; except end; end; procedure TUniForm1.BakTalepSay; var talepsay,mesajsay,onerisay,onaysay:integer; begin try try dm.YeniTalepSay.Active:=False; dm.YeniMesajSay.Active:=False; dm.OneriSay.Active:=False; dm.OnaySay.Active:=False; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj'; case uniLoginForm12.yetki of 1 : begin // admin dm.YeniTalepSay.SQL.Text:='select count(*) as talepsay from tservis_taleplis where durum=1'; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj '; end; 2 : begin // birim yöneticisi dm.YeniTalepSay.SQL.Text:='select count(*) as talepsay from tservis_taleplis where birimid='+IntToStr(uniLoginForm12.birimi)+' and durum=4'; dm.YeniMesajSay.SQL.Text:='select count(*) as mesajsay from tservis_yenimesaj where birimid='+IntToStr(uniLoginForm12.birimi); end; end; dm.YeniTalepSay.Active:=True; dm.YeniMesajSay.Active:=True; dm.OneriSay.Active:=True; dm.OnaySay.Active:=True; talepsay:=dm.YeniTalepSay.FieldByName('talepsay').AsInteger; mesajsay:=dm.YeniMesajSay.FieldByName('mesajsay').AsInteger; onerisay:=dm.OneriSay.FieldByName('onerisay').AsInteger; onaysay:=dm.OnaySay.FieldByName('onaysay').AsInteger; UniTreeView1.Items[0].Text:='GELEN TALEP FORMLAR'; if talepsay>0 then begin UniTreeView1.Items[0].Text:='GELEN TALEP FORMLAR ('+IntToStr(talepsay)+')'; end; dm.YeniTalepSay.Active:=False; UniTreeView1.Items[5].Text:='ÖNERİ-ŞİKAYET LİSTESİ'; if onerisay>0 then begin UniTreeView1.Items[5].Text:='ÖNERİ-ŞİKAYET LİSTESİ ('+IntToStr(onerisay)+')'; end; dm.OneriSay.Active:=False; UniTreeView1.Items[13].Text:='YENİ MESAJ'; if mesajsay>0 then begin UniTreeView1.Items[13].Text:='YENİ MESAJ ('+IntToStr(mesajsay)+')'; end; dm.YeniMesajSay.Active:=False; UniTreeView1.Items[16].Text:='ONAY BEKLEYENLER'; if onaysay>0 then begin UniTreeView1.Items[16].Text:='ONAY BEKLEYENLER ('+IntToStr(onaysay)+')'; end; dm.OnaySay.Active:=False; yenitalep:=false; except end; finally end; end; procedure TUniForm1.UniFormDestroy(Sender: TObject); begin L_Classe.Free; UniLoginForm12.siteSayac(0); // siteden çıkıldı DestroyIcon(Screen.Cursors[5]); UniLoginForm12.TrimAppMemorySize; end; procedure TUniForm1.UniTimer1Timer(Sender: TObject); begin BakTalepSay; end; procedure TUniForm1.UniTreeView1Click(Sender: TObject); var FClassName:string; FrC:TUniFrameClass; Fr:TUniFrame; Nd:TUniTreeNode; begin if F_Current<>Nil then FreeAndNil(F_Current); Nd := UniTreeView1.Selected; if Nd.Text='EBYS KULLANICI KAYIT' then begin if UniLoginForm12.yetki=2 then exit; // birim yöneticisi ise end; if Nd.Text='ÇIKIŞ' then Close_MyApplication else begin FClassName := L_Classe.Strings[Nd.AbsoluteIndex]; //FClassName := L_Classe.Values[Nd.Text]; FrC := TUniFrameClass(FindClass(FClassName)); TRY Fr := FrC.Create(UniForm1); EXCEPT END; UniForm1.Width := Fr.Width + 305; Fr.Align := alClient; Fr.Parent := UniForm1; F_Current:=Fr; end; end; procedure TUniForm1.Prepare_MyClass_UniFrame; var i:integer; Nd:TUniTreeNode; begin //****************************************************************************** L_Classe:=TStringList.Create; L_Classe.Add('TUniFrame7'); // GELEN YENİ İŞ TALEPLERİ L_Classe.Add('TUniFrame9'); // ÇÖZÜLEN İŞ TALEPLERİ L_Classe.Add('TUniFrame3'); // YENİ İŞ TALEBİ GÖNDERME L_Classe.Add('TUniFrame21'); // YENİ İŞ TALEBİ GÖNDERME (3.ŞAHIS ADINA TALEP AÇMA) L_Classe.Add('TUniFrame22'); // DİLEK,ŞİKAYET VE ÖNERİ GÖNDERME L_Classe.Add('TUniFrame23'); // DİLEK,ŞİKAYET VE ÖNERİ LİSTESİ L_Classe.Add('TUniFrame6'); // GEÇMİŞ İŞ TALEP FORMLARI L_Classe.Add('TUniFrame10'); // GELEN İŞ TALEPLERE ÇÖZÜM BULMA L_Classe.Add('TUniFrame16'); // DEMİRBAŞ/CİHAZ TESLİMİ L_Classe.Add('TUniFrame8'); // GÖREVLENDİRME DÜZELTME L_Classe.Add('TUniFrame4'); // SERVİS ELEMANLARI GİRİŞİ L_Classe.Add('TUniFrame17'); // İADE EDİLEN TALEP FORMLAR L_Classe.Add('TUniFrame18'); // EBYS KULLANICI ADI GİRİŞİ L_Classe.Add('TUniFrame20'); // YENİ MESAJLAR L_Classe.Add('TUniFrame19'); // ARIZA TÜRLERİ GRAFİK GÖSTERİM L_Classe.Add('TUniFrame24'); // TEKNİK ELEMAN PERFORMANS L_Classe.Add('TUniFrame25'); // ONAY BEKLEYENLER //****************************************************************************** // Don'nt forget to Register your Frame Class on Frame's initialization section (see Units Frames) end; procedure TUniForm1.Close_MyApplication; begin // Uniapplication.UniSession.Terminate(); Close; UniLoginForm12.Show(); end; end.
  10. unigui son versiyon (v1.10.0.1458) dbgrid te aktif satır rengi gözükmüyor. oysa v1.0.0.1424 versiyonunda böyle bir sorun yok. Aynı kodu derleyip çalıştırdığımızda son versiyonda dbgrid teki aktif satır rengi gözükmüyor.
  11. MessageDlg('Silmek istiyor musunuz?', mtConfirmation, mbYesNo, DCallBack2); Buradaki Yes ve No düğmelerini Evet ve Hayır şeklinde gösterebilir miyiz? Mesaj penceresiniz başlığının Türkçe olmasını sağlayabilir miyiz?
  12. Teşekkürler Hayri Bey, Tamda istediğim buydu. Bir dialog penceresi oluşturup buradan Evet düğmesi ile kayıtları silmek ve Hayır düğmesi ile işlemden vazgeçmek istiyorum. Bunu nasıl yapabiliriz acaba?
  13. UniDbGrid üzerinde seçilen kayıtları ne şekilde silebiliriz. Bir örnek ile gösterebilirseniz memnun olurum. Şimdiden teşekkürler.
  14. OnBeforeAction eventinin kullanımına bir örnek verirmisiniz Hayri Bey.
  15. unidbnavigator'da insert tuşuna basıldığını nasıl kontrol edebilirim.
  16. http://www.yildiz.edu.tr/~metin/aa.jpg there is an uniurlframe in uniform I am using this structure for pdf printing no problem for printing but if I want to close this form. form doesn't close I m using in unimainmodule enablesynchronousoperations true close; or uniform3.close; or action:=caFree; form doesn't close
  17. http://193.140.1.4/homepage/aa.jpg there is an uniurlframe in uniform I am using this structure for pdf printing no problem for printing but if I want to close this form. form doesn't close I m using in unimainmodule enablesynchronousoperations true close; or uniform3.close; or action:=caFree; form doesn't close
  18. formun icinde , uniurlframe var. bu yapıyı pdf olarak yazdırmak için kullanıyorum. Yazdırıken hiçbir sorun yok. Formu kapatmak istedigimde form kapanmıyor. unimainmodule deki enablesynchronousoperations true seçili close; veya uniform3.close; veya action:=caFree; formu kapatmadım.
  19. procedure TFrmEkders_sinav.UniButton1Click(Sender: TObject); begin unibutton1.Enabled:=false; unilabel8.Visible:=true; unilabel8.Caption:=' İŞLEM YAPILIYOR LÜTFEN BEKLEYİNİZ. '; unilabel8.UPDATE; // yukarıdaki işlemler while döngüsü bittikten sonra işlem görüyor. görüntüleniyor.. // bunun mantığı nedir. // masa üstü versiyonunda sorun yok. normal olarak çalışıyor. PersonelDSET.First; while (not PersonelDSET.Eof) do begin LBL_SICIL.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString); LBL_ADI.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString)+' '+Trim(PersonelDSET.fieldbyname('ad').AsString)+' '+Trim(PersonelDSET.fieldbyname('soyad').AsString); unilabel8.Visible:=true; unilabel8.Caption:=' İŞLEM YAPILIYOR LÜTFEN BEKLEYİNİZ. '+inttostr(PersonelDSET.RecNo); unilabel8.UPDATE; PersonelDSET.next; end; END; unibutton1 e tıklandığında unibutton1 false olmuyor. personeldset tablosunda 5000 kayıt var. Döngü tamamlanana kadar button1 disable olamıyor. öncelikle while döngüsündeki işlem bittikten sonra unibutton1 false oluyor. unilabel8 de görüntülenmiyor. personeldset tablosu ile ilgili while döngüsü bittikten sonra görüntüleme yapılıyor. bu sorunu nasıl çözebiliriz...
  20. procedure TFrmEkders_sinav.UniButton1Click(Sender: TObject); begin unibutton1.Enabled:=false; PersonelDSET.First; while (not PersonelDSET.Eof) do begin LBL_SICIL.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString); LBL_ADI.Caption:=Trim(PersonelDSET.fieldbyname('kurum_sicil_no').AsString)+' '+Trim(PersonelDSET.fieldbyname('ad').AsString)+' '+Trim(PersonelDSET.fieldbyname('soyad').AsString); PersonelDSET.next; end; END; unibutton1 e tıklandığında unibutton1 false olmuyor. personeldset tablosunda 5000 kayıt var. Döngü tamamlanana kadar button1 disable olamıyor. öncelikle while döngüsündeki işlem bittikten sonra unibutton1 false oluyor. bu sorunu nasıl çözebiliriz...
  21. Uygulamamda istemci makinanın fiziksel adresini almak istiyorum. İstemci makinanın IP adresini alabiliyoruz. Bizim için gerekli olan sunucuya bağlanan bilgisayarların fiziksel adreslerini alabilmek. Bu konuda yardımlarınızı bekliyorum. Şimdeden teşekkürler.
  22. Formun autoscroll özelliğini true yaptım. Birşey değişmedi.
  23. Form browserda görüntülendiğinde kaydırma çubukları kayboluyor. Bu kaydırma çubuklarını nasıl geri getiririz. Ekte formun browserdaki durumunu görebilirsiniz.
  24. Memo alanını 500 karakter ile sınırladım. Kullanıcı bilgi girerken bu sınır değerden kullanıcının girdiği karakter sayısını düşüp girebileceği karakter sayısını anlık olarak görebilmesini nasıl sağlayabilirim. Şimdiden Teşekkürler.
×
×
  • Create New...