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; }; }
|