السلام عليكم
عندي جدول ( Name-Emp , Code-Emp ,Casm-Emp)
الجدول الثاني ( , name-Emp code-Emp, tamestart, tamefansh)
الجدول بيانات اساسيه يسجلهم مره وحده فقط
الجدول الثاني عليه العمل بمجرد ما يدخل الكودالموظف يحفظ وقت الدخول
طبعا راح يحفظ الوقت والكود كيف اجعل البرنامج يبحث عن اسم صاحب الكود من الجدول الاول ويضيفه تلقائيا في الجدول الثاني
ايضا هناك حقل من نوع بايت احتاج اذا كانت قيمة الحقل = فولس يكتب لي غايب
كيف الطريقه الله يعطيكم العافيه
سؤال مهم يا عادل
بداية اجعل كود الموظف سجله المدني حتى تضمن شغلات كثير
ثاني شيء في جدول الحضور والانصراف ما انت بحاجة لتسجيل اللي غاب
لانه اذا ماله بيانات في اليوم كذا يبقى غايب من غير كلام واللي مسجلين هم اللي حضروا
يعني
الجدول الاساسي فيه السجل المدني اسم الموظف الخ
الجدول الثاني
اليوم -- التاريخ -- السجل المدني الوقت1 --- الوقت2
يعني حضور وانصراف فقط
من غير اي غلبة
ولما احب الاستعلام عن حضور وغياب يوم
select Inner hoin
ولمعرفة اللي غاب
SELECT t.*
FROM TABLE_LIST t
LEFT JOIN TABLE_LOG tl ON tl.jid = t.jid
WHERE tl.jid IS NULL
لانك لو حطيت True False
شــكرا يابو عمر
والله ما قدرت لكن صـاحب العمل بيغا كود طبعاَ هذا الكود مراح يتكرر أنتهيت من بنـاء جملته
ياليت يابو عمر تحط الأستعلام في مربع نص ترا لك علي في فهم الكود
الجدولين (البحث في جدول الموظفين عن صاحب الكود المسجل في تكست بكس1وأظهر لي أسمه في تكست بكس2 )
أيضاً هل أستطع التعامل مع الفيوز مثل ما أتعامل مع الجدول ..؟
يعني قلت أسوي فيوز وأشكل الجدول اللي أبيه
و عليكم السلام و رحمة الله و بركاته
PHP كود :
Public Function GetFiled(ByVal ReturnFiled As String, ByVal Tbl As String, ByVal CondFiled As String, ByVal Id As String) As String
Dim serch As String = ""
serch = "Select " & ReturnFiled & " From " & Tbl & " Where " & CondFiled & " Like '" & Id & "' "
Dim Cmd As New OleDbCommand(serch, Con)
Dim ReturnResult As String = ""
OpenConnect()
Dim red As OleDbDataReader = Cmd.ExecuteReader
While red.Read
If red.HasRows Then
If Not (red(ReturnFiled) Is Nothing) Or red(ReturnFiled).ToString.Length > 0 Then
ReturnResult = red(ReturnFiled).ToString
Else
ReturnResult = Nothing
End If
End If
End While
red.Close()
Cmd.Dispose()
CloseConnect()
Return ReturnResult
End Function
PHP كود :
TextBox2.Text = GetFiled("name-Emp", "Emps", "code-Emp", TextBox1.Text)
PHP كود :
Select name-Emp From Emps Where code-Emp Like '" & TextBox1.TextT & "'
أســال الله أن يوفقك ويسهل أمــرك ألف ألف شـكر ولجميع الأخوه المتفاعلين أعظم فائده لي في التعامل مع جدولين
ششششششرح رائع