تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعدة في عرض جملة sql
#1
السلام عليكم

لدي جدول كالتالي :  جدول حضور وانصراف

رقم الموظق  - تاريخ دق البصمة - الوقت - الحالة  ( 01  دخول  03  خروج ) 


مثال بيانات  كالتالي

 100 - 01/02/205 - 13:25 - 01
100 - 01/02/2015 -  23:36 -03
100 - 05/03/2015 -  11:25 - 01
100 - 05/03/2015 - 17:55 - 03

المطلوب عرض   الموظف رقم  100  مثلا  الخروج والدخول لنفس اليوم  في سطر واحد  كالتالي

100 - 01/02/2015  - 13:25  - 23:36  - 01 - 03
100 - 05/03/2015 - 11:25 - 17:55  - 01 - 03

 ضروري  وشكرا  على المساعدة
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#2
Wink 
اخي الكريم ,, عادة يقوم الموظف بوضع بصمته اكثر من عشرين مرة اذا كان من هواه وعشاق سماع صوت الماكنة , Tongue
لذا عليك عمل فلترة على الموظفين .
PHP كود :
 SELECT DISTINCT Name 

ثم البحث بين تاريخين ..
ثم عرض الوقت فقط . من الاصغر الى الاكبر

ارفع الملف وسوف اقوم بعمل واجهة الفلترة .
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#3
(15-11-15, 11:28 AM)alzmohammed كتب : السلام عليكم

لدي جدول كالتالي :  جدول حضور وانصراف

رقم الموظق  - تاريخ دق البصمة - الوقت - الحالة  ( 01  دخول  03  خروج ) 


مثال بيانات  كالتالي

 100 - 01/02/205 - 13:25 - 01
100 - 01/02/2015 -  23:36 -03
100 - 05/03/2015 -  11:25 - 01
100 - 05/03/2015 - 17:55 - 03

المطلوب عرض   الموظف رقم  100  مثلا  الخروج والدخول لنفس اليوم  في سطر واحد  كالتالي

100 - 01/02/2015  - 13:25  - 23:36  - 01 - 03
100 - 05/03/2015 - 11:25 - 17:55  - 01 - 03

 ضروري  وشكرا  على المساعدة

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

اسم الجدول Table1
حقل رقم الموظف a1
حقل التاريخ a2
حقل وقت الدخول + وقت الخروج a3
حقل الحالة للدخول + الحالة للخروج a4

AS COMMING = وقت الدخول
AS OUT = وقت الخروج
AS STATE1 = الحالة للدخول
AS STATE2 = الحالة للخروج


كود :
SELECT Table1.a1 , Table1.a2, First(Table1.a3) AS COMMING , Last(Table1.a3) AS OUT , First(Table1.a4) AS STATE1, Last(Table1.a4) AS STATE2 
FROM Table1
WHERE (((Table1.a2)="01/02/2015"))
GROUP BY Table1.a1, Table1.a2;
تمت التجربة بنجاح
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#4
شكرا على الردود  

الاخ حريف برمجة  الكود الذي وضعتة    استخدمت اي اصدار من sql server   علما بأن  المطلوب على      
   sql server 2000
دالة first  last  غير مدعومة    الضاهر عاملة على الاكسيس
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم ورحمة الله

أخي محمد

ما اسم الجدول واسماء الأعمدة وأنواعها؟
الرد }}}}
تم الشكر بواسطة:
#6
اسم الجدول - punch
رقم الموظف - empcode nvarchar
حقل تااريخ empdate
حقل وقت emptime
حقل حاله tacode intger

ويكون كالتالي empcode - empdate - emptime - tacode ويعتبر سجل او حركة حظور اما دخول او خروج لموظف بتاريخ معين

مثل الموظف رقمة 100 عمل حركة دخول بتاريخ 01/01/2015 الساعة 13:45 وتمثل بسجل او سطر في قاعدة البيانات
100 -01/01/2015 - 13:45 - 01

الموظف رقمة 100 عمل حركة خروج بتاريخ 01/01/2015 الساعة 23:10 وتمثل بسجل او سطر في قاعدة البيانات
100 - 01/01/2015 - 23:10 - 03

بعتبار حالة الدخول 01 والخروج 03

المطلوب او الفكرة كيف جعل كالتالي 100 - 01/01/2015 - 13:45 - 23:10 - 01 - 03 في الاستعلام ياخذ لنفس التاريخ وهكذا لبقية الايام
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#7
السلام عليكم ورحمة الله

أخي محمد

الكود التالي سيظهر لك تماماً ما طلبت
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    MsgBox
(getEmployeeReport(100))
End Sub


Function getEmployeeReport(ByVal employeeID As Integer) As String

    Dim sb 
As New System.Text.StringBuilder

    Dim dataContext 
As New DataClasses1DataContext
    Dim days 
=
        
From x In dataContext.punches
        Where x
.empcode employeeID
        Group By x
.empcodex.empdate
        Into grp 
GroupCount()

    For 
Each d In days

        Dim time 
As New List(Of String)
        
Dim mode As New List(Of String)

        For 
Each g In d.grp
            time
.Add(DateTime.Parse(g.emptime.Value.ToString()).ToString("HH:mm"))
            
mode.Add(Val(g.tacode).ToString("00"))
        
Next

        sb
.AppendLine(
            
String.Concat(
                
d.empcode" - "DateTime.Parse(d.empdate.ToString).ToString("dd/MM/yyyy"),
                
" - ",
                
String.Join(" - "time.ToArray), " - "String.Join(" - "mode.ToArray)
                )
            )
    
Next

    
Return sb.ToString

End 
Function 

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

أخي محمد

لمعرفة كيف يعمل الكود عليك بتعلم LinqToSql عن طريق دروس الأستاذ خضر:
الدرس الأول : Linq To SQL
الدرس الثاني : Linq To SQL
الدرس الثالث : Linq To SQL
الدرس الرابع : Linq To SQL

لا تقلق من LinqToSql فهي سهلة جداً، فقط إبدأ...
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#8
(15-11-15, 08:39 PM)alzmohammed كتب : شكرا على الردود  

الاخ حريف برمجة  الكود الذي وضعتة    استخدمت اي اصدار من sql server   علما بأن  المطلوب على      
   sql server 2000
دالة first  last  غير مدعومة    الضاهر عاملة على الاكسيس

انت لم تحدد نوع قاعدة البيانات فتوقعت اكسس ،، حصل خير

هذا الكود للاسكيوال سيرفر

كود :
SELECT        empcode, empdate, MIN(emptime) AS Expr1, MAX(emptime) AS Expr3, MIN(tacode) AS Expr2, MAX(tacode) AS Expr4
FROM            punch
WHERE        (empdate = N'01/02/2015')
GROUP BY empcode, empdate
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#9
شكرا للاعضاء الكرام على سرعة الرد والتفاعل وسوف اجرب الاكواد المطروحة
الرد }}}}
تم الشكر بواسطة: الضمير المستتر
#10
أخي العزيز، أعتقد أنه يجب إعادة النظر في تصميم الجدول، فلماذا الدخول في صف والخروج في صف آخر؟
لماذا لا تدرج حقل للخروج وحقل وآخر للدخول؟
أليس هذا أفضل؟
الرد }}}}
تم الشكر بواسطة: الضمير المستتر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 1 33 منذ 3 ساعة مضت
آخر رد: a r
  ممكن مساعدة توفي العراقي 1 36 منذ 9 ساعة مضت
آخر رد: ali.alfoly
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 280 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 70 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 78 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 83 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 74 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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