تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] سؤال في الرصيد بعد كل عملية والرصيد الافتتاحي - حركة السيارات
#1
السلام عليكم اخواني الاعزاء وجزاكم الله خير على مساعدتنا الدائمة 

كنت ابحث عن كود الوارد والمنصرف وبعد عناء طويل وجدت هذا الكود الرائع جزاه الله الاخ VB_Coder والذي كان بتقنية DAO وقمت بتحويلة الى ADO والذي كان 
PHP كود :
ActiveReport1.DAODataControl1.DatabaseName App.Path "\db1.mdb"
'ActiveReport1.DAODataControl1.RecordSource = " Select * From sam2"
ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & _
                          ",Date" & _
                          ",Account_Number" & _
                          ",Deposit" & _
                          ",Clouds" & _
                          ",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=Tbn.Account_Number AND Tbl.Operation<=Tbn.Operation) as Balance" & _
                          " From sam2 as Tbn" & _
                          " Order By Date,Operation ASC"
DoEvents

ActiveReport1.Refresh
ActiveReport1.Show 



قمت بعمل المثل المرفق بواسطته بهذا الكود : 
PHP كود :
Set RS = New ADODB.Recordset
If RS.State adStateOpen Then RS.Close
  RS
.CursorLocation adUseClient

 RS
.Open "select OilID,CarID,OilDate,OilByan,carKMOld,carKMNew,CarKMCom,Oilward,Oilmosthlak,(Select SUM(Oilward)-SUM(Oilmosthlak) From TrafficTB as Tbl  where   Tbl.CarID LIKE '%" UCase(Text1.Text) & "%' and Tb2.CarID LIKE '%" UCase(Text1.Text) & "%' and  Tbl.OilID<=Tb2.OilID) as Balance  from  TrafficTB as Tb2  Order By OilID ASC "DbadOpenStaticadLockOptimistic
    
    RS
.MoveLast
  Set DataGrid1
.DataSource RS

DoEvents


End Sub 

 ولكن واجهتني بعض المشاكل في الكود 
وهي كالتالي : 
   

المطلوب : عند كتابة رقم السيارة في Text1.text يطلع في الداتا جيرد البيانات الخاصة لهذه السيارة فقط 

ارجوا المساعدة بحيث انني محتاج جداً لهذا 

وجزاكم الله خير كثير ويرزقكم من حيث لاتحتسبوا


الملفات المرفقة
.rar   cars.rar (الحجم : 64.38 ك ب / التحميلات : 36)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: sendbad100
#2
اخواني الاعزاء 
لقد قمت لوحوالي اكثر من ساعتين لحل هذا اللغز ولقد وصلت لنتيجة في الوقت الحالي وسأرفقها ليتم الاستفاذه منها وجزاكم الله خير 

احبتي  عند تشغيل المثال اشتغل كما هو مطلوب 
الصورة الاولى توضح السيارة رقم 1
     

الصورة الثانية توضح السيارة رقم 2 
   

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

كثير من المبرمجين الذي عندهم المام في المجالي المحاسبي يبحثون مثل هذا الكود  وان شاء الله يستفيذو منه  والشكر موصول للاخ VB_Coder 
شكراً اخي احمد منصور 
شكراً اخي امير الزبيدي 
شكراً اخي Sniper.ps  اتمنى ان تكون بخير اكثر من سنة لم اسمع اخبارك


الملفات المرفقة
.rar   cars fixed.rar (الحجم : 64.42 ك ب / التحميلات : 66)
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: sendbad100 , حريف برمجة , Amir_Alzubidy , Amir_Alzubidy , elgokr
#3
وعليكم السلام ورحمة الله وبركاتة


الله يعينك اخي الكريم

ويعطيك الصحة والعافية
الرد }}}
تم الشكر بواسطة: حريف برمجة , Amir_Alzubidy , awidan76 , elgokr
#4
موفق وتشكر ولكن انصح بمراجعة قواعد تصميم الجداولا في قواعد البيانات حيث يبدو ان هناك تكرار غير ضروري
رقم السيارة المكرر مخالف للقواعد والمفروض ان يكون في جدول مستقل
فلو اردت ان تغير اسم السيارة او رقمها فسوف تغير كل الارقام الموجودة بالجدول والمكرر او اسمها بدل تغيير حقل واحد فقط
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , awidan76 , elgokr
#5
viv
[quote pid='142103' dateline='1560550097']
موفق وتشكر ولكن انصح بمراجعة قواعد تصميم الجداولا في قواعد البيانات حيث يبدو ان هناك تكرار غير ضروري
رقم السيارة المكرر مخالف للقواعد والمفروض ان يكون في جدول مستقل
فلو اردت ان تغير اسم السيارة او رقمها فسوف تغير كل الارقام الموجودة بالجدول والمكرر او اسمها بدل تغيير حقل واحد فقط
[/quote]
مش فاهم قصدك أخي viv ممكن توضح اكثر او تعدل على  المثال لتعم الفائدة 

ولك جزيل الشكر
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة:
#6
أرجوك، توقف عن استخدم Access.
الرد }}}
تم الشكر بواسطة:
#7
(15-06-19, 04:46 PM)أبوبكر سويدان كتب : أرجوك، توقف عن استخدم Access.

ان شاء الله قاعدة البيانات التي اعجبتني والتي هي مقاربة للاكسس وتحمل بيانات 500GB هي SQLite   والتي شرحها لنا الاخ احمد عبدالعليم  جزاه الله خير
مارأيك فيها اخي ابوبكر
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: أبوبكر سويدان , elgokr
#8
(15-06-19, 08:47 PM)awidan76 كتب :
(15-06-19, 04:46 PM)أبوبكر سويدان كتب : أرجوك، توقف عن استخدم Access.

ان شاء الله قاعدة البيانات التي اعجبتني والتي هي مقاربة للاكسس وتحمل بيانات 500GB هي SQLite   والتي شرحها لنا الاخ احمد عبدالعليم  جزاه الله خير
مارأيك فيها اخي ابوبكر

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

أقترح عليك سيرفر MariaDB، من الرابط التالي:

https://downloads.mariadb.org/mariadb/5.5.64/

وهذا شرح لكيفية الربط بينها وبين الفجول ستوديو
https://dev.mysql.com/doc/visual-studio/...ction.html

أو من هنا

https://www.connectionstrings.com/mysql/

لا تقلق MariaDB=MySQL

----
أرجو أن تضع رابطا لشرح أخينا أحمد عبد العليم.
الرد }}}
تم الشكر بواسطة: elgokr , sendbad100
#9
http://vb4arb.com/vb/showthread.php?tid=19111
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد }}}
تم الشكر بواسطة: elgokr , sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم