شكرا لكم اخوتي الاعزاء
رحت نزلت لغة فيجوال 2013 قلت يمكن اللي عندي فيها خلل
والناتج كان هوا هوا لان البرنامج انا رح اعدل عليه واستخمه لمحل عملي ولما انتهي منه اوعدكم اننا ازله في هذا المنتدى الرائع
واليكم الكود كاملا
[attachment=958][attachment=958]
اليكم الصوره
لما طبقت تعليمات الاخ Genius Live
كان الناتج كما في هذه الصوره , اي اخطاء اكثر
رحت نزلت لغة فيجوال 2013 قلت يمكن اللي عندي فيها خلل
والناتج كان هوا هوا لان البرنامج انا رح اعدل عليه واستخمه لمحل عملي ولما انتهي منه اوعدكم اننا ازله في هذا المنتدى الرائع
واليكم الكود كاملا
PHP كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Mainform
Dim connectionstring As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\work.mdb"
Dim newConnection As New OleDbConnection(connectionstring)
Dim DataSet1 As New DataSet
Dim SQLstr As String = "SELECT *FROM tabb"
Private Sub Mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
newConnection.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection)
DataAdapter1.Fill(DataSet1, "tabb")
newConnection.Close()
TextBox1.DataBindings.Add("Text", DataSet1, "tabb.id")
TextBox2.DataBindings.Add("Text", DataSet1, "tabb.ttody")
TextBox3.DataBindings.Add("Text", DataSet1, "tabb.ddate", 2, 2)
TextBox4.DataBindings.Add("Text", DataSet1, "tabb.b1")
TextBox5.DataBindings.Add("Text", DataSet1, "tabb.b2")
TextBox7.DataBindings.Add("Text", DataSet1, "tabb.b3")
TextBox8.DataBindings.Add("Text", DataSet1, "tabb.b4")
TextBox9.DataBindings.Add("Text", DataSet1, "tabb.b5")
TextBox10.DataBindings.Add("Text", DataSet1, "tabb.b6")
TextBox11.DataBindings.Add("Text", DataSet1, "tabb.b7")
TextBox12.DataBindings.Add("Text", DataSet1, "tabb.b8")
TextBox13.DataBindings.Add("Text", DataSet1, "tabb.b9")
TextBox14.DataBindings.Add("Text", DataSet1, "tabb.pprint")
TextBox15.DataBindings.Add("Text", DataSet1, "tabb.info")
showlistnumber()
End Sub
Public Sub showlistnumber()
Label7.Text = Me.BindingContext(DataSet1, "tabb").Position + 1
Label9.Text = Me.BindingContext(DataSet1, "tabb").Count
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BindingContext(DataSet1, "tabb").Position = 0
showlistnumber()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(DataSet1, "tabb").Position = Me.BindingContext(DataSet1, "tabb").Count - 1
showlistnumber()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BindingContext(DataSet1, "tabb").Position += 1
showlistnumber()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BindingContext(DataSet1, "tabb").Position -= 1
showlistnumber()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If MsgBox("هل تريد حذف السجل الحالي ؟", 48 + MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
Dim Savecommand As New OleDb.OleDbCommand
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection)
Savecommand.Connection = newConnection
Savecommand.CommandType = CommandType.Text
Savecommand.CommandText = "DELETE FROM tabb WHERE id like '" & TextBox1.Text & "'"
newConnection.Open()
Savecommand.ExecuteNonQuery()
newConnection.Close()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "tabb")
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64, "حذف سجل")
showlistnumber()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
newlist.Show()
Me.Hide()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim edit As New editform
edit.TextBox1.Text = Me.TextBox1.Text
edit.TextBox2.Text = Me.TextBox2.Text
edit.TextBox3.Text = Me.TextBox3.Text
edit.TextBox4.Text = Me.TextBox4.Text
edit.TextBox5.Text = Me.TextBox5.Text
edit.TextBox7.Text = Me.TextBox7.Text
edit.TextBox8.Text = Me.TextBox8.Text
edit.TextBox9.Text = Me.TextBox9.Text
edit.TextBox10.Text = Me.TextBox10.Text
edit.TextBox11.Text = Me.TextBox11.Text
edit.TextBox12.Text = Me.TextBox12.Text
edit.TextBox13.Text = Me.TextBox13.Text
edit.TextBox14.Text = Me.TextBox14.Text
edit.TextBox15.Text = Me.TextBox15.Text
edit.Label6.Text = Me.TextBox1.Text
edit.Show()
Me.Hide()
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
End
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
searchform.Show()
Me.Hide()
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
If TextBox6.Text = "" Then
Exit Sub
ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1, "tabb").Count Then
MessageBox.Show(" أدخلت رقما خاطئا")
Else
Me.BindingContext(DataSet1, "tabb").Position = (TextBox6.Text - 1)
showlistnumber()
Label11.Text = ""
End If
End Sub
Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
If (Char.IsLetter(e.KeyChar) = True) Then
e.Handled = True
ElseIf Char.IsSymbol(e.KeyChar) = True Then
e.Handled = True
ElseIf Char.IsPunctuation(e.KeyChar) = True Then
e.Handled = True
End If
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
newlist.Show()
Me.Hide()
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
If MsgBox("هل تريد حذف السجل الحالي ؟", 48 + MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
Dim Savecommand As New OleDb.OleDbCommand
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection)
Savecommand.Connection = newConnection
Savecommand.CommandType = CommandType.Text
Savecommand.CommandText = "DELETE FROM tabb WHERE id like '" & TextBox1.Text & "'"
newConnection.Open()
Savecommand.ExecuteNonQuery()
newConnection.Close()
DataSet1.Clear()
DataAdapter1.Fill(DataSet1, "tabb")
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64, "حذف سجل")
showlistnumber()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
Dim edit As New editform
edit.TextBox1.Text = Me.TextBox1.Text
edit.TextBox2.Text = Me.TextBox2.Text
edit.TextBox3.Text = Me.TextBox3.Text
edit.TextBox4.Text = Me.TextBox4.Text
edit.TextBox5.Text = Me.TextBox5.Text
edit.TextBox7.Text = Me.TextBox7.Text
edit.TextBox8.Text = Me.TextBox8.Text
edit.TextBox9.Text = Me.TextBox9.Text
edit.TextBox10.Text = Me.TextBox10.Text
edit.TextBox11.Text = Me.TextBox11.Text
edit.TextBox12.Text = Me.TextBox12.Text
edit.TextBox13.Text = Me.TextBox13.Text
edit.TextBox14.Text = Me.TextBox14.Text
edit.TextBox15.Text = Me.TextBox15.Text
edit.Label6.Text = Me.TextBox1.Text
edit.Show()
Me.Hide()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
searchform.Show()
Me.Hide()
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
End
End Sub
End Class
كان الناتج كما في هذه الصوره , اي اخطاء اكثر
