Jump to content

pro_imaj

uniGUI Subscriber
 View Profile  See their activity

  • Posts

    929

  • Joined

  • Last visited

  • Days Won

    5

 Content Type 

Posts posted by pro_imaj

    Login Formu Yeniden Çalıştırma

    in Turkish

    Posted

    Merhaba;

     

    Programda Girişte kullanıcı adı ve şifre ile giriş yapıp ana ekrana geçiyorum. Giriş yaptığım ekranda KullanıcıAdı ve Şifresini parametre olarak gönderen bir procedure var. Ana ekrandayken farklı kullanıcı adı ve şifreyi parametre olarak gönderip programa ilgili kullanıcıyla giriş yapmak istiyorum nasıl bir yol izlerim.

     

    Örnek;

    Giris(edtKAd.Text, edtKSifre.Text);

    Yukarıdaki parametreye göre ilgili tablolar kontrol ediliyor ve sonuç başarılıysa ModalResult := mrOK; şeklinde login form kapanıyor ana ekran geliyor.  Ana ekrandayken yukarıdaki gibi Kullanıcı adı ve şifreyi parametre olarak gönderdiğimde Login ekrana karşıma geliyor. Halbuki ben login ekranı bilgilerini zaten parametre ile gönderip başka bir kullanıcı ile sisteme giriş yapmak istiyorum. Bunu nasıl çözebilirim.

     

    Teşekkürler.

     

     

    UnidbLookCombobox Kod İle Seçim Yapma

    in Turkish

    Posted

    Sorunu aşağıdaki şekilde çözdüm;

    //Query ilgili satıra konumlansın  
UniMainModule.QList.Filter := 'Tanim = ''' +
    UniMainModule.QKullanici.FieldByName('Tanim').AsString + ''' ';
  UniMainModule.QList.FindFirst;

//dblookupcombobox ilgili alan seçilsin. 
  look.KeyValue := UniMainModule.QTest.FieldByName
    ('Tanim').AsString;

//Seçim işlemi yürüt
  lookSelect(Sender);

    UnidbLookCombobox Kod İle Seçim Yapma

    in Turkish

    Posted

    Merhaba;

     

    UnidbLookCombobox => ListField alanındaki text değeri otomatik nasıl getirebilirim.

     

    Örneğin;

    UnidbLookCombobox => ListField listesindeki herhangi bir değer tabloda var, var olan ilgili kayıtı otomatik nasıl seçtire bilirim?

     

    UnidbLookCombobox Listesindeki Veriler

    A Veri

    B Veri

    C Veri

     

    Ben tabloda B Veri değerini tutuyorum ve bunu otomatik seçtirmek istiyorum (Kod ile)

     

    Teşekkürler.

    UniDbGrid Hidden Panel içindeki içindeki Unidblookcombobox Bazen Çalışmıyor

    in Turkish

    Posted

    Hata hala aynı devam ediyor ve aşağıdaki hatayı veriyor nasıl çözebilirim?

    _rsov_(O189,26);O20D.setReadOnly(true);O211.removeAll(false);O20D.setReadOnly(false);O211.removeAll(false);O211.insert(0,{id:"109",val:"A"});O211.insert(1,{id:"110",val:"K"});O211.insert(2,{id:"111",val:"B"});O211.insert(3,{id:"112",val:"E"});O211.insert(4,{id:"113",val:"C"});O1DC.load({params:{options:1}});_sfv_(O20D,0,"");

    UniDbGrid Hidden Panel içindeki içindeki Unidblookcombobox Bazen Çalışmıyor

    in Turkish

    Posted

    LookupCombo nun datasource ve dataset bağlantılarını kaldırınca sorun düzeliyor.

     

    Kod ile temp bir datasource oluşturuyorum önce onu ekleyip işlem bitimine tekrar eski haline alıyorum fakat bu şekilde hata yine oluşuyor.

    var
  DStemp: TDataSource;
begin

  cmbLook.DataSource := DStemp;
  cmbLook.ListSource := DStemp;

    UniMainModule.Query1.First;
    while not UniMainModule.Query1.Eof do
    begin
      UniMainModule.MemTable.Append;
      UniMainModule.MemTable.Edit;

      UniMainModule.MemTableAdi.Text := UniMainModule.Query1Adi.Text;
      UniMainModule.MemTableimage.Assign(UniMainModule.Query1image);


      UniMainModule.MemTable.Post;

      UniMainModule.Query1.Next;

    end;

      UniMainModule.MemTable.First;
  end;

  cmbLook.DataSource := UniMainModule.DS1;
  cmbLook.ListSource := UniMainModule.DS02;

    dblookupcombobox=>OnSelect bir önceki seçimi getiriyor.

    in Turkish

    Posted

    Merhaba;

     

    dblookupcombobox=>OnSelect olayına aşağıdaki kodu yazdığımda seçtiğim kaydı değil bir önceki seçtiğim kaydı getiriyor bunu nasıl düzeltebilirim?

    *dblookupcombobox'u hidden panel içinde kullanıyorum grid üzerinden seçim yapıyor kullanıcı.

    ShowMessage('KeyValue = ' + (sender as TUniDBLookupComboBox).KeyValueStr);

    UniDbGrid Hidden Panel içindeki içindeki Unidblookcombobox Bazen Çalışmıyor

    in Turkish

    Posted

    Error Code

    _rsov_(OF07,1);OF8B.setReadOnly(false);OF35.setActiveTab("_1");OF7D.hide();delete OF56_Cols;OF56.refreshColumnCache=true; O1109=new Ext.grid.column.Column({ogrid:OF56,sortable:false,dataIndex:"0",renderer:_rndcll_,rdonly:true,text:"Kodu",width:120,attr:"{fts:'font-weight:bold;font-size:12px'}",unEditable:true});O1109.nm="O1109"; O1111=new Ext.grid.column.Column({ogrid:OF56,sortable:false,dataIndex:"1",renderer:_rndcll_,rdonly:false,text:"Olcu",width:152,attr:"{fts:'font-weight:bold;font-size:12px'}",editor:{xtype:"textfield",fieldStyle:"font-weight:bold;font-size:12px;color:#000000"}});O1111.nm="O1111";O1111.editor.uform=OF56.uform;O1111.editor.focusDisabled=true;O1111.editor.isCellEditor=true; O1119=new Ext.grid.column.Column({ogrid:OF56,sortable:false,dataIndex:"2",renderer:_rndcll_,rdonly:true,text:"Miktar",align:"right",ct:"number",width:177,attr:"{fts:'font-weight:bold;font-size:12px'}",unEditable:true});O1119.nm="O1119"; O1121=new Ext.grid.column.Column({ogrid:OF56,sortable:false,dataIndex:"3",renderer:_rndcll_,rdonly:false,text:"S. Miktar",align:"right",ct:"number",width:177,attr:"{fts:'font-weight:bold;font-size:12px'}",editor:{xtype:"numberfield",fieldStyle:"font-weight:bold;font-size:12px;color:#000000"}});O1121.nm="O1121";O1121.editor.uform=OF56.uform;O1121.editor.focusDisabled=true;O1121.editor.isCellEditor=true;var OF56_Cols=[O1109,O1111,O1119,O1121];OF56.reconfigure(null,OF56_Cols);OF56.uniConfigColumns();O1109.setElProp({"text-align":"center"},null,0,null,null,"titleEl");O1111.setElProp({"text-align":"center"},null,0,null,null,"titleEl");O1119.setElProp({"text-align":"center"},null,0,null,null,"titleEl");O1121.setElProp({"text-align":"center"},null,0,null,null,"titleEl");OF5A.load({params:{options:1}});OF8B.stateValue="50D91F060000000000000000";OF8F.removeAll(false);OF8F.insert(0,{id:"8",val:"80 X 150"});OF8F.insert(1,{id:"9",val:"80 X 300"});OF8F.insert(2,{id:"10",val:"100 X 300"});OF8F.insert(3,{id:"11",val:"100 X 200"});OF8F.insert(4,{id:"12",val:"120 X 180"});OF8F.insert(5,{id:"13",val:"160 X 230"});OF8F.insert(6,{id:"14",val:"200 X 300"});OF8F.insert(7,{id:"15",val:"200 X 290"});OF79.setElProp("innerHTML","\x3Cimg src='/cache/test01_exe/res/__B25EEE4CDE345A1B908F7CFB.jpg' width='138' height='313' hspace='0' vspace='0'\x3E",2);_sfv_(OF8B,0,"");

    7c059a283a.png

     

    Unigui versiyon : 1.10.0.1451

    Delphi versiyon  :10.2

×
×
  • Create New...