تقييم الموضوع :
  • 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
الاخت العزيزه : الاصيله
السلام عليكم ورحمة وبركاته
لكم مني الف شكر وتقدير على ما تقدمية لنا من دعم فني والله يحفظكم ويرعاكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى ترتيب السجلات اسلام الكبابى 1 106 12-10-17, 01:34 PM
آخر رد: اسلام الكبابى
  أريد مثالا لتصدير المعطيات من SQL SERVER الى EXCEL من خلال الفيجوال بيسك AEDC 1 90 22-08-17, 11:11 AM
آخر رد: Amir_alzubidy
  [vb6.0] التنقل بين السجلات bozo2 0 61 15-08-17, 03:12 AM
آخر رد: bozo2
  انزال تسلسل رقمي دفعة واحدة على السجلات gonm64 0 82 23-07-17, 11:11 PM
آخر رد: gonm64
  كيف اجعل المستخد م يحدد قاعدة بيانات البرنامج يدوياً من خلال البرنامج والعمل عليها ؟؟ softmail8 4 914 27-01-17, 08:08 PM
آخر رد: awidan76
  تظليل أحد السجلات فى الDATAGRID اسلام الكبابى 9 791 19-08-16, 01:25 PM
آخر رد: اسلام الكبابى
  تعديل بعض السجلات اسلام الكبابى 8 528 18-08-16, 12:50 AM
آخر رد: اسلام الكبابى
  قيمة معينة فى حقل معين لجميع السجلات اسلام الكبابى 8 566 26-06-16, 12:46 AM
آخر رد: Amir_alzubidy
  مساعده في كود نقل السجلات من جدول الى اخر Adodc allayl 2 1,291 24-08-13, 05:06 PM
آخر رد: allayl
  كيف يتم في برنامجي المرفق إظهار الموظفين المنتهيه تصاريحهم ؟؟ softmail8 2 913 13-08-13, 03:53 PM
آخر رد: softmail8

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


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