تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟
#1
الساده الكرام
السلام عليكم ورحمة وبركاته
كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟
كما الذي في الصورة المرفقة
نامل من الله ثم منكم المساعدة العاجله والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
هذا هوطلبكم
http://vb4arb.com/vb/uploaded/2508_01367280245.zip
الرد }}}}
تم الشكر بواسطة:
#3

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




تفضل بعد تنسيق كود الأخت
[b]الاصيله[/b]



PHP كود :
Private Sub Form_Load()

    
Set db DBEngine.OpenDatabase(App.Path "\db1.mdb"TrueFalse";Pwd =" "000")
    
Set rs db.OpenRecordset("soft"2)
    
    
rs.MoveLast
    rs
.MoveFirst
    
    Label4
.BackColor vbBlack
    Label4
.ForeColor vbWhite
    
    
If rs.RecordCount 0 Then ViewRecord
    
End Sub

Private Sub ViewRecord()
    
Text1.Text rs.Fields!ID
    Text2
.Text rs.Fields!Name
    Text3
.Text rs.Fields!Phone
    Label4
.Caption = (rs.AbsolutePosition 1) & " / " & (rs.RecordCount)
End Sub

Private Sub Command3_Click()
    If 
rs.AbsolutePosition 0 Then
        rs
.MovePrevious
        ViewRecord
    End 
If
End Sub

Private Sub Command4_Click()
    
rs.MoveFirst
    
If rs.RecordCount 0 Then ViewRecord
End Sub

Private Sub Command5_Click()
    If (
rs.AbsolutePosition 1) < rs.RecordCount Then
        rs
.MoveNext
        ViewRecord
    End 
If
End Sub

Private Sub Command6_Click()
    
rs.MoveLast
    
If rs.RecordCount 0 Then ViewRecord
End Sub

Private Sub Command1_Click()
    
    
Set db OpenDatabase(App.Path "\db1.mdb"2)
    
Set rs db.OpenRecordset("SELECT * FROM [soft] ")
   
    
aaa MsgBox("هل تريد بتاكيد حفظ البيانات"vbExclamation vbYesNo vbMsgBoxRtlReading)
    
    If 
aaa vbYes Then
        rs
.AddNew
        
If Not Trim(Text1.Text) = "" Then rs("ID").Value Val(Trim(Text1.Text))
        If 
Not Trim(Text2.Text) = "" Then rs("Name").Value Trim(Text2.Text)
        If 
Not Trim(Text3.Text) = "" Then rs("Phone").Value Trim(Text3.Text)
        
rs.Update
        
        MsgBox 
"تم حفط البيانات "vbInformation vbMsgBoxRtlReading
        Text1 
""
        
Text2 ""
        
Text3 ""
    
End If

End Sub 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#4
استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاتة
لكم مني فائق الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:
#5
الاخت العزيزه : الاصيله
السلام عليكم ورحمة وبركاته
لكم مني الف شكر وتقدير على ما تقدمية لنا من دعم فني والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تظليل أحد السجلات فى الDATAGRID اسلام الكبابى 9 327 19-08-16, 01:25 PM
آخر رد: اسلام الكبابى
  تعديل بعض السجلات اسلام الكبابى 8 204 18-08-16, 12:50 AM
آخر رد: اسلام الكبابى
  قيمة معينة فى حقل معين لجميع السجلات اسلام الكبابى 8 185 26-06-16, 12:46 AM
آخر رد: Amir_alzubidy
  مساعده في كود نقل السجلات من جدول الى اخر Adodc allayl 2 1,016 24-08-13, 05:06 PM
آخر رد: allayl
  كيف يتم في برنامجي المرفق إظهار الموظفين المنتهيه تصاريحهم ؟؟ softmail8 2 714 13-08-13, 03:53 PM
آخر رد: softmail8
  كيف اجعل برنامجي يبحث عن قاعدة البيانات في الجهازتلقائي والا تصال بها ؟؟ softmail8 0 483 09-08-13, 08:55 PM
آخر رد: softmail8
  دورة حول برمجة برنامج جمعية مائية derbaliammar 9 1,013 01-08-13, 07:46 AM
آخر رد: derbaliammar
  كيف انشي متصفح سجلات لنتايج البحث فقط في برنامجي مرفق ؟؟ softmail8 11 1,165 27-07-13, 07:54 PM
آخر رد: benomar
  كيف اضع قواعد بيانات برمجي المرفق في ملف dll واجعل برنامجي يعمل عليها ؟؟ softmail8 2 767 27-07-13, 06:37 PM
آخر رد: cvcvcv
  كيف ابحث عن تاريخ في قاعدة بيانات برنامجي بشرط ان يكون التاريخ تحت رقم حساب معين ؟؟ softmail8 2 493 08-07-13, 07:40 PM
آخر رد: softmail8

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


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