7 ردود في هذا الموضوع


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

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله


أي اخطاء ترونها اعلموني بها
أو اقترحات تحبون اضافتها  وشكرا

ملاحظة
لقد أضفت اليه بعض الاضافات
أذكر منها انه أصبح يقبل الاعداد الحقيقية
العملة كذلك

الرمز السري

delph

arabteam2000.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

بارك الله فيك يا اخيي الكريم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

مساعدة لو ممكن

انا بصدد انشاء برنامج جديد يتضمن عقود العمال الحمد كلشي ماشي تمام

و لكن محناج الى سورس ضروري حتى اتم برنامجي

محتاج الى سور التنبيه تنبهني عندما ينتهي عقد احد العمال تظهر على شكل رسالة صغير بجانب الساعة

فلنقل بأنه  باقي يوم واحد و ينتهي عقد محمد .اريدها ان تظهر على شكل رسالة محتواها باقي يوم واحد على انتهاء عقد محمد

original.jpg

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

بالمناسبة انا استخدم دلفي 2010

ارجوا الإستفادة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

بارك الله فيك وجزاك كل الخير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه


بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين

هذه مجرد محاولة delphi7


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;


بجانب الساعة  لم أجد الحل وشكرا
--------------------------------------
هاتان دالتان من أجل اضافته الى بدأ تشغيل

هذه الدالة تقوم  بكتابة القيمة في المفتاح run


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;



هذه الدالة تقوم  بحذف القيمة من المفتاح run


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;



			
		
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه


بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين

برنامج تنبيه لانتهاء عقد عمل وتلميح بجانب الساعة


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.

 

dateto3.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .