مشروع برنامج الوارد والصادر (المشاركة للجميع من الصفر)

السلام عليكم

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

ارجوا ان تتوكل على نفسك و على الله لاتمام امشروع و عدم مشارك الاخرير ارجوا ان لا تفشلك.

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

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

وبهذا يكون المنتدى مرجع للمبرمجين المسلمين والعرب بشكل عام.

وفق الله الجميع لما يحبه ويرضاه

:) :) :)

هذا تخطيط مرسوم لهذا البرنامج وخط سير المعامل

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

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

اشكرك أخ walid zak لمرورك على الموضوع ، نعم هذا تخطيط للبرنامج للمساعدة في عمل قاعدة البيانات.

الأخ زكيري أنا سوف أبدأ بعمل المشروع وسوف بإذن الله تعالى استخدم قاعدة بيانات MS SQL SERVER 2008 لحاجة البرنامج في الأصل للشبكة بحكم موضوع البرنامج انه يعمل عليه أكثر من واحد.

وسوف بإذن الله تعالى أضع كل خطوة أتبعها هنا كي يتسنى للآخرين رؤيتها وتصحيح ما بها من أخطاء أو تشجيع إذا كانت صحيحة.

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

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

:) :) :)

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

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

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

بالطبع برنامج مثل هذا بحتاج صلاحيات وعلى الصلاحيات بعتمد سير البرنامج فكان أو جدول هو جدول المستخدمين (USERS) في قاعدة بيانات أسميتها (WARED) .

وضعت المثال كامل في المرفقات.

بعد تشغيل البرنامج يظهر form1 وبه يضع المستخدم اسم المستخدم وكلمة السر ثم يضغط على الزر دخول ويدخل إلى البرنامج في الـ form2 .

وسوف أضع السورسات هنا مع طريقة العمل .

طريقة العمل:

فتح قاعدة بيانات با WARED ثم انشاء جدول داخل هذه القاعدة واسمه USERS ويشمل البيانات التالية:

رقم المستخدم وهو من نوع INT

واسم المستخدم وكلمة السر والقسم والمجموعة التي ينتمي إليها المستخدم وكلها من نوع VARCHAR()

وسوف تجد استعلام به كل هذه الأوامر ومعبأ فيها اربع مستخدمين كل ما عليك أن تفعله تدخل الى MS SQL SERVER وتُنشأ قاعدة بيانات بالاسم الآنف الذكر وتفتح هذا الاستعلام وتنفذه.

نفتح DELPHI XE وننشأ مشروع جديد ونسميه بالاسم الآنف الذكر WARED أو كما تحب أن تسميه

وفي هذا الفورم لك أن تتصرف في شكله كما تشاء ونضع فيه عدد (5) editbox وعدد (2) button فالأول للدخول والثاني للخروج من البرنامج

نضع المؤشر على editbox1 ونذهب الى الأحداث الخاصة به ونذهب للحدث التالي:

OnExit ونكتب فيه الشفرة التالية:

//===============
adoquery1.Close;
adoquery1.Parameters.ParamByName('tt').Value:=trim(edit1.Text);
adoquery1.Open;
if  not (adoquery1.IsEmpty) then
begin
edit1.Text:=trim(adoquery1nuser.value);
edit3.Text:=inttostr(adoquery1nouser.Value);
edit4.Text:=trim(adoquery1section.Value);
edit5.Text:=trim(adoquery1guser.Value);
end;
//=-=-=-=-
if adoquery1.IsEmpty  then
begin

showmessage('عفوا ليس لديك صلاحية الدخول للبرنامج');

edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit5.Text := '';
edit1.SetFocus ;
end;
//====================

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

ثم نذهب للحدث onkeypress ونضع الشفرة التالية:

if key=#13 then
begin
key:=#0;
perform(cm_dialogkey,vk_tab,0);
end;

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

في الـ button2 نكتب close; للخروج من البرنامج

وفي الـ Button1 نكتب الشفرة التالية:

//==============================   

adoquery2.Close;
adoquery2.Parameters.ParamByName('b1').Value:=trim(edit1.Text);
adoquery2.Parameters.ParamByName('b2').Value:=trim(edit2.Text);
adoquery2.Open;

If edit1.Text= adoquery2.Parameters.ParamByName('b1').Value 
and 
   edit2.Text= adoquery2.Parameters.ParamByName('b2').Value

Then
Begin

form2.edit1.text := Edit4.Text ;
form2.edit2.text := Edit1.Text ;

form2.ShowModal ;
end
else
showmessage('عفوا ليس لديك صلاحية الدخول للبرنامج'); 

//showmessage('عفوا ليس لديك صلاحية الدخول للبرنامج');

وهذا يعني اذا توافق اسم المستخدم وكلمة السر الموجودة في قاعدة البيانات اذهب للفورم 2 للدخول للبرنامج والا تظهر رسالة ليس لديك الصلاحية للدخول، وايضا نقل اسم المستخدم وقسمه للظهور في الفورم2

ولكن هناك خطأ أريد حله بمشاركتكم طبعا انا وضعت الاسماء وكلمات السر :

للمستخدم الأول الاسم (1) وكلمة السر ايضا (1) وهكذا الى اربعة مستخدمين ، والمشكلة تكمن إذا وضعت كلمات بدل الحروف في اي من اسم المستخدم او كلمة المرور تظهر رسالة خطأ.

آمل من مشرفين وأعضاء المنتدى أن يشاركونا في هذا المشروع

حفظ الله الجميع

:) :) :)

wared.zip

computer53 كتب:

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

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

اشكرك أخ walid zak لمرورك على الموضوع ، نعم هذا تخطيط للبرنامج للمساعدة في عمل قاعدة البيانات.

الأخ زكيري أنا سوف أبدأ بعمل المشروع وسوف بإذن الله تعالى استخدم قاعدة بيانات MS SQL SERVER 2008 لحاجة البرنامج في الأصل للشبكة بحكم موضوع البرنامج انه يعمل عليه أكثر من واحد.

وسوف بإذن الله تعالى أضع كل خطوة أتبعها هنا كي يتسنى للآخرين رؤيتها وتصحيح ما بها من أخطاء أو تشجيع إذا كانت صحيحة.

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

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

:) :) :)

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

1)كيف يمكن اضافة الماسح الضوئيMicrosoft Office Document Scanning للبرنامج لتمكن من اضافة المرفقات و كيف يمكن ربط المرفقات بجداول قاعدة البيانات في بيئة دلفي . كما هو الحال بالنسبة لـــ:Microsoft Office Access 2007 لان في الاكسس 2007 يوجد حقل خاص بالمرفقات ؟.

2) اما بالنسبة لــ:Microsoft Office Access 2007 كيف نقوم بربط أو منادات الماسح الضوئي

وحفظ الوثائق الملتقطة وحفظها في حقل المرفقات -هذا بالنسبة الى الوارد أو لصادر الذي يحتوي على أكثر من وثيقة . أرجو من الله التوفيق للجميع . salim

computer53 كتب:

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

فتح قاعدة بيانات با WARED ثم انشاء جدول داخل هذه القاعدة واسمه USERS ويشمل البيانات التالية:

رقم المستخدم وهو من نوع INT

واسم المستخدم وكلمة السر والقسم والمجموعة التي ينتمي إليها المستخدم وكلها من نوع VARCHAR()

تأكد من الحقول بحيث يوجد مفتاح تحكم للملف لا يتكرر مثل (رقم متزايد) لا تستفيد مه ولكن يحفط قاعدة البيانات من التخبط

الأمر الآخر رقم المستخدم (اشترط عدم تكراره)

computer53 كتب:

ثم نذهب للحدث onkeypress ونضع الشفرة التالية:

if key=#13 then

begin

key:=#0;

perform(cm_dialogkey,vk_tab,0);

end;

يفضل وضعها في النموذج كما يلي

1 رتب الحقول حسب رغبتك باستخدام taborder عدل بالنموذج keypreview من false الى true

2 ضع هذه الكتابه في onformkeypress

if key=#13 then

selectnext(activecontrol,true,true);

وستغنيك بالتنقل لكل ما في النموذج

computer53 كتب:

نضع المؤشر على editbox1 ونذهب الى الأحداث الخاصة به ونذهب للحدث التالي:

OnExit ونكتب فيه الشفرة التالية:

//showmessage('عفوا ليس لديك صلاحية الدخول للبرنامج');

اما في هذه النقطه فلدي رأي اخر من وجهة نظري ادق

01 افرز الملف الى adoquery1 وافهرسه برقم المستخدم اوبالرم المتسلسل

كمايلي ويمكن وضع هذه الشفره في النموذج ONSHOW

select * from USER where num <>0 order by num

ADOQUERY1.OPEN

IF ADOQUERY1.EOF THEN

BEGIN

showmessage('الملف فارغ لايوجد مشغلين مصرح لهم');

CLOSE;

او اوجهه الى EDIT1

02 ابحث بالملف (ADOQUERY1.LOCATE)

واكيد تعرف طريقتها او ازودك بها(من الأفضل البحث برمزين (الكود+كلمة السر)

03 ان وجدت المعلومه يستجيب البرنامج ويملأ الفراغات التي ترغب

وان لم يجد

showmessage('عفوا ليس لديك صلاحية الدخول للبرنامج');

ملاحظه تتعامل مع معلومات الملف (ADOQUREY1) ـ FIELDBYNAME وليس البراميتر اترك البراميتر للأضافه والتعديل وغيرها

السلام عليكم

ممكن اكثر توضيح

لو سمحتم

السلام عليكم

المرفق لم يفتح هل يمكن ان ترسل لي مرفق اخر فيه رمز exe