Search options (Page 1 of 2)

hello admin
i need to know if i finish my project with trial version 3.2 can i run it in auther computer or  mvd ask me to activate if trial version finish
its must instal mvd in the auther machin or just run the exe file

how can i write conditon

if frm1.datetimepiker1.date < = frm1.datetimepiker2.date then or do
or
if frm1.datetimepiker1.date < = frm1.edit1.date
if isen't null don't calculate

hello admin and all members of MVD
here is my script if someone want help me and he want the  project i send it

function CalculateDateBetween(StartDate, EndDate: TDateTime): string;
var
    YY, MM, DD: Word;
    dv, ad, ac: integer;

begin

    YY := YearsBetween(EndDate, StartDate);
    MM := MonthsBetween(EndDate, StartDate) - (YY*12);
    DD := DaysBetween(EndDate, StartDate) - (YY*365) - (MM*30);

   //Result := 'سنة,' + IntToStr(YY) + 'شهر,'+IntToStr(MM) + 'يوم,'+IntToStr(DD);
     Result := (IntToStr(YY)+' سنة  ') + (IntToStr(MM)+' شهر  ') + (IntToStr(DD)+' يوم  ');

end;
//*********************************************************************************************************
procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);

      var
    s,: string;
begin

  Grade.Edit2.Text := frmEmployee.EditCounter1.Text;
  Grade.Edit1.Text := SQLExecute('SELECT Name FROM Employees WHERE id ='+inttostr(frmEmployee.TableGrid1.dbitemid));

  s := SQLExecute('SELECT Date_denter FROM Employees WHERE id='+frmEmployee.TableGrid1.sqlValue);
  if s <> '' then Grade.DateTimePicker1.Date := SQLDateTimeToDateTime (s)
  else Grade.DateTimePicker1.Checked := true;

     //     fixing  date in Grade.DateTimePicker2/Grade.DateTimePicker3/Grade.DateTimePicker4

     Grade.DateTimePicker2.Date := EncodeDate(2010, 4, 14);
     Grade.DateTimePicker4.Date := EncodeDate(2016, 12, 31);

  if Grade.DateTimePicker1.Checked and Grade.DateTimePicker2.Checked then
     Grade.DateTimePicker3.DateTime := Grade.DateTimePicker2.DateTime + 1;
  if Grade.DateTimePicker1.Checked and Grade.DateTimePicker2.Checked  then

     Grade.Edit3.Text := CalculateDateBetween(Grade.DateTimePicker2.Date, Grade.DateTimePicker1.Date);
     Grade.Edit5.Text := CalculateDateBetween(Grade.DateTimePicker3.Date, Grade.DateTimePicker4.Date);
     Grade.Edit12.Value := DaysBetween(Grade.DateTimePicker3.DateTime, Grade.DateTimePicker4.DateTime);
     Grade.Edit10.Value := DaysBetween(Grade.DateTimePicker1.DateTime, Grade.DateTimePicker2.DateTime);
     Grade.Edit11.Value := Grade.Edit10.Value/2;
     Grade.DateTimePicker5.DateTime := Grade.DateTimePicker1.DateTime + Grade.Edit11.Value ;
     Grade.Edit4.Text := CalculateDateBetween(Grade.DateTimePicker2.Date, Grade.DateTimePicker5.Date);
     Grade.Edit13.Value := Grade.Edit11.Value + Grade.Edit12.Value ;
     Grade.Edit7.Value :=  trunc((Grade.Edit13.Value / 365*30*12)/730) ;
     frmEmployee.Edit17.Value :=  Grade.Edit7.Value;
     frmEmployee.panel1.Visible := true;

hello
i cant show data to the second report in the same form
any idea

hello evryone
how to show automatically sub (records) in dbedit i mean with relation   look at the photos
and my project
user&password  admin/admin

how to change text in the Tgrid header (righit to left) and disable onclick sorting asecending descending in the header