منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ (/showthread.php?tid=8710)



كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - softmail8 - 29-04-13

الساده الكرام
السلام عليكم ورحمة وبركاته
كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟
كما الذي في الصورة المرفقة
نامل من الله ثم منكم المساعدة العاجله والله يحفظكم ويرعاكم


كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - الاصيله - 30-04-13

السلام عليكم
هذا هوطلبكم
http://vb4arb.com/vb/uploaded/2508_01367280245.zip


كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - @@أبورائد@@ - 30-04-13


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




تفضل بعد تنسيق كود الأخت
[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 





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



كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - softmail8 - 30-04-13

استاذي العزيز : ابو رائد
السلام عليكم ورحمة وبركاتة
لكم مني فائق الشكر والتقدير على ما تقدمه لنا من دعم فني والله يحفظكم ويرعاكم


كيف يتم برمجة استعرض السجلات من خلال برنامجي المرفق ؟؟ - softmail8 - 30-04-13

الاخت العزيزه : الاصيله
السلام عليكم ورحمة وبركاته
لكم مني الف شكر وتقدير على ما تقدمية لنا من دعم فني والله يحفظكم ويرعاكم