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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انزال تسلسل رقمي دفعة واحدة على السجلات gonm64 1 2,164 21-01-20, 09:50 PM
آخر رد: abubasilIraq
  تعديل بعض السجلات اسلام الكبابى 9 4,184 29-05-19, 10:32 PM
آخر رد: egbest2
  مشكلة فى ترتيب السجلات اسلام الكبابى 4 2,761 05-09-18, 12:45 AM
آخر رد: اسلام الكبابى
  أريد مثالا لتصدير المعطيات من SQL SERVER الى EXCEL من خلال الفيجوال بيسك AEDC 1 2,079 22-08-17, 11:11 AM
آخر رد: Amir_Alzubidy
  [vb6.0] التنقل بين السجلات bozo2 0 1,595 15-08-17, 03:12 AM
آخر رد: bozo2
  كيف اجعل المستخد م يحدد قاعدة بيانات البرنامج يدوياً من خلال البرنامج والعمل عليها ؟؟ softmail8 4 3,461 27-01-17, 08:08 PM
آخر رد: awidan76
  تظليل أحد السجلات فى الDATAGRID اسلام الكبابى 9 4,128 19-08-16, 01:25 PM
آخر رد: اسلام الكبابى
  قيمة معينة فى حقل معين لجميع السجلات اسلام الكبابى 8 3,496 26-06-16, 12:46 AM
آخر رد: Amir_Alzubidy
  مساعده في كود نقل السجلات من جدول الى اخر Adodc allayl 2 3,383 24-08-13, 05:06 PM
آخر رد: allayl
  كيف يتم في برنامجي المرفق إظهار الموظفين المنتهيه تصاريحهم ؟؟ softmail8 2 2,684 13-08-13, 03:53 PM
آخر رد: softmail8

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


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