Sayfayı Yazdır | Pencereyi Kapat

Unknown Member Method - DateTime

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1048
Tarih: 04 Temmuz 2025 Saat 01:32
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Unknown Member Method - DateTime
Mesajı Yazan: turgutkir
Konu: Unknown Member Method - DateTime
Mesaj Tarihi: 03 Temmuz 2025 Saat 14:02
75. ve 76. satırda hatalar alıyorum :
  dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart');
  dtEnd   = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd');

Unknown member method: 'AaddNewProDateTimePicker'

//------------------------------------------------------------------
//  uManagerForm – Liste ve Filtre
//------------------------------------------------------------------

var
  FrmMgr          : TclForm;
  lstMeetings     : TclListView;
  dtStart, dtEnd : TclProDateTime;  
  cmbUser         : TclComboBox;
  btnFilter       : TclButton;
  qData           : TclSqlQuery;

/*--------------- personel listesini doldur ----------------------*/

void LoadUsers;
var
  q : TclSqlQuery;          // ← semikolon ZORUNLU
{
  q = Clomosy.DBSQLServerQueryWith(
        'SELECT ID, FullName FROM Users ORDER BY FullName');
  cmbUser.Clear;

    while (not q.EOF) {
    cmbUser.AddItem(q.FieldByName('FullName').AsString,
                    q.FieldByName('ID').AsString);
    q.Next;
  };
}

/*---------------  tarih + personel filtresi  --------------------*/
void ApplyFilter;
var
  sql : String;
  uid : String;
{
  sql =
    'SELECT M.ID as RECORD_GUID,' +
    '       U.FullName + '' - '' + M.CompanyName as MAIN_TEXT,' +
    '       CONVERT(nvarchar, M.MeetingDate, 104) + '' '' +' +
    '       CONVERT(nvarchar, M.MeetingDate,108) as SUB_TEXT ' +
    'FROM Meetings M ' +
    'LEFT JOIN Users U ON U.ID = M.UserID ' +
    'WHERE 1=1';

  /* Tarih aralığı */
  sql =
    sql + ' AND M.MeetingDate BETWEEN ' +
    QuotedStr(FormatDateTime('yyyy-MM-dd', dtStart.DateTime) + ' 00:00') +
    ' AND ' +
    QuotedStr(FormatDateTime('yyyy-MM-dd', dtEnd.DateTime) + ' 23:59');

  /* Personel filtresi */
  uid = cmbUser.GetValueIndex(cmbUser.ItemIndex);
  if uid <> '' {
    sql = sql + ' AND M.UserID = ' + uid;
  }

  try
    qData.SQL.Text = sql;
    qData.Open;
    lstMeetings.clLoadListViewDataFromDataset(qData);
  except
    ShowMessage('Sorgu hatası: ' + LastExceptionMessage);
  }   


/*---------------   formu oluştur   ------------------------------*/
void CreateForm;
{
  FrmMgr = TclForm.Create(Self);
  FrmMgr.clSetCaption('Yönetici Paneli');

  dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart');
  dtEnd   = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd');

  cmbUser = FrmMgr.AddNewComboBox(FrmMgr,'cmbUser');

  btnFilter = FrmMgr.AddNewButton(FrmMgr,'btnFilter','Uygula');
  FrmMgr.AddNewEvent(btnFilter,tbeOnClick,'ApplyFilter');

  lstMeetings = FrmMgr.AddNewListView(FrmMgr,'lstMeetings');
  lstMeetings.Align = alClient;

  /* SQL Server bağlantısı */
  qData = TclSqlQuery.Create(null);
  Clomosy.DBSQLServerConnect(
    'SQL Server',
    'TURGUT-KIR\\ATIKER',
    'sa',
    '1',
    'TURGUT25',
    1433);
  qData.Connection = Clomosy.DBSQLServerConnection;

  /* ilk açılışta bugünün verileri */
  dtStart.DateTime = Date;
  dtEnd.DateTime   = Date;
  LoadUsers;
  ApplyFilter;

  FrmMgr.Run;
}

/*---------------   RunUnit giriş noktası   ----------------------*/
void RunUnit;
{
  if (FrmMgr == null) {
    CreateForm;
  } else {
    FrmMgr.clShow;
  };
}




Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 03 Temmuz 2025 Saat 15:43
Merhaba Turgut, 

Clomosy de AddNewProDateTime yok 
https://www.docs.clomosy.com/index.php?title=Date" rel="nofollow - https://www.docs.clomosy.com/index.php?title=Date
https://www.docs.clomosy.com/System_Library#Date_and_Time_Functions " rel="nofollow - https://www.docs.clomosy.com/System_Library#Date_and_Time_Functions  ;
Burada yer alanları kullanabilirsin



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net