ÇÚÒÇÆí ÇáßÑÇã ÓæÝ äÞæã ÈÔÑÍ ÚÏÉ ãæÇÖíÚ ÊÊÚáÞ ÈÅÏÇÑÌ ãáÝ ÕæÊ Ýí ÈÏÁ ÝÊÍ ÇáäãæÐÌ Çæ ÚäÏ ÇÛáÇÞå æßÐáß ÓääÔÆ ÒÑ ÇãÑ áÊÔÛíá ÇáÕæÊ æÓäÞæã ÈÚÏ Ðáß ÈÅÏÑÇÌ ãáÝ ÝáÇÔ Ýí ÇáäãæÐÌ æßÐáß ÒÑ ÇãÑ ÊßÈíÑ ÇáÔÇÔå æÇÓÊÚÇÏÊåÇ ÝÅáì ÇáÔÑÍ ÇáãÕæÑ ÎØæå ÎØæå æíÝÖá Çä ÊÞæã ÈÚãá ãÌáÏ ÎÇÕ Èß æÊÖÚ Ýíå ãáÝÇÊ ÇáÇÕæÇÊ æÇáÝáÇÔ æÇáãíÏíÇ Ëã ÊÊÈÚ ÇáÎØæÇÊ áíÓåá Úáíß ÇáÚãá æåäÇß ÇãÑ ÇÎÑ ÇÔÏÏ Úáíå Çä Êßæä ÇÓãÇÁ ÇáãáÝÇÊ ÈÇáÇäÌáíÒí áíÓåá ÇáÊÚÇãá ãÚåÇ

ÇæáÇ:
áÌÚá ÇáÕæÊ íÚãá Ýí ÈÏÇíÉ ÝÊÍ ÇáäãæÐÌ Çæ ÚäÏ ÇáÇÛáÇÞ Çæ ÇáÊÍãíá ÇÊÈÚ ÇáÎØæÇÊ ÇáÊÇáíÉ ßãÇ Ýí ÇáÕæÑå


ÇáÎØæÉ ÇáËÇäíÉ


ÇáÇä ÖÚ ÇáßæÏ


ßãÇ ÊáÇÍÙ Ýí ÇÎÑ ÇáßæÏ íæÌÏ ãáÝ ÕæÊí ÛíÑå ÈãáÝß ÇáÎÇÕ

Private Sub Form_Open(Cancel As Integer)
    Call PlaySound(Application.CurrentProject.Path & "\Ekhlas.wav")
        End Sub

Ýí ÍÏË ÚäÏ ÇáäÞÑ


ËÇäíÇ:

ØÑíÞÉ Úãá ãáÝ ÝáÇÔ
ÇäÔÆ äãæÐÌ ÝÇÖí Ýí ÚÑÖ ÇáÊÕãíã ÍÓÈ ÇáãÞÇÓÇÊ ÇáãäÇÓÈå áÍÌã ãáÝ ÇáÝáÇÔ ÇáãØáæÈ
ÇÎÊÑ ãä ÔÑíØ ÇáÇÏæÇÊ ÇÏÑÇÌ Ëã ÚäÕÑ ÊÍßã ActiveX
Çæ ãä ãÑÈÚ ÇáÇÏæÇÊ ßãÇ Ýí ÇáÕæÑå


ÇäÒá ÈÇáÞÇÆãÉ ÍÊì ÊÌÏ ßÇÆä ÇáÝáÇÔ ÇÖÛØ Úáíå ãÑå æÇÍÏå Ëã ÇÎÊÑ ãæÇÝÞ


ÇáÇä ÓíäÊÌ áÏíäÇ åÐÇ ÇáßÇÆä


Þã ÈÖÈØ ÍÏæÏ ÇáßÇÆä ÈÇáãÞÇÈÖ ÇáÊí Ýí ÇáÇÑßÇä Ëã ÇÍÝÙ ÇáäãæÐÌ ÈÃí ÇÓã ÊÑíÏ Ëã ÇÚÏ ÝÊÍå ãÑå ËÇäíÉ Ýí ÚÑÖ ÇáÊÕãíã


Þã ÈæÖÚ ÇáãÇæÓ ÏÇÎá ÇáãÑÈÚ ÇáÇÓæÏ Çí ÇáßÇÆä æÇÖÛØ ÈÇáãÇæÓ ãÑå æÇÍÏå ÝÞØ æÓÊÙåÑ áß ÇáãÞÇÈÖ Ýí ÇáÇØÑÇÝ Þã ÈæÖÚ ÇáãÇæÓ Úáì ÇáÑßä ÇáÇíãä ÇáÚáæí ááßÇÆä ÍÊì ÊÊÛíÑ Çáì íÏ ÓæÏÇÁ ÊÔíÑ ÈÇáÇÕÈÚ ÇÖÛØ ÇáÇä ÈÇáãÇæÓ ÇáÇíãä æÇÎÊÑ ÎÕÇÆÖ ÇáßÇÆä


ÈÚÏ ÇáÖÛØ ÈÇáãÇæÓ ÇáÇíãä ÓÊÙåÑ áß áæÍÉ ÇáÎÕÇÆÕ Þã ÈÊÛííÑ ÇáÇÓã ßãÇ åæ ÙÇåÑ Ýí ÇáÕæÑå Çí Çáì obj_flashmovvie


ÇáÇä Ýí åÐå ÇáÎØæå ÇäÊÞá ááäãæÐÌ Çí ÇäÞÑ Ýí ÇáãÓÇÍå ÇáÎÇáíÉ ãä ÇáäãæÐÌ ßãÇ ÊÑì ÚäÏ ÇáßÊÇÈÉ ÇáÕÝÑÇÁ æÇÎÊÑ ÎÕÇÆÕ ÇáäãæÐÌ æÝí ÍÏË ÚäÏ ÇáÊäÔíØ ÇÖÛØ Úáì ÇáãÑÈÚ Ðæ ÇáËáÇË äÞÇØ ßãÇ Ýí ÇáÕæÑå



ÇáÇä ÖÚ åÐÇ ÇáßæÏ Ýí ÍÏË ÚäÏ ÇáÊäÔíØ ãÚ ãáÇÍÙÉ ÊÛííÑ ãáÝ ÇáÝáÇÔ Þí ÇÎÑ ÇáÓØÑ ÈãáÝß ÇäÊ ßãÇ ÊáÇÍÙ åäÇ ÇÓã ÇáãáÝ Bee.swf

Private Sub Form_Activate()
    Me.obj_flashmovie.Movie = Application.CurrentProject.Path + "\Bee.swf"  
End Sub

ÇáÎØæÉ ÇáÇÎíÑå : æÇáåÇãÉ ÌÏÇ áÌÚá ÇáÝáÇÔ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ íÚãá ÈÓáÇÓÉ ÈÏæä ÊÞØíÚ ÇÊÈÚ ÇáÊÇáí
1. ÇÚÑÖ ÇáäãæÐÌ ÇáÐí Úáíå ãáÝ ÇáÝáÇÔ Ýí ÚÑÖ ÇáÊÕãíã æÞã ÈÇáäÞÑ Úáì ÇáßÇÆä ÈÇáãÇæÓ ÇáÇíãä ÉÇÎÊÑ ÎÕÇÆÕ ßãÇ Ýí ÇáÕæÑå ÑÞã 1
2. ãä ÇáÎÕÇÆÕ ÇÎÊÑ ÇáÊÈæíÈ Çáßá Ëã ÇÎÊÑ ãÎÕÕ æÓíÙåÑ áß ãÑÈÚ Ðæ ËáÇË äÞØ Þã ÈÇáÖÛØ Úáíå ßãÇ Ýí ÇáÕæÑå ÑÞã 2
3. ÓÊÝÊÍ áß áæÍÉ ÎÕÇÆÕ ÇáßÇÆä ÖÚ ÇÓã ÇáßÇÆä " ãáÝ ÇáÝáÇÔ ÈßÇãá ãÓÇÑå " ßãÇ Ýí ÇáÕæÑå ÑÞã 3 Ëã Þã ÈÇáÊÇÔíÑ ÈÚáÇãÇÊ ÇáÕÍ Úáì ÇáÇÎÊíÇÑÇÊ ÇáãØáæÈå ßãÇ Ýí ÇáÕæÑå ÈÇáÊÑÊíÈ .

ÇáÇä Þã ÈÍÝÙ ãÇÚãáÊå ( Çááå íÍÝÙß ) Ëã ÔÛá ãáÝß æãÈÑæß Úáíß


ËÇáËÇ :
áÊßÈíÑ ÇáÔÇÔå
ÇäÔÆ ÒÑ ÇãÑ æÖÚ áå åÐÇ ÇáÇÓã Maximize Ëã ÖÚ åÐÇ ÇáßæÏ Ýí ÍÏË ÚäÏ ÇáäÞÑ

Private Sub Maximize_Click()
DoCmd.Maximize
End Sub

Private Sub Minimize_Click()
DoCmd.Restore
End Sub