برنامج بدلفي لتسيير محل تجاري نسخة 2

	procedure TForm1.Button1Click(Sender: TObject);

	var

	  Present:TDate;

	  Year,Month,Day :Word;

	  Year1,Month1,Day1 :Word;

	  Year2,Month2,Day2 :Word;

	   s: String;

begin

  // مثلا من قاعدة البيانات
 Edit2.Text := 'محمد';
  // الوقت الحالي
  Present:=Now;
  DecodeDate(Present,Year,Month,Day);

  // مثلا من قاعدة البيانات
  Present:=DateTimePicker1.Date;
  DecodeDate(Present,Year1,Month1,Day1);

  Year2 := Year1 - Year;
  Month2 := Month1 - Month;
  Day2 := Day1 - Day;

  s := '';
  if (Year2 = 0)and(Month2 = 0)and(Day2 = 0)then
   s := 'انتهاء عقد '+Edit2.Text
  else
  if (Year2 = 0)and(Month2 = 0) then
    s :=' بقي يوم '+IntToStr(Day2)+
  ' وينتهي عقد '+
  Edit2.Text;

  if(s <> '')and(Day2 <= 1)then ShowMessage(s);

end;

	procedure TForm1.FormShow(Sender: TObject);

	begin

	 Button1Click(Sender);

	 close;

	end;

	procedure WriteFileInRegistry(rName,aName: String);

	var

	  Reg: TRegistry;

	begin

	  Reg := TRegistry.Create;

	  Reg.RootKey := HKEY_LOCAL_MACHINE;

	  Reg.OpenKey(sk, True);

	  if not Reg.ValueExists(rName) then

	    Reg.WriteString(rName, aName);

	  Reg.CloseKey;

	  Reg.Free;

	end;

	procedure DeleteFileInRegistry(rName: String);

	var

	  Reg: TRegistry;

	begin

	  Reg := TRegistry.Create;

	  Reg.RootKey := HKEY_LOCAL_MACHINE;

	  Reg.OpenKey(sk, True);

	  if Reg.ValueExists(rName) then Reg.DeleteValue(rName);

	  Reg.CloseKey;

	  Reg.Free;

	end;

	unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, shellapi, Menus, Grids, DBGrids, ExtCtrls,
  DBCtrls, DB, DBTables;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Table1Num: TFloatField;
    Table1Nom: TStringField;
    Table1Nom2: TStringField;
    Table1Date_ent: TDateField;
    Table1Date_sor: TDateField;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  end;

var
    Form1: TForm1;
    MyTNA: NOTIFYICONDATA;
    s: string;

    
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Present:TDate;
  Year,Month,Day :Word;
  Year1,Month1,Day1 :Word;
  Year2,Month2,Day2 :Word;
  j : longint;

begin

  Table1.Open;
 // Table1
  s := '';
  day2 := 0;
  Day1 :=  0;
  day := 0;

  Present:=Now;
  DecodeDate(Present,Year,Month,Day);  

  Table1.DisableControls;
  Table1.First;
  while not Table1.Eof do
  begin
  Present := Table1Date_sor.Value;
  DecodeDate(Present,Year1,Month1,Day1);

  Year2 := Year1 - Year;
  Month2 := Month1 - Month;
  Day2 := Day1 - Day;

 
  if (Year2 <= 0)and(Month2 <= 0)and(Day2 <= 0)then
   s :=s+'|'+ 'انتهاء عقد '+Table1Nom.Text
  else
  if (Year2 = 0)and(Month2 = 0)and(Day2 = 1) then
    s :=s+'|'+' بقي يوم '+ IntToStr(Day2) +
  ' وينتهي عقد '+
  Table1Nom.Text;

  Table1.Next;
  end;
  Table1.EnableControls;
 // if(s <> '')and(Day2 <= 1)then  ShowMessage(s);
 

   with MyTNA do
    begin
      cbSize := SizeOf(TNotifyIconData);
      uID := 1;
      uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
      Wnd := Handle;
      uCallbackMessage := WM_APP + 1;
      hIcon := Application.Icon.Handle;

      with MyTNA do
      begin
        for j:=0 to length(s)-1 do MyTNA.szTip[j] := s[j+1];
        szTip[length(s)]:=#0;
      end;
    end;
    Shell_NotifyIcon(NIM_ADD, @MyTNA);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Shell_NotifyIcon(NIM_DELETE, @MyTNA);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

end.