Jump to content
uniGUI Discussion Forums
Sign in to follow this  
pro_imaj

UniCalendarPanel.EventId Neden Read Only ?

Recommended Posts

Merhaba;

UniCalendarPanel üzerindeki bilgilerinin tüm özelliklerini database kaydediyorum.

 

Formun create kısmında bunları yüklerken EventId haricindeki tüm bilgileri yüklüyorum EventId bilgisini kendisi otomatik oluşturuyor sorunda burada başlıyor.

Oluşturduğunuz kayıtlardan herhangi birini sildiğiniz ve sonrasında yeni kayıtlar oluşturduğunuzda tüm database yapısı bozuluyor. Bu konuda nasıl bir çözüm önerirsiniz.

 

 

Örn;

3 Farklı tarihe veri girişi yaptınızı varsayın;

Sırasıyla EventId  = 1,2,3 oluyor

2. Kaydı yani EventId   = 2 olan kaydı sildiniz.

Yeni bir tarihe veri girişi yaptınğınızda EventId  = 3 olarak veri tabanına göre mükerrer bir kayıt oluşuyor.

 

Veri tabanı tarafında : EventId  = 1,3,3

 

Share this post


Link to post
Share on other sites

Form yüklenirken tablodaki EventId güncelleme dışında bir çözüm var mı?

(Programı farklı explorerlerde açılınca buda olmuyor.)

Share this post


Link to post
Share on other sites

Farşad,

TUniCalendarEvent = class(TPersistent)

Bu class a bir Tag property eklemen mümkün mü?

 

EventID ile birlikte benim ID verebileceğim ve tüm olaylarda bunu alabileceğim bir yapı olması gerekiyor sanırım.

Share this post


Link to post
Share on other sites

Farşad eklemediği sürece bunu kullanabilirsiniz. Sadece her güncellemeden sonra tekrar eklemeniz gerekir.

 

..uniGUI\Source\Components\uniGUIAbstractClasses.pas

.......
TUniCalendarEvent = class(TPersistent)
  private
    FAdini_Sen_Koy: Integer;
  protected
.......
    property IsNew : Boolean read GetIsNew write SetIsNew;
    property Adini_Sen_Koy: Integer read FAdini_Sen_Koy write FAdini_Sen_Koy;
  end;

Sonra unigui yi build edin. Bununda kolayı, Delphi de projenizi açın, yukardaki kodları ekleyin, sonrada kendi projenizi "build all" edin ondan sona alıb kullan istediğin gibi :)
Kolay gele

Share this post


Link to post
Share on other sites

Bu hatayı alıyorum.

E.RowId: = UniMainModule.QList.FieldByName ('RowID') .AsInteger;

6yBlvv.jpg

procedure SetRowId(Value: Integer); virtual; abstract;
function GetRowId: Integer; virtual; abstract;


property RowId: Integer read GetRowId write SetRowID;

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×