Computer Siences Algeria

الواجهات الرسومية في سي بلس بلس

2014-02-17T14:30:00.002+01:00

أترككم مع تحميل الكتاب الرائع من تقديم زميلي : هشام فلواط

Telecharger / Download / تحميل

و هده بعض الصور من الكتاب

كتيب صغير حول Class Diagram . من تقديم الأخ هشام

2013-04-28T17:50:00.002+01:00

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته اليوم
نقدم بين أيديكم كتيب صغير
يشرح فيه الأخ هشام فلواط صديق مدونة علوم الحاسب
كيفية نمدجة البرامج بإستخدام Diagram of class
قد يحتاجه العديد منكم أثناء دراسته

أترككم مع رابط تحميل الكتاب على الميديا فاير

http://www.mediafire.com/view/?1ilj98buumswcc1

فرجة ممتعة
ووفقكم الله
والسلام عليكم

La classe string en C++ / STL / Fichier

2013-02-28T19:53:00.001+01:00

هاذا الدرس برعاية مدونة علوم الحاسب الجزائر

السلام عليكم و رحمة الله

أهلا بكم زوارنا الكرام اليوم سأضع بين أيديكم

كتيب صغير يشرح فيه الأخ هشام فلواط

أحد الطلبة من جامعة جيجل

مجموعة من المفاهيم في لغة البرمجة

C++

C++الملفات في -
STLالمكتبة -
Stringالتعامل مع كلاس-

و التي ستكون على النحو التالي :

1- Table des matières

La classe string en C++ : ............................................................................................... Page2

Les fichiers en C++ : .......................................................................................................Page 7

Standard Template Library (STL): ..............................................................................Page11

La gestion des exceptions : .............................................................................................Page 12

بدون إطالة أترككم مع تحميل الكتيب

Download The Book from this link - Telecharger le fichier - تحميل الكتيب
http://www.mediafire.com/?qsktsmisokf9opi

سلام عليكم

DRAWING IN DBGRID CANVAS Using delphi

2013-02-06T00:27:00.003+01:00

أول شيء نفتح مشروع جديد

و نضع المكونات التالية :

نحتاج لقاعدة بيانات للتجريب عليها

جدول واحد يكفي

une seule table il suffit

المهم كما يجب وضع مكون imagelist

و dbgrid

كدلك

سنتعامل مع الحدث OnDrawColumnCell

أول شيء سأريكم النتيجة النهائية للدرس

و هي رسم أيقونات داخل DBGRID تعبر عن قيم

يمكن التعبير عنها بهذه أليقونات

الصورة من أحد برامجي

بعد أن تضعو جميع المكونات نبدأ أول شيء ننشأ حقل field في الجدول الدي سنرسم فيه

و هو حقل من نوع Calc يعني يحسب Calcfield

نتوجه إلى مكون adotable أو أي مكون آخر ربطناه مع الجدول لا يهم نوعه

ندهب للجدول الخاص بنا و نختار

fields editor

نقوم بضغط أيمن للفأرة و نختار New field

بعد دلك نقوم بمللأ الخانات كما يلي :

كما تلاحظون أخترت field type من نوع Calculated

و type إخترت string

و أعطيت الحقل إسم Status

نكمل على بركة الله نتجه الآن لل IMAGELIST

نقوم بوضع بعض الأيقونات الجميلة و المعبرة

كما في الصورة

بعد ذلك نتجه للل DBGRID الخاص بنا لنقوم بالرسم كما و دلك من خلال الحدث

OnDRAW COLUMNCELL

قد سبق لي و شرح هذا الحدث في آخر درس لي في المنتدى الشهر السابق

هو حدث متخصص عادة في الرسم و التحقق في كل خانة من خانات ال DBGRID

له عدة إستعمالات دكرت واحدة في الدرس السابق

و اليوم سنستعمل الحدث في الرسم

على بركة الله نقوم بكتابة مجموعة من العمليات داخل الحدث للرسم

و ذلك كما يلي و قد شرحت الكود بالفرنسية

Snagitههههه راني فنيان عجزت إستعمال

الدرس كتبته على 23:29 راني راقد و نكتب فيه ههههه

المهم أترككم مع الكود

بعض الملاحظات المهمة : يجب عليك دائما تحديد مكان الرسم و ذلك كما ترون وضعت إحداثيات رسم معتمدا على شكل خانات DBGRID

لا تنسو كدلك شرط التواجد داخل الخانة التي نرسم فيها Column.fieldname

هذا و أكون قد إنتهيت من تقديم هذا الدرس البسيط جدا

يارب تكونوا أستفدتوا من الموضوع

كل اللى طالبه دعوة ليا من ظهر الغيب و أن ربنا يوفقنى فى دراستى

أستودعكمـ الله

السلام عليكم و رحمة الله و بركاته

VIsual Basic your first App( Hello World Application ) ( Win Form )

2013-02-05T16:17:00.001+01:00

الحمد لله على إحسانه

والشكر له على توفيقه وامتنانه

وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه

وأشهد أن محمدا عبده ورسوله الداعي إلى رضوانه

صلى الله عليه وعلى صحبه وإخوانه

وبعد :

السلام عليكم ورحمة الله وبركاته

أهلا بكم أحبتي في الله

طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله

أهلا وسهلا بكم .

بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله تعالى و بركاته
مرحبا بكم في هذا الدرس
الذي سننتقل من خلاله الى البرمجة الأنيقة
اي الانتقال الى الويندوز فورم
بدل الكونصول
فلنبدأ بإذن الله

نفتح البرنامج

ثم نختار

فنحصل على النافذة التالية

كما تلاحظون هناك العديد من الاختيارات
لكن ما يهمنا نحن هو
Windows Form Application
اذن ننقر عليها
و اذا اردتم تغيير الاسم
فستلاحظون المكان المخصص لذلك
وهو

بعد ذلك
سنحصل على الشكل التالي

طبعا هي صورة عامة للتطبيق ككل
نبدأ بتفصيلها

طبعا هذي قائمة الاوامر
تجدها في اي برنامج كبير و ما يهم فيها هو
build
و يقوم ببناء الملف التنفيذي للمشروع
و من الضروري عمله كلما اضفت تغييرا لبرنامجك و اردت ان يحفظ ذلك التغيير
في الملف التنفيذي
و لكن هذا لايعني بأن باقي الاوامر في القائمة اقل اهمية
لن نتطرق اليها فقط لانها ليست موضوعنا

كما تلاحظون معي
هذه مجموعة من الادوات التي تساعد على تسيير البرنامج
و اهمها زر التشغيل
Run
الذي يمكن من تجريب البرنامج
للتأكد من خلوه من الاخطاء
أما الادوات الاخرى ستكتشفونها فيما بعد

اما هذا فيسمى
Tabs Group
و هو يضم كل ما قمت بفتحه في البرنامج
و يسهل عليك التنقل بين النوافذ المفتوحة

Solution Explorer
و هنا يمكنك تصفح مكونات مشروعك

Properties Windows
حيث يمكنك تغيير خصائص العناصر التي تستعملها في برنامجك
و سنتعلم فيما بعد الطريقة

ToolBox
وهو صندوق الادوات التي ستستعملها في برنامجك
و سنتطرق اليها بالتفصيل بعد قليل

Form
و الذي هو موضوعنا لليوم
هذه النافذة هي اول شيئ يبدأ به كل مبرمج
اذا ما اراد عمل برنامج بالواجهة
و سنتعلم كيفية التعامل معها
لكن قبل ذلك
سنشرح بعض الادوات الشائعة و المهمة لكل برنامج
تابعو معي

الاداة	شرحها
Pointer	مؤشر الفأرة
button	زر امر
checkbox	زر الاختيار المتعدد
label	اداة لعرض النصوص
listbox	القائمة المنسدلة
picturbox	اداة عرض الصور
radiobutton	اداة الاختيارالوحيد
richtextbox	اداة نص يمكن ان تحتوي تنسيقات مختلفة
textbox	اداة نص تختلف عن السابقة مثل اختلاف Notepad عن Wordpad
Groupbox	اداة حاوية اي يمكنها احتواء عناصر داخلها

و طريقة اضافتها للفورم هي كالتالي
قم بالنقر على الاداة مرتين
او اسحبها الى داخل الفورم
و هذا الشكل يوضح لنا كيف تظهر هذه الادوات في الفورم

الان
سنمر للجزء الاهم
و هو انجاز تطبيق بالوندوز فورم
لن ننجز تطبيق
Hello World
بل سنعقد الامور قليلا
و سنستخدم العبارة الشرطية التي درسناها سابقا تابعو معي

ننقر على الفورم
و نذهب الى نافذة الخصائص
نبحث عن الخاصية
Text
و نغيرها الى اي اسم نريد
مثلا

و لاحظو التغيير الطارئ
ان لم تستطيعو ملاحظة التغيير
فضعو نظارة و حاولو مجددا
^^
بعد ذلك
نختار الادوات التالية
اثنان TextBox

اثنان Button

اثنان label

ونغير اسمائها باتباع نفس الطريقة السابقة
لتصبح هكذا

ثم نغير كذالك المحاذاة لكلا النصين
و نجعلها في الوسط
و ذلك باختيار
TextAlign
من نافذة الخصائص
و تغييرها الى
Center
هكذا

ثم ننقر على التكست بوكس الثاني
و نغير الخاصية التاليه هكذا

و هذا لأن هذا التكست بوكس سيحتوي على كلمة مرور
طبعا هذا شيئ اختياري
فقط لتعرفو اكثر عن الخصائص
بعد ذلك
نفتح فورم ثانية
و ذلك بالنقر على الزر التالي

ثم

و نختار

طيب
الان اضفنا فورم ثانية
نعود للفورم الاول و ننقر على الزر
Go
مرتين لنتوجه الى صفحة الاكواد
و سنكتب الكود الخاص بهذا الزر في المكان المحدد في الصورة

الكود هو

الكود بسيط
و لكن مع ذلك سأشرحه
طبعا قمنا بتحديد شرط للبرنامج
الشرط هو ان التكست بوكس الاول يجب ان يساوي
VB Gang
و الثاني
Startimes
اذا تحقق هذا الشرط
سيظهر لنا الفورم الثاني
و ذلك حسب هذا الامر
Form2.show()
و سيختفي الفورم الاول
Me.Hide()
و لكن اذا لم يتحقق الشرط
ستظر رسالة
MsgBox
مفادها
Try Again
اظن ان الفكرة واضحة
نقوم بوضع الكود للزر الثاني و ذلك باتباع نفس الطريقة
و الكود جد جد جد بسيط
و هو
End
كما توضح الصورة

الان انتهينا من التطبيق
يمكنك تجريبه
بالضغط على الزر الذي اشرنا اليه سابقا
و هو زر التشغيل
Run
او يمكنك مباشرة الضغط على المفتاح
F5
من الكيبورد اذا كنت من الكسلاء مثلي
الان نحفظ المشروع ككل
بالضغط على الايقونة التالية

ثم نغير اسمه و نختار مكان الحفظ

ثم نتوجه الى المسار الذي حفظناه فيه

و مبروك عليك البرنامج

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

من هنا

نلقاكم في درس آخر ان شاء الل

How to get System Directory Name using delphi

2013-02-04T15:33:00.001+01:00

How to get System Directory using delphi !!

Hello every one , in this topic I'll represent to you the Function responsible for getting System directory Full Name !!

First :

You have to use those library in delphi :

In delphi 7 version : use those ( Windows, SysUtils, Classes, IOUtils )

In delphi Xe2 and higher : use those space-names ( Winapi.Windows, System.SysUtils, System.Classes, IOUtils )

Go to the uses section code and type :

uses
Windows, SysUtils, Classes, IOUtils;

Second :

And then go to the Implementation section and type this function :

function GetSystemDir: AnsiString;
var
buf: array [0 .. MAX_PATH] of Char;
begin
GetSystemDirectory(buf, SizeOf(buf));
result := AnsiString(buf);
end;

How Can I use this ?

with a simple call ..... GetSystemDir()
the function retrun the full name of system directory
in a format of AnsiString
you can convert to string and any other format !! it not a problem .
Thank you.

How to check internet connection using delphi

2013-02-04T14:35:00.001+01:00

How to check internet connection using delphi!!

Hello every one , in this topic I'll represente to you the Function responsible for making sure your internet connection.

First :

You have to use those library in delphi : ( WIndows , WinInet )

Go to the uses section code and type :

uses
Windows,WinInet;

Second :

And then go to the Implementation section and type this function :

function checkInternet(): boolean;
var
dwFlags : DWORD;
begin

dwFlags :=INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY ;
RESULT := InternetGetConnectedState(@dwFlags,0);
end;

How Can I use this ?

with a simple call ..... checkInternet()
the function retrun 1 if connection
else return 0 if disconnection
Thank you.

كتب رياضيات سنة أولى جامعي

2012-12-19T21:18:00.000+01:00

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

للسنوات الولى جامعي و حتى السنوات الأخرى

ملخصات شوم في المصفوفات

http://www.mediafire.com/view/?a7plsaai7rnr4z9

الجبر البوليAlgebre de bool

http://www.mediafire.com/view/?shgb8gm5uukhq4f

أساسيات الإحتمالات

http://www.mediafire.com/view/?1my589s86s7k004

نظرية الزمر

http://www.mediafire.com/view/?csp7xp4vedurj4q

Play Snake Game using any object in your hand

2012-12-11T00:05:00.001+01:00

Snake-it
a new game you can play it only with web cam
using any object in your hand

you just select it and play the game ......

watch this video for more description

or you can download from this link

http://www.mediafire.com/?01y5ya981b5c2gf

thank you !

URL shortener Program - Programme raccourcisseur d'URL

2012-12-05T21:09:00.002+01:00

Hello Every One this a little program for URL shortener

Description :

Shrink software give you a short link
for your long url

for example you have a link like that :

http://prog-dz.blogspot.com/2012/04/vbnet-registry.htmland you want a shurt link for it

soo use this Shrink Program :

you can download this

VERSION 32 Bits

VERSION 64 Bits

And dont forget to follow us on Facebook

https://www.facebook.com/ALGERIA.CS

Embarcadero RAD Studio XE2 Update 4

2012-11-16T14:34:00.002+01:00

Embarcadero RAD Studio XE2 هو عبارة عن حزمة كاملة المزايا للتطوير السريع للالمرئية عبر منصة التطبيقات، البيانات المكثفة، ويندوز، وماك OS X،. NET، PHP، الحلول المستندة إلى ويب والأجهزة النقالة.

Creating high-performance platform applications for Windows, Mac, Web-based solutions, and mobile devices

يمكنك إنشاء تطبيق دلفي و من ثم توزيعه على مختلف الأنظمة الماك و الويندوز و اللينكس و حتى يمكنك توزيعها على مختلف الأجهزة الدكية

أيفون أوأندرويد حتى و ذلك بلغة برمجة واحدة سي ++ أو دلفي أو حتى بي أتش بي

Accelerating the process of creating applications using agile development environment

يسمح على الفور تقريبا إنشاء النموذج الأولي البصرية. يمكنك الحصول على الوقت الحقيقي ملاحظات العملاء على النموذج واجهة المستخدم الرسومية الفعلية، قبل ان يتوجه الى مراحل أخرى من التنمية. في RAD XE2 استوديو كما يتضمن الآلاف من المدمج في المكونات القابلة للتوسيع، قابلة لإعادة الاستخدام، وتسريع عملية التنمية.

Create interactive applications with an attractive interface

يمكنك كدلك إنشاء برامج دات جدوة عالية بتقنية ال HD

Creating applications with unlimited connectivity

يمكن إذا كنت تستخدم تطبيقات RAD ستوديو الاتصال بقواعد بيانات شعبية، وذلك باستخدام وظائف عالية السرعة. يمكنك إنشاء تطبيقات متعددة المستويات مع خوادم ويندوز والعملاء الدعم في sistemah.Mozhno التشغيل أكثر من اتصال أيضا لمجموعة واسعة من البيانات والخدمات.

Download :

ISO-image (2.53 GB)

Part1

Part 2

Part 3

Part 4

part 5

Part 6

Part 7

Part 8

Part 9

Part 10

Part 11

Part 12

Part 13

Part 14

دروس السنة الأولى رياضيات و إعلام آلي في مادة الجبر (PDF)

2012-08-15T10:45:00.002+01:00

بسم الله الرحمن الرحيم

أما بعد أهلا و سهلا بكم في مدونة علوم الحاسب

سأضع بين يديكم مجموعة من الدروس في مادة الجبر 1 باللغة العربية غاية في الوضوح و بصيغة PDF

الجزء الأول : البنى الجبرية algebric structures

أولا مع الفصل الأول : جبر المنطق و المجموعات

الفصل الثاني : الأعداد الطبيعية مهم جدا

الفصل الثالث : الزمر Group

الجزء الثاني في غاية الأهمية يعتبر هذا الجبر من مفاتيح المواصلة في شعبة الإعلام الآلي خاصة

الفصل السادس : جبر المصفوفات Matrix Algebra

الفصل السابع : المحددات و تطبيقاتها determinants and their applications

أو

ملاحظة : الموقع يسمح بتحميل ملف كل ساعة !

لمزيد من الدروس يمكنكم البحث في المدونة

كما يمكنكم وضع إقتراحاتكم للدروس التي تحتاجونها أنتم بالخصوص

أو مراسلتي على البريد dzmacdz @gmail .com

http://adf.ly/FcdOT

المصفوفات فيARRAY IN VB.NET

2012-04-03T20:06:00.000+01:00

الحمد لله على إحسانه

والشكر له على توفيقه وامتنانه

وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه

وأشهد أن محمدا عبده ورسوله الداعي إلى رضوانه

صلى الله عليه وعلى صحبه وإخوانه

وبعد :

السلام عليكم ورحمة الله وبركاته

أهلا بكم أحبتي في الله

طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله

أهلا وسهلا بكم

أھلا بكم إخوتي الكرام في رابع درس من دروس ھذه الدورة البسیطة

و درس الیوم سیكون حول

المصفوفات

فبدون إطالة ننطلق إلى بداية الدرس

اليوم سنتحدث عن المصفوفات أو الجداول وكيفية استخدامھا وتعریفھا...

Index تمكنك الجداول من تجمیع متغیرات من نفس النوع و ذلك باستعمال نفس الإسم و باستعمال رقم ، یطلق علیھ

اذا يمكننا أن نقول أن المصوفة أي عبارة عن سلسلة من المتغيرات من نفس النوع و لكل متغیر رقم يميزه داخل ، Indice أو

ھتھ السلسة ... واضح ؟

الآن مثال :

قمنا بالإعلان عن مصفوفة تتألف من 5 عناصر ... 5 ؟ كیف 5؟؟؟ نعم أقول لك 5 لأن الترقیم یبدأ من 0

رسم یوضح ما قلتھ :

ھنا للولوج لأي عنصر من المصفوفة یكفي معرفة رقمھ .

مثلا أنا أعطینا للعنصر الثالث القيمة 12 و هكذا أیضا إذا اردنا أن نعرف قيمة عنصر من عناصر المصفوفة نستعمل نفس الطريقة

، مثال :

أعطينا لمتغير قيمة العنصر الخامس و الأخير .

ھناك طریقة للإعلان عن المصفوفة و إعطاء متغیراتھا قیم بدئیة .

مثال :

قمنا بلإعلان عن المصفوفة دون تحدید طولها = عدد عناصرها ، لكننا أعطينا قيم بدئية للمصفوفة و بالتالي سيكون عدد

. عناصر المصفوفة ھو 3

الآن سوف نتطرق للمصفوفات متعددة الأبعاد ، فكل المصفوفات السابقة كانت أحادیة البعد

طریقة الإعلان :

تقرینا نفس الطریقة السابقة ، ھنا لدینا مصفوفة ثنائیة البعد أو ذات بعدین یعني عدد عناصرھا ھو 3*3 = 9

لماذا؟ لأن الترقيم يبدأ من 0 كما قلنا سابقا

رسم يوضح أكثر:

أعتقد أن الصورة أصبحت واضحة الآن ..

ھذا مثال لكیفیة ادخال قیم لمصفوفة ثنائية البعد :

و بنفس الطريقة يمكننا إستخراج قيم هته العناصر :

يمكننا أيضا عمل مصفوفة يحتوي كل عنصر منها على مصفوفة ، يعني مصفوفة من المصفوفات

و یتم الإعلان عنها كالتالي :

أو يمكنك الإعلان عن مصفوفة من المصفوفات دون أن تحدد عدد عناصرها أو أن تعطي قيم لهم .

Redim و إذا أنت فعلت ذلك فیجب علیك قبل أن تشرع في استخدام مصفوفتك بتحدید عدد عناصرھا بواسطة

وتستعمل redim

لتغیر عدد عناصر مصفوفة، لكن لا یمكنھا تغییر عدد الأبعاد أو نوع البیانات ، أیضا إذا أضفنا Preserve بعد Redim

فإننا سنحافظ على القیم السابقة الموجودة في المصفوفة.

مثال :

ھنا قمنا باعادة تحدید عدد عناصر المصفوفة ،نوقف البرنامج مباشرة بعد ذلك فنجد أن العناصر تفقد قيمها ، أي أنها تضيع ...

: Preserve الآن سنستعمل

لا یضیع شيء ، أي أننا حافظنا على القیم السابقة .أظن أن العملية مفهومة و بسيطة لحد الآن

IndexOf /Clear/CopyTo: و ختاما لدرسنا حول المصفوفات ، یمكنك التعرف على خصائص المصفوفات مثل

التي تعطیك العدید من الخصائص التي ستجعل تعاملك مع المصفوفات أمرا في غایة البساطة و الیسر . Array وأیضا الكلاس

متمنیا أن یكون الدرس بسيط و سهل أترككم في أمان الله حفظه ....

و السلام علیكم

التعامل مع الرجستري في VB.NET REGISTRY

2012-04-03T19:58:00.003+01:00

الحمد لله على إحسانه

والشكر له على توفيقه وامتنانه

وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه

وأشهد أن محمدا عبده ورسوله الداعي إلى رضوانه

صلى الله عليه وعلى صحبه وإخوانه

وبعد :

السلام عليكم ورحمة الله وبركاته

أهلا بكم أحبتي في الله

طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله

أهلا وسهلا بكم

------------------------------------------------------

أھلا بكم إخوتي الكرام

درس الیوم سیكون حول:

التعامل مع الرجستري:

فبدون إطالة ننطلق إلى بداية الدرس

أولا أظن أن جلكم يعرف ما هو الرجستري

ببساطة هو أهم شيء في نظام تشغيل الويندوز

و من لا يعرفه أنصحه بالبحث عنه قبل البداية في هذا الدرس

و هناك مكتبة تتيح لنا هذه الأوامر و تساعدنا على التعامل مع الرجستري هي

Microsoft.Win32

نحن سنختار String

أو یمكننا عدم كتابة الفاصلة الثانیة تماما

یعني ھكذا

الآن نشغل التطبیق نضغط على الزر

و نتوجھ إلى الرجستري لنجد الآتي :

رائع

لقد تم إنشاء المفتاح و القیمة بنجاح

جمیل تعلمنا طریقة إسناد قیمة لمفتاح و إنشاء مفتاح

الآن سنتعلم طریقة إحضار قیمة مفتاح ما و نوع القیمة

عن طریق GetValue و GetValueKind

لنطبق على المفتاح الذي صنعناه من قبل

بالطبع نسترد المكتبة Microsoft.Win 32

و نعرف المفتاح Key بنفس التعریف لأننا سنعمل على نفس المفتاح

ثم نضع زر و نضف لھ ھذا الكود الذي سنشرحھ بالتفصیل

و النتیجة ستكون بعد التجریب كالتالي ^^

رائع

الآن سنتعلم استخدام الخاصیة Delete Value

و هي واضحة من اسمها لحذف قيمة مفتاح و استعمالها سيكون سهل جدا

بعد التعريف و استيراد المكتبة سنقوم بحذف المفتاح Member

بعد إضافة زر نضع هذا الكود

Key.DeleteValue ("Member

كما تلاحظون اتبعنا اسم القيمة فقط

و عن التجريب و الضغط

نلاحظ النتيجة التالية

جميل مرة أخرى

الآن لنتعلم طریقة استعمال DeleteSubKey

حيث سنقوم بحذف المفتاح الفرعي

الذي أنشأناه من قبل

في ھذه المرة سنغیر في تعریف Key

لأننا سنقوم بعملیة داخل SoftWare و لیس داخل

إذا بعد استیراد المكتبة

نضع ھذا التعریف

+ ھذا الكود لحذف المفتاح في الحدث Click للزر

ننفذ البرنامج + نضغط على الزر

ثم نتوجھ للرجستري لنرى أن المفتاح قد اختفى

الحمد لله

أتینا الآن لختام ھذا الدرس

نرجو أنھ كان درس خفیف و مفھوم

و الأھم مفید

و إذا كان ھناك أي استفسار فراسلونا

الآن أترككم مع التطبيق الخاص بهدا الدرس :

اعتمادا على ما تعلمتھ في ھذا الدرس

اصنع تطبیق بسیط فیھ

Check Box

Button

Label

Textbox

یكون الفورم بشكل بسیط كالتالي:

حیث سنقوم بوضع مسار برنامج ما في التكست بوكس

و نختار ما إذا كنا نرید أن نضیفھ إلى البرامج التي تشتغل مع الوندوز أم لا عبر التشك بوكس

كما یمكنكم إضافة زر آخر لاختیار البرنامج عبر OpenFileDialog

حیث أن اسم القیمة في الرجستري سیكون اسم البرنامج + امتداده

و قیمتھ ستكون المسار + اسم البرنامج و امتداده

حیث أن مسار البرامج التي تشتغل في الــDémarrage في الرجستري ھو

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

بالتوفیق و في انتظار تطبیقاتكم ( :

السلام علیكم

How to use BalloonHint in delphi (درس فيديو )

2012-03-23T22:26:00.000+01:00

السلام عليكم ورحمة الله تعالى وبركاته

مرحبا بكم إخواني زوار مدونة علوم الحاسب

حول الدرس

الدرس الثاني من دروس الدلفي DELPHI

شرح التعامل مع مكون BalloonHint

مشاهدة الدرس
من على اليوتوب في مدونتنا

التعامل مع الحدث ( DBGrid1DrawColumnCell) في الدلفي ( درس فيديو)

2012-03-21T17:13:00.001+01:00

و الصلاة و السلام على اشرف المرسلين

أما بعد

اليوم سأقدم درس أشرح فيه كيفية التعامل مع الحدث DrawColumnCell الخاص بال DBGRID

في الدلفي

الشرح سهل و بسيط يمكنك إستعمال الطريقة لعدة اشياء مثلا للتحقق من قيمة أدخلت لل DBGRID

أترككم مع الفيديو

فرجة ممتعة

Programme de la Gestion des bibliothèques برنامج تسيير المكتبات

2012-03-16T14:19:00.009+01:00

بسم الله الرحمن الرحيم

السلام عليكم شباب

أقدم لكم اليوم

برنامج تسيــر مكتبة مسجد

شرح البرنامج

مهام البرنامج الرئيسية :

البرنامج مخصص لأمور الإعارة و المطالعة الخاصة بالكتب

مهمته الأساسية إعارة الكتب و القراص (CD/DVD)و كدلك أقراص

الأدوات المستعملة في البرنامج

absolute db 6.09

DYNAMIQUES SKIN 12
RIBBON

DELPHI XE

واجهة البرنامج الرئيسية

تلاحظون مربع على الجانب الأيمن للنافدة هو مربع تبليغ يشبه في عمله تبليغ MSN لما يدخل مستخدم جديد

حيث كل 20 دقيقة يتم إستعراضه إدا كان فيه تأخرات جديدة

يمكن إظافة صنف للكتب بالضفط على علامة +

توجد بعض الكلمات المضحة فقط للتجريب

نأتي لإظافة كتاب جديد

الصورة مقطوعة على نصفين لكي تكفي الموضوع الصورة واضحة و تدل على المعلومات التي يجب توفرها

يجب إختيار المكتبة التي ينتمي إليها الكتاب مثلا مكتبة الفقه و الشريعة أو مكتبة التفسير إلى آخره....

نأتي الآن لواجهة إظافة المنخرطين

( )

نأتي الآن لقوائم المنخرطين و تعديل صلاحياتهم و بعض الإحصائيات عن كل منخرط

نأتي للجزء المهم و الأهم

إعارة الكتب

كما تلاحظون في الصورة يمكن البحث عن اي كتاب يريد المنخرط إستعارته

سواء برقم الكتاب أو بعنوان الكتاب

يتم إختيار الكتاب و أتوماتيكيا تظهر بعض المعلومات عن الكتاب حالة الكتاب هل هو معار أو يتم مطالعته
و تظهر الساعة التي أخد فيها و الساعة التي يرجع فيها إذا كان أخد للمطالعة

و يظهر اليوم الدي أخد فيه الكتاب و اليوم الذي سيرجع فيه إذا كان للإعارة الخارجية

بعد ذلك يتم إختيار المنخرط الذي يريد الإستعارة و يقوم البرنامج بالتحقق من شروط فيه

كعدد الكتب المتاحة له إستعارتها

و هل هو معاقب إدا تحققت فيه الشروط و كان الكتاب متاح يتم تفعيل خانة إدخال التاريخ

الخاص بتاريخ الإعارة و يتم ملأه أوتوماتيكيا باليوم الحالي و يتم تفعيل خانة إدخال تاريخ الإرجاع

و تفعيل زر الإعارة

و كما تلاحظون يتم إستعراض الكتب التي يطالع فيها أو إستعارها المنخرط و لم يرجعها بعد

كما يمكن مطالعة كتاب داخل المكتبة

إدارة الأقراص حيث يمكن الإظافة و الإعارة بنفس الطريقة المتبعة للكتب

نأتي لإسترجاع الكتب و الأقراص

يتم إختيار الكتب و ألقراص التي يريد المنخرط إرجاعها من زر Check في DBGRID ( إسترجاع )

تم يضغط على زر إسترجاع

بقي لنا قائمة المتأخرين و الكتب و الأقراص التي تأخرو فيها

يمكنك أيضا طباعة تقرير نهائي لكل شهر يتضمن أهم المعلومات في المكتبة

وهذا هو شكل التقرير

نأتي الآن للحقوق

وشكرا على حسن المتابعة

أترككم مع السورس كود Code source

أرجو منكم الدعاء لي بالشفاء بظهر الغيب

و السلام عليكم

ملاحظة :يمكنك الإتصال لطلب البرنامج لأغراض تجارية

Gestion Settings WITH VISUAL BASIC إدارة الإعدادات بالفيجوال بيسك VB.NET

2012-03-16T12:32:00.007+01:00

بسم الله الرحمن الرحيم

الحمد لله على ما أعطانا و نشكره على نعمه التي لا تعد و لاتحصى

وندعوه تقبل طاعاتنا و أعمالنا و يرضى عنا بالدنيا و الآخرة

ربنا صلِ على سيدنا محمد - صلى الله عليه وسلم - و على آل سيدنا محمد

و على أصحاب سيدنا محمد و على كل من سار على نهج الإسلام و اهتدى بهدي

الإسلام ، وأدعوك يا الله أن تفرج عن اخواننا في فلسطين

و العراق و السودان و الصومال و عن كل بلاد المسلمين، و اهد كل من ضل عن

سواء السبيل.

اللهم آمين

مرحبا بكم

اليوم سنتطرق للGestion Settings

عادة نقوم بتخزين بعض المعلومات الخاصة ببرامجنا في

ملفات XML أو في الريجيستري

Registry

مثلا معلومات عن مسارات ملفات هامة للبرنامج الخاص بنا

أو حتى كلمات السر أو معلومات خاصة بخصائص برنامجنا

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

و ترتيبه

لدلك في درسنا هادا اليوم سنتطرق لبنية هي Setting

موجود في الفيجوال ستوديو لتخزين معلومات من كلمات سر أو مسارات

إلى آخره....

سهلة التعامل و واضحة للغاية

و الدرس يمكنك تطبيقه في كل لغات الدوت نت

تطبيق الدرس سيكون في VB.NET هادا اليوم

بسم الله نبدأ نفتح المحرر أكواد VISUAL STUDIO 2010

إدا لم يكن ممكن تستعمل 2005 ليس بالمشكل

مشروع جديد

لكي يسهل عليكم فهم Gestion Setting

ساقوم بعمل مثالين متنوعين للتعامل مع هادا النوع من البنيات

الأول إستعماله كأداة لحفظ و تعديل كلمات السر لبرنامجك مثلا

نبدأ مع هده

بعد فتح المشروع نضيف فورم جديد

Form2

كما في الصورة

نتوجه مباشرة الآن لل Settings

نصل إليها كما يلي

بعدها نحصل على الواجهة التالية

الآن مع مثالنا نملأ خانتين كما يلي

ندهب الآن للفورم نعمله كما في الصورة

ما عليكم سوى التجريب فقط و نفس الشيء مع C#

نأتي لطريقة التعديل على Settings

عن طريق الكود

في نفس المشروع نقوم بما يلي :

في الفورم الثاني Form2

نجرب نشغل البرنامج

شغال 100/100

غير كلمة السر كما تشاء و أبدع بأفكارك في برامجك

الكود بالسي شارب C#

لعل أحدكم تسائل أين تخزن كل هده المعلومات

كلمة السر و إسم المستخدم

أقول لك عند تشغيل البرنامج بتاعنا يقوم بتكوين ملف XML

مؤقت Temporaire

يحفظ فيه المعلومات أين سنجده

يختلف دلك بين WIn7 و XP

في الويندوز 7 نجده في المسار التالي :

C:\Users\Oussama\AppData\Local\GestionSetting\

حيث GestionSetting الإسم الدي أعطيناه لمشروعنا

أما ال XP

/C:/Documents and Settings/administrator/Local Settings/Application Data

و محتوى الملف كما يلي :

الآن بعد ما قمنا بهادا المثال نقوم بمثال آخر لتتضح الرئية جيدا :

نقوم بعمل تطبيق بسيط تغيير لون خلفية الفورم Formتبقى محفوظة مع كل مرة تشغل فيها البرنامح

بإستعمال هده الطريقة

نقوم الآن بعد دلك ببرمجة كود تغير اللون في الزر

كل شيء تمام نجرب تشغيل البرنامج و هو شغال عادي

http://i.imgur.com/ILnpw.png

و يمكنكم تجريب أي شيء آخر يدور في دهنتكم

بهده الطريقة

الآن نكون قد أنهينا درسنا و هو جد بسيط

أتمنى يكون اعجبكم

في إنتظار إقتراحاتكم لدروس أخرى

أو إن كان هناك أخطاء أعلموني بها

و شكرا على المتابعة

مع تحيات أخوكم في الله

أسامة Dz-oussama (Oussaki)

أي إستفسار أنا هنا

نمدجة القوائم Les listes اليوم ستفهم فلسفتها بالـ VB.NET

2012-03-16T12:18:00.004+01:00

بسم الله الرحمن الرحيم

و الصلاة و السلام على أزكى الخلق و اشرف المرسلين سيدنا محمد

و على آله و صحبه أجمعين

اليوم بإدن الله سنتطرق لفهم القوائم أو بالأحرى فلسفة القوائم les listes

و دلك بإستعمال نمدجة لها بأكواد VB.NET

ليسهل للمتابعين فهمها

أول شيء ما هي القوائم؟

القوائم هي بنيات ديناميكية تسمح بالتعامل الدينياميكي مع الداكرة و الزيادة و الحدف منها

حسب الحاجة

في درسنا اليوم سنتطرق لشيء مهم هو فهم فلسفتها

ثم في دروس أخرى بإدن الله سأتطرق لشيء أهم هي إستعمالتها في لغة البرمجة c++

:

الكل رايح يخرج فاهم

بعد ما عرفنا القوائم نأتي إلى النمدجة و فهم مما تتركب القائمة

و سنستعمل كلغة برمجة هده المرة لغة VB.NET

تتكون القائمة من :

القائمة تتكون من عناصر ------>

كل عنصر يتكون من قسمين ------->

+ قسم يحمل قيمة من أي نوع .

+ و قسم يحمل عنوان القيمة الموالية للقائمة .

مثال :

هادا هو تمثيل للقائمة و كما تلاحظون أن آخر القائمة لا يحمل عنوان أي لا يدل على قيمة معينة .

الآن ما سنقوم به هو نمدجة هده القائمة بفكرة سهلة الفهم و هي التنقل بين ولايات الجزائر

نفترض أن القيم Contenu هي أسم الولاية مثلا ولاية جيجل التي أسكن بها

و الSuivant أو ما يسميه البعض Adress أي عنوان الولاية التالية بعد جيجل مثلا بجاية

نفترض أننا نريد السفر من جيجل إلى العاصمة ( الجزائر العاصمة )

لدينا الخارطة للفهم اكثر

نريد الإنتقال من الولاية 18 إلى الولاية 16

من جيجل إلى الجزائر العاصمة

نفترض القائمة تكون على النحو التالي قمت بتغير أرقام الولايات

بليدة	مسيلة	تبسة	سطيف	عنابة	الجزائر العاصمة	قسنطينة	أدرار	جيجل	إسم الولاية
8	-1	6	5	3	9	4	9	7	عنوان الولاية

أنا أفترضتها هكدا يعني كل ولاية لها عنوان و لكل ولاية تلي هده الولاية لها رقم ترتيبها مثلا جيجل رقم ترتيبها هو 1

و أدرار رقم ترتيبها هو 2 و هكدا من اليسار لليمين

الآن نأتي إلى ربط علاقة بين هادا الجدول و درسنا

نفترض الولاية هي القيمة للمتغير

و عنوان الولاية هو عنوان الولاية التي تلي الولاية الحالية

نفرض أنني أريد الدهاب من جيجل إلى العاصمة

جيجل لديها العنوان 7 و ترتيب الولاية رقم 7 هي ولاية تبسة و التي تحمل عنوان 6 الدي يأدي بنا إلى

عنابة صاحبة الترتيب 6 و التي تحمل عنوان 3 الدي يأدي بنا إلى قسنطينة

التي تحمل العنوان 4 الدي يأدي بنا لولاية إلى الجزائر العاصمة

فنتوقف لأننا وصلنا للعاصمة أو تريدون المزيد

إدا بعدما وصلنا نأتي الآن للبرمجة و الأكواد الخاصة بنمدجتنا هده

بحيث من خلالها سيكون من السهل عليكم فهم القوائم les List

بكل سهولة

نأتي للأكواد و هي مكتوبة و مشروحة سطر بسطر

و للأسف أصحاب الحساسية المفرطة لا يمكنهم النظر للكود ( يعرفون أنفسهم جيدا )

الكود مكتوب باللغة العملاقة VB.NET

أترككم تتمتعون بالنظر للكود

و النتيجة بتطبيق المثال السابق :

لمحبي الأكواد الجاهزة و للتجريب على المثال الدي أعطيته لكم

هاهو الكود

كود نمدجة القوائم
Module Module1 Structure willaya ' المتغير امختلط الدي أنشئناه هنا Dim Nom_Willaya As String ' متغير يحمل إسم الولاية Dim Numero_Willaya As Integer ' متغير يحمل رقم الولاية End Structure Sub Main() ' الدالة الرئيسية للبرنامج Dim willa(9) As willaya ' قمنا بتعيرف مصفوفة أحادية البعد من نوع المتغير المختلط الدي أنشئناه Console.WriteLine("-- Input Of Structure --") For i = 1 To 9 ' حلقة نستعملها لقرائة قيم كل من إسم و رقم الولاية Console.WriteLine("entrez le nom de la willaya :") willa(i).Nom_Willaya = Console.ReadLine ' قراءة إسم الولاية الخاصة بالعنصر i من المصفوفة Console.WriteLine("Entrez le Numero de la willaya : ") willa(i).Numero_Willaya = Console.ReadLine ' نفس الشيء قراءة رقم الولاية الخاص بالعنصر من المصفوفة Next Console.ReadKey() Dim j As Integer = 1 While (willa(j).Numero_Willaya <> 8) ' حلقة فيها شرط التوقف و هو عندما تصبح رقم الولاية يساوي 8 Console.Write(" --> " & willa(j).Nom_Willaya) ' عرض إسم الولاية إعتمادا على رقم الولاية السابقة j = willa(j).Numero_Willaya ' إسناد قيمة رقم الولاية إلى ترتيب الولاية End While Console.ReadKey() End Sub End Module

كود نمدجة القوائم

Module Module1
Structure willaya ' المتغير امختلط الدي أنشئناه هنا
Dim Nom_Willaya As String ' متغير يحمل إسم الولاية
Dim Numero_Willaya As Integer ' متغير يحمل رقم الولاية
End Structure
Sub Main() ' الدالة الرئيسية للبرنامج
Dim willa(9) As willaya ' قمنا بتعيرف مصفوفة أحادية البعد من نوع المتغير المختلط الدي أنشئناه
Console.WriteLine("-- Input Of Structure --")
For i = 1 To 9 ' حلقة نستعملها لقرائة قيم كل من إسم و رقم الولاية
Console.WriteLine("entrez le nom de la willaya :")
willa(i).Nom_Willaya = Console.ReadLine ' قراءة إسم الولاية الخاصة بالعنصر i من المصفوفة
Console.WriteLine("Entrez le Numero de la willaya : ")
willa(i).Numero_Willaya = Console.ReadLine ' نفس الشيء قراءة رقم الولاية الخاص بالعنصر من المصفوفة
Next
Console.ReadKey()
Dim j As Integer = 1
While (willa(j).Numero_Willaya <> 8) ' حلقة فيها شرط التوقف و هو عندما تصبح رقم الولاية يساوي 8
Console.Write(" --> " & willa(j).Nom_Willaya) ' عرض إسم الولاية إعتمادا على رقم الولاية السابقة
j = willa(j).Numero_Willaya ' إسناد قيمة رقم الولاية إلى ترتيب الولاية
End While
Console.ReadKey()
End Sub
End Module

إلى هنا أكون قد أنهيت هادا الدرس الدي يعد مثاله افظل مثال لفهم فلسفة القوائم و التنقل بينها

أي إستفسار أنا لست هنا ههه أمزح حاضر

Programme ( Oussaki School Soft ) برنامج من برمجتي

2012-03-16T12:03:00.003+01:00

الحمد لله على إحسانه

والشكر له على توفيقه وامتنانه

وأشهد أن لا إله إلا الله وحده لا شريك له تعظيما لشانه

وأشهد أن محمدا عبده ورسوله الداعي إلى رضوانه

صلى الله عليه وعلى صحبه وإخوانه

وبعد :

السلام عليكم و رحمة الله تعالى و بركاته

أهلا بكم أحبتي في الله

طبتم وطاب بكم موضوعنا لهذا اليوم بإذن الله

أهلاً وسهلا بكم

+-----------------------------+

في هذا الموضوع سأضع مثال حول برامج المؤسسة البسيط ..Oussaki School Soft V1.0-

قمت ببرمجة هذا البرنامج بالــ Delphi XE و إستعملت قاعدة بيانات Absolute db

فكرة البرنامج : هو برنامج بسيط لتسير سير البيداغوجية في مؤسسة تربوية مزال قيد التطوير

أهم خصائصه تسير الشعب في المؤسسة و حجز نقاط التلاميد و عمل كشوف نقاط خاصة

لكل أستاد في مادته أو للتلاميذ

على بركة الله ..

أترككم مع بعض الصور من البرنامج

الواجهة الرئيسية للبرنامج

http://i.imgur.com/4HjH8.jpg

تسجيل معلومات تلميد جديد و هي واضحة جدا

الآن مع تسجيل تلميد في شعبة معينة حيث قمت بتحديد أن التلميد يدرس في شعبة واحدة في سنة دراسية معية

حيث لتسهيل التسجيل هناك أدوات بحث عن الشعب و التلاميذ كما توضح الصورة

نأتي الآن لأهم شيء إدارة الشعب و المستويات و الأفواج
من إظافة و حدف و إسناد المعاملات للمواد في كل شعبة

لإظافة شعبة جديدة في مستوى معين

ما عليك سوى كتابة إسمها و سيتم التحقق أتوماتيكيا من تواجدها مسبفا
و نختار المستوى ثم عدد الأفواج في الشعبة

و نختار المواد في الشعبة و معاملاتها كما يمكنك إظافة مادة في القائمة أو حدف مادة من المواد

و يمكن البحث عن شعبة و المواد المردسة فيها و معاملاتها

ننتقل لإدارة ألساتدة

و الصفحة الرئيسية لها كما يلي

نأتي لحجز نقاط فوج معين في مادة معينة

حيث يمكنك الحجز مباشرة على الجدول و يمكنك تصدير النتيجة إلى ملف

pdf و حمله معك أينما دهبت و كما يمكن طبع هادا الجدول الخاص بكشف النقاط

نأتي إلى Le Bulltin ههههه هنا المهزلة التي يخاف منها التلاميد

يمكنك حفظ كشف النقاط للتلميذ على شكل ملف pdf كما يمكنك طباعته

بقي بعض اإحصائيات البسيطة

صورة للجداول المستعملة في قاعدة البيانات ↓

http://i.imgur.com/vad8j.jpg

في إنتظار ملاحضاتكم

و صلنا للشيئ المهم كود سورس البرنامج //

الفورم 1

unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, SkinTabs, SkinCtrls, DynamicSkinForm, SkinData, SkinMenus,
ImgList, Grids, DBGrids,Connection, StdCtrls, SkinBoxCtrls, SkinExCtrls,
DBCtrls, Mask, SkinGrids, spDBGrids, spSkinShellCtrls,Fonctions, spdbctrls,
DB, ABSMain, pngimage, ExtCtrls, spMessages, spDialogs, SkinHint,
sppngimagelist, jpeg, GIFImg, IdBaseComponent, IdCoder,
IdCoderQuotedPrintable, DBTables, AdvObj, BaseGrid, AdvGrid, TeEngine, Series,
TeeProcs, Chart;
type
TForm3 = class(TForm)
spSkinExPanel1: TspSkinExPanel;
spSkinButtonsBar2: TspSkinButtonsBar;
ImageList1: TImageList;
spSkinFrame1: TspSkinFrame;
spDynamicSkinForm1: TspDynamicSkinForm;
spSkinData1: TspSkinData;
spCompressedStoredSkin1: TspCompressedStoredSkin;
Open_Picture: TspSkinOpenPictureDialog;
spSkinMessage1: TspSkinMessage;
spSkinInputDialog1: TspSkinInputDialog;
PAGE: TspSkinPageControl;
Ajouter_Etudiant: TspSkinTabSheet;
In--oo--ion: TspSkinTabSheet;
spSkinGroupBox1: TspSkinGroupBox;
spSkinDBLookupComboBox1: TspSkinDBLookupComboBox;
spSkinLabel1: TspSkinLabel;
spSkinLabel2: TspSkinLabel;
spSkinDBLookupComboBox2: TspSkinDBLookupComboBox;
spSkinGroupBox3: TspSkinGroupBox;
Image1: TImage;
spSkinDBLookupComboBox3: TspSkinDBLookupComboBox;
Check_Num: TspSkinCheckRadioBox;
Check_Nom: TspSkinCheckRadioBox;
spSkinLabel3: TspSkinLabel;
spSkinLabel4: TspSkinLabel;
spSkinButton1: TspSkinButton;
spSkinLabel5: TspSkinLabel;
NGroupe: TspSkinDBLookupComboBox;
Niveau: TspSkinComboBoxEx;
NEtudiant: TspSkinDBEdit;
GestionBraches: TspSkinTabSheet;
spSkinGroupBox4: TspSkinGroupBox;
spSkinGroupBox5: TspSkinGroupBox;
spSkinGroupBox6: TspSkinGroupBox;
spSkinDBGrid4: TspSkinDBGrid;
spSkinScrollBar1: TspSkinScrollBar;
spSkinButton2: TspSkinButton;
Image3: TImage;
spSkinDBText1: TspSkinDBText;
spSkinHint1: TspSkinHint;
spPngImageList1: TspPngImageList;
Image4: TImage;
spSelectSkinDialog1: TspSelectSkinDialog;
spSkinMessage2: TspSkinMessage;
SaisieNote: TspSkinTabSheet;
spSkinGroupBox8: TspSkinGroupBox;
spSkinDBGrid2: TspSkinDBGrid;
spSkinGroupBox9: TspSkinGroupBox;
spSkinLabel12: TspSkinLabel;
spSkinDBLookupComboBox4: TspSkinDBLookupComboBox;
spSkinLabel13: TspSkinLabel;
spSkinDBLookupComboBox5: TspSkinDBLookupComboBox;
spSkinLabel15: TspSkinLabel;
spSkinDBLookupComboBox6: TspSkinDBLookupComboBox;
spSkinLabel16: TspSkinLabel;
spSkinDBLookupComboBox7: TspSkinDBLookupComboBox;
spSkinScrollBar3: TspSkinScrollBar;
spSkinGroupBox10: TspSkinGroupBox;
Intro: TspSkinTabSheet;
spSkinLabel19: TspSkinLabel;
spSkinComboBoxEx3: TspSkinComboBoxEx;
spSkinDBGrid3: TspSkinDBGrid;
spSkinLabel20: TspSkinLabel;
spSkinLabel21: TspSkinLabel;
Listedeseleves: TspSkinTabSheet;
spSkinDBGrid5: TspSkinDBGrid;
spSkinLabel18: TspSkinLabel;
Yeardbcombox: TspSkinComboBoxEx;
ChercheElev: TspSkinEdit;
spSkinDBEdit1: TspSkinDBEdit;
spSkinLabel22: TspSkinLabel;
spSkinGroupBox12: TspSkinGroupBox;
spSkinGroupBox7: TspSkinGroupBox;
spSkinDBGrid1: TspSkinDBGrid;
spSkinLabel7: TspSkinLabel;
spSkinLabel9: TspSkinLabel;
Branche: TspSkinDBLookupComboBox;
Image6: TImage;
spSkinComboBoxEx1: TspSkinComboBoxEx;
Image5: TImage;
spSkinGroupBox13: TspSkinGroupBox;
spSkinLabel8: TspSkinLabel;
spSkinEdit2: TspSkinEdit;
spSkinLabel10: TspSkinLabel;
spSkinComboBoxEx2: TspSkinComboBoxEx;
spSkinLabel11: TspSkinLabel;
Nbrgroupe: TspSkinSpinEdit;
spSkinGroupBox14: TspSkinGroupBox;
BrancheNomEdit: TspSkinEdit;
BrancheNom: TspSkinCheckRadioBox;
Image2: TImage;
spSkinDBNavigator1: TspSkinDBNavigator;
spSkinGroupBox11: TspSkinGroupBox;
spSkinGroupBox15: TspSkinGroupBox;
AdvStringGrid1: TAdvStringGrid;
spSkinButton4: TspSkinButton;
spSkinButton5: TspSkinButton;
spSkinGroupBox16: TspSkinGroupBox;
spSkinLabel6: TspSkinLabel;
spSkinLabel17: TspSkinLabel;
Cus_Date_N: TspSkinLabel;
spSkinLabel14: TspSkinLabel;
Cus_Adres: TspSkinMemo;
Cus_Date: TspSkinDateEdit;
Add_User: TspSkinXFormButton;
Cus_Nom: TspSkinEdit;
spSkinGroupBox2: TspSkinGroupBox;
DBImage2: TDBImage;
Cus_Prenom: TspSkinEdit;
spSkinButton6: TspSkinButton;
spSkinScrollBar2: TspSkinScrollBar;
Notes_Etudiant: TspSkinTabSheet;
spSkinGroupBox17: TspSkinGroupBox;
spSkinGroupBox18: TspSkinGroupBox;
spSkinDBLookupComboBox8: TspSkinDBLookupComboBox;
spSkinDBText2: TspSkinDBText;
Image7: TImage;
Edit1: TEdit;
AdvStringGrid2: TAdvStringGrid;
GetBulltin: TspSkinButton;
TrimesteAnnéScolaire: TspSkinGroupBox;
spSkinComboBoxEx4: TspSkinComboBoxEx;
spSkinComboBoxEx5: TspSkinComboBoxEx;
spSkinLabel23: TspSkinLabel;
spSkinLabel24: TspSkinLabel;
spSkinLabel25: TspSkinLabel;
spSkinLabel26: TspSkinLabel;
spSkinLabel27: TspSkinLabel;
spSkinLabel28: TspSkinLabel;
spSkinButton7: TspSkinButton;
spSkinLabel29: TspSkinLabel;
spSkinComboBoxEx6: TspSkinComboBoxEx;
AjouteProf: TspSkinTabSheet;
spSkinGroupBox19: TspSkinGroupBox;
spSkinLabel30: TspSkinLabel;
spSkinLabel31: TspSkinLabel;
spSkinLabel33: TspSkinLabel;
spSkinLabel34: TspSkinLabel;
spSkinComboBoxEx7: TspSkinComboBoxEx;
spSkinEdit1: TspSkinEdit;
spSkinEdit3: TspSkinEdit;
spSkinMemo1: TspSkinMemo;
spSkinLabel32: TspSkinLabel;
spSkinEdit4: TspSkinEdit;
spSkinButton8: TspSkinButton;
spSkinGroupBox20: TspSkinGroupBox;
spSkinLabel35: TspSkinLabel;
spSkinDBLookupComboBox9: TspSkinDBLookupComboBox;
spSkinLabel36: TspSkinLabel;
spSkinDBLookupComboBox10: TspSkinDBLookupComboBox;
spSkinLabel37: TspSkinLabel;
spSkinDBLookupComboBox11: TspSkinDBLookupComboBox;
spSkinLabel38: TspSkinLabel;
spSkinDBLookupComboBox12: TspSkinDBLookupComboBox;
spSkinDBLookupComboBox13: TspSkinDBLookupComboBox;
spSkinLabel39: TspSkinLabel;
spSkinButton9: TspSkinButton;
spSkinLabel40: TspSkinLabel;
spSkinLabel41: TspSkinLabel;
State: TspSkinTabSheet;
Chart1: TChart;
Series1: TBarSeries;
Series2: TBarSeries;
Button1: TButton;
procedure spSkinButtonsBar2Sections0Items0Click(Sender: TObject);
procedure spSkinButtonsBar2Sections0Items0DblClick(Sender: TObject);
procedure DBImage2Click(Sender: TObject);
procedure Add_UserClick(Sender: TObject);
procedure recherChange(Sender: TObject);
procedure NiveauChange(Sender: TObject);
procedure spSkinButton1Click(Sender: TObject);
procedure spSkinEdit2Change(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure spSkinButton2Click(Sender: TObject);
procedure spSkinComboBoxEx1Change(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image3MouseEnter(Sender: TObject);
procedure Image4MouseEnter(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6MouseEnter(Sender: TObject);
procedure Image5MouseEnter(Sender: TObject);

procedure spSkinDBLookupComboBox4Change(Sender: TObject);
procedure spSkinDBGrid2KeyPress(Sender: TObject; var Key: Char);
procedure spSkinDBGrid3KeyPress(Sender: TObject; var Key: Char);
procedure spSkinDBLookupComboBox7Change(Sender: TObject);
procedure spSkinDBLookupComboBox5Change(Sender: TObject);
procedure spSkinDBLookupComboBox5Click(Sender: TObject);
procedure spSkinDBLookupComboBox6Change(Sender: TObject);
procedure spSkinComboBoxEx3Change(Sender: TObject);
procedure spSkinDBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TspColumn; State: TGridDrawState);
procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure ListedeselevesEnter(Sender: TObject);
procedure SaisieNoteEnter(Sender: TObject);
procedure spSkinDBLookupComboBox4Click(Sender: TObject);
procedure YeardbcomboxChange(Sender: TObject);
procedure ChercheElevChange(Sender: TObject);
procedure spSkinButtochartClick(Sender: TObject);
procedure AdvStringGrid1EditCellDone(Sender: TObject; ACol, ARow: Integer);
procedure spSkinButton4Click(Sender: TObject);
procedure spSkinButton5Click(Sender: TObject);
procedure YeardbcomboxClick(Sender: TObject);
procedure spSkinComboBoxEx3Click(Sender: TObject);
procedure spSkinDBLookupComboBox7Click(Sender: TObject);
procedure spSkinDBLookupComboBox6Click(Sender: TObject);
procedure AdvStringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
procedure spSkinButton6Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Edit1Change(Sender: TObject);
procedure Notes_EtudiantEnter(Sender: TObject);
procedure spSkinComboBoxEx4Change(Sender: TObject);
procedure spSkinComboBoxEx5Change(Sender: TObject);
procedure spSkinDBLookupComboBox8Change(Sender: TObject);
procedure GetBulltinClick(Sender: TObject);
procedure spSkinButton7Click(Sender: TObject);
procedure spSkinButton8Click(Sender: TObject);
procedure spSkinDBLookupComboBox9Change(Sender: TObject);
procedure spSkinDBLookupComboBox10Change(Sender: TObject);
procedure spSkinDBLookupComboBox10Click(Sender: TObject);
procedure spSkinButton9Click(Sender: TObject);
procedure spSkinButtonsBar2Sections0Items1Click(Sender: TObject);
procedure spSkinButtonsBar2Sections1Items0Click(Sender: TObject);
procedure spSkinButtonsBar2Sections2Items0Click(Sender: TObject);
procedure spSkinButtonsBar2Sections2Items1Click(Sender: TObject);
procedure spSkinButtonsBar2Sections3Items0Click(Sender: TObject);
procedure StateContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure StateEnter(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure spSkinButtonsBar2Sections4Items0Click(Sender: TObject);
procedure StateMouseEnter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
filename:string;
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.Add_UserClick(Sender: TObject);
begin
GetSystemTime(DateEtHeure);

if (Cus_prenom.Text='')or (spSkinComboBoxEx6.Text = '') or (Cus_Nom.Text ='') or (Cus_Adres.Text = '') or (Cus_Date.text =' / / ') then
begin
if spSkinMessage1.MessageDlg('Remplis tous les case S.V.P ! ',mtInformation,mbOKCancel,0) = 1 then

end
else
begin
Connection.Form4.Ds_Etudiant.DataSet.Insert;

Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Nom_Etud').AsString:=Cus_Nom.Text;
Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Prenom_Etud').AsString:= Cus_Prenom.Text;
Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Date_Naissance').Value:= Cus_Date.date;
Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Adress').AsString := Cus_Adres.Text;
Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Sexe').AsString := spSkinComboBoxEx6.Text;
if filename <> '' then
begin
TBlobField(Connection.Form4.Ds_Etudiant.DataSet.FieldByName('Photo')).
LoadFromFile(FileName);
end;
Connection.Form4.Ds_Etudiant.DataSet.post;
//Ds_User_EM_State.DataSet.FieldByName('Years').AsInteger := DateEtHeure.wYear;
//Ds_User_EM_State.DataSet.FieldByName('Mois').AsInteger := DateEtHeure.wMonth;
ShowMessage('Enregistrement avec succès !');
Cus_Adres.Text := '';
Cus_Nom.Text := '';
Cus_Prenom.Text := '';
Cus_Date.Clear;

end;

end;
procedure TForm3.AdvStringGrid1EditCellDone(Sender: TObject; ACol,
ARow: Integer);
begin
if (AdvStringGrid1.CellToReal(ACol,ARow) > 20.00 )or (AdvStringGrid1.CellToReal(ACol,ARow) < 0.00 ) then
begin
AdvStringGrid1.ClearRect(ACol,Arow,Acol,Arow);
spSkinButton4Click(Sender);
end;
if (ACol = 4) then
begin
if (AdvStringGrid1.CellToReal(ACol,ARow) >= 10 ) then
begin
AdvStringGrid1.ColorRect(Acol,Arow,ACol,Arow,54423);
end else
begin
if (AdvStringGrid1.CellToReal(ACol,ARow) < 10 ) and (AdvStringGrid1.CellToReal(ACol,ARow) >= 0 )then
begin
AdvStringGrid1.ColorRect(Acol,Arow,ACol,Arow,74433);

end;
end;
end;

spSkinButton5Click(Sender);

end;
procedure TForm3.AdvStringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
begin
if (ACol = 4) then
begin
if (AdvStringGrid1.CellToReal(ACol,ARow) >= 10 ) then
begin
AdvStringGrid1.ColorRect(Acol,Arow,ACol,Arow,54423);
end else
begin
if (AdvStringGrid1.CellToReal(ACol,ARow) < 10 ) and (AdvStringGrid1.CellToReal(ACol,ARow) >= 0 )then
begin
AdvStringGrid1.ColorRect(Acol,Arow,ACol,Arow,74433);

end;
end;
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
var nbrBranche,NbrEleve,Nbrprof,nbr_Matiere:integer;
begin
nbrBranche := Form4.Liste_Braches.RecordCount;
NbrEleve := form4.Etudiant.RecordCount;
Nbrprof := form4.Professeur.RecordCount;
nbr_Matiere := form4.Matiere.RecordCount;

Series1.Clear;
Series1.AddXY(10, nbrBranche,'Nombre Branche');
Series1.AddXY(15, NbrEleve,'Nombre éléve');
Series1.AddXY(20, Nbrprof,'Nombre de Professeur');
Series1.AddXY(25, nbr_Matiere,'Nombre de matiere');

end;
procedure TForm3.ChercheElevChange(Sender: TObject);
begin
if Check_Num.Checked then
begin
if ChercheElev.Text <> '' then
begin
Connection.Form4.In--oo--ion_List_Eleve.Filter := 'NEtudiant ='+QuotedStr(ChercheElev.Text+'*');
Connection.Form4.In--oo--ion_List_Eleve.Filtered := true;

end else
begin
Connection.Form4.In--oo--ion_List_Eleve.Filtered := false;
end;
end;
if Check_Nom.Checked then
begin
if ChercheElev.Text <> '' then
begin
Connection.Form4.In--oo--ion_List_Eleve.Filter := 'Nom_Etud ='+QuotedStr(ChercheElev.Text+'*');
Connection.Form4.In--oo--ion_List_Eleve.Filtered := true;

end else
begin
Connection.Form4.In--oo--ion_List_Eleve.Filtered := false;
end;
end;
end;
procedure TForm3.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if (field.AsInteger > 20) or (field.AsInteger<0) then
begin
spSkinMessage1.MessageDlg('La note est plus grande que 20 ! ',mtInformation,mbOKCancel,0);
field.Clear;
end;

end;
procedure TForm3.DBImage2Click(Sender: TObject);
begin
Open_Picture.Filter:='BMP|*.bmp';
if Open_Picture.Execute then
begin
DBImage2.Picture.LoadFromFile(Open_Picture.FileName);
filename := Open_Picture.FileName;
end;
end;
procedure TForm3.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
form4.Etudiant.Filter := 'Nom_Etud = '+QuotedStr(Edit1.Text+'*');
form4.Etudiant.Filtered := true;
end else
begin
form4.Etudiant.Filtered := false;
end;

end;
procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TForm3.GetBulltinClick(Sender: TObject);
var NBranche,NGroupe,Niveau,Cofficion,NMatiere,NEtudiant,SommeCoefficion:integer;
Devoire1,Devoire2,Exam,Moyyen,MoyyenGeneral,Somme:Double;
SommeGeneral:double;
i,j:integer;
MoyGen,Nom_Branche,Nom_Matiere:string;

begin
SommeCoefficion := 0;
SommeGeneral := 0;
Form4.D_Note_Bulltin.DataSet.First;
NEtudiant := Form4.D_Note_Bulltin.DataSet.FieldByName('NEtudiant').AsInteger;
AdvStringGrid2.RowCount := Form4.D_Note_Bulltin.DataSet.RecordCount+1;
AdvStringGrid2.RowHeaders.Insert(0,'Matiere');
Form4.Appartient.Filter := 'NEtudiant = '+QuotedStr(inttostr(NEtudiant)+'*')+' and years = '+
QuotedStr(spSkinComboBoxEx5.Text+'*');
Form4.Appartient.Filtered := true;
NBranche := Form4.Ds_Appartient.DataSet.FieldByName('NBranche').AsInteger;
NGroupe := Form4.Ds_Appartient.DataSet.FieldByName('NGroupe').AsInteger;
Niveau := Form4.Ds_Appartient.DataSet.FieldByName('Niveau').AsInteger;;
Form4.Appartient.Filtered := false;
Form4.Liste_Braches.Filter := 'NBranche = '+QuotedStr(inttostr(NBranche)+'*');
Form4.Liste_Braches.Filtered := true;
Nom_Branche := Form4.Ds_Liste_Braches.DataSet.FieldByName('Nom_Branche').AsString;;
Form4.Liste_Braches.Filtered := false;

for i := 1 to AdvStringGrid2.RowCount+1 do
begin
///NMatiere
NMatiere := Form4.D_Note_Bulltin.DataSet.FieldByName('NMatiere').AsInteger;
devoire1 := Form4.D_Note_Bulltin.DataSet.FieldByName('Devoire1').AsFloat;
devoire2 := Form4.D_Note_Bulltin.DataSet.FieldByName('Devoire2').AsFloat;
Exam := Form4.D_Note_Bulltin.DataSet.FieldByName('Exam').AsFloat;
/// Coefficion
///
Form4.coefficion.Filter := 'NBranche = '+QuotedStr(inttostr(NBranche)+'*')+' and Niveau = '+
QuotedStr(inttostr(Niveau)+'*')+' and NMatiere = '+QuotedStr(inttostr(NMatiere)+'*');
Form4.coefficion.Filtered := true;
Cofficion := Form4.DS_coefficion.DataSet.FieldByName('Cofficion').AsInteger;
Form4.coefficion.Filtered := false;
//Nom_Matiere
Form4.Nomsmatieres.Filter := 'NMatiere = '+QuotedStr(inttostr(NMatiere)+'*');
Form4.Nomsmatieres.Filtered := true;
Nom_Matiere := Form4.DNomsmatieres.DataSet.FieldByName('NomMatiere').AsString;
Form4.Nomsmatieres.Filtered := false;
AdvStringGrid2.RowHeaders.Insert(i,Nom_Matiere);
j := 1;
AdvStringGrid2.Cells[j,i] := FloatToStr(devoire1);
j := j+1;
AdvStringGrid2.Cells[j,i] := FloatToStr(devoire2);
j := j+1;
AdvStringGrid2.Cells[j,i] := FloatToStr(exam);
j := j+1;
AdvStringGrid2.Cells[j,i] := inttoStr(Cofficion);
j := j+1;
Moyyen := (((devoire1+devoire2)+(exam*2))/4);
AdvStringGrid2.Cells[j,i] := FloatToStr(Moyyen);
j := j+1;
Somme := (((devoire1+devoire2)+(exam*2))/4)*Cofficion;
AdvStringGrid2.Cells[j,i] := FloatToStr(Somme);
SommeCoefficion := SommeCoefficion+Cofficion;
SommeGeneral := SommeGeneral+Somme;

Form4.D_Note_Bulltin.DataSet.Next;
end;
AdvStringGrid2.RowCount := AdvStringGrid2.RowCount+1;
spSkinGroupBox18.Caption :='Branche : '+Nom_Branche +' et Niveau : '+inttostr(Niveau)+' et Groupe : '+inttostr(NGroupe);
MoyyenGeneral := SommeGeneral/SommeCoefficion;
spSkinLabel25.Caption := floattostr(SommeGeneral);
MoyGen := floattostr(MoyyenGeneral);
SetLength(MoyGen,5);
spSkinLabel26.Caption := MoyGen;
AdvStringGrid2.PrintSettings.TitleText := ' -| Bulltin de : '+spSkinDBLookupComboBox8.Text+' '
+spSkinDBText2.Caption+' Branche : '
+Nom_Branche +' Niveau : '+inttostr(Niveau)+' Groupe : '+inttostr(NGroupe)+' Trimeste N° : '
+spSkinComboBoxEx4.Text+' Année Scolaire : '+spSkinComboBoxEx5.Text+' leur moyenne est : ' +spSkinLabel26.Caption;
end;
procedure TForm3.Image3Click(Sender: TObject);
var s:string;
begin

s := spSkinInputDialog1.InputBox('Nouveau matiere ',
'Enter La Nom de la matiere :', '');
if(s <>'')then
begin
Connection.Form4.DS_LISTE_MATIERE.DataSet.insert;
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('NomMatiere').AsString := s;
Connection.Form4.DS_LISTE_MATIERE .DataSet.Post;
end;
end;
procedure TForm3.Image3MouseEnter(Sender: TObject);
begin
spSkinHint1.ActivateHintEx2('Click ici pour','ajouter une matiere ! ',0,spPngImageList1);
end;
procedure TForm3.Image4Click(Sender: TObject);
begin
Connection.Form4.DS_coefficion.DataSet.First;
while not Connection.Form4.DS_coefficion.DataSet.eof do
begin
if Connection.Form4.DS_coefficion.DataSet.FieldByName('NMatiere').AsInteger =
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('NMatiere').AsInteger
then
begin
Connection.Form4.DS_coefficion.DataSet.Delete;
end;
Connection.Form4.DS_coefficion.DataSet.Next;
end;

Connection.Form4.DS_LISTE_MATIERE.DataSet.Delete;
spSkinMessage1.MessageDlg('La suppression avec succes ! ',mtInformation,[mbok],0);

end;
procedure TForm3.Image4MouseEnter(Sender: TObject);
begin
spSkinHint1.ActivateHintEx2('Click ici pour','Suprrimmer Cette matiere ! ',0,spPngImageList1);

end;
procedure TForm3.Image5Click(Sender: TObject);
var Branche,j,Niveau:integer;
begin
if spSkinMessage1.MessageDlg('Vouler vous Supprimer Ce Niveau !',mtConfirmation,mbYesNo,0) = mryes then
begin
Branche := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
Niveau := strtoint(spSkinComboBoxEx1.Text);
Form4.DS_coefficion.DataSet.First;
Form4.DS_coefficion.DataSet.First;

for j := 1 to Form4.DS_coefficion.DataSet.RecordCount do
begin
if ((Form4.DS_coefficion.DataSet.FieldByName('NBranche').AsInteger = Branche) and
(Form4.DS_coefficion.DataSet.FieldByName('Niveau').AsInteger = Niveau)) then
begin
Form4.DS_coefficion.DataSet.Delete;
end;
Form4.DS_coefficion.DataSet.Next;
end;
Form4.Ds_Appartient.DataSet.First;
for j := 1 to Form4.Ds_Appartient.DataSet.RecordCount do
begin
if ((Form4.Ds_Appartient.DataSet.FieldByName('NBranche').AsInteger = Branche) and
(Form4.Ds_Appartient.DataSet.FieldByName('Niveau').AsInteger = Niveau)) then
begin
Form4.Ds_Appartient.DataSet.Delete;
end;
Form4.Ds_Appartient.DataSet.Next;
end;
form4.DLIST_GROUPE.DataSet.First;
for j := 1 to Form4.DLIST_GROUPE.DataSet.RecordCount do
begin
if ((Form4.DLIST_GROUPE.DataSet.FieldByName('NBranche').AsInteger = Branche) and
(Form4.DLIST_GROUPE.DataSet.FieldByName('Niveau').AsInteger = Niveau)) then
begin
Form4.DLIST_GROUPE.DataSet.Delete;
end;
Form4.DLIST_GROUPE.DataSet.Next;
end;
end;
end;
procedure TForm3.Image5MouseEnter(Sender: TObject);
begin
spSkinHint1.ActivateHintEx2('Click ici pour','Suprrimmer Ce Niveau Dans Cette Branche ! ',0,spPngImageList1);
end;
procedure TForm3.Image6Click(Sender: TObject);
var i,j:integer;
begin
if spSkinMessage1.MessageDlg('Vouler vous Supprimer Cette Branche',mtConfirmation,mbYesNo,0) = mryes then
begin
i := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
Form4.DS_coefficion.DataSet.First;

for j := 1 to Form4.DS_coefficion.DataSet.RecordCount do
begin
if Form4.DS_coefficion.DataSet.FieldByName('NBranche').AsInteger = i then
begin
Form4.DS_coefficion.DataSet.Delete;
end;
Form4.DS_coefficion.DataSet.Next;
end;

Form4.Ds_Appartient.DataSet.First;
for j := 1 to Form4.Ds_Appartient.DataSet.RecordCount do
begin
if Form4.Ds_Appartient.DataSet.FieldByName('NBranche').AsInteger = i then
begin
Form4.Ds_Appartient.DataSet.Delete;
end;
Form4.Ds_Appartient.DataSet.Next;
end;
form4.DLIST_GROUPE.DataSet.First;
for j := 1 to Form4.DLIST_GROUPE.DataSet.RecordCount do
begin
if Form4.DLIST_GROUPE.DataSet.FieldByName('NBranche').AsInteger = i then
begin
Form4.DLIST_GROUPE.DataSet.Delete;
end;
Form4.DLIST_GROUPE.DataSet.Next;
end;
Form4.Ds_Liste_Braches.DataSet.Delete;
end;

end;
procedure TForm3.Image6MouseEnter(Sender: TObject);
begin
spSkinHint1.ActivateHintEx2('Click ici pour','Suprrimmer Cette Branche ! ',0,spPngImageList1);

end;
procedure TForm3.ListedeselevesEnter(Sender: TObject);
begin

form4.TestQuery.Close;
form4.TestQuery.Open;
if (spSkinComboBoxEx3.Text <> '') and (spSkinDBLookupComboBox7.Text <> '') then
begin
form4.TestQuery.Filtered := false;
form4.TestQuery.Filter := 'NTrimeste = '+QuotedStr(spSkinComboBoxEx3.Text+'*')+'and NMatiere = '+QuotedStr(inttostr(Form4.DataSource1.DataSet.FieldByName('NMatiere').AsInteger)+'*');
form4.TestQuery.Filtered := true;
end else
begin
form4.TestQuery.Filtered := false;
end;
end;
procedure TForm3.spSkinButton1Click(Sender: TObject);
var YearNext:string;
begin

if( (spSkinDBLookupComboBox1.Text <>'')and(NGroupe.Text <>'')and(Niveau.Text <>''))then
begin
if DejaInscriCetteAnne(Connection.Form4.Ds_Appartient,strtoint(NEtudiant.Text)) = false then
begin

Connection.Form4.Ds_Appartient.DataSet.Insert;
YearNext := inttostr(strtoint(FormatDateTime('yyyy',Now))+1);
Connection.Form4.Ds_Appartient.DataSet.FieldByName('Years').AsString := FormatDateTime('yyyy',Now)+'/'+YearNext;
Connection.Form4.Ds_Appartient.DataSet.FieldByName('NBranche').AsInteger := spSkinDBLookupComboBox1.KeyValue;
Connection.Form4.Ds_Appartient.DataSet.FieldByName('NEtudiant').AsInteger := StrToInt(NEtudiant.Text);
Connection.Form4.Ds_Appartient.DataSet.FieldByName('NGroupe').AsInteger := StrToInt(NGroupe.Text);
Connection.Form4.Ds_Appartient.DataSet.FieldByName('Niveau').AsInteger := strtoint(Niveau.Text);
Connection.Form4.Ds_Appartient.DataSet.Post;
Initial_Note_Pour_Etudiant(Form4.DS_coefficion,Form4.Ds_Note,spSkinDBLookupComboBox1.KeyValue,strtoint(Niveau.Text),StrToInt(NEtudiant.Text));
form4.Branche_P_Note.Active := false;
form4.Branche_P_Note.Active := true;
spSkinMessage1.MessageDlg('Etudiant Bien Inscri ! ',mtInformation,[mbok],0);

end else
begin
spSkinMessage1.MessageDlg('Etudiant deja inscrire Cette année ! ',mtInformation,[mbok],0);
end;
end else
begin
spSkinMessage1.MessageDlg('Remplis tous les case S.V.P ! ',mtInformation,mbYesNo,0);
end;
end;
procedure TForm3.spSkinButton2Click(Sender: TObject);
var i,j:integer;
YearNext:string;
begin
YearNext := inttostr(strtoint(FormatDateTime('yyyy',Now))+1);
if( (spSkinEdit2.Text <>'')and(spSkinComboBoxEx2.Text <>'')and(Nbrgroupe.Text <>''))then
begin
if(BracheExist(Connection.Form4.Ds_Liste_Braches,spSkinEdit2.Text) = true)then
begin
i := Connection.Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
Connection.Form4.Ds_List_NMatiere.DataSet.First;
if(NiveauinBrancheExist(Connection.Form4.Ds_List_NMatiere,i,strtoint(spSkinComboBoxEx2.Text)))then
begin
spSkinMessage1.MessageDlg('Cette Branche dans ce niveau deja exist ! ',mtInformation,[mbok],0);
end else
begin
Connection.Form4.DS_LISTE_MATIERE.DataSet.First;
while Not Connection.Form4.DS_LISTE_MATIERE.DataSet.Eof do
begin
if Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('State').AsBoolean = True then
begin
Connection.Form4.DS_LISTE_MATIERE.dataset.Edit;
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('State').Clear;
Connection.Form4.DS_LISTE_MATIERE.dataset.Post;
Connection.Form4.Ds_List_NMatiere.DataSet.Insert;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('Cofficion').AsInteger :=
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('Cof').AsInteger;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('NBranche').AsInteger := i;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('NMatiere').AsInteger:=
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('NMatiere').asinteger;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('Niveau').AsInteger := strtoint(spSkinComboBoxEx2.Text);
Connection.Form4.Ds_List_NMatiere.DataSet.Post;
end;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Edit;
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('Cof').Clear;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Post;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Next;
end;
for j := 1 to strtoint(Nbrgroupe.Text) do
begin
Connection.Form4.DLIST_GROUPE.DataSet.Insert;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('NBranche').AsInteger := i;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('NGroupe').AsInteger := j;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('Niveau').AsInteger :=
strtoint(spSkinComboBoxEx2.Text);
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('Years').AsString :=
FormatDateTime('yyyy',Now)+'/'+YearNext;
Connection.Form4.DLIST_GROUPE.DataSet.post;
end;
end; // ENDIF

end else
begin
Connection.Form4.Ds_Insc_Branche.DataSet.Insert;
Connection.Form4.Ds_Insc_Branche.DataSet.FieldByName('Nom_Branche').AsString := spSkinEdit2.Text;
Connection.Form4.Ds_Insc_Branche.DataSet.Post;
Connection.Form4.Ds_Insc_Branche.DataSet.Last;
Connection.Form4.DS_LISTE_MATIERE.DataSet.First;
while Not Connection.Form4.DS_LISTE_MATIERE.DataSet.Eof do
begin
if Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('State').AsBoolean = True then
begin
Connection.Form4.DS_LISTE_MATIERE.dataset.Edit;
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('State').Clear;
Connection.Form4.DS_LISTE_MATIERE.dataset.Post;
Connection.Form4.Ds_List_NMatiere.DataSet.Insert;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('Cofficion').AsInteger :=
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('Cof').AsInteger;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('NBranche').AsInteger :=
Connection.Form4.Ds_Insc_Branche.DataSet.FieldByName('NBranche').Asinteger;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('NMatiere').AsInteger:=
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('NMatiere').asinteger;
Connection.Form4.Ds_List_NMatiere.DataSet.FieldByName('Niveau').AsInteger := strtoint(spSkinComboBoxEx2.Text);
Connection.Form4.Ds_List_NMatiere.DataSet.Post;
end;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Edit;
Connection.Form4.DS_LISTE_MATIERE.DataSet.FieldByName('Cof').Clear;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Post;
Connection.Form4.DS_LISTE_MATIERE.DataSet.Next;
end;
for j := 1 to strtoint(Nbrgroupe.Text) do
begin
Connection.Form4.DLIST_GROUPE.DataSet.Insert;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('NBranche').AsInteger :=
Connection.Form4.Ds_Insc_Branche.DataSet.FieldByName('NBranche').Asinteger;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('NGroupe').AsInteger := j;
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('Niveau').AsInteger :=
strtoint(spSkinComboBoxEx2.Text);
Connection.Form4.DLIST_GROUPE.DataSet.FieldByName('Years').AsString :=
FormatDateTime('yyyy',Now)+'/'+YearNext;
Connection.Form4.DLIST_GROUPE.DataSet.post;
end;
end; // ENDIF
end else
begin
spSkinMessage1.MessageDlg('Remplis tous les case S.V.P ! ',mtInformation,[mbok],0);
end;
end;
procedure TForm3.spSkinButtochartClick(Sender: TObject);
begin

PAGE.ActivePage := Listedeseleves;
end;
procedure TForm3.spSkinButton4Click(Sender: TObject);
var i,j:integer;
exam,devoire1,devoir2,Moy:Double;
NGroupe,Niveau,NProf,NBranche,NMatiere:integer;
NomProf,Prenom_Prof:string;
begin
NGroupe := strtoint( spSkinDBLookupComboBox6.Text);
NBranche := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
Niveau := strtoint(spSkinDBLookupComboBox5.Text);
NMatiere := Form4.DataSource1.DataSet.FieldByName('NMatiere').AsInteger;
form4.Etudier.Filtered := false;
form4.Etudier.Filter := 'NBranche = '+QuotedStr(inttostr(NBranche)+'*')+' and NMatiere = '+QuotedStr(inttostr(NMatiere)+'*')
+' and Niveau = '+QuotedStr(inttostr(Niveau)+'*')+' and NGroupe = '+QuotedStr(inttostr(NGroupe)+'*')+
' and Years = '+QuotedStr(Yeardbcombox.Text+'*');
form4.Etudier.Filtered := true;
NProf := form4.Etudier.FieldByName('NProf').AsInteger;
form4.Etudier.Filtered := false;
form4.Professeur.Filter := 'NProf = '+QuotedStr(inttostr(NProf)+'*');
form4.Etudier.Filtered := true;
NomProf := form4.Professeur.FieldByName('Prof_Nom').AsString;
Prenom_Prof := form4.Professeur.FieldByName('Prof_Prenom').AsString;
form4.Etudier.Filtered := false;

spSkinLabel41.Caption := NomProf + ' '+ Prenom_Prof;
Form4.Ds_Branche_p_Note.DataSet.First;
AdvStringGrid1.RowCount := Form4.Ds_Branche_p_Note.DataSet.RecordCount+1;
AdvStringGrid1.RowHeaders.Insert(0,'Nom/Prenom');
for i := 1 to AdvStringGrid1.RowCount+1 do
begin
AdvStringGrid1.RowHeaders.Insert(i,Form4.Ds_Branche_p_Note.DataSet.FieldByName('Nom_Etud').AsString+
' '+Form4.Ds_Branche_p_Note.DataSet.FieldByName('Prenom_Etud').AsString);
j := 1;
devoire1 := Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire1').AsFloat;
AdvStringGrid1.Cells[j,i] := FloatToStr(devoire1);
j := j+1;
devoir2 := Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire2').AsFloat;
AdvStringGrid1.Cells[j,i] := FloatToStr(devoir2);
j := j+1;
exam := Form4.ds_Note_etudiant.DataSet.FieldByName('Exam').AsFloat;
AdvStringGrid1.Cells[j,i] := FloatToStr(exam);
j := j+1;
moy := ((devoire1+devoir2)+(exam*2))/4;
AdvStringGrid1.Cells[j,i] := FloatToStr(moy);

Form4.Ds_Branche_p_Note.DataSet.Next;
end;
AdvStringGrid1.RowCount := AdvStringGrid1.RowCount+1;
end;
procedure TForm3.spSkinButton5Click(Sender: TObject);
var i,j:integer;
exam,devoire1,devoir2,Moy:Double;
begin
Form4.Ds_Branche_p_Note.DataSet.First;

for i := 1 to Form4.Ds_Branche_p_Note.DataSet.RecordCount do
begin
Form4.ds_Note_etudiant.DataSet.Edit;
j := 1;
devoire1 := StrToFloat(AdvStringGrid1.Cells[j,i]);
Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire1').AsFloat := devoire1;
j := j+1;
devoir2 := StrToFloat(AdvStringGrid1.Cells[j,i]);
Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire2').AsFloat := devoir2;
j := j+1;
exam := StrToFloat(AdvStringGrid1.Cells[j,i]);
Form4.ds_Note_etudiant.DataSet.FieldByName('Exam').AsFloat := exam;
j := j+1;
moy := ((devoire1+devoir2)+(exam*2))/4;
AdvStringGrid1.Cells[j,i] := FloatToStr(moy);

Form4.ds_Note_etudiant.DataSet.Post;
Form4.Ds_Branche_p_Note.DataSet.Next;
end;

end;
procedure TForm3.spSkinButton6Click(Sender: TObject);
begin

AdvStringGrid1.RowCount := AdvStringGrid1.RowCount -1;
AdvStringGrid1.PrintSettings.TitleText := ' - Fiche notes de : '+spSkinDBLookupComboBox5.Text+' '+spSkinDBLookupComboBox4.Text+' '+spSkinDBLookupComboBox6.Text+' / Dans la matiere : '+spSkinDBLookupComboBox7.Text+'/ Du Trimeste N° :'+spSkinComboBoxEx3.Text
+' Avec le Professeur : '+spSkinLabel41.Caption;
AdvStringGrid1.Print;
AdvStringGrid1.RowCount := AdvStringGrid1.RowCount +1;
end;
procedure TForm3.spSkinButton7Click(Sender: TObject);
begin

AdvStringGrid2.Print;

end;
procedure TForm3.spSkinButton8Click(Sender: TObject);
begin
if (spSkinEdit3.Text='')or (spSkinEdit1.Text = '') or (spSkinComboBoxEx7.Text ='') or (spSkinMemo1.Text = '') or (spSkinEdit4.text ='') then
begin
spSkinMessage1.MessageDlg('Remplis tous les case S.V.P ! ',mtInformation,[mbOk],0);

end
else
begin

if (Not Connection.Form4.DProfesseur.DataSet.Locate('Prof_Nom',spSkinEdit3.Text,[]) )
and (Not Connection.Form4.DProfesseur.DataSet.Locate('Prof_Prenom',spSkinEdit3.Text,[])) then
begin
Connection.Form4.DProfesseur.DataSet.Insert;
Connection.Form4.DProfesseur.DataSet.FieldByName('Prof_Nom').AsString:=spSkinEdit3.Text;
Connection.Form4.DProfesseur.DataSet.FieldByName('Prof_Prenom').AsString:= spSkinEdit1.Text;
Connection.Form4.DProfesseur.DataSet.FieldByName('Email').AsString:= spSkinEdit4.Text;
Connection.Form4.DProfesseur.DataSet.FieldByName('Adresse').AsString := spSkinMemo1.Text;
Connection.Form4.DProfesseur.DataSet.FieldByName('Sexe').AsString := spSkinComboBoxEx7.Text;

Connection.Form4.DProfesseur.DataSet.post;
ShowMessage('Enregistrement avec succès !');
spSkinEdit3.Text := '';
spSkinEdit1.Text := '';
spSkinEdit4.Text := '';
spSkinMemo1.Clear;
end else
begin
spSkinMessage1.MessageDlg('Ce Prof deja exist ! ',mtInformation,[mbOk],0);
end;
end;

end;
procedure TForm3.spSkinButton9Click(Sender: TObject);
var YearNext,year:string;

begin
if (spSkinDBLookupComboBox9.Text <>'') and (spSkinDBLookupComboBox10.Text <> '')
and (spSkinDBLookupComboBox11.Text <> '') and (spSkinDBLookupComboBox12.Text <> '') then
begin
YearNext := inttostr(strtoint(FormatDateTime('yyyy',Now))+1);
year := FormatDateTime('yyyy',Now)+'/'+YearNext;
if form4.Etudier.Locate('NBranche',spSkinDBLookupComboBox9.KeyValue,[]) and
form4.Etudier.Locate('Niveau',strtoint(spSkinDBLookupComboBox10.Text),[]) and
form4.Etudier.Locate('NGroupe',strtoint(spSkinDBLookupComboBox11.Text),[]) and
form4.Etudier.Locate('NMatiere',spSkinDBLookupComboBox12.KeyValue,[]) and
form4.Etudier.Locate('Years',year,[])
then
begin
ShowMessage('Deja Etudier !');
end else
begin
form4.Etudier.Insert;
form4.Etudier.FieldByName('NBranche').Value := spSkinDBLookupComboBox9.KeyValue;
form4.Etudier.FieldByName('Niveau').AsInteger := strtoint(spSkinDBLookupComboBox10.Text);
form4.Etudier.FieldByName('NGroupe').AsInteger := strtoint(spSkinDBLookupComboBox11.Text);
form4.Etudier.FieldByName('NMatiere').Value := spSkinDBLookupComboBox12.KeyValue;
form4.Etudier.FieldByName('Years').Value := year;
form4.Etudier.FieldByName('NProf').AsInteger := Form4.DProfesseur.DataSet.FieldByName('NProf').AsInteger ;
form4.Etudier.Post;
ShowMessage('C Bon !' );
end;
end else
begin
ShowMessage('choisie tous les cases !' );
end;
end;
procedure TForm3.spSkinButtonsBar2Sections0Items0Click(Sender: TObject);
begin
PAGE.ActivePage := Ajouter_Etudiant;
end;
procedure TForm3.spSkinButtonsBar2Sections0Items0DblClick(Sender: TObject);
begin
PAGE.ActivePage := Ajouter_Etudiant;
end;

procedure TForm3.spSkinButtonsBar2Sections0Items1Click(Sender: TObject);
begin
PAGE.ActivePage := In--oo--ion;
end;
procedure TForm3.spSkinButtonsBar2Sections1Items0Click(Sender: TObject);
begin
PAGE.ActivePage := AjouteProf;
end;
procedure TForm3.spSkinButtonsBar2Sections2Items0Click(Sender: TObject);
begin
page.ActivePage := SaisieNote;
end;
procedure TForm3.spSkinButtonsBar2Sections2Items1Click(Sender: TObject);
begin
page.ActivePage := Notes_Etudiant;
end;
procedure TForm3.spSkinButtonsBar2Sections3Items0Click(Sender: TObject);
begin
page.ActivePage := GestionBraches;

end;
procedure TForm3.spSkinButtonsBar2Sections4Items0Click(Sender: TObject);
begin
page.ActivePage := State;
end;
procedure TForm3.spSkinComboBoxEx1Change(Sender: TObject);
begin
Connection.Form4.ABSQuery1.Filtered := false;
Connection.Form4.ABSQuery1.Filter := 'Niveau ='+QuotedStr(spSkinComboBoxEx1.Text+'*');
Connection.Form4.ABSQuery1.Filtered := true;
end;
procedure TForm3.spSkinComboBoxEx3Change(Sender: TObject);
begin
if (spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '')and (Yeardbcombox.Text <>'') then
begin
form4.Note_etudiant.Filter := 'NMatiere = '+QuotedStr(form4.DataSource1.DataSet.FieldByName('Nmatiere').AsString+'*')+
' and NTrimeste = '+QuotedStr(spSkinComboBoxEx3.Text+'*')+' and Years = '+QuotedStr(Yeardbcombox.Text+'*');
form4.Note_etudiant.Filtered := true;
end else
begin
form4.Note_etudiant.Filtered := false;
end;
end;
procedure TForm3.spSkinComboBoxEx3Click(Sender: TObject);
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;
end;
procedure TForm3.spSkinComboBoxEx4Change(Sender: TObject);
begin
if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') then
begin
form4.Note_Bulltin.Filter := 'NTrimeste = '+QuotedStr(spSkinComboBoxEx4.Text+'*')+' and Years = '+
QuotedStr(spSkinComboBoxEx5.Text+'*') ;
form4.Note_Bulltin.Filtered := true;
end else
begin
form4.Note_Bulltin.Filtered := false;
end;
if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') and (spSkinDBLookupComboBox8.Text <> '') then
begin
GetBulltinClick(Sender);
end;

end;
procedure TForm3.spSkinComboBoxEx5Change(Sender: TObject);
begin
if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') then
begin
form4.Note_Bulltin.Filter := 'NTrimeste = '+QuotedStr(spSkinComboBoxEx4.Text+'*')+' and Years = '+
QuotedStr(spSkinComboBoxEx5.Text+'*') ;
form4.Note_Bulltin.Filtered := true;
end else
begin
form4.Note_Bulltin.Filtered := false;
end;

if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') and (spSkinDBLookupComboBox8.Text <> '') then
begin
GetBulltinClick(Sender);
end;

end;
procedure TForm3.spSkinDBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
if spSkinDBLookupComboBox7.Text <> '' then
begin
form4.Note_etudiant.Filter := 'NMatiere = '+QuotedStr(form4.DataSource1.DataSet.FieldByName('Nmatiere').AsString+'*');
form4.Note_etudiant.Filtered := true;
end else
begin
form4.Note_etudiant.Filtered := false;
end;
end;
procedure TForm3.spSkinDBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TspColumn; State: TGridDrawState);
var Moy:Double;
begin
if (Column.Field.AsFloat >20) or(Column.Field.AsFloat <0) then
begin
Column.Field.Clear;
end;
if Column.Field.AsFloat >= 10 then
begin
spSkinDBGrid3.Font.Color := clRed;
spSkinDBGrid3.Canvas.Brush.Color := 54423;
end else
begin
if (Column.Field.AsFloat < 10) and ( not Column.Field.IsNull) then
begin
spSkinDBGrid3.Canvas.Brush.Color := 74433;
end else
begin
spSkinDBGrid3.Canvas.Brush.Color := clGray;
end;
end;

spSkinDBGrid3.DefaultDrawColumnCell(rect,datacol,column,State);
Moy := ((Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire1').AsInteger + Form4.ds_Note_etudiant.DataSet.FieldByName('Devoire2').AsInteger)
+ (Form4.ds_Note_etudiant.DataSet.FieldByName('Exam').AsInteger*2)) / 4;
spSkinLabel21.Caption := FloatToStr(moy);
end;
procedure TForm3.spSkinDBGrid3KeyPress(Sender: TObject; var Key: Char);
begin
form4.ABSQuery3.ReadOnly := true;
end;
procedure TForm3.spSkinDBLookupComboBox10Change(Sender: TObject);
begin
if (spSkinDBLookupComboBox9.Text <> '')and (spSkinDBLookupComboBox10.Text <> '') then
begin
form4.ABSQuery1.Filter := 'Niveau = '+QuotedStr(spSkinDBLookupComboBox10.Text+'*');
form4.ABSQuery1.Filtered := true;
end else
begin
form4.ABSQuery1.Filtered := false;
end;
if (spSkinDBLookupComboBox9.Text <> '')and (spSkinDBLookupComboBox10.Text <> '') then
begin
Connection.Form4.GroupePour_Filtre.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox10.Text+'*');
Connection.Form4.GroupePour_Filtre.Filtered := true;
end else
begin
Connection.Form4.GroupePour_Filtre.Filtered := false;
end;
end;
procedure TForm3.spSkinDBLookupComboBox10Click(Sender: TObject);
begin
Connection.Form4.GroupePour_Filtre.Filter := 'NBranche = '+
QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*');
Connection.Form4.GroupePour_Filtre.Filtered := true;
end;
procedure TForm3.spSkinDBLookupComboBox4Change(Sender: TObject);
var j :integer;
begin
if (spSkinDBLookupComboBox4.Text <> '')and (spSkinDBLookupComboBox5.Text <> '') then
begin
form4.ABSQuery1.Filter := 'Niveau = '+QuotedStr(spSkinDBLookupComboBox5.Text+'*');
form4.ABSQuery1.Filtered := true;
end else
begin
form4.ABSQuery1.Filtered := false;
end;
if spSkinDBLookupComboBox4.Text <> '' then
begin
j := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
form4.GroupePour_Filtre.Filtered := false;
form4.GroupePour_Filtre.Filter := 'NBranche = '+QuotedStr(inttostr(j)+'*');
form4.GroupePour_Filtre.Filtered := true;
end;

if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;
// if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '') then
// begin
//form4.ABSQuery2.Close;
//form4.ABSQuery2.SQL.Text := 'select * from Note,Etudiant,Appartient where Appartient.NBranche = '+
//inttostr(Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+' and Appartient.Niveau = '+
//spSkinDBLookupComboBox5.Text+' and Appartient.NGroupe = '
//+spSkinDBLookupComboBox6.Text+' and Appartient.NEtudiant = Note.NEtudiant and Note.NMatiere = '
//+inttostr(Form4.DataSource1.DataSet.FieldByName('NMatiere').AsInteger)+' and Note.NEtudiant = Etudiant.NEtudiant ';
// form4.ABSQuery2.Open;

// end;
end;
procedure TForm3.spSkinDBLookupComboBox4Click(Sender: TObject);
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;
end;
procedure TForm3.spSkinDBLookupComboBox5Change(Sender: TObject);
begin

if (spSkinDBLookupComboBox4.Text <> '') then
begin
Connection.Form4.GroupePour_Filtre.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*');
Connection.Form4.GroupePour_Filtre.Filtered := true;
end else
begin
Connection.Form4.GroupePour_Filtre.Filtered := false;
end;

if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Branche_P_Note.Filtered := false;
end;
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;
end;
procedure TForm3.spSkinDBLookupComboBox5Click(Sender: TObject);
var j :integer;
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;
if (spSkinDBLookupComboBox4.Text <> '')and (spSkinDBLookupComboBox5.Text <> '') then
begin
form4.ABSQuery1.Filter := 'Niveau = '+QuotedStr(spSkinDBLookupComboBox5.Text+'*');
form4.ABSQuery1.Filtered := true;
end else
begin
form4.ABSQuery1.Filtered := false;
end;
if spSkinDBLookupComboBox4.Text <> '' then
begin
j := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
form4.GroupePour_Filtre.Filtered := false;
form4.GroupePour_Filtre.Filter := 'NBranche = '+QuotedStr(inttostr(j)+'*');
form4.GroupePour_Filtre.Filtered := true;
end;
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;

end;
procedure TForm3.spSkinDBLookupComboBox6Change(Sender: TObject);
begin

if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;
end;
procedure TForm3.spSkinDBLookupComboBox6Click(Sender: TObject);
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;
end;
procedure TForm3.spSkinDBLookupComboBox7Change(Sender: TObject);
begin
if (spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '')and (Yeardbcombox.Text <>'') then
begin
form4.Note_etudiant.Filter := 'NMatiere = '+QuotedStr(form4.DataSource1.DataSet.FieldByName('Nmatiere').AsString+'*')+
' and NTrimeste = '+QuotedStr(spSkinComboBoxEx3.Text+'*')+' and Years = '+QuotedStr(Yeardbcombox.Text+'*');
form4.Note_etudiant.Filtered := true;
end else
begin
form4.Note_etudiant.Filtered := false;
end;

end;
procedure TForm3.spSkinDBLookupComboBox7Click(Sender: TObject);
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;
end;
procedure TForm3.spSkinDBLookupComboBox8Change(Sender: TObject);
begin
if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') then
begin
form4.Note_Bulltin.Filter := 'NTrimeste = '+QuotedStr(spSkinComboBoxEx4.Text+'*')+' and Years = '+
QuotedStr(spSkinComboBoxEx5.Text+'*') ;
form4.Note_Bulltin.Filtered := true;
end else
begin
form4.Note_Bulltin.Filtered := false;
end;
if (spSkinComboBoxEx4.Text <> '')and(spSkinComboBoxEx5.Text <> '') and (spSkinDBLookupComboBox8.Text <> '') then
begin
GetBulltinClick(Sender);
end;
end;
procedure TForm3.spSkinDBLookupComboBox9Change(Sender: TObject);
var j :integer;
begin
if (spSkinDBLookupComboBox9.Text <> '')and (spSkinDBLookupComboBox10.Text <> '') then
begin
form4.ABSQuery1.Filter := 'Niveau = '+QuotedStr(spSkinDBLookupComboBox10.Text+'*');
form4.ABSQuery1.Filtered := true;
end else
begin
form4.ABSQuery1.Filtered := false;
end;

if spSkinDBLookupComboBox9.Text <> '' then
begin
j := Form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger;
form4.GroupePour_Filtre.Filtered := false;
form4.GroupePour_Filtre.Filter := 'NBranche = '+QuotedStr(inttostr(j)+'*');
form4.GroupePour_Filtre.Filtered := true;
end;

end;
procedure TForm3.NiveauChange(Sender: TObject);
begin
if Niveau.Text <> '' then
begin
Connection.Form4.Insc_Niveau.Filter := 'Niveau ='+QuotedStr(Niveau.Text+'*');
Connection.Form4.Insc_Niveau.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
end;

end;
procedure TForm3.Notes_EtudiantEnter(Sender: TObject);
var YearFirst,YearNext:string;

begin
form4.Ds_Appartient.DataSet.First;
YearFirst := '';
spSkinComboBoxEx5.ItemsEx.Clear;
while not form4.Ds_Appartient.DataSet.eof do
begin
YearNext := form4.Ds_Appartient.DataSet.FieldByName('years').AsString;
if YearFirst <> YearNext then
begin
YearFirst := form4.Ds_Appartient.DataSet.FieldByName('years').AsString;
spSkinComboBoxEx5.ItemsEx.Add.Caption := YearNext;

end;
form4.Ds_Appartient.DataSet.Next;
end;
end;
procedure TForm3.SaisieNoteEnter(Sender: TObject);
var YearFirst,YearNext:string;

begin
form4.Ds_Appartient.DataSet.First;
YearFirst := '';
Yeardbcombox.ItemsEx.Clear;
while not form4.Ds_Appartient.DataSet.eof do
begin
YearNext := form4.Ds_Appartient.DataSet.FieldByName('years').AsString;
if YearFirst <> YearNext then
begin
YearFirst := form4.Ds_Appartient.DataSet.FieldByName('years').AsString;
Yeardbcombox.ItemsEx.Add.Caption := YearNext;

end;
form4.Ds_Appartient.DataSet.Next;
end;
end;
procedure TForm3.recherChange(Sender: TObject);
begin
if BrancheNom.Checked then
begin
if BrancheNomEdit.Text <> '' then
begin
Connection.Form4.Liste_Braches.Filter := 'Nom_Branche ='+QuotedStr(BrancheNomEdit.Text+'*');
Connection.Form4.Liste_Braches.Filtered := true;

end else
begin
Connection.Form4.Liste_Braches.Filtered := false;
end;
end;
end;
procedure TForm3.spSkinEdit2Change(Sender: TObject);
begin
if(BracheExist(Connection.Form4.Ds_Liste_Braches,spSkinEdit2.Text) = true)then
begin
spSkinMessage1.MessageDlg('Cette Branche deja exist ! ',mtInformation,[mbOk],0);
end;

end;

procedure TForm3.StateContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Chart1.Series[1].ValueMarkText[1] := 'Hello' ;
end;
procedure TForm3.StateEnter(Sender: TObject);
begin
Button1Click(Sender);
end;
procedure TForm3.StateMouseEnter(Sender: TObject);
begin
Button1Click(Sender);
end;
//procedure TForm3.spSkinListBox1ListBoxClick(Sender: TObject);
//var i:integer;
//begin
//Connection.Form4.Ds_List_NMatiere.DataSet.first;
//i:=0;
// while(i <> spSkinListBox1.ItemIndex)do
// begin
// Connection.Form4.Ds_List_NMatiere.DataSet.Next;
// i := i+1;
// end;
//end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
//GETNomMatiere(spSkinListBox1,Connection.Form4.Ds_List_NMatiere,Connection.Form4.Ds_List_NomMatiere);
//Timer1.Enabled := false;
end;
procedure TForm3.YeardbcomboxChange(Sender: TObject);
begin
if (spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '')and (Yeardbcombox.Text <>'') then
begin
form4.Note_etudiant.Filter := 'NMatiere = '+QuotedStr(form4.DataSource1.DataSet.FieldByName('Nmatiere').AsString+'*')+
' and NTrimeste = '+QuotedStr(spSkinComboBoxEx3.Text+'*')+' and Years = '+QuotedStr(Yeardbcombox.Text+'*');
form4.Note_etudiant.Filtered := true;
end else
begin
form4.Note_etudiant.Filtered := false;
end;

if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and (spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'') then
begin
Connection.Form4.Branche_P_Note.Filter := 'NBranche = '+QuotedStr(inttostr(Connection.form4.Ds_Liste_Braches.DataSet.FieldByName('NBranche').AsInteger)+'*')
+'and Niveau ='+QuotedStr(spSkinDBLookupComboBox5.Text+'*')
+'and NGroupe ='+QuotedStr(spSkinDBLookupComboBox6.Text+'*')+' and years = '+QuotedStr(Yeardbcombox.Text+'*');
Connection.Form4.Branche_P_Note.Filtered := true;
end else
begin
Connection.Form4.Insc_Niveau.Filtered := false;
end;

end;

procedure TForm3.YeardbcomboxClick(Sender: TObject);
var i:integer;
begin
if (spSkinDBLookupComboBox6.Text <> '')and(spSkinDBLookupComboBox5.Text <> '')and
(spSkinDBLookupComboBox4.Text <> '')and (Yeardbcombox.Text <>'')and
(spSkinDBLookupComboBox7.Text <> '') and (spSkinComboBoxEx3.Text <> '') then
begin
spSkinButton4Click(Sender);
for i := 1 to AdvStringGrid1.RowCount-2 do
begin
AdvStringGrid1.SelectCells(4,1,4,i);
end;
end;
end;

end.
-- # وصلة ممنوعة 1778 # --S
unit Fonctions;
interface
uses
Windows, Messages,math, SysUtils, Variants, Classes,DB,
ABSMain,spTrayIcon,Controls ,Dialogs,ExtCtrls,StdCtrls,forms,SkinBoxCtrls;
var
DateEtHeure : TSystemTime;
sYear : String;
procedure GETNomMatiere(List:TspSkinListBox;Nmatiere:TDataSource;NomMatiere:TDataSource);
-- # وصلة ممنوعة 1778 # -- DejaInscriCetteAnne(Tab:TDataSource;NEtudiant:Integer):Boolean;
-- # وصلة ممنوعة 1778 # -- BracheExist(Tab:TDataSource;Nom_Branche:string):Boolean;
-- # وصلة ممنوعة 1778 # -- NiveauinBrancheExist(Tab:TDataSource;NumBranche:integer;Niveau:integer):Boolean;
procedure InsertBranche(Branche:TDataSource;Cof:TDataSource;Matiere:TDataSource;Nom:string;Niveau:integer);
procedure Initial_Note_Pour_Etudiant(Cof,Note:TDataSource;NB,NIV,NE:Integer);
implementation
procedure Initial_Note_Pour_Etudiant(Cof,Note:TDataSource;NB,NIV,NE:Integer);
var
i:integer;
YearNext:string;
begin
YearNext := inttostr(strtoint(FormatDateTime('yyyy',Now))+1);
cof.DataSet.First;
while not cof.DataSet.Eof do
begin
if (cof.DataSet.FieldByName('NBranche').AsInteger = NB) and (cof.DataSet.FieldByName('Niveau').AsInteger = NIV )then
begin
for i := 1 to 3 do
begin
Note.DataSet.Insert;
Note.DataSet.FieldByName('NMatiere').AsInteger := cof.DataSet.FieldByName('NMatiere').AsInteger;
Note.DataSet.FieldByName('NEtudiant').AsInteger := NE;
Note.DataSet.FieldByName('NTrimeste').AsInteger := i;
Note.DataSet.FieldByName('Years').AsString := FormatDateTime('yyyy',Now)+'/'+YearNext;
Note.DataSet.Post;
end;
end;
cof.DataSet.Next;
end;
end;

procedure InsertBranche(Branche:TDataSource;Cof:TDataSource;Matiere:TDataSource;Nom:string;Niveau:integer);
begin
Branche.DataSet.Open;
Matiere.DataSet.Open;
cof.DataSet.Open;
Branche.DataSet.Insert;
Branche.DataSet.FieldByName('Nom_Branche').AsString := nom;
Branche.DataSet.Post;
Branche.DataSet.Last;
Matiere.DataSet.First;
while Not Matiere.DataSet.Eof do
begin
if Matiere.DataSet.FieldByName('State').AsBoolean = True then
begin
Matiere.dataset.Edit;
Matiere.DataSet.FieldByName('State').AsBoolean := false;
Matiere.dataset.Post;
cof.DataSet.Insert;
cof.DataSet.FieldByName('Cofficion').AsInteger := Matiere.DataSet.FieldByName('Cof').AsInteger;
cof.DataSet.FieldByName('NBranche').AsInteger := Branche.DataSet.FieldByName('NBranche').Asinteger;
cof.DataSet.FieldByName('NMatiere').AsInteger:= Matiere.DataSet.FieldByName('NMatiere').asinteger;
cof.DataSet.FieldByName('Niveau').AsInteger := Niveau;
cof.DataSet.Post;
end;
Matiere.DataSet.Edit;
Matiere.DataSet.FieldByName('Cof').AsInteger := 0;
Matiere.DataSet.Post;
Matiere.DataSet.Next;
end;
end;
procedure GETNomMatiere(List:TspSkinListBox;Nmatiere:TDataSource;NomMatiere:TDataSource);
var num:integer;
b:Boolean;
Nom:string;
begin
Nmatiere.DataSet.First;
List.Clear;
while(Not Nmatiere.DataSet.Eof)do
begin
num := Nmatiere.DataSet.FieldByName('NMatiere').AsInteger;
b := false;
NomMatiere.DataSet.First;
while(not NomMatiere.DataSet.Eof) and (b = false) do
begin
if(NomMatiere.DataSet.FieldByName('NMatiere').AsInteger = num)then
begin
b := true;
Nom := NomMatiere.DataSet.FieldByName('NomMatiere').AsString;
List.Items.Add(Nom);
end;
NomMatiere.DataSet.Next;
end;
Nmatiere.DataSet.Next;
end;
Nmatiere.DataSet.First;
end;

-- # وصلة ممنوعة 1778 # -- DejaInscriCetteAnne(Tab:TDataSource;NEtudiant:Integer):Boolean;
var b:Boolean;
var YearNext:string;
begin
tab.DataSet.First;
b:=false;
YearNext := inttostr(strtoint(FormatDateTime('yyyy',Now))+1);
while (not tab.DataSet.eof)and (b=false) do
begin
if((tab.DataSet.FieldByName('NEtudiant').AsInteger = NEtudiant) and (tab.DataSet.FieldByName('Years').AsString = FormatDateTime('yyyy',Now)+'/'+YearNext) )then
begin
b := true;
end else
begin
Tab.DataSet.Next;
end;
end;
Result := b;
end;
-- # وصلة ممنوعة 1778 # -- BracheExist(Tab:TDataSource;Nom_Branche:string):Boolean;
var b:Boolean;
begin
tab.DataSet.First;
b:=false;
while (not tab.DataSet.eof)and (b=false) do
begin
if((tab.DataSet.FieldByName('Nom_Branche').Asstring = Nom_Branche) )then
begin
b := true;
end else
begin
Tab.DataSet.Next;
end;
end;
Result := b;
end;

-- # وصلة ممنوعة 1778 # -- NiveauinBrancheExist(Tab:TDataSource;NumBranche:integer;Niveau:integer):Boolean;
var b:Boolean;
begin
tab.DataSet.First;
b:=false;
while (not tab.DataSet.eof)and (b=false) do
begin
if((tab.DataSet.FieldByName('NBranche').AsInteger = NumBranche)and(tab.DataSet.FieldByName('Niveau').Asinteger = Niveau) )then
begin
b := true;
end else
begin
Tab.DataSet.Next;
end;
end;
Result := b;
end;
end.

..

أرجو أن يكون الموضوع قد أعجبكم و تكونو قد إستمتعتم و لو بالشيئ البسيط

الى اللقاء مع موضوع آخر ..

تحياتي للجميع

أخوكم أسامة Oussaki

نأتي الى الختام