|
var form: TCLForm; durum:TCLUnit; girdi,hosgeldiniz:TClProLabel; gidis:TClProButton; list:TCLProListView; DesignerPanel : TClProListViewDesignerPanel; EMPLOYEE_NAME,EMPLOYEE_ID,JOB_TITLE,EMPLOYEE_SURNAME : TClProLabel; query:TClSqlQuery; status:String; void GoToUnit1; { form.clShow; durum.UnitName = 'durum'; durum.CallerForm = form; durum.Run; } void SetupSqlConnection; { Clomosy.DBSQLServerConnect('SQL Server','172.16.222.156','sa','irem1234','vardiyaa',50000); } void AddDataToListview;
{ query = TClSqlQuery.Create(nil); try query.Connection = Clomosy.DBSQLServerConnection; query.sql.text= 'SELECT ' + 'kisi_id AS EMPLOYEE_ID, ' + 'kisi_adi AS EMPLOYEE_NAME, ' + 'kisi_soyad AS EMPLOYEE_SURNAME, ' + 'kisi_meslegi AS JOB_TITLE, ' + 'vardiya_baslangic AS SHIFT_START, ' + 'vardiya_bitis AS SHIFT_END, ' + 'dinlenme_bas AS REST_START, ' + 'dinlenme_bitis AS REST_END, ' + 'CASE ' + 'WHEN CAST(GETDATE() AS TIME) BETWEEN vardiya_baslangic AND vardiya_bitis THEN ''Çalışıyor'' ' + 'WHEN CAST(GETDATE() AS TIME) BETWEEN dinlenme_bas AND dinlenme_bitis THEN ''Dinleniyor'' ' + 'ELSE ''Müsait'' ' + 'END AS Durum ' + 'FROM vardiyaa'; query.Open; if (query.Found) { list.clLoadProListViewDataFromDataset(query); } except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); query.Free; } }
void CreateDesignerPanel; { DesignerPanel = form.AddNewProListViewDesignerPanel(list,'DesignerPanel'); clComponent.SetupComponent(DesignerPanel,'{"Height":250,"Width" : 150,"BackgroundColor":"#F6EDDB","BorderColor":"#F5BCC9","BorderWidth":2,"RoundHeight":20,"RoundWidth":20}'); list.SetDesignerPanel(DesignerPanel); } void CreateListView; { list = form.AddNewProListView(form,'list'); list.Properties.ItemSpace = 10; clComponent.SetupComponent(list,'{"Height" : 150,"Align":"Client","MarginBottom":20,"MarginTop":20,"MarginRight":10,"MarginLeft":10, "ListType":"Cart","ItemColumnCount" : 2,"ItemHeight" : 160,"ItemWidth":160, "BorderColor":"#F5BCC9", "BorderWidth":2,"RoundWidth":5, "RoundHeight":5}'); list.ListType = 'horizontal'; form.AddNewEvent(list,tbeOnItemClick,'onItemClicked'); } void onItemClicked; { query.Open; //ShowMessage(query.FieldByName('Durum').AsString); if (query.found) { status = query.FieldByName('Durum').AsString; hosgeldiniz.Caption='Durum: '+status; if(status=='Müsait') { form.SetFormColor('#66b76c ', '', clGNone); } else{ form.SetFormColor('#f57a99', '', clGNone); } } else { hosgeldiniz.Caption='Kişi bulunamadı'; } query.Free; }
void CreateEMPLOYEE_NAMEAndPrice; { EMPLOYEE_ID = form.AddNewProLabel(DesignerPanel,'EMPLOYEE_ID','test'); clComponent.SetupComponent(EMPLOYEE_ID,'{"MarginTop":5,"MarginLeft":10,"MarginRight":0,"MarginBottom":0 ,"Height":20,"Width":10,"Align" : "MostTop"}'); DesignerPanel.AddPanelObject(EMPLOYEE_ID,clCaption); EMPLOYEE_ID.Properties.AutoSize = True; EMPLOYEE_NAME = form.AddNewProLabel(DesignerPanel,'EMPLOYEE_NAME','test'); clComponent.SetupComponent(EMPLOYEE_NAME,'{"MarginTop":5,"MarginLeft":10,"MarginRight":0,"MarginBottom":0 ,"Height":20,"Align" : "Mosttop"}'); DesignerPanel.AddPanelObject(EMPLOYEE_NAME,clText); EMPLOYEE_NAME.Properties.AutoSize = True; EMPLOYEE_SURNAME = form.AddNewProLabel(DesignerPanel,'EMPLOYEE_SURNAME','test'); clComponent.SetupComponent(EMPLOYEE_SURNAME,'{"MarginTop":5,"MarginLeft":10,"MarginRight":0,"MarginBottom":0 ,"Height":20,"Align" : "Mosttop"}'); DesignerPanel.AddPanelObject(EMPLOYEE_SURNAME,clText1); EMPLOYEE_SURNAME.Properties.AutoSize = True; JOB_TITLE= form.AddNewProLabel(DesignerPanel,'JOB_TITLE','test'); clComponent.SetupComponent(JOB_TITLE,'{"MarginTop":5,"MarginLeft":10,"MarginRight":0,"MarginBottom":0 ,"Height":20,"Align" : "Mosttop"}'); DesignerPanel.AddPanelObject(JOB_TITLE,clText2); JOB_TITLE.Properties.AutoSize = True; }
{ form = TCLForm.Create(self); form.SetFormColor('#b387e8', '', clGNone); durum = TclUnit.Create; CreateListView; SetupSqlConnection; CreateDesignerPanel; CreateEMPLOYEE_NAMEAndPrice; AddDataToListview; hosgeldiniz = form.AddNewproLabel(form, 'hosgeldiniz', 'Vardiya Uygulamamıza Hoşgeldiniz'); clComponent.setupComponent(hosgeldiniz, '{ "Align":"top","MarginsTop":70,"MarginsLeft":80,"MarginsRight":80,"Width":80,"Height":80, "TextColor":"#ad0154","TextSize":30,"TextVerticalAlign":"center", "TextHorizontalAlign":"center","TextBold":"yes" }');
girdi = form.AddNewproLabel(form, 'girdi', 'Kişi Bilgilerini Değiştirmek İçin Tıklayınız'); clComponent.setupComponent(girdi, '{ "Align":"bottom","TextColor":"#ad0154","TextSize":20,"MarginsBottom":80,"Height":50,"MarginsLeft":50 }');
gidis = form.AddNewProButton(form, 'gidis', 'TIKLAYINIZ'); clComponent.setupComponent(gidis, '{ "Align":"Mostbottom","Width":20,"Height":80,"MarginsTop":50,"MarginsBottom":20, "TextColor":"#c7237b","TextSize":25,"RoundHeight":250,"RoundWidth":250, "BorderColor":"#7A3E65","TextBold":"yes","BorderWidth":5 }'); form.AddNewEvent(gidis, tbeOnClick, 'GoToUnit1');
/* try Clomosy.DBSQLServerConnect('SQL Server', 'IREM\SQLEXPRESS', 'sa', 'irem1234', 'vardiyaa', 1433); except ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage); }*/ form.Run;
}
|